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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
3 G* s0 M6 C- G    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
7 Z6 A/ P  P, Y, P4 ]4 G4 p
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
# H) g/ Q9 K$ `3 |6 U        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
$ |+ i0 e8 O6 o  B3 H; ?, P
    程序如下：

2. !!!using["IMSL","math"];
   
3. + q  @$ R1 k# P' f5 ^8 r' J( U, w
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义7 c0 ]5 F6 F6 C
   
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\\">+ q  @$ R1 k# P' f5 ^8 r' J( U, w</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">7 c0 ]5 F6 F6 C</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.9 j! r( j0 E  R
   
2. ! C0 ?: X1 Z1 }1 \* {' o
   
3. 1.  7.73453e-002  1.46445
   5 z; y  X: I\" H1 b! G
4. 1 M$ Q1 x3 e. a2 |
   
5. 2.  8.49774e-002  0.5779542 ]* e, s4 y# q- R
   
6. 6 @  h+ ~3 x6 o4 g* S7 R$ u4 f
   
7. 3.  0.290891      0.249253
     j- o* G' y* ]3 C5 i
8. + R: @' X; g9 o
   
9. 4.  1.4466        0.187219. X7 ?7 K$ j8 U3 m' V6 ~\" q
   
10. 
    1 T( z0 o4 e; W8 ]) ]: j
11. 5.  4.05146       1.43948
    $ k$ D  o7 y9 I3 e
12. : f# A, X; ^0 n2 m  f) X& t% F
    
13. 6.  0.175618      2.2586
    ; l3 P2 W: Q! ?
14.   j3 {2 m. I, @) ?$ K$ Z/ P
    
15. 7.  6.53112e-002  0.9088
    ' {2 e\" u; U8 t
16. + w4 |. T5 I' H9 v
    
17. 8.  0.147227      0.3667186 L$ s: V& j$ ]6 q% M
    
18. 
    : _1 |. r$ u7 ~' h' t  {7 v
19. 9.  0.650596      0.1875750 U1 R9 f1 {$ F
    
20. : Z( `5 \% m( i2 D  ]
    
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
+ B; N2 B1 e( P' u4 M    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar