calculation_E_vs_r_scan