morrissey22 发表于 2007-12-10 02:21

请用2.0版1stopt的朋友进来帮个忙,感激不尽

要拟合个非线性公式,被催得紧,无奈买不起正版,下的1.5版SharedModel没法用,一运行就死掉了.拜托用2.0版的朋友帮忙算下下面段程序,万分万分感谢!!!

Title "OPO";
Parameters P1=4.505,P2=0.0069,P3=0.13,P4=-0.023[-0.02365,-0.022],P5=0.075,P6=0.037,P7=,P8=,P9=2.5E-8,P10=1.5E-8 ;
Variable T1,T2,rs,r,y1,y2;
ConstStr rp=1.064 ;
ConstStr ri=1/(1/rp-1/rs) ;
ConstStr NP=(P1+(P2+P9*(T1+273.15)^2)/(rp^2-(P3+P10*(T1+273.15)^2)^2)+P5/(rp^2-P6)+P4*rp^2+P7/(rp^2-P8))^0.5 ;
ConstStr NS=(P1+(P2+P9*(T1+273.15)^2)/(rs^2-(P3+P10*(T1+273.15)^2)^2)+P5/(rs^2-P6)+P4*rs^2+P7/(rs^2-P8))^0.5 ;
ConstStr NI=(P1+(P2+P9*(T1+273.15)^2)/(ri^2-(P3+P10*(T1+273.15)^2)^2)+P5/(ri^2-P6)+P4*ri^2+P7/(ri^2-P8))^0.5 ;
ConstStr NH=(P1+(P2+P9*(T2+273.15)^2)/((r/2)^2-(P3+P10*(T2+273.15)^2)^2)+P5/((r/2)^2-P6)+P4*(r/2)^2+P7/((r/2)^2-P8))^0.5 ;
ConstStr N=(P1+(P2+P9*((T2+273.15)^2))/(r^2-(P3+P10*((T2+273.15)^2))^2)+P5/(r^2-P6)+P4*(r^2)+P7/(r^2-P8))^0.5 ;
SharedModel;
Function y1=1/(NP/rp-NS/rs-NI/ri)/(1+1.6E-5*(T1-25)+7E-9*(T1-25)^2);
y2=r/(2*(NH-N))/(1+1.6E-5*(T2-25)+7E-9*(T2-25)^2);
Data;
T1,T2,rs,r,y1,y2=
30   137   1.50929   1.06430    7.8
50   88   1.51336    1.06430    7.9
70   33.51.51765   1.06430    8
90   49   1.52258    0.97630    6.1
11057.51.52765   1.08430    8.3
130137   1.5335    1.06430    7.8
15088   1.54       1.06430    7.9
17033.51.5469    1.06430    8
30   49   1.52006   0.97630.26.1
50   57.51.5244    1.08430.28.3
70   137   1.52914   1.06430.27.8
90   88   1.5345    1.06430.27.9
11033.51.54028   1.06430.28
13049    1.5466    0.97630.26.1
15057.51.55346   1.08430.28.3
170137   1.56297   1.06430.27.8
30   88    1.533   1.06430.47.9
50   33.51.53778   1.06430.48
70   49    1.5429    0.97630.46.1
90   57.51.5486    1.08430.48.3
110137   1.555   1.06430.47.8
13088    1.562   1.06430.47.9
15033.51.5696    1.06430.48
17049    1.57835   0.97630.46.1
30   57.51.6154    1.08431.48.3
50   137   1.6232    1.06431.47.8
70   88    1.6325    1.06431.47.9
90   33.51.64336   1.06431.48
11049    1.65437   0.97631.46.1
13057.51.6674    1.08431.48.3
150137   1.68242   1.06431.47.8
17088    1.70029   1.06431.47.9
30   33.51.6378    1.06431.68
50   49    1.6467    0.97631.66.1
70   57.51.6571    1.08431.68.3
90   1371.6683    1.06431.67.8
11088    1.6824    1.06431.67.9
13033.51.698   1.06431.68
15049    1.7158    0.97631.66.1
17057.51.7376    1.08431.68.3
30   137   1.6651    1.06431.87.8
50   88    1.67647   1.06431.87.9
70   33.51.6889    1.06431.88
90   49    1.7028    0.97631.86.1
11057.51.7198    1.08431.88.3
130137   1.7385    1.06431.87.8
15088    1.7626    1.06431.87.9
17033.51.7902    1.06431.88

[ 本帖最后由 morrissey22 于 2007-12-10 02:29 编辑 ]

suffer 发表于 2007-12-19 15:39

不太了解1stopt

不过据dingd讲:
网上下的PJ版,这种编程模式没法用的,和死机一样差不多。

lzhais 发表于 2008-7-30 16:22

我的版本没你的高
能把你的2.0版本给我发一个吗,
我的邮箱lzhais@hotmail.com
万分感谢!~~~

平平淡淡 发表于 2009-1-18 12:25

我也急需2.0版,哪个好心人给我也发一个吧,小妹不胜感激。我的邮箱:cpnkg@163.com
页: [1]
查看完整版本: 请用2.0版1stopt的朋友进来帮个忙,感激不尽