楼: Originally posted by gbb19880913 at 2012-02-27 19:52:51:
origin7.5 第四章里面的线性拟合

楼: Originally posted by dingd at 2012-02-27 20:12:49:
可能的话把相关数据放上来。

9楼: Originally posted by dingd at 2012-02-27 20:12:49:
可能的话把相关数据放上来。

10楼: Originally posted by gielcheen at 2012-02-27 20:24:38:
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         ...

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

楼: Originally posted by dingd at 2012-02-28 20:15:44:
你可以把代码中的1200换成12000或更多，只是太化时间。代码已给出了自己慢慢算吧。

楼: Originally posted by dingd at 2012-02-29 08:33:27:
“正无穷”只是个概念上的东西，数值计算时必须有具体值的。要是你的公式随着n的增加而收敛（趋于稳定），此时“正无穷”就可以用这个n值代替，否则如果发散说明你的公式有问题。