数学建模社区-数学中国»论坛 › 【编程区】语言讨论 › Forcal程序设计 › C/C++调用MLu的入门程序

查看: 8636|回复: 0

C/C++调用MLu的入门程序

[复制链接]

字体大小: 正常放大

forcal

45 主题	3 听众	282 积分

升级 91%

TA的每日心情

	难过 2012-8-27 18:22

签到天数: 1 天

[LV.1]初来乍到

电梯直达

1^#

发表于 2011-10-30 20:17 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

C/C++调用MLu的入门程序

MLu是程序和Lu核心库之间的一个接口库，MLu会自动加载Lu核心库和动态加载多个Lu扩展库，简化了Lu系统的使用；MLu可对Lu源程序进行模块化编译，能够编译运行具有固定格式的源程序（字符串表达式），源程序中可以使用C++风格的注释。此外，MLu还提供了多个线程互斥地访问Lu资源的功能；提供了Lu运行**器，以退出耗时较长的程序；提供在脚本中动态编译函数的功能；提供错误处理函数，实现错误（异常）处理的恢复模型等等。

1 隐式加载例子

该例子需要以下支持文件：

（1）头文件lu32.h。
（2）导入库lu32.lib及mlu32.lib。
（3）核心库lu32.dll和模块化编译运行库mlu32.dll。

#include <windows.h>% _( ^: ~2 C5 D/ h; E) Y$ H# W
#include <iostream>
+ r0 O& [/ X6 n( \% u7 b) z
#include "lu32.h" //Lu头文件
6 Q\\" e, p0 N1 D2 C$ n/ h3 `/ c
#pragma comment( lib, "lu32.lib" )/ |5 {' c8 t7 S0 v
#pragma comment( lib, "mlu32.lib" )8 s5 @2 L! e7 P0 k2 ]0 s\\" E; U$ [' s/ L
using namespace std;: n2 P9 A) T3 @( }
void main(void)
& Q, Q/ d1 D: @+ P# \
{0 p* m3 l9 |- _- p$ A2 ~4 m& j
void *hModule; //模块句柄
) O! U. }% N8 F/ ]) Y
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
' _* V' w$ t0 h. L, S6 C; w- q6 m
int i; //错误代码
7 l3 [% \& L; N# w! i% ^
void *hFor; //表达式句柄
' N\\" B8 ?! n: G/ f0 ?! t S
luVOID nModule=0; //表达式所在模块
3 r+ N\\" h\\" [- e! g: h2 j. f
void *vPara; //存放输入自变量的数组指针
& ~\\" h* g, y! P. @9 ~
LuData *pPara; //存放输入自变量的数组指针
: T5 q+ w& @- o' u5 R0 j
luINT nPara; //存放表达式的自变量个数. e8 F0 _; u& A! O
LuData Val; //存放表达式的值
' j' N\\" @+ R6 I. Z+ j
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序: f3 F: E+ v. @1 t! S
if(!InitMLu()) return; //初始化MLu
! j3 U' F/ Q# v6 g
if(!UseLu(2)) //申请使用Lu资源1 D* A* k6 F6 U. E
{
2 P G$ c8 I4 e% q0 J n
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
# B+ q7 Q0 F0 E7 y, e6 c3 r
if(i)
- a% ?5 q; U, g( F( t8 L
{) U/ @( G# x* T6 W
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
* g4 r5 H8 I/ x9 {* Q! m# R2 P
}
0 V) R0 k! d7 x2 Q3 V
else
3 R* _$ D9 J3 X: R% _8 Q
{$ H2 r) ~% S5 q. Z% b7 c/ B6 ^. i
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数
. P o, P0 \* P\\" k' }
{+ c$ d7 X0 S4 t; Z8 j$ y
pPara=(LuData *)vPara;
, U0 G; m* ^6 B) e- }5 O
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
/ Q: D/ v8 U2 V0 t3 k* T6 g4 u
{
! M! R, v7 A$ O. y1 T' `8 V
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; }# f$ O6 Z9 C
}- e/ j4 |$ w: ?% Q- `: v1 M; |
Val=LuCal(hFor,pPara); //计算表达式的值3 n. g3 J& g! a* ]$ P
cout<<Val.x<<endl;% g( }- d9 J9 S& [: P1 J
}
- X. |0 E7 X9 f6 w. Y
else# I/ M, Z$ {: ]7 @# o: ~ O* Z\\" q x
{+ R! b: Z3 k$ {2 N
cout<<"找不到指定的函数！"<<endl;
% x4 {\\" N+ }# u5 Y
}: h3 [8 Y2 W1 J3 @( m6 O- C: m
}1 K, i8 X6 C, \0 @) [0 ~9 C$ z
UseLu(0); //归还Lu的使用权; U3 C, a# z' ^; n/ N- v' b$ m
}; M7 @! \ O, v( y9 r* d, x
FreeMLu(); //释放MLu# j) @( Z2 g% k* ?/ l' h
}

#include <windows.h>% _( ^: ~2 C5 D/ h; E) Y$ H# W

#include <iostream> 
+ r0 O& [/ X6 n( \% u7 b) z
#include "lu32.h"                        //Lu头文件 
6 Q\\" e, p0 N1 D2 C$ n/ h3 `/ c
#pragma comment( lib, "lu32.lib" )/ |5 {' c8 t7 S0 v

#pragma comment( lib, "mlu32.lib" )8 s5 @2 L! e7 P0 k2 ]0 s\\" E; U$ [' s/ L

using namespace std;: n2 P9 A) T3 @( }

void main(void) 
& Q, Q/ d1 D: @+ P# \
{0 p* m3 l9 |- _- p$ A2 ~4 m& j

void *hModule;                //模块句柄 
) O! U. }% N8 F/ ]) Y
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
' _* V' w$ t0 h. L, S6 C; w- q6 m
        int i;                        //错误代码 
7 l3 [% \& L; N# w! i% ^
        void *hFor;                //表达式句柄 
' N\\" B8 ?! n: G/ f0 ?! t  S
        luVOID nModule=0;                //表达式所在模块 
3 r+ N\\" h\\" [- e! g: h2 j. f
        void *vPara;                //存放输入自变量的数组指针 
& ~\\" h* g, y! P. @9 ~
        LuData *pPara;                //存放输入自变量的数组指针 
: T5 q+ w& @- o' u5 R0 j
        luINT nPara;                //存放表达式的自变量个数. e8 F0 _; u& A! O

LuData Val;                //存放表达式的值 
' j' N\\" @+ R6 I. Z+ j
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序: f3 F: E+ v. @1 t! S

if(!InitMLu()) return;        //初始化MLu 
! j3 U' F/ Q# v6 g
        if(!UseLu(2))                //申请使用Lu资源1 D* A* k6 F6 U. E

{ 
2 P  G$ c8 I4 e% q0 J  n
                i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
# B+ q7 Q0 F0 E7 y, e6 c3 r
                if(i) 
- a% ?5 q; U, g( F( t8 L
                {) U/ @( G# x* T6 W

cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
* g4 r5 H8 I/ x9 {* Q! m# R2 P
                } 
0 V) R0 k! d7 x2 Q3 V
                else 
3 R* _$ D9 J3 X: R% _8 Q
                {$ H2 r) ~% S5 q. Z% b7 c/ B6 ^. i

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数 
. P  o, P0 \* P\\" k' }
                        {+ c$ d7 X0 S4 t; Z8 j$ y

pPara=(LuData *)vPara; 
, U0 G; m* ^6 B) e- }5 O
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
/ Q: D/ v8 U2 V0 t3 k* T6 g4 u
                                { 
! M! R, v7 A$ O. y1 T' `8 V
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;  }# f$ O6 Z9 C

}- e/ j4 |$ w: ?% Q- `: v1 M; |

Val=LuCal(hFor,pPara);        //计算表达式的值3 n. g3 J& g! a* ]$ P

cout<<Val.x<<endl;% g( }- d9 J9 S& [: P1 J

} 
- X. |0 E7 X9 f6 w. Y
                        else# I/ M, Z$ {: ]7 @# o: ~  O* Z\\" q  x

{+ R! b: Z3 k$ {2 N

cout<<"找不到指定的函数！"<<endl; 
% x4 {\\" N+ }# u5 Y
                        }: h3 [8 Y2 W1 J3 @( m6 O- C: m

}1 K, i8 X6 C, \0 @) [0 ~9 C$ z

UseLu(0);                //归还Lu的使用权; U3 C, a# z' ^; n/ N- v' b$ m

}; M7 @! \  O, v( y9 r* d, x

FreeMLu();                //释放MLu# j) @( Z2 g% k* ?/ l' h

}

结果：

3+ E- Q' n5 ]5 J2 n# ?) A o6 e\" b
请按任意键继续. . .

复制代码

2 显式加载例子

该例子需要以下支持文件：

（1）头文件lu32.h。
（2）核心库lu32.dll和模块化编译运行库mlu32.dll。

#include <windows.h>
& y M1 P6 j. e/ t8 v9 \4 J2 i
#include <iostream>
/ k) a Y+ F% b8 l2 j( h1 `
#include "Lu32.h"
; B8 `; ]) v# |( n) m0 f. e
using namespace std;
9 J/ c7 f( `6 [2 D% N8 z
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
. H. n+ J, g1 M3 t3 b
6 k. N; q) o. G5 ]5 B3 _9 G* T% ^
//MLu输出函数
7 \2 k4 j4 ?9 @\\" D! b
mluInitMLu pInitMLu;+ \; g; X2 d7 ~% ~/ \
mluFreeMLu pFreeMLu;9 m: Y* |- \6 H9 i\\" y5 |$ o\\" Y
mluGetLuProc pGetLuProc;3 y1 H. s. S5 M4 Z2 B
mluUseLu pUseLu;
# K! W! G\\" G% Z8 O2 A
mluComModule pComModule;
' g1 z2 R: H) D# l3 Z\\" ]( }
//Lu输出函数
$ ^$ M) Q3 o7 M1 p8 ^# N
luGetFor pGetFor;* ^8 a) @ k' [8 U h( U
luLuCal pLuCal;
bool theInitMLu(void) //初始化MLu
9 ]* r9 M) h4 l: I) @% o
{
}& O% y. I! D6 v
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll* i9 G( E1 l0 @% A% H2 V7 W/ j
if(!hMLu)
1 E; M6 [# ^0 E* `5 F0 g% Q
{
A) D$ e& ~9 V, I1 D5 q1 `
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";, G$ \( `7 ~+ [/ ~8 s; M& b7 K
return false;+ A% u5 \& i2 ?9 d3 E\\" p0 I% v1 I
}) V2 b6 ?7 U! g, u9 J ^: ^
//以下几个语句获取MLu32.dll的输出函数
( W& d+ l9 b. H- A/ ]
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");
2 V; D+ M6 Z( X+ G/ H
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");; `$ F; a: A) H. u3 J
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");5 g* f2 e) ]# z\\" \0 @
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");( `/ [) G' w7 I8 b# M/ d0 y' P
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");- m& r3 h5 k. k$ v6 a% U
if(!pInitMLu()) //初始化MLu32.dll\\" R4 X\\" a `# j
{% h! l$ P4 s9 `\\" E8 p$ F
FreeLibrary(hMLu); //释放动态库
$ m+ {\\" S; P1 Z9 B0 V! }
cout<<"MLu初始化失败！";
/ c s9 `# ?7 f& u- f0 N8 M) ?8 N
return false;8 Z/ p. r0 z3 n$ ]1 Z% x
}
% K; z* y3 o% N' X. v% j
//以下几个语句获取Lu32.dll的输出函数
0 D; i6 N( k- m$ h, P
pGetFor=(luGetFor) pGetLuProc("GetFor");
% A2 Z0 K9 @$ A9 X' H5 q
pLuCal=(luLuCal) pGetLuProc("LuCal");. @$ Z7 x7 i; ]7 k* S4 v k- Q
return true;
' Y5 T; R- a# i0 ~2 d1 _
}! Z0 a6 N# U& w% b6 y ~4 {
void theFreeMLu(void) //释放MLu7 a0 H' s( V( s& l: q2 y
{0 H% Q( [$ @$ O2 Z7 F3 X. ?
pFreeMLu(); //释放MLu申请的空间
; y1 y6 p8 {/ Q9 u7 |% U* G' d
FreeLibrary(hMLu); //释放动态库1 S% I( O) @. @# c3 n% x7 {. a\\" t( ~2 @
}
, T; A- D0 e$ ?+ [: s
void main(void)
, `\\" f3 q; G- }; k( p$ i% i! ]& n
{0 g, U7 Q* H- G1 u4 g
void *hModule; //模块句柄
- E1 E, [) p$ t3 y, `
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
$ s) D# L4 U% R( w( }. p
int i; //错误代码$ p% T+ s; ?* l8 a3 V
void *hFor; //表达式句柄
+ a0 q. C! T* J
luVOID nModule=0; //表达式所在模块8 B) z7 Q* Q8 h: W6 h
void *vPara; //存放输入自变量的数组指针
5 l7 P- Z4 N% l, r: V M; I
LuData *pPara; //存放输入自变量的数组指针; m; i2 T2 H* S% ?
luINT nPara; //存放表达式的自变量个数/ q+ l% v8 i1 e, H
LuData Val; //存放表达式的值
% h' [ ]% U6 [7 w- z
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
\\" {5 {7 q+ t4 n1 l4 e6 A
if(!theInitMLu()) return; //初始化MLu; U1 s, R8 N! ]/ J3 O, _
if(!pUseLu(2)) //申请使用Lu资源
% T4 b+ J. H+ p, u5 S\\" e! d, M
{
1 l0 j9 W( S7 W7 a- u, \
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序
6 v; a' |# y- Z. `* @
if(i). l2 n\\" h( C5 J$ w8 i
{% L6 X. Q& e* B. X
cout<<"Lu源程序有错误！错误代码："<<i<<endl;. w8 L- W6 l5 |* I1 X: O
}/ n$ h( ?1 d; g* q
else1 O; g5 B( }1 Q, ~* ?- X
{0 j9 h7 G) A$ c8 h
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
: t% i1 ^/ b0 j* X
{
5 H5 g5 {+ Z/ I6 J0 M
pPara=(LuData *)vPara;3 H6 n, w8 E! o D6 k8 R: s
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
Q8 a9 v2 a/ q! x- u
{+ w7 |* V m o- {9 v% Y _6 k
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;3 a; y$ G2 e; `/ e1 |
}
0 W$ N I5 C! u0 a* o. U. M) {
Val=pLuCal(hFor,pPara); //计算表达式的值8 }0 |4 K9 N2 v. s
cout<<Val.x<<endl;
5 C\\" L6 r; t$ ?4 A) J) |
}+ V0 m. D( B$ T3 A |1 u6 H\\" z/ v6 _
else
! b/ u1 J9 n, |0 A$ @
{* I1 k1 W1 u( x
cout<<"找不到指定的函数！"<<endl;; z! w+ U: H! c, L# |/ l2 i, q/ [
}+ w# [; j# \; R+ f/ X0 T# v
}
2 d* Z' I& `, r0 x
pUseLu(0); //归还Lu的使用权
5 A' @, e0 n/ ?6 H/ z2 P
}
: B. t- U2 Z1 u4 W3 j
theFreeMLu(); //释放MLu$ J' \4 g- M2 V% O
}

#include <windows.h> 
& y  M1 P6 j. e/ t8 v9 \4 J2 i
#include <iostream> 
/ k) a  Y+ F% b8 l2 j( h1 `
#include "Lu32.h" 
; B8 `; ]) v# |( n) m0 f. e
using namespace std; 
9 J/ c7 f( `6 [2 D% N8 z
HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
. H. n+ J, g1 M3 t3 b
 
6 k. N; q) o. G5 ]5 B3 _9 G* T% ^
//MLu输出函数 
7 \2 k4 j4 ?9 @\\" D! b
mluInitMLu pInitMLu;+ \; g; X2 d7 ~% ~/ \

mluFreeMLu pFreeMLu;9 m: Y* |- \6 H9 i\\" y5 |$ o\\" Y

mluGetLuProc pGetLuProc;3 y1 H. s. S5 M4 Z2 B

mluUseLu pUseLu; 
# K! W! G\\" G% Z8 O2 A
mluComModule pComModule; 
' g1 z2 R: H) D# l3 Z\\" ]( }
//Lu输出函数 
$ ^$ M) Q3 o7 M1 p8 ^# N
luGetFor pGetFor;* ^8 a) @  k' [8 U  h( U

luLuCal pLuCal; 
7 O8 q* _+ M. |: X6 @, R  z$ N- W\\" P
bool theInitMLu(void)        //初始化MLu 
9 ]* r9 M) h4 l: I) @% o
{ 
  }& O% y. I! D6 v
        hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll* i9 G( E1 l0 @% A% H2 V7 W/ j

if(!hMLu) 
1 E; M6 [# ^0 E* `5 F0 g% Q
        { 
  A) D$ e& ~9 V, I1 D5 q1 `
                cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";, G$ \( `7 ~+ [/ ~8 s; M& b7 K

return false;+ A% u5 \& i2 ?9 d3 E\\" p0 I% v1 I

}) V2 b6 ?7 U! g, u9 J  ^: ^

//以下几个语句获取MLu32.dll的输出函数 
( W& d+ l9 b. H- A/ ]
        pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu"); 
2 V; D+ M6 Z( X+ G/ H
        pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");; `$ F; a: A) H. u3 J

pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");5 g* f2 e) ]# z\\" \0 @

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");( `/ [) G' w7 I8 b# M/ d0 y' P

pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");- m& r3 h5 k. k$ v6 a% U

if(!pInitMLu())        //初始化MLu32.dll\\" R4 X\\" a  `# j

{% h! l$ P4 s9 `\\" E8 p$ F

FreeLibrary(hMLu);        //释放动态库 
$ m+ {\\" S; P1 Z9 B0 V! }
                cout<<"MLu初始化失败！"; 
/ c  s9 `# ?7 f& u- f0 N8 M) ?8 N
                return false;8 Z/ p. r0 z3 n$ ]1 Z% x

} 
% K; z* y3 o% N' X. v% j
        //以下几个语句获取Lu32.dll的输出函数 
0 D; i6 N( k- m$ h, P
        pGetFor=(luGetFor) pGetLuProc("GetFor"); 
% A2 Z0 K9 @$ A9 X' H5 q
        pLuCal=(luLuCal) pGetLuProc("LuCal");. @$ Z7 x7 i; ]7 k* S4 v  k- Q

return true; 
' Y5 T; R- a# i0 ~2 d1 _
}! Z0 a6 N# U& w% b6 y  ~4 {

void theFreeMLu(void)        //释放MLu7 a0 H' s( V( s& l: q2 y

{0 H% Q( [$ @$ O2 Z7 F3 X. ?

pFreeMLu();        //释放MLu申请的空间 
; y1 y6 p8 {/ Q9 u7 |% U* G' d
        FreeLibrary(hMLu);        //释放动态库1 S% I( O) @. @# c3 n% x7 {. a\\" t( ~2 @

} 
, T; A- D0 e$ ?+ [: s
void main(void) 
, `\\" f3 q; G- }; k( p$ i% i! ]& n
{0 g, U7 Q* H- G1 u4 g

void *hModule;                //模块句柄 
- E1 E, [) p$ t3 y, `
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
$ s) D# L4 U% R( w( }. p
        int i;                        //错误代码$ p% T+ s; ?* l8 a3 V

void *hFor;                //表达式句柄 
+ a0 q. C! T* J
        luVOID nModule=0;                //表达式所在模块8 B) z7 Q* Q8 h: W6 h

void *vPara;                //存放输入自变量的数组指针 
5 l7 P- Z4 N% l, r: V  M; I
        LuData *pPara;                //存放输入自变量的数组指针; m; i2 T2 H* S% ?

luINT nPara;                //存放表达式的自变量个数/ q+ l% v8 i1 e, H

LuData Val;                //存放表达式的值 
% h' [  ]% U6 [7 w- z
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
\\" {5 {7 q+ t4 n1 l4 e6 A
        if(!theInitMLu()) return;        //初始化MLu; U1 s, R8 N! ]/ J3 O, _

if(!pUseLu(2))                //申请使用Lu资源 
% T4 b+ J. H+ p, u5 S\\" e! d, M
        { 
1 l0 j9 W( S7 W7 a- u, \
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序 
6 v; a' |# y- Z. `* @
                if(i). l2 n\\" h( C5 J$ w8 i

{% L6 X. Q& e* B. X

cout<<"Lu源程序有错误！错误代码："<<i<<endl;. w8 L- W6 l5 |* I1 X: O

}/ n$ h( ?1 d; g* q

else1 O; g5 B( }1 Q, ~* ?- X

{0 j9 h7 G) A$ c8 h

if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
: t% i1 ^/ b0 j* X
                        { 
5 H5 g5 {+ Z/ I6 J0 M
                                pPara=(LuData *)vPara;3 H6 n, w8 E! o  D6 k8 R: s

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
  Q8 a9 v2 a/ q! x- u
                                {+ w7 |* V  m  o- {9 v% Y  _6 k

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;3 a; y$ G2 e; `/ e1 |

} 
0 W$ N  I5 C! u0 a* o. U. M) {
                                Val=pLuCal(hFor,pPara);        //计算表达式的值8 }0 |4 K9 N2 v. s

cout<<Val.x<<endl; 
5 C\\" L6 r; t$ ?4 A) J) |
                        }+ V0 m. D( B$ T3 A  |1 u6 H\\" z/ v6 _

else 
! b/ u1 J9 n, |0 A$ @
                        {* I1 k1 W1 u( x

cout<<"找不到指定的函数！"<<endl;; z! w+ U: H! c, L# |/ l2 i, q/ [

}+ w# [; j# \; R+ f/ X0 T# v

} 
2 d* Z' I& `, r0 x
                pUseLu(0);        //归还Lu的使用权 
5 A' @, e0 n/ ?6 H/ z2 P
        } 
: B. t- U2 Z1 u4 W3 j
        theFreeMLu();                //释放MLu$ J' \4 g- M2 V% O

}

结果：