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

forcal

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

    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
4 ~( L; _7 K2 ]7 z& U. q+ ?
    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。
- i2 A4 \5 P* G% Q
( r4 E4 x- E( j! a1 s$ k    程序如下：

2. !!!using["IMSL","math"];4 @7 P  ^2 }1 f6 K/ H
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义8 d# e' g  A/ k# D, p  d0 N
   
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\\">4 @7 P  ^2 }1 f6 K/ H</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">8 d# e' g  A/ k# D, p  d0 N</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   ( r5 H* a\" b4 l6 G- ~
2. 
   ( X9 r  E; _2 i
3. 1.  7.73453e-002  1.46445
   - C. G) D8 y+ i$ B& {5 E: E# ^
4. 
   , {1 w. h4 B  o( m! k: W
5. 2.  8.49774e-002  0.577954\" w) k. x1 F+ l% R7 w1 Q$ {\" R
   
6. 
   1 u1 k, }  y& v3 d  h
7. 3.  0.290891      0.249253
     i- o3 j( l8 E  z: D) H! r+ C
8. ; R. L  w# i5 s9 w9 L
   
9. 4.  1.4466        0.187219
   - P0 X+ P- F7 ]& J
10. 
    - `% ^) V1 _3 A/ R0 i9 x1 m/ ^
11. 5.  4.05146       1.43948
    5 R, r/ ~6 J2 \. x5 U! z
12. 8 f& N, _\" Q( }\" m! V0 D7 e. v
    
13. 6.  0.175618      2.2586+ n5 I* e$ O. }  ]: A6 t1 v
    
14. 
    $ i0 I$ k9 k9 ^- ~. y1 t; i1 T, N3 Z+ A
15. 7.  6.53112e-002  0.9088+ y. n3 p  `- v( x1 x8 m0 Z1 ^9 X
    
16.   G! T( ^3 O4 p& {
    
17. 8.  0.147227      0.366718, c0 s6 z  Q) a  ?- o0 K! p3 F
    
18. + g+ h5 T+ y* e4 J$ S* w
    
19. 9.  0.650596      0.187575
    ( |. M( O' ^  r, v
20. 
    ) o, @7 Y& P2 _# p4 E0 S
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！