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

forcal

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

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

    [例子] 设一阶微分方程组及初值为：
' i4 K7 H0 W, K        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
7 o5 t: x: \* Q7 X, W% l1 \    计算t=1,2,...,10时的r、f的值。
% g0 F3 A% u. S5 R2 i8 e
    程序如下：

2. !!!using["IMSL","math"];, ~! H; o* \- E2 x% ]) H4 X\\" K1 ?
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. 6 R\\" Y3 [6 K- _( B+ i
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\\">, ~! H; o* \- E2 x% ]) H4 X\\" K1 ?</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">6 R\\" Y3 [6 K- _( B+ i</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
     r- X( g% ~$ @
2. 
   5 o& O- W4 t4 ]
3. 1.  7.73453e-002  1.46445
   / n9 H/ g: h* [* O/ x2 K6 B
4. , y& n% B& O+ S' w% Y# z
   
5. 2.  8.49774e-002  0.577954! d0 e, g2 w6 w: q  ]6 C& U# w( k7 F
   
6. 
   ( {\" R% N3 g( c1 d7 F, e
7. 3.  0.290891      0.249253, D, B8 v) j6 O3 f7 D! I
   
8. ) H: `  s- t$ d6 W! F% j
   
9. 4.  1.4466        0.187219
   9 z1 {' W% `( z+ V) B
10. * c3 S0 G0 `) N
    
11. 5.  4.05146       1.43948$ j6 R/ o, a\" i9 _4 {. u/ w
    
12. 
    4 A) j1 S& X) z
13. 6.  0.175618      2.2586
    6 n. O+ J2 _$ k! V, l9 U
14. 7 L# B8 W: o  ]! `8 ^
    
15. 7.  6.53112e-002  0.9088
    / m$ B5 i0 \8 F! Y) b+ `! j4 X
16. 
    & |: a2 Y& ]; |+ s. X' L* @
17. 8.  0.147227      0.366718
    9 Q* S5 n& [' N
18. ; ~- r4 Z\" }\" b/ u1 N
    
19. 9.  0.650596      0.1875757 B/ C2 n0 Z8 ?$ r$ g2 g$ H
    
20. : }9 y( \& z' o7 N9 ~! ^
    
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！