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

forcal

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

    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
! t$ C5 v* L* q) W1 j8 E6 i
    [例子] 设一阶微分方程组及初值为：
; y$ g% H4 @2 d+ I        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。

    程序如下：

2. !!!using["IMSL","math"];
   
3. + _7 d4 w/ b; m6 k# o, X0 Z
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. \\" t: Y2 X8 k1 u: s& L: Y
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\\">+ _7 d4 w/ b; m6 k# o, X0 Z</span> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">\\" t: Y2 X8 k1 u: s& L: Y</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.: }1 X4 Q2 w' I
   
2. 9 |' W3 y/ i1 c
   
3. 1.  7.73453e-002  1.464459 Y8 E* c( Z4 d) n
   
4. ) t% B8 y3 e  X* k* s
   
5. 2.  8.49774e-002  0.577954
   ) _& M4 G0 H$ [$ h+ o4 z
6. 
   9 c' J\" a. c, ~; W0 H
7. 3.  0.290891      0.249253
   ' _. e# u8 E\" D+ ]: f+ E2 U
8. 
   9 S9 q7 A8 T- ^' @/ M0 w8 ^
9. 4.  1.4466        0.187219
   4 I# ^5 y# O7 S3 C0 e
10. 8 V5 s( I0 Z; z% L4 K) U- V( y
    
11. 5.  4.05146       1.43948/ R2 V, J  {  y# N/ |: n
    
12. , Z; n1 v: i; g5 X
    
13. 6.  0.175618      2.2586
    9 M' T\" i% z) c0 V1 O( E
14. ' y3 G1 `5 P7 ~& O
    
15. 7.  6.53112e-002  0.90886 u- h) k6 l4 b. m& N
    
16. 
    0 B. m% m5 B- w  Y, F% X
17. 8.  0.147227      0.366718: @2 v; x$ y) l7 `( `! f8 E
    
18. 
    / O5 y/ |/ V3 P
19. 9.  0.650596      0.187575
    6 v- H% g$ T# I# P) F- R- b8 u% O
20. 
    * F8 L' N* n& K  S3 G
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
9 d5 M; B8 V8 B6 ~5 x# g  U; K    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

孤寂冷逍遥

liupeng723911

说的不错！