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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
5 G/ Q" z9 V  p) K    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
; S. q" V* \6 Q9 l
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
! k9 l0 i0 V/ c6 m
. [" h- c, h* y1 ]6 O    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
9 g; K4 |$ D3 j/ k/ z* d4 }. \    计算t=1,2,...,10时的r、f的值。

    程序如下：

2. !!!using["IMSL","math"];
   
3. # z5 F7 j7 U5 v' {' E# Y+ v
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义8 p2 I% K: K; ]/ h# c6 x  v) M+ p# l
   
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\\"># z5 F7 j7 U5 v' {' E# Y+ v</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">8 p2 I% K: K; ]/ h# c6 x  v) M+ p# l</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   / |2 ]0 k& L: F8 E( B2 h
2. 3 b) s* C7 m6 l& }1 L
   
3. 1.  7.73453e-002  1.46445
   $ R# B, s# J: ]& Q
4. 
   7 a! j4 t, v1 F
5. 2.  8.49774e-002  0.577954/ H  E, v* g5 `
   
6. 
   4 f0 O+ [$ L. W, C& G, }\" D( V* t
7. 3.  0.290891      0.249253
   . C0 X( Z- E1 o* Z\" q\" x5 N
8. 
   5 i, r& _) x0 M; g- n
9. 4.  1.4466        0.187219
   - l. w0 \9 @4 ?/ X( V- v+ O- R
10. / n* }# ]4 k& S+ w% @9 P- m
    
11. 5.  4.05146       1.43948
    . ~- J- q* }. R& n% O
12. 
    5 e% x4 Q- I& z, k
13. 6.  0.175618      2.2586\" ?& T\" [5 ]6 w5 r
    
14. / O( [! V* [\" L4 y: _. D+ i& r
    
15. 7.  6.53112e-002  0.9088( G% P: f& j9 S  p0 [6 ~
    
16. 
    \" N; m# v: ^% }) P
17. 8.  0.147227      0.366718
    ; G. @4 ^$ i' O
18. 6 Z' o7 Y/ @0 z& Y( s' J
    
19. 9.  0.650596      0.187575' K\" n* @* {% W1 X; A3 K( C
    
20. 
    6 ?1 W: _5 Y+ w
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
9 S$ v- B# _/ Q% Q    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

liupeng723911

说的不错！

孤寂冷逍遥