开放式计算软件OpenLu－工程计算助手

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
& E, q" s3 Z2 t8 f$ N) P9 ^    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
1 [0 `* a! U$ H7 |/ _8 P
0 e: a; |, ~( w! q- c3 ~- \6 O* l    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
, p1 ~5 D" k) z
    [例子] 设一阶微分方程组及初值为：
8 \1 \% h  i5 Y! ~1 `9 ?, i$ n        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。

$ D. K7 j7 S6 N3 r( s6 F    程序如下：

2. !!!using["IMSL","math"];& s; q5 N1 _' i# ?7 b! O0 `
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义% [# g3 m% u9 a- L  h
   
6. ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

!!!using["IMSL","math"];<font class=\\"jammer\\">& s; q5 N1 _' i# ?7 b! O0 `</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">% [# g3 m% u9 a- L  h</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   0 |8 H+ |  E% l6 i% Y) [  ]' Y
2. 2 z; f: N' H$ v% P
   
3. 1.  7.73453e-002  1.464450 S' W  d6 T7 x  z' N- x! e
   
4. 
   + x# q& i2 \( j* y
5. 2.  8.49774e-002  0.5779547 R, W9 {/ {* b
   
6. 
   1 d) s' t6 d; X( z+ o3 S
7. 3.  0.290891      0.2492532 o% e  v% K* v& u* h
   
8. 
   0 ?% \6 Q9 H( M. @0 h
9. 4.  1.4466        0.187219/ {5 o  e5 {3 @
   
10.   D1 o$ e3 }8 B/ F( t
    
11. 5.  4.05146       1.439488 Z* P\" }! w3 s1 G* a) M& U
    
12. 
    - S  O) X1 `- V0 R
13. 6.  0.175618      2.2586
    # ^5 H  O; g7 h% G* P, m, ]
14. 
    : U4 k9 t' K. \
15. 7.  6.53112e-002  0.9088
    : _9 h. H2 J- }8 Z7 o% {: L  O: o
16. 7 v% n; y9 }  B% v
    
17. 8.  0.147227      0.3667185 @  B7 C1 q, j; ~8 x/ v
    
18. 
    . i5 e( l0 m' `0 b* L+ I3 r
19. 9.  0.650596      0.187575
    * _5 w4 _0 M* g+ P% N# N; D\" ?9 ~
20. 
    0 }  B8 a2 C: k7 c0 k, v
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
3 {' k+ {  v1 r& e4 O8 e    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

liupeng723911

说的不错！

孤寂冷逍遥