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

forcal

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

0 w5 d+ g, `# k8 D  T3 G% B    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

0 Z5 j& a0 i( w" U& @    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
2 t: s( G1 h4 H6 A        f'=-f+rf,  f(0)=3
8 A3 \; o( i- i# P- ]    计算t=1,2,...,10时的r、f的值。

9 }& e5 Z: j$ o5 q( v% q    程序如下：

2. !!!using["IMSL","math"];/ n8 \/ r: J; P. m' S7 p\\" v
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义$ a, d9 A+ X; e* a+ n% K- _' R1 v
   
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\\">/ n8 \/ r: J; P. m' S7 p\\" v</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">$ a, d9 A+ X; e* a+ n% K- _' R1 v</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
     P: R4 D5 j; m6 a
2. 
   5 S7 w  H- G- E
3. 1.  7.73453e-002  1.46445( j\" x\" b1 F0 c; j+ P4 r
   
4. 
   ) w+ N0 o0 G8 I- i8 n+ J' u
5. 2.  8.49774e-002  0.577954
   * M$ B; [\" u/ Q2 E) |6 @# N
6. 
   ! ]9 k0 z. H2 D1 U8 a% }4 ?
7. 3.  0.290891      0.249253
   + \9 V0 c/ B# E2 l0 E% _
8. 
   8 P2 |% [* w8 l- Z\" a
9. 4.  1.4466        0.1872196 n& O0 {: H5 B! P: g
   
10. 
    # U3 Y' J; B! n6 R
11. 5.  4.05146       1.43948( t4 f$ [/ B4 u4 t; Q0 m
    
12. 9 P% i\" ~% G9 L1 |. \
    
13. 6.  0.175618      2.25861 Y! B2 c9 x; _7 E+ ]9 o/ g
    
14. . u# x- l1 _8 ^! w0 d2 L
    
15. 7.  6.53112e-002  0.9088
    + S4 u\" a8 B; m/ Q/ o) @
16. 
    2 y8 Z3 g, U, i8 \2 [( C  b: l- N* g
17. 8.  0.147227      0.366718
    \" [: z5 R6 y' ?! D
18. $ A5 M\" o  c% U; _; g
    
19. 9.  0.650596      0.1875753 j3 v: W  C# U- I' `1 k( }. z
    
20. 
    5 F& |7 Y  v; L3 Y7 M
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！