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

forcal

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

以下Forcal程序动态编译了函数 f(x,y)=x+y ，然后执行该函数，共进行了10000次。

2. !using("sys","string");
   
3. # }( }! u* c% Y9 A  j7 _7 S$ U2 n
4. mvar:* ?9 o\\" E8 M5 _) s9 M0 p
   
6. t0=clock();
   
7. 5 N' q8 `1 O% Q6 {
8. main(:pf,a,i,s)=
   
9. - B* P7 R7 ]! x+ j+ ~  O+ \
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针
    
11. . `2 v/ X4 U4 V
12.   s=0, i=0,
    
13. . X9 o3 D( ~: i: K: I9 w
14.   while{++i<=10000,% G! o; f4 o8 R1 U$ e# g3 b2 ^( V
    
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式
    
17. 5 s5 C7 I3 _, R* |% l& `, H! O% _9 l
18.     a=HFor("f"),          //获得函数f的句柄0 [- f, o! \7 F, w8 B- X* k; c
    
20.     s=s+a[1,0]            //动态调用函数f
    
21. ) o\\" n% r& ?: ~! Y: E+ ~
22.   },& c\\" O) }# N8 b& Z; o+ \
    
24.   s;- B8 B) t8 ~$ K2 R* H! ~
    
26. [clock()-t0]/1000;

!using("sys","string");<br /> <span style=\\"display:none\\"># }( }! u* c% Y9 A  j7 _7 S$ U2 n</span> mvar:<font class=\\"jammer\\">* ?9 o\\" E8 M5 _) s9 M0 p</font><br /> t0=clock();<br /> <span style=\\"display:none\\">5 N' q8 `1 O% Q6 {</span> main(:pf,a,i,s)=<br /> <span style=\\"display:none\\">- B* P7 R7 ]! x+ j+ ~  O+ \</span>   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<br /> <span style=\\"display:none\\">. `2 v/ X4 U4 V</span>   s=0, i=0,<br /> <span style=\\"display:none\\">. X9 o3 D( ~: i: K: I9 w</span>   while{++i<=10000,<font class=\\"jammer\\">% G! o; f4 o8 R1 U$ e# g3 b2 ^( V</font><br />     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<br /> <span style=\\"display:none\\">5 s5 C7 I3 _, R* |% l& `, H! O% _9 l</span>     a=HFor("f"),          //获得函数f的句柄<font class=\\"jammer\\">0 [- f, o! \7 F, w8 B- X* k; c</font><br />     s=s+a[1,0]            //动态调用函数f<br /> <span style=\\"display:none\\">) o\\" n% r& ?: ~! Y: E+ ~</span>   },<font class=\\"jammer\\">& c\\" O) }# N8 b& Z; o+ \</font><br />   s;<font class=\\"jammer\\">- B8 B) t8 ~$ K2 R* H! ~</font><br /> [clock()-t0]/1000;

结果：
10000.
0.359  秒

matlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html
3 y0 _4 G  P% @8 r- o0 _4 I( Y7 l
由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。
, R( c. |$ M+ t1 A2 D2 n* H( `
* H9 J) T, a+ q. m程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。