极限测试之Matlab与Forcal动态生成函数的效率

forcal

程序动态生成一些函数，然后调用这些函数，体现了脚本的优势。

* g% J( M  w0 J& j. T  `以下Forcal程序动态编译了函数 f(x,y)=x+y ，然后执行该函数，共进行了10000次。

2. !using("sys","string");$ C: s1 r2 G/ j+ ]3 x! E% w
   
4. mvar:$ p: ?& J( I5 n$ N5 p, x: K9 `
   
6. t0=clock();
   
7.   ?. x. `6 J/ A# |$ l* g3 M2 m  u
8. main(:pf,a,i,s)=; n! {. I+ `  F( E+ b( q$ `9 J6 k& `3 {
   
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针0 E( e! J9 _7 {$ _  ]6 e# J
    
12.   s=0, i=0,
    
13. & A, h3 `# p1 F1 H! X6 ]# v# U9 e
14.   while{++i<=10000,; U* D- z: r( P0 v6 x6 ^\\" P8 P
    
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式
    
17. 5 D0 }; |2 E$ @: u# ~% O
18.     a=HFor("f"),          //获得函数f的句柄  Q  R, w8 T3 v& z5 ?0 z4 `. A: v\\" E
    
20.     s=s+a[1,0]            //动态调用函数f/ c: o, V, |2 w
    
22.   },8 |' B0 A5 P, T' y5 l  E
    
24.   s;
    
25. , v, }/ G* N) [8 @# |6 x
26. [clock()-t0]/1000;

!using("sys","string");<font class=\\"jammer\\">$ C: s1 r2 G/ j+ ]3 x! E% w</font><br /> mvar:<font class=\\"jammer\\">$ p: ?& J( I5 n$ N5 p, x: K9 `</font><br /> t0=clock();<br /> <span style=\\"display:none\\">  ?. x. `6 J/ A# |$ l* g3 M2 m  u</span> main(:pf,a,i,s)=<font class=\\"jammer\\">; n! {. I+ `  F( E+ b( q$ `9 J6 k& `3 {</font><br />   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<font class=\\"jammer\\">0 E( e! J9 _7 {$ _  ]6 e# J</font><br />   s=0, i=0,<br /> <span style=\\"display:none\\">& A, h3 `# p1 F1 H! X6 ]# v# U9 e</span>   while{++i<=10000,<font class=\\"jammer\\">; U* D- z: r( P0 v6 x6 ^\\" P8 P</font><br />     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<br /> <span style=\\"display:none\\">5 D0 }; |2 E$ @: u# ~% O</span>     a=HFor("f"),          //获得函数f的句柄<font class=\\"jammer\\">  Q  R, w8 T3 v& z5 ?0 z4 `. A: v\\" E</font><br />     s=s+a[1,0]            //动态调用函数f<font class=\\"jammer\\">/ c: o, V, |2 w</font><br />   },<font class=\\"jammer\\">8 |' B0 A5 P, T' y5 l  E</font><br />   s;<br /> <span style=\\"display:none\\">, v, }/ G* N) [8 @# |6 x</span> [clock()-t0]/1000;

结果：
8 S# d+ G& m; r9 O10000.
4 Y# Q1 ]: G! C" J" Z$ V, N0.359  秒
! T) Z$ J( K3 `7 F
matlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html
: M; R2 ~' `2 }$ y9 ]8 |/ ]5 f
由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。

/ n# v0 k. Q: ?7 I: w程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。