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

forcal

    OpenLu是OpenFC的升级版本，OpenLu用Lu作为支持脚本。OpenLu力求消除冗余，简化计算。基本计算内容包括表达式计算、解非线性方程（组）、多元积分、微分方程求解、参数优化拟合、矩阵运算等等。
: E5 }8 v/ a# G8 k- v; v! \    OpenLu工作模式有三种，其即时编译计算模式特别适合于常用计算：在代码窗口写代码时，即时给出代码中的错误，若没有错误，将进行计算给出结果。
    OpenLu不仅支持整数、实数、复数、三维向量等基本运算，还可以自定义常量、函数、命令菜单等。按需定制，简化计算是OpenLu的基本特点。
% w; e+ e$ A4 @2 q# `! ?) ~
    本次升级，OpenLu简化了LuIMSL、LuOpt等扩展库，保留求方程（组）全部解、参数优化拟合等基本功能，函数用法也有诸多简化，以微分方程求解为例：

5 D/ N: r7 Z: o0 y  h    [例子] 设一阶微分方程组及初值为：
        r'=2r-2rf, r(0)=1
        f'=-f+rf,  f(0)=3
" s+ C9 _' g$ h( o! T    计算t=1,2,...,10时的r、f的值。
+ g! T2 b( [2 \% A# H9 ?0 P. _1 I: V$ Q
    程序如下：

2. !!!using["IMSL","math"];* t  B( B$ m\\" x* k: n2 O
   
4. f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义
   
5. 8 E, U: x7 d( N/ Q
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\\">* t  B( B$ m\\" x* k: n2 O</font><br /> f(t,r,f,dr,df)={dr=2*r-2*r*f, df=-f+r*f}; //函数定义<br /> <span style=\\"display:none\\">8 E, U: x7 d( N/ Q</span> ode[@f,ra1[0,1,2,3,4,5,6,7,8,9,10],ra1[1,3]].outa[];

结果：

1. 0.  1.            3.
     r( g0 M7 t9 C! h- ^
2. 
   6 E% [; m8 [- X' r+ F: u
3. 1.  7.73453e-002  1.46445\" N' b- ~' B5 [  J
   
4. 
   + T( B! m; l$ T- c5 z
5. 2.  8.49774e-002  0.577954
   0 ]  c3 H+ t1 ^8 b5 B0 W
6. ; m( G0 }7 h! Z9 }( W, J
   
7. 3.  0.290891      0.249253
   1 A1 v( k) f, R
8. 6 n2 L( Z2 e0 I3 A/ e- @
   
9. 4.  1.4466        0.187219
   + n8 D$ F  ]3 P' [7 \
10. 1 g6 P! ^$ M) K: c
    
11. 5.  4.05146       1.439489 Z& a- U5 ~6 ]
    
12. 
    % x3 R8 i- F  n) P
13. 6.  0.175618      2.25865 w; [* d' {6 i
    
14. . L1 y6 |  E9 g. q\" I
    
15. 7.  6.53112e-002  0.9088# n% H0 ?) X1 M
    
16. 6 t9 d( u/ E  u+ M/ U# B6 Q# w
    
17. 8.  0.147227      0.3667186 B( j* Q0 U. M, U9 X! T8 H
    
18. 
    9 I7 v% X6 b1 D4 r, U$ m1 D& p7 h
19. 9.  0.650596      0.187575( G) E6 S\" X$ Z: f\" u; T
    
20. ! s  e  |- @0 S: c; U, m& s: G
    
21. 10. 3.14433       0.348821

复制代码

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

孤寂冷逍遥

liupeng723911

说的不错！