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

forcal

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

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

: U9 Z' ]% O" B    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
9 R. f" V- d/ G1 @
. V! F2 w/ J0 f4 O    程序如下：

2. !!!using["IMSL","math"];
   
3. ) @+ I, {/ D# O, t* v5 S$ I
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. ( E$ H% J5 q( K1 Y  u\\" D
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\\">) @+ I, {/ D# O, t* v5 S$ I</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">( E$ H% J5 q( K1 Y  u\\" D</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.* s* t$ n  B+ N, }4 \
   
2. / y, _! a3 H( Q$ U( [) f7 p
   
3. 1.  7.73453e-002  1.46445
   + u4 J- \! U# I$ R
4. 
   8 Y7 s( Z9 h0 Q3 A5 f9 n% H% C\" @
5. 2.  8.49774e-002  0.577954
   4 Q5 N, I5 T5 Q- }1 t2 u
6. 
   6 b2 R0 s\" \\" u; @
7. 3.  0.290891      0.249253\" n. p3 n, T# ~% S9 X
   
8. 4 v; h7 x\" M& a4 V
   
9. 4.  1.4466        0.187219: T\" \! ]2 I\" F3 g& A# w; k
   
10. 
      p! R$ Z7 l; J5 }
11. 5.  4.05146       1.43948
    * `/ {3 y' ?& ?3 H% B. t, f
12. ) p\" ^7 S' L. S& E
    
13. 6.  0.175618      2.2586
    ; ~8 G7 T5 r. o* N+ p
14. ) p* Q! r/ I% u, e! ~+ P0 \6 G
    
15. 7.  6.53112e-002  0.9088
    5 a, v1 j; \/ _: U4 G8 L* ~1 E  c3 O4 |
16. 
    2 K& F- t) u) R/ }' k: k
17. 8.  0.147227      0.366718+ n+ M% q/ a$ _* e
    
18. ) D6 b: P2 f1 |8 O* q
    
19. 9.  0.650596      0.187575
    5 F\" O% D& W\" \$ f3 R
20. 
      C\" t% o  }. Z% ]. C
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
9 Y2 X2 m2 I+ F1 d    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

孤寂冷逍遥

liupeng723911

说的不错！