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

forcal

程序动态生成一些函数，然后调用这些函数，体现了脚本的优势。
  j( ^0 M7 Q5 ]4 P2 W
+ Q1 C7 |2 r  E6 m7 y' z) L) W* T2 b以下Forcal程序动态编译了函数 f(x,y)=x+y ，然后执行该函数，共进行了10000次。

2. !using("sys","string");  {$ ^* @) Q; |9 T5 H3 r
   
4. mvar:
   
5. , f9 ]2 m\\" j; b$ C0 J. f9 o1 m
6. t0=clock();
   
7. . C0 [+ w3 ]- z. a6 I3 }/ Q, b
8. main(:pf,a,i,s)=/ Y+ t3 y. V8 M) t7 ]. X
   
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针) @, e. o\\" a, r, Q. e, s
    
12.   s=0, i=0,
    
13. * U& \9 c% i% b
14.   while{++i<=10000,6 C7 y1 i5 l\\" `, N0 H9 O/ r
    
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式& Q# [+ e\\" q% J9 x5 v) |* I% t
    
18.     a=HFor("f"),          //获得函数f的句柄1 A7 m4 ?+ B- P6 K
    
20.     s=s+a[1,0]            //动态调用函数f
    
21. 4 B3 S+ j5 D  |& s: X9 a, s: g
22.   },0 c& V# V, n, D2 B- A5 v- ?: O& c
    
24.   s;/ L7 [% E5 C, Q5 l* c4 Q5 B8 m  Z
    
26. [clock()-t0]/1000;

!using("sys","string");<font class=\\"jammer\\">  {$ ^* @) Q; |9 T5 H3 r</font><br /> mvar:<br /> <span style=\\"display:none\\">, f9 ]2 m\\" j; b$ C0 J. f9 o1 m</span> t0=clock();<br /> <span style=\\"display:none\\">. C0 [+ w3 ]- z. a6 I3 }/ Q, b</span> main(:pf,a,i,s)=<font class=\\"jammer\\">/ Y+ t3 y. V8 M) t7 ]. X</font><br />   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<font class=\\"jammer\\">) @, e. o\\" a, r, Q. e, s</font><br />   s=0, i=0,<br /> <span style=\\"display:none\\">* U& \9 c% i% b</span>   while{++i<=10000,<font class=\\"jammer\\">6 C7 y1 i5 l\\" `, N0 H9 O/ r</font><br />     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<font class=\\"jammer\\">& Q# [+ e\\" q% J9 x5 v) |* I% t</font><br />     a=HFor("f"),          //获得函数f的句柄<font class=\\"jammer\\">1 A7 m4 ?+ B- P6 K</font><br />     s=s+a[1,0]            //动态调用函数f<br /> <span style=\\"display:none\\">4 B3 S+ j5 D  |& s: X9 a, s: g</span>   },<font class=\\"jammer\\">0 c& V# V, n, D2 B- A5 v- ?: O& c</font><br />   s;<font class=\\"jammer\\">/ L7 [% E5 C, Q5 l* c4 Q5 B8 m  Z</font><br /> [clock()-t0]/1000;

结果：
+ M* Q' w4 v* A% z10000.
  i- Y/ J, C4 d8 [  ?4 E/ C3 s0.359  秒
2 w7 ~$ `* A# o/ A  U: J3 M) S$ M9 m
matlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html

由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。
# z& x6 `# X# j. S( Z2 f1 I
/ w6 I1 C) d6 `$ V2 k程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。