Parameter a;
StartRange = [1E-100,1e-10];
Variable  x,y;
StartProgram [Pascal];
Procedure MainModel;
var i, n: integer;
    td: double;
Begin
    for i := 0 to DataLength - 1 do begin
        td := 0;
        for n := 1 to 1200 do
            td := td + exp(-n^2*pi^2*a*x[i]/0.000001);
        y[i] := 1/pi^2*td;
    end;
End;
EndProgram;
data;
0        0.98501
0.21        29.86622
0.42        32.67416
1        36.97943
4        43.80644
7        48.87115
10        51.80471
14        53.65742
18        57.08069
22        59.32729
26        60.3525
30        61.04827
35        62.75492
42        65.76456
49        68.92578
60        74.15131