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

forcal

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

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

2. !using("sys","string");
   
3. ' H7 c4 A' ^& q3 ?# J
4. mvar:
   
5. # P, `4 \+ {2 L* m2 S% M' t$ |' n
6. t0=clock();
   
7. 5 M$ D& u/ k( y5 f. a: f  L
8. main(:pf,a,i,s)=
   
9. : x7 T: ?+ O# j2 N
10.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针
    
11. , Y/ G4 g\\" c: y* v
12.   s=0, i=0,
    
13. ! r; h  _2 ?0 ]9 e, C5 P
14.   while{++i<=10000,# [0 j& u! j, g8 y, T
    
16.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式
    
17.   T# B  p' q\\" l7 w% @\\" |
18.     a=HFor("f"),          //获得函数f的句柄
    
19. + {6 X  v2 g5 C' x/ b3 z3 }
20.     s=s+a[1,0]            //动态调用函数f
    
21. . T0 R$ i( `# o, t6 R' V' R$ A+ Q
22.   },
    
23. / R1 ^: ^$ i2 O+ ?( \  r
24.   s;
    
25.   j: B6 q' \/ I
26. [clock()-t0]/1000;

!using("sys","string");<br /> <span style=\\"display:none\\">' H7 c4 A' ^& q3 ?# J</span> mvar:<br /> <span style=\\"display:none\\"># P, `4 \+ {2 L* m2 S% M' t$ |' n</span> t0=clock();<br /> <span style=\\"display:none\\">5 M$ D& u/ k( y5 f. a: f  L</span> main(:pf,a,i,s)=<br /> <span style=\\"display:none\\">: x7 T: ?+ O# j2 N</span>   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针<br /> <span style=\\"display:none\\">, Y/ G4 g\\" c: y* v</span>   s=0, i=0,<br /> <span style=\\"display:none\\">! r; h  _2 ?0 ]9 e, C5 P</span>   while{++i<=10000,<font class=\\"jammer\\"># [0 j& u! j, g8 y, T</font><br />     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式<br /> <span style=\\"display:none\\">  T# B  p' q\\" l7 w% @\\" |</span>     a=HFor("f"),          //获得函数f的句柄<br /> <span style=\\"display:none\\">+ {6 X  v2 g5 C' x/ b3 z3 }</span>     s=s+a[1,0]            //动态调用函数f<br /> <span style=\\"display:none\\">. T0 R$ i( `# o, t6 R' V' R$ A+ Q</span>   },<br /> <span style=\\"display:none\\">/ R1 ^: ^$ i2 O+ ?( \  r</span>   s;<br /> <span style=\\"display:none\\">  j: B6 q' \/ I</span> [clock()-t0]/1000;

结果：
% U$ H- V; ?# Q, k* T6 P6 [) m* n) @$ |5 \10000.
5 l8 O; c: R  f& v! [0.359  秒

6 Y5 c, [* i( ]  i2 Imatlab完成类似的功能参考：http://forum.simwe.com/archiver/tid-983780.html

由于matlab的函数必须存为磁盘文件才能使用（这应该是一个很大的缺点），故动态编译运行的效率必然很低。

" S" U7 f4 o: [; l- L程序动态生成函数的一个应用是：数据拟合中，常常要为数据寻找一个最佳的拟合公式，此时可按一定的规则生成一些函数，然后检查这些函数哪个最佳的。