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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
' q7 U' b/ v5 G8 ]" G    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
$ N6 J) m2 _0 Q0 V2 b    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
4 D9 r1 y9 |0 i/ ^
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

    [例子] 设一阶微分方程组及初值为：
; W; K( w# k7 P, n4 B; N        r'=2r-2rf, r(0)=1
* a1 f$ c* ?: z: H  t        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
) Z( y' b; ?, m1 H( D/ y
) d0 _. V3 b. }$ H    程序如下：

2. !!!using["IMSL","math"];% w4 l+ g2 N4 Y6 q
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义$ M0 _) T$ ?2 ]; N7 n+ h2 t+ 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\\">% w4 l+ g2 N4 Y6 q</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">$ M0 _) T$ ?2 ]; N7 n+ h2 t+ 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.+ `; ?: ?, d! B) w) d- ?- m: x- g
   
2. 
   \" b: V2 d% X0 l; p! p* ]
3. 1.  7.73453e-002  1.46445
   # A: z8 h4 U  r+ c  g: o% @& ]
4. 
   & w) E2 [6 \7 w, u: `1 _# Z. `, H0 `
5. 2.  8.49774e-002  0.577954- Z( j/ ]& A. n0 R' Z
   
6. 
   9 e6 \6 I/ M7 w
7. 3.  0.290891      0.2492534 S4 f8 }9 |* C6 k& `. n) r( S
   
8. $ o8 M- Z2 ^5 l, T! [8 p
   
9. 4.  1.4466        0.187219
   ! J2 C0 F8 ]) ?- S
10. 
    ) M* f, M# ]2 ~\" B
11. 5.  4.05146       1.43948) W! t; ~3 P' a
    
12. 
    \" g- G7 r' k: Z\" `
13. 6.  0.175618      2.2586
    0 y1 L. m0 @+ C/ B& Y9 U+ B3 j
14. 4 A; Z% K# a( R$ i4 s
    
15. 7.  6.53112e-002  0.9088! \4 p7 T\" {+ E+ Q$ B: r
    
16. 
    ! A$ b( j6 g% C) ^- f5 s\" H
17. 8.  0.147227      0.366718. s5 B7 S' {& l
    
18. : k) T* m) i4 }0 X
    
19. 9.  0.650596      0.187575% t; W\" `* `' s1 u! ^8 @3 }; Q5 i) n6 }
    
20. 6 u\" P: D2 Z) p5 x4 I6 ~
    
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！