ComplexStr=j;
Variables x,y;
Parameters a,b1,c1,d1,b2,c2,d2,e,f;
Function y=a+(b1*c1*c1)/(c1*c1-x*x-j*2*x*d1)+(b2*c2*c2)/(c2*c2-x*x-j*2*x*d2)-(e*e)/(x*x+j*x*f) ;

Data;
1.73E+150.270000000000000 + 7.
15000000000
000i
1.92E+150.220000000000000 + 6.35000000000000i
2.11E+150.170000000000000 + 5.66300000000000i
2.30E+150.160000000000000 + 5.08300000000000i
2.49E+150.140000000000000 + 4.54100000000000i
2.68E+150.
13000000000
0000 + 4.10300000000000i
2.86E+150.140000000000000 + 3.69700000000000i
3.06E+150.210000000000000 + 3.27200000000000i
3.24E+150.290000000000000 + 2.86300000000000i
3.44E+150.430000000000000 + 2.45500000000000i
3.62E+150.620000000000000 + 2.08100000000000i
3.80E+151.04000000000000 + 1.83300000000000i
4.00E+151.31000000000000 + 1.84900000000000i
4.18E+151.38000000000000 + 1.91400000000000i
4.38E+151.45000000000000 + 1.94800000000000i
4.56E+151.46000000000000 + 1.95800000000000i