QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6849|回复: 0
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
forcal 实名认证       

45

主题

3

听众

282

积分

升级  91%

  • TA的每日心情
    难过
    2012-8-27 18:22
  • 签到天数: 1 天

    [LV.1]初来乍到

    跳转到指定楼层
    1#
    发表于 2011-8-3 07:40 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    程序动态生成一些函数,然后调用这些函数,体现了脚本的优势。/ W1 r! F+ U# t1 c/ d" A
    ! p8 }" r! D9 z) x5 J  q, t3 |; @
    以下Forcal程序动态编译了函数 f(x,y)=x+y ,然后执行该函数,共进行了10000次。
    1. !using("sys","string");
    2. + ?% _( ~. |' E6 b# }& B/ }
    3. mvar:. B! K\\" `5 M, s/ l
    4. t0=clock();3 h9 m6 W( k4 v/ p+ l
    5. main(:pf,a,i,s)=
    6. ) c, Y5 V$ C8 s3 _7 W
    7.   oo{pf=fcfor()},         //申请保存Forcal表达式句柄的FcData数据指针
    8. 1 ?4 }6 X\\" D% a& [
    9.   s=0, i=0,
    10. ; h! O$ L, b. P6 E; L6 I9 d- r0 T2 O  T
    11.   while{++i<=10000,
    12. 8 ^% |, `* l2 Z6 q( i5 z( _
    13.     oo{comfors(pf,ws("f(x,y)=")+ws("x+y"),2,100,0,0)},    //将Forcal动态字符串编译为全局的实数表达式
    14. 3 B6 g+ w3 m+ Q* j' Z) [& g, U
    15.     a=HFor("f"),          //获得函数f的句柄
    16. + h# V: _, [) v\\" M0 b
    17.     s=s+a[1,0]            //动态调用函数f
    18.   S4 b\\" p$ v  R8 L9 a
    19.   },
    20. ; B: Y! N$ X% k
    21.   s;
    22.   F) f: M6 D+ L/ u% J$ x
    23. [clock()-t0]/1000;
    结果:4 `, N7 r  \6 C# }' Y
    10000.
    4 Y" Q/ r  A$ W+ F0.359  秒
    5 g8 I& f9 e9 b3 c% B+ C
    % p% g5 M3 ]- o5 Rmatlab完成类似的功能参考:http://forum.simwe.com/archiver/tid-983780.html
    # B% q5 B- J; \/ i5 S) y4 v7 ^5 t% Q$ b2 ?" M' f' S: }
    由于matlab的函数必须存为磁盘文件才能使用(这应该是一个很大的缺点),故动态编译运行的效率必然很低。
    * }+ [  W9 j0 o4 I
    8 _! B0 v1 Y& |$ v# \程序动态生成函数的一个应用是:数据拟合中,常常要为数据寻找一个最佳的拟合公式,此时可按一定的规则生成一些函数,然后检查这些函数哪个最佳的。
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-9-1 17:14 , Processed in 0.352007 second(s), 51 queries .

    回顶部