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

forcal

程序动态生成一些函数，然后调用这些函数，体现了脚本的优势。
4 i& S/ q  M  g8 R1 r- T
3 b2 K6 u( a. V' ]  m以下Forcal程序动态编译了函数 f(x,y)=x+y ，然后执行该函数，共进行了10000次。

2. !using("sys","string");, Q5 e* g: H+ n- {6 _& J- z; c9 k+ h- j
   
4. mvar:- R: d  j( L* J4 Y, v\\" o) m
   
6. t0=clock();
   
7. * i% |& B  X( s
8. main(:pf,a,i,s)=
   
9. # v$ B. S- j\\" P4 O( i4 M+ l1 I
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针
    
11. 4 ]! Q5 M8 K% U5 Q/ ^8 U) y5 i
12.   s=0, i=0,
    
13. & ~, V5 e3 `% d4 z1 R
14.   while{++i<=10000,$ e( \. B9 L1 f7 u9 A
    
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式
    
17. : u1 b3 |% o9 ~* A3 l
18.     a=HFor("f"),          //获得函数f的句柄
    
19. 2 n; M, {2 [; z3 v# O
20.     s=s+a[1,0]            //动态调用函数f
    
21. 1 S- L+ S( M- ]% f
22.   },
    
23. 9 H6 y3 X  ]; I- n* C
24.   s;
    
25. * q9 G7 {8 e( y\\" i2 j, n
26. [clock()-t0]/1000;

!using("sys","string");<font class=\\"jammer\\">, Q5 e* g: H+ n- {6 _& J- z; c9 k+ h- j</font><br /> mvar:<font class=\\"jammer\\">- R: d  j( L* J4 Y, v\\" o) m</font><br /> t0=clock();<br /> <span style=\\"display:none\\">* i% |& B  X( s</span> main(:pf,a,i,s)=<br /> <span style=\\"display:none\\"># v$ B. S- j\\" P4 O( i4 M+ l1 I</span>   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<br /> <span style=\\"display:none\\">4 ]! Q5 M8 K% U5 Q/ ^8 U) y5 i</span>   s=0, i=0,<br /> <span style=\\"display:none\\">& ~, V5 e3 `% d4 z1 R</span>   while{++i<=10000,<font class=\\"jammer\\">$ e( \. B9 L1 f7 u9 A</font><br />     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<br /> <span style=\\"display:none\\">: u1 b3 |% o9 ~* A3 l</span>     a=HFor("f"),          //获得函数f的句柄<br /> <span style=\\"display:none\\">2 n; M, {2 [; z3 v# O</span>     s=s+a[1,0]            //动态调用函数f<br /> <span style=\\"display:none\\">1 S- L+ S( M- ]% f</span>   },<br /> <span style=\\"display:none\\">9 H6 y3 X  ]; I- n* C</span>   s;<br /> <span style=\\"display:none\\">* q9 G7 {8 e( y\\" i2 j, n</span> [clock()-t0]/1000;

结果：
10000.
0.359  秒

matlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html
1 R, X% v1 E8 n7 Q9 f4 ~) q
" u  j- n/ s5 Q" `由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。

' r5 {: T9 U6 F+ b  s程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。