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

forcal

程序动态生成一些函数，然后调用这些函数，体现了脚本的优势。
1 O/ }+ Q: e& C$ x9 ]! j3 g
! z& A* k9 y7 j7 H, a  \6 `* K以下Forcal程序动态编译了函数 f(x,y)=x+y ，然后执行该函数，共进行了10000次。

2. !using("sys","string");
   
3.   t( ?  N1 u3 F) v5 Z
4. mvar:! H# h3 H, j3 c, j# _! O' d3 W
   
6. t0=clock();
   
7. ( s+ D8 o, D\\" B9 ]! N9 H
8. main(:pf,a,i,s)=
   
9. . J- }4 @7 h2 o# N1 q! P4 s
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针! \4 G8 d% l' z$ d4 v9 _
    
12.   s=0, i=0,
    
13. 2 c5 d) ]- j. r# j. c
14.   while{++i<=10000,
    
15. 4 w, J1 ]+ I( M  ~+ a6 }9 F- i
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式, b! F4 `' E+ `) y0 m$ E
    
18.     a=HFor("f"),          //获得函数f的句柄
    
19. \\" S- X- o/ o8 ~! c' E3 l5 M5 k
20.     s=s+a[1,0]            //动态调用函数f' A4 o6 `' M! l5 L% F- G
    
22.   },$ K1 v' _: p! P2 Q: E
    
24.   s;# q! R8 H& J  k# @0 H
    
26. [clock()-t0]/1000;

!using("sys","string");<br /> <span style=\\"display:none\\">  t( ?  N1 u3 F) v5 Z</span> mvar:<font class=\\"jammer\\">! H# h3 H, j3 c, j# _! O' d3 W</font><br /> t0=clock();<br /> <span style=\\"display:none\\">( s+ D8 o, D\\" B9 ]! N9 H</span> main(:pf,a,i,s)=<br /> <span style=\\"display:none\\">. J- }4 @7 h2 o# N1 q! P4 s</span>   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<font class=\\"jammer\\">! \4 G8 d% l' z$ d4 v9 _</font><br />   s=0, i=0,<br /> <span style=\\"display:none\\">2 c5 d) ]- j. r# j. c</span>   while{++i<=10000,<br /> <span style=\\"display:none\\">4 w, J1 ]+ I( M  ~+ a6 }9 F- i</span>     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<font class=\\"jammer\\">, b! F4 `' E+ `) y0 m$ E</font><br />     a=HFor("f"),          //获得函数f的句柄<br /> <span style=\\"display:none\\">\\" S- X- o/ o8 ~! c' E3 l5 M5 k</span>     s=s+a[1,0]            //动态调用函数f<font class=\\"jammer\\">' A4 o6 `' M! l5 L% F- G</font><br />   },<font class=\\"jammer\\">$ K1 v' _: p! P2 Q: E</font><br />   s;<font class=\\"jammer\\"># q! R8 H& J  k# @0 H</font><br /> [clock()-t0]/1000;

结果：
10000.
% Q; t" o! r1 l1 D1 L0 v1 h0.359  秒
3 Y8 T- {, c& F% Q1 K: X
: j5 \- h5 k2 L4 a  Rmatlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html
# h: W" C$ F& A% q
由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。
) n1 j0 S( Y+ R+ j
程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。