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

forcal

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

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

    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
! X  |: X6 u* O$ d    计算t=1,2,...,10时的r、f的值。
" ]' ^. C+ q$ s8 c
: T2 R- o- m) R' b4 }    程序如下：

2. !!!using["IMSL","math"];, w) |; u2 [1 g; Z7 O: F
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义0 ~0 s; Z. m* Y4 Z5 w
   
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\\">, w) |; u2 [1 g; Z7 O: F</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">0 ~0 s; Z. m* Y4 Z5 w</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   + t% y7 C$ ~! q\" P\" O
2. ! q+ W2 o: ?& k% j. X) n! i' \
   
3. 1.  7.73453e-002  1.46445; y2 y- W# E( c& n5 y+ S
   
4. 
   6 V0 w- _7 A$ h3 }
5. 2.  8.49774e-002  0.577954
   3 C0 P! Z3 d$ a+ d\" K) z
6. 5 \# i3 F2 y3 N7 X
   
7. 3.  0.290891      0.249253
   7 T0 r/ z- N- g+ [$ J
8.   r7 [% N\" k4 s
   
9. 4.  1.4466        0.187219& E2 l6 _  B0 s, @
   
10. 
    , v! {1 U1 x6 D5 s) M2 l
11. 5.  4.05146       1.43948; H, Y0 z4 e% \: n4 g0 X( s
    
12. 2 G+ @7 u% W$ s8 {# H
    
13. 6.  0.175618      2.2586$ r, D8 o  y* g& E\" Z- d4 x# l! ]: V
    
14. + ~, K6 Q- W, @
    
15. 7.  6.53112e-002  0.90880 l/ o: o: V1 K1 N+ H
    
16. % J' o' u6 ^$ g; m8 z6 f; I# \$ ^
    
17. 8.  0.147227      0.366718
    8 p' l: Y4 g9 W7 V1 g% d
18. ( @+ H  ~$ k9 i7 e
    
19. 9.  0.650596      0.1875755 A2 c. m8 P& ~0 ^6 z5 m
    
20. . b  \7 }+ l9 b4 E5 o$ R8 R
    
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！