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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
  j# V/ J" r- _$ S6 Z$ x    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。

5 E; q& q9 I$ H    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

" n, d( l2 t# i) Y, |" I: K    [例子] 设一阶微分方程组及初值为：
7 {4 @7 c2 N0 _        r'=2r-2rf, r(0)=1
( S1 f! Q* N# t1 k, k        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
: s( c8 W  I$ ?& Y
    程序如下：

2. !!!using["IMSL","math"];
   
3. \\" J7 J9 t\\" f, y, q4 t1 I* A0 M
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义5 x7 A- u1 p( S; ^! r' S
   
6. ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

!!!using["IMSL","math"];<br /> <span style=\\"display:none\\">\\" J7 J9 t\\" f, y, q4 t1 I* A0 M</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">5 x7 A- u1 p( S; ^! r' S</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.9 Z& S1 H/ Q0 v2 P8 g( M
   
2. 
   ' a6 x5 I' `: r# U6 B# ?% I0 `
3. 1.  7.73453e-002  1.46445
   4 K) R7 d' v+ M% v$ Y3 L
4. 
   % }( c9 \9 I, k
5. 2.  8.49774e-002  0.577954
   ; u% J8 x+ A! |7 K
6. 
   3 _& X0 j+ j, a; y  l7 S
7. 3.  0.290891      0.249253\" q# }8 _! k* e6 L  O
   
8. : s2 B- G0 t7 v% s- f
   
9. 4.  1.4466        0.187219
   1 h' |1 C) g/ o2 v5 |+ k# n
10. 
    & R; R( K  _! @7 n* F4 _) R% n' w
11. 5.  4.05146       1.43948
    ; k) B3 p; T2 z$ j: J: C
12. 
    5 p# W) F/ g7 S% o6 o- S, z! a
13. 6.  0.175618      2.2586
    ! C  ^- T+ V7 |
14. 
    & h+ T' y7 Y8 l9 A7 g. ^
15. 7.  6.53112e-002  0.90887 f& q* F\" i+ w) k\" L1 z
    
16. & l; ~- V$ Z! W9 a2 v3 ]( h: Z' D
    
17. 8.  0.147227      0.3667181 H( j9 Z; i) X# A9 l% a0 O\" L; c
    
18. 6 B, v: a# ~, B6 @( `/ f; q
    
19. 9.  0.650596      0.187575
    ( C& Z) A6 f( \; A( h' l' w( C
20. 
    * u5 \# s7 j) |
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
# Z$ E2 |; C% n    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

孤寂冷逍遥

liupeng723911

说的不错！