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

forcal

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

) H' V# P; [+ F& e    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：
2 [2 o, l3 W1 s2 O& A; {6 c
    [例子] 设一阶微分方程组及初值为：
* w7 x5 I( n! N2 c" V  J2 s        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
    计算t=1,2,...,10时的r、f的值。

% T! h1 f" ~) R) Z. `9 N    程序如下：

2. !!!using["IMSL","math"];9 A/ P+ E1 L) F! r# Q8 o6 }7 w
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义4 h6 O) }) Q: Q% ]8 K& G, L
   
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\\">9 A/ P+ E1 L) F! r# Q8 o6 }7 w</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<font class=\\"jammer\\">4 h6 O) }) Q: Q% ]8 K& G, L</font><br /> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.: Y* M% J* V; D. u% c6 ^
   
2. 
   7 u& q( Y2 i. f+ y5 |/ r) r$ o( Q0 r
3. 1.  7.73453e-002  1.46445
   2 X5 b! `/ \$ S
4. ! r0 f$ j& |: s+ l\" f
   
5. 2.  8.49774e-002  0.577954
   0 b+ _5 `; w9 p: N' r4 C
6. 
   - }( ]' X; x1 }3 Y' _
7. 3.  0.290891      0.249253* F\" g; F( Y/ @9 T2 A% c
   
8. 
   3 f3 Q8 U1 g9 B- O\" r4 G\" i
9. 4.  1.4466        0.1872195 D. T! {  O; r, r# J  s  R1 X
   
10. ) d! j9 v; m/ z5 b
    
11. 5.  4.05146       1.43948' i' L2 A0 S5 n& X\" o
    
12. 3 x; ~; f8 ~, P8 S# f+ l
    
13. 6.  0.175618      2.2586
      _( H; s. K  a\" U
14. 7 t$ p0 s. @& q6 J6 p5 ], ]4 S
    
15. 7.  6.53112e-002  0.9088
    $ Q, j2 @\" h' _* e
16. 
    / J  Y% _\" p4 p
17. 8.  0.147227      0.366718
    $ u2 Z* g1 x; R' ~
18. 
    \" g* A3 l. p' ~0 Y( W
19. 9.  0.650596      0.187575
    - p\" Y8 z( w/ I\" D/ Y4 u
20. 
    * a5 H1 z0 G  h
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！