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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
5 f7 _/ b  c& A7 L" N* J2 u) D' R
6 m' G0 G( O' E1 o7 [    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

- d7 M9 k& Z; z9 d& e% ^+ D    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
% N( F# i" q! v7 N4 J+ `7 s" ~- T        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
. H# f' @: K9 w2 x1 S8 m7 d& {" v$ `
$ V* `% Q4 |! \9 h! R* T    程序如下：

2. !!!using["IMSL","math"];$ @% l2 U7 Y, \1 f\\" m! g# w8 y( T
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. 9 N: \% e* n) u6 @# O
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\\">$ @% l2 U7 Y, \1 f\\" m! g# w8 y( T</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">9 N: \% e* n) u6 @# O</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   % p- r' K& P( K+ h7 _1 }
2. # j% y) [* g' I/ O
   
3. 1.  7.73453e-002  1.46445
   ' H\" ]8 f; s6 B- @3 `! @+ S0 M) G
4. 9 B! C, @7 D) d  f* l) ]; ^
   
5. 2.  8.49774e-002  0.577954
     R( G! V2 ^' |9 ?# L% b
6. 
   $ m4 B  N6 K% j! L: i0 K
7. 3.  0.290891      0.249253. z. D* X) Y# d
   
8. ) n8 `+ P4 a+ P( ]
   
9. 4.  1.4466        0.187219
   , i* ?9 t3 P4 L2 x+ c. J) {0 K
10. 
    1 o; j. j5 a( F. O3 s2 c
11. 5.  4.05146       1.43948
    5 Y8 V5 n6 Z2 g\" Q* o, q8 z
12. / J! I2 c: V/ o
    
13. 6.  0.175618      2.2586
    0 @6 r+ E3 j* i
14. 
    ) B1 J9 q5 |6 E9 @  F
15. 7.  6.53112e-002  0.9088
    + Y9 L5 J: v* x# L+ i& {2 t6 _
16. $ @; i! \8 p. v) ?\" j9 V( g0 [4 |
    
17. 8.  0.147227      0.366718  P% q' j. I  f$ b: i6 y' l3 M& j
    
18. 2 V1 o1 ^8 d+ S  O$ O4 N8 L
    
19. 9.  0.650596      0.187575
    / [+ e6 p# g8 Y! X\" I8 k
20. 
    & g7 y! o4 \2 B8 ^- W4 i\" _
21. 10. 3.14433       0.348821

复制代码

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

liupeng723911

说的不错！

孤寂冷逍遥