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

forcal

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

, g% a% `! p3 h0 w    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
% q6 C: E9 U" n! J2 D2 v
( D5 V% N1 c3 r8 R    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
. K; _+ L. u- S        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
1 l9 r  }- D( [, x. ~$ H5 q
    程序如下：

2. !!!using["IMSL","math"];8 x. i! Q, r( a
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. 5 d& b9 P4 e# z) v3 P0 U
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\\">8 x. i! Q, r( a</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">5 d& b9 P4 e# z) v3 P0 U</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.$ U( z; c& ], Y! t6 ^- J. @
   
2. ) O0 ]% |6 }0 Q- u  ^0 s
   
3. 1.  7.73453e-002  1.46445
   5 e% w( w( a6 {$ Z0 i' M* M
4. & |5 G# ?8 d1 W. h0 S
   
5. 2.  8.49774e-002  0.577954
   + @! z1 G  b# s% b4 d
6. / F; V4 X0 H: C, G4 t6 k
   
7. 3.  0.290891      0.249253- ~& {% q+ M6 j% @+ G' p
   
8. 
   ( k, b/ P, h$ _\" B7 y! }; V
9. 4.  1.4466        0.187219
   : {( O, L3 _7 N  T0 Q7 [1 Z# W
10. , g$ z, h9 ~& \
    
11. 5.  4.05146       1.43948* p9 l% S- c- Q
    
12. 
    ; x4 ]& p4 a2 P1 T
13. 6.  0.175618      2.2586& }4 h, R. P; p+ ?
    
14. + D6 R7 w, x) h
    
15. 7.  6.53112e-002  0.90889 B) W8 o. M. O+ q+ f- C- M
    
16. \" E- r6 ^9 a5 Z+ S7 i# Q
    
17. 8.  0.147227      0.366718( t+ W6 X! i) X9 ]
    
18. : Z\" t: s. J5 J- |% p# p& P; W\" A
    
19. 9.  0.650596      0.187575, h$ F) c0 k0 S8 C+ B. u2 g
    
20. 
    2 U  N+ G  Y\" x7 e; t0 \4 v
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！