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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
- t4 V& b/ p6 v0 ]6 T2 H0 c) W    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
% h; i- d, V) {% `# t: U; S    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
% q' c. x# V9 R8 r0 n6 j' D) ?
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
# |& ~( F9 I1 n) G9 \
    [例子] 设一阶微分方程组及初值为：
8 k7 M4 V. ^5 O/ E. j2 k, l        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
/ Z" ]8 v) [2 w% m7 m    计算t=1,2,...,10时的r、f的值。
6 X3 D( }. L/ X  J: [
    程序如下：

2. !!!using["IMSL","math"];$ E9 N' S$ C% a% Z, X6 W9 U' f
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. ; n4 H\\" D4 _3 A& b$ G2 ~
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\\">$ E9 N' S$ C% a% Z, X6 W9 U' f</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">; n4 H\\" D4 _3 A& b$ G2 ~</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.2 w  J  n0 }  P* _( V2 ~
   
2. 
   * m5 S- Q! a; K  G5 v
3. 1.  7.73453e-002  1.46445' r9 W. o6 K0 t( v1 y4 t
   
4. # w' v) F: Z3 T
   
5. 2.  8.49774e-002  0.577954; X% z9 [- ~$ l+ F
   
6. 8 d# B0 r8 c2 ]: [& I* L' |
   
7. 3.  0.290891      0.2492535 q\" ^8 z& d. Z
   
8. 9 d) w% y7 G6 E) o7 J6 c2 l  t% e
   
9. 4.  1.4466        0.187219+ L1 b1 Q\" D/ B$ B1 q
   
10. 
    ; G! A) \) j) J4 O
11. 5.  4.05146       1.43948( e% N% `( Y. c1 X
    
12.   h; o* M2 l9 \2 ^3 u/ E
    
13. 6.  0.175618      2.25862 B* M: R- Q7 b3 \! h% }/ j: j
    
14. 
    4 v2 |( e/ o% o
15. 7.  6.53112e-002  0.9088: b: e7 `% ]; ?- G+ F2 `3 B1 B8 H
    
16. 0 S( R' f# U' }2 l8 m
    
17. 8.  0.147227      0.366718
    - ]) k\" F' c1 R7 p
18. ' k: d: }- Z! T3 n
    
19. 9.  0.650596      0.187575* s) u6 v1 p- B! K
    
20. 
    6 Y\" T) w2 _& S5 B* j
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

孤寂冷逍遥

liupeng723911

说的不错！