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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
+ o0 s" {' R3 S' R% `9 h
; Y0 p0 v9 H! m- C: ~    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

    [例子] 设一阶微分方程组及初值为：
5 k( b4 ]8 @9 N7 S' q% y        r'=2r-2rf, r(0)=1
0 F8 r( |& g$ t; E        f'=-f+rf,  f(0)=3
* r' V, G9 g; D3 Q9 ]5 x9 Q* Q    计算t=1,2,...,10时的r、f的值。

    程序如下：

2. !!!using["IMSL","math"];
   
3. 8 d4 [) o5 P\\" N  G) B/ R
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义# C& u+ s\\" Y  o% O* Y
   
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\\">8 d4 [) o5 P\\" N  G) B/ R</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\"># C& u+ s\\" Y  o% O* Y</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.6 l3 o9 M9 o9 l1 ]: d
   
2. 
   9 I' c+ r! _5 n6 j$ ?\" ~
3. 1.  7.73453e-002  1.464454 [6 U6 |0 V4 A) ]# }) o
   
4. ; H1 w9 V& ^, Y$ O
   
5. 2.  8.49774e-002  0.577954' q) S9 H3 L\" I1 Z* s& G
   
6.   ~! ~. x0 Y\" a' b! {$ G
   
7. 3.  0.290891      0.249253
   & _9 X7 d2 u$ ?
8. 
   / U2 L6 f& ^3 k' c( X. S$ n
9. 4.  1.4466        0.187219- x6 N4 u\" ?9 v' Y) D
   
10. 
    : i) @2 y; f! q4 z; j
11. 5.  4.05146       1.43948
    & w\" y: ]- v- m; n: m
12. + y7 `+ V. {+ x2 ~\" S
    
13. 6.  0.175618      2.2586/ a\" L\" X1 m/ C2 X  `6 q0 q
    
14. 
    2 x* n2 \) [( Y$ e
15. 7.  6.53112e-002  0.9088
    3 K( I' Q. ]* f- n9 C# Z; }- `
16. # A) ]2 |4 M3 f6 P- i
    
17. 8.  0.147227      0.3667181 `7 f9 @4 P! t4 W
    
18. 
    4 \* ?: [( b$ ]  V0 |! [
19. 9.  0.650596      0.1875755 {( [( M3 v! L5 z
    
20. 
    - S8 b4 p, I8 }8 m4 B9 e4 R) n( D
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！