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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
, b% x" Q! I; t2 c! y7 c0 m
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
% D0 D. ~  x/ |& h/ q' g
    [例子] 设一阶微分方程组及初值为：
* P) L4 _6 r4 _% g        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
6 K3 U! E: M1 S% f    计算t=1,2,...,10时的r、f的值。
/ i% l" m3 E! X8 k  T4 P' R
5 E! ~# F3 Z5 \4 w0 @' }    程序如下：

2. !!!using["IMSL","math"];, C2 `  l9 N0 T6 P8 z$ ~& N3 ~& ^
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义\\" Z0 _1 P4 [, A5 a\\" b+ h
   
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\\">, C2 `  l9 N0 T6 P8 z$ ~& N3 ~& ^</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">\\" Z0 _1 P4 [, A5 a\\" b+ h</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
   2 p' V; ^2 D; @2 n
2. 5 P+ j9 F& ?$ a
   
3. 1.  7.73453e-002  1.46445
   $ Y0 n1 J( y* G; x: \; D
4. 
   \" c8 R+ o/ g( V, \0 S' t  p- `
5. 2.  8.49774e-002  0.5779542 e/ |# H! `1 j7 V7 ~
   
6. 
   ; s  H2 k! C1 A/ F: [$ f5 ?, y
7. 3.  0.290891      0.249253
     c\" `' j3 V( k$ K8 G8 b
8. 
   - s  [0 v: P( Q3 e
9. 4.  1.4466        0.187219
   / A' w. K! i( Z; Y
10. 
    5 ]\" D, X. w# R, s& Y- O9 S* [
11. 5.  4.05146       1.43948
    ; v4 O6 ~. G/ P
12. 
    + }: C. z& ~7 j( I7 z% h0 m% T, e* S
13. 6.  0.175618      2.2586; R, F' _6 U! E: V0 w/ J
    
14. 
    ) l$ `\" b$ |4 q  o& |
15. 7.  6.53112e-002  0.9088
    ( l7 }# A$ _' u% U, o7 m
16. 
    ( F5 P% C$ w3 X: D, ]' n
17. 8.  0.147227      0.366718
    7 P: v- H% [7 g) M9 p
18. 
    * D- r\" `4 l* P9 g. c! k
19. 9.  0.650596      0.1875750 a6 o0 Y& n3 j+ v+ r0 v
    
20. 
    : L) }1 G- H9 \6 J
21. 10. 3.14433       0.348821

复制代码

详细说明：http://www.forcal.net/sysm/lu1/openlu_readme.htm
; _/ @5 R8 y( i) [    下载试用：http://www.forcal.net/xiazai/lu1/openlu32.rar

孤寂冷逍遥

liupeng723911

说的不错！