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

查看: 8537|回复: 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>. T* _7 u1 ~' R5 R( c$ T8 W
#include <iostream>
7 S* N4 }. ^% u! v# y0 O
#include "lu32.h" //Lu头文件& `. c+ A6 D$ h _$ S% f! u9 S0 l4 T
#pragma comment( lib, "lu32.lib" ) \; g# \, i0 l. @/ @
#pragma comment( lib, "mlu32.lib" )$ P4 z- {( ~# A+ j. y+ x3 \
using namespace std;
% T+ K4 h5 N0 Q& Y( N- F
void main(void)/ u7 V) D( i! O8 u
{
8 R$ x8 s& H1 s/ C* N
void *hModule; //模块句柄6 j2 s2 B. p1 s$ Y\\" s
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置
4 U5 x& R# x& X2 I5 t# I! |
int i; //错误代码- e, c, B) j! F' m( ~6 n
void *hFor; //表达式句柄2 H% K+ B; ?3 I |8 O\\" q- Z% F: p1 R
luVOID nModule=0; //表达式所在模块
, T8 ^; ]6 e q0 C0 t
void *vPara; //存放输入自变量的数组指针
4 s4 K( Y7 W# J
LuData *pPara; //存放输入自变量的数组指针* p- @) c, M& T2 X
luINT nPara; //存放表达式的自变量个数; j# B0 K1 H3 ]8 @4 H% G
LuData Val; //存放表达式的值
K) g8 Q6 E A) H
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序9 ]4 n+ N) \6 O3 a1 g, ~
if(!InitMLu()) return; //初始化MLu; {7 P2 j& o8 w( J4 k6 C; `
if(!UseLu(2)) //申请使用Lu资源
: f7 B% `% ^) I; Z9 C
{
4 | J7 @9 G5 l
i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序& T( e6 P, ]1 V& z& C* _
if(i)5 G/ d5 L. ~; M! |; V) n2 x3 I
{
( r* B5 \8 B7 Z* ?8 q( a6 S
cout<<"Lu源程序有错误！错误代码："<<i<<endl;\\" k f7 T6 I4 d3 H\\" `& r% T l
}/ B: N- i4 o* X9 Q( m& c8 p4 b3 E
else
$ n& q; d t! H; g$ }. }& b, _
{/ ?5 T9 ^+ y) `+ I3 E5 x9 _
if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) //查找全局函数2 P0 @! G4 ]* W g1 v/ a
{! I\\" ?+ ^8 f* m2 q
pPara=(LuData *)vPara;+ H+ i: ^1 V: @, I0 Z/ L
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
3 j\\" k# l2 r5 {# T- k) d
{) k& X q\\" r {* \4 ^
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;9 t0 F4 W$ h# j- [9 m) B2 Y
}) G\\" K% b/ o! P# O' I$ n
Val=LuCal(hFor,pPara); //计算表达式的值4 q Q$ e t% _4 { l8 F, H
cout<<Val.x<<endl; @ p# E! B; _! B\\" j9 ~- }
}2 a/ Q/ e/ u' T9 V0 G
else
0 J' c\\" i# m7 T ]) A6 r8 H4 Y
{
0 b, X5 H/ w* k' W5 A3 }
cout<<"找不到指定的函数！"<<endl;
( h0 d1 E. T, J$ {
}
& W8 G; m7 [& h6 w
}$ i% w7 B5 {! o8 c3 R2 R; D
UseLu(0); //归还Lu的使用权
; m6 [/ w( x1 z+ ^
}
' d V! ]! b7 [6 c1 _
FreeMLu(); //释放MLu/ D3 ~/ o7 M* F. F \
}

#include <windows.h>. T* _7 u1 ~' R5 R( c$ T8 W

#include <iostream> 
7 S* N4 }. ^% u! v# y0 O
#include "lu32.h"                        //Lu头文件& `. c+ A6 D$ h  _$ S% f! u9 S0 l4 T

#pragma comment( lib, "lu32.lib" )  \; g# \, i0 l. @/ @

#pragma comment( lib, "mlu32.lib" )$ P4 z- {( ~# A+ j. y+ x3 \

using namespace std; 
% T+ K4 h5 N0 Q& Y( N- F
void main(void)/ u7 V) D( i! O8 u

{ 
8 R$ x8 s& H1 s/ C* N
        void *hModule;                //模块句柄6 j2 s2 B. p1 s$ Y\\" s

luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置 
4 U5 x& R# x& X2 I5 t# I! |
        int i;                        //错误代码- e, c, B) j! F' m( ~6 n

void *hFor;                //表达式句柄2 H% K+ B; ?3 I  |8 O\\" q- Z% F: p1 R

luVOID nModule=0;                //表达式所在模块 
, T8 ^; ]6 e  q0 C0 t
        void *vPara;                //存放输入自变量的数组指针 
4 s4 K( Y7 W# J
        LuData *pPara;                //存放输入自变量的数组指针* p- @) c, M& T2 X

luINT nPara;                //存放表达式的自变量个数; j# B0 K1 H3 ]8 @4 H% G

LuData Val;                //存放表达式的值 
  K) g8 Q6 E  A) H
        wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序9 ]4 n+ N) \6 O3 a1 g, ~

if(!InitMLu()) return;        //初始化MLu; {7 P2 j& o8 w( J4 k6 C; `

if(!UseLu(2))                //申请使用Lu资源 
: f7 B% `% ^) I; Z9 C
        { 
4 |  J7 @9 G5 l
                i=ComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序& T( e6 P, ]1 V& z& C* _

if(i)5 G/ d5 L. ~; M! |; V) n2 x3 I

{ 
( r* B5 \8 B7 Z* ?8 q( a6 S
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl;\\" k  f7 T6 I4 d3 H\\" `& r% T  l

}/ B: N- i4 o* X9 Q( m& c8 p4 b3 E

else 
$ n& q; d  t! H; g$ }. }& b, _
                {/ ?5 T9 ^+ y) `+ I3 E5 x9 _

if(GetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))        //查找全局函数2 P0 @! G4 ]* W  g1 v/ a

{! I\\" ?+ ^8 f* m2 q

pPara=(LuData *)vPara;+ H+ i: ^1 V: @, I0 Z/ L

for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1 
3 j\\" k# l2 r5 {# T- k) d
                                {) k& X  q\\" r  {* \4 ^

pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;9 t0 F4 W$ h# j- [9 m) B2 Y

}) G\\" K% b/ o! P# O' I$ n

Val=LuCal(hFor,pPara);        //计算表达式的值4 q  Q$ e  t% _4 {  l8 F, H

cout<<Val.x<<endl;  @  p# E! B; _! B\\" j9 ~- }

}2 a/ Q/ e/ u' T9 V0 G

else 
0 J' c\\" i# m7 T  ]) A6 r8 H4 Y
                        { 
0 b, X5 H/ w* k' W5 A3 }
                                cout<<"找不到指定的函数！"<<endl; 
( h0 d1 E. T, J$ {
                        } 
& W8 G; m7 [& h6 w
                }$ i% w7 B5 {! o8 c3 R2 R; D

UseLu(0);                //归还Lu的使用权 
; m6 [/ w( x1 z+ ^
        } 
' d  V! ]! b7 [6 c1 _
        FreeMLu();                //释放MLu/ D3 ~/ o7 M* F. F  \

}

结果：

3+ c, Q\" q! T: D
请按任意键继续. . .

复制代码

2 显式加载例子

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

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

#include <windows.h>0 D. }. s6 Q+ b& `( |) m
#include <iostream>
/ G8 h& }5 z+ W4 d- d
#include "Lu32.h"/ ^ m3 [; V5 o8 u- ]) j
using namespace std;
9 z0 s0 c, o# j# {# M' Y/ I2 q
HINSTANCE hMLu=NULL; //动态库MLu32.dll的句柄
, D8 E$ S$ Y% N3 o) q8 m
4 w, E! v+ q. N1 T9 v
//MLu输出函数\\" }, M# a/ r) h' i' o# {
mluInitMLu pInitMLu;
6 J9 T: P6 d6 J; l+ H; }- H
mluFreeMLu pFreeMLu;# c* D- \/ J% V G7 P3 z* g t
mluGetLuProc pGetLuProc;/ c( W\\" j) C3 c/ w, N) D\\" {
mluUseLu pUseLu;$ t* }+ T b& H/ @ J5 V: d
mluComModule pComModule;8 W+ x1 ^1 t2 \8 O6 U) ~2 P
//Lu输出函数
) L4 e- u V. `
luGetFor pGetFor;& s, X9 o6 K: X0 r' h% v
luLuCal pLuCal;
+ ]. ?- z. y; c# e: _' |8 N
bool theInitMLu(void) //初始化MLu
' ~\\" E9 G# g6 T# Y0 y$ ^
{! E& V9 s# z& a$ Q% {5 O/ y
hMLu=LoadLibrary(L"MLu32.dll"); //加载动态库MLu32.dll1 f9 [& O% S1 o1 L% Z8 z4 h: j
if(!hMLu)+ Z$ m- m7 y, D' e
{* v0 T7 T- {9 N) {% `3 V
cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！";
* ]3 U\\" G3 y- x- t8 B
return false;\\" Z/ @- O( w y, @9 e1 R1 V6 E
}
( m$ ]1 ~+ P0 }8 F
//以下几个语句获取MLu32.dll的输出函数
1 d, Q0 Y2 c2 a3 G0 T4 }
pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu");
0 W' u+ p. j o+ x& @' ]. F1 _
pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");2 m# h7 y/ x- c% S/ d0 n: e. ~
pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");/ i: f# Z; r! H\\" e8 } D
pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");- m. l) v: |7 W/ N* Z
pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");3 {1 }9 C6 C0 J) F
if(!pInitMLu()) //初始化MLu32.dll( e$ ?# G! z. B) Z3 T$ L, u3 i
{) Z8 K, I! g8 p3 k- T5 n! m
FreeLibrary(hMLu); //释放动态库
2 c( L* I i8 x
cout<<"MLu初始化失败！";
3 U% c4 D4 ^* k* B5 [3 N
return false;/ @/ |( I; v5 @6 H
}; I. { Z! H, {1 l( P/ G* B
//以下几个语句获取Lu32.dll的输出函数5 G$ G9 l& v\\" b7 V& Y' f8 J i\\" @3 D
pGetFor=(luGetFor) pGetLuProc("GetFor");. O/ `3 g% \; C/ g5 ~9 f
pLuCal=(luLuCal) pGetLuProc("LuCal");
, P3 d! e7 B5 q, T5 Q( Q\\" i. M
return true;
0 \/ |% F; b* N& m\\" O6 w
}& R- ^3 E( _, v9 F
void theFreeMLu(void) //释放MLu
; i0 H1 A, R% Y2 ]* J& E3 k$ z
{
, |+ L$ m% X6 a, {' n
pFreeMLu(); //释放MLu申请的空间* S ?& m. Q8 c9 ]7 i; W
FreeLibrary(hMLu); //释放动态库- O7 o- a- J5 M
}2 L: T& E7 i/ S O2 `\\" O
void main(void)
; a1 y. ~5 A. W
{) [( z7 M' T& b\\" U0 A+ E: {3 `) \
void *hModule; //模块句柄
8 x8 _/ d\\" L6 B: z& L M' Q
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置4 t\\" _5 W6 v3 Z' q! i$ Y$ A4 U
int i; //错误代码
; B* ~5 I$ d4 H2 @1 E5 ^7 T
void *hFor; //表达式句柄
3 E! Q5 M% K! @. o4 Z# w! l8 P
luVOID nModule=0; //表达式所在模块
* h& ^8 ~. J9 h0 w, d( s+ r F
void *vPara; //存放输入自变量的数组指针% g* e0 X5 }+ \( X, s, o
LuData *pPara; //存放输入自变量的数组指针) C x* m2 ]* P. q2 e1 }
luINT nPara; //存放表达式的自变量个数. `3 Y+ G9 ^1 T( u) u& b\\" L
LuData Val; //存放表达式的值- u) i9 V5 [0 f, R$ h( K
wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;"; //Lu模块化源程序
; K. _2 @8 M/ S) X% y) a
if(!theInitMLu()) return; //初始化MLu
+ P) w# i8 Z5 k$ C3 [
if(!pUseLu(2)) //申请使用Lu资源. `5 {2 A& G: u; m1 E
{
0 W5 f5 k' `9 g. ]7 ^8 ~, G, o' b, `
i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd); //编译Lu源程序# W9 a& x' h, `9 I\\" v\\" u d8 ~
if(i)
; h* V4 ?9 x, p1 q. T
{
9 C\\" W5 k1 ^' W3 N5 M2 f+ f
cout<<"Lu源程序有错误！错误代码："<<i<<endl;
# f! v4 x, G; L; A( _
}! W% |0 V+ b; u/ ]
else6 o( I2 {6 S9 ?- i! ^% V9 D\\" F q
{) t5 z/ Z$ b9 L: F; q6 L4 U\\" A: u+ k
if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara))
3 s! v3 e! N5 E( y( d. z
{3 C4 D3 O1 f, V) b9 j. Z2 B
pPara=(LuData *)vPara;
- M' v1 U {& L& `/ \$ `9 X
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1- U1 a8 `1 R9 r- K w
{
! T' K- w+ {/ J: Z. }
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;
+ u* k. ~1 M. C% U8 v
}
1 V1 p* U' {+ t( A7 a2 |. B x( g
Val=pLuCal(hFor,pPara); //计算表达式的值' s# b$ Y: P: k& I5 q% V7 z
cout<<Val.x<<endl;
) Q2 h5 y# g. G3 ~$ B2 a1 b
}8 k% `8 v! F5 Y, S; ?2 e: g% U
else% O5 S; B) J3 u\\" G! s* X# c
{5 |3 {2 H/ P2 o/ ]
cout<<"找不到指定的函数！"<<endl;
! f5 c- q/ k. p, D7 r. k
}
7 _, U. b9 k. |+ V0 a) `: m: v E
}
3 K' k, X% R6 p3 l0 a+ {
pUseLu(0); //归还Lu的使用权
2 {6 p; {& o4 B8 x
}
/ a\\" L H x* C9 Z q
theFreeMLu(); //释放MLu
# s$ A) s# J0 ^2 s& ?8 M( h+ i
}

#include <windows.h>0 D. }. s6 Q+ b& `( |) m

#include <iostream> 
/ G8 h& }5 z+ W4 d- d
#include "Lu32.h"/ ^  m3 [; V5 o8 u- ]) j

using namespace std; 
9 z0 s0 c, o# j# {# M' Y/ I2 q
HINSTANCE hMLu=NULL;        //动态库MLu32.dll的句柄 
, D8 E$ S$ Y% N3 o) q8 m
4 w, E! v+ q. N1 T9 v

//MLu输出函数\\" }, M# a/ r) h' i' o# {

mluInitMLu pInitMLu; 
6 J9 T: P6 d6 J; l+ H; }- H
mluFreeMLu pFreeMLu;# c* D- \/ J% V  G7 P3 z* g  t

mluGetLuProc pGetLuProc;/ c( W\\" j) C3 c/ w, N) D\\" {

mluUseLu pUseLu;$ t* }+ T  b& H/ @  J5 V: d

mluComModule pComModule;8 W+ x1 ^1 t2 \8 O6 U) ~2 P

//Lu输出函数 
) L4 e- u  V. `
luGetFor pGetFor;& s, X9 o6 K: X0 r' h% v

luLuCal pLuCal; 
+ ]. ?- z. y; c# e: _' |8 N
bool theInitMLu(void)        //初始化MLu 
' ~\\" E9 G# g6 T# Y0 y$ ^
{! E& V9 s# z& a$ Q% {5 O/ y

hMLu=LoadLibrary(L"MLu32.dll");        //加载动态库MLu32.dll1 f9 [& O% S1 o1 L% Z8 z4 h: j

if(!hMLu)+ Z$ m- m7 y, D' e

{* v0 T7 T- {9 N) {% `3 V

cout<<"找不到MLu32.dll！请将该库放到WINDOWS的搜索路径内！"; 
* ]3 U\\" G3 y- x- t8 B
                return false;\\" Z/ @- O( w  y, @9 e1 R1 V6 E

} 
( m$ ]1 ~+ P0 }8 F
        //以下几个语句获取MLu32.dll的输出函数 
1 d, Q0 Y2 c2 a3 G0 T4 }
        pInitMLu=(mluInitMLu) GetProcAddress(hMLu,"InitMLu"); 
0 W' u+ p. j  o+ x& @' ]. F1 _
        pFreeMLu=(mluFreeMLu) GetProcAddress(hMLu,"FreeMLu");2 m# h7 y/ x- c% S/ d0 n: e. ~

pGetLuProc=(mluGetLuProc) GetProcAddress(hMLu,"GetLuProc");/ i: f# Z; r! H\\" e8 }  D

pUseLu=(mluUseLu) GetProcAddress(hMLu,"UseLu");- m. l) v: |7 W/ N* Z

pComModule=(mluComModule) GetProcAddress(hMLu,"ComModule");3 {1 }9 C6 C0 J) F

if(!pInitMLu())        //初始化MLu32.dll( e$ ?# G! z. B) Z3 T$ L, u3 i

{) Z8 K, I! g8 p3 k- T5 n! m

FreeLibrary(hMLu);        //释放动态库 
2 c( L* I  i8 x
                cout<<"MLu初始化失败！"; 
3 U% c4 D4 ^* k* B5 [3 N
                return false;/ @/ |( I; v5 @6 H

}; I. {  Z! H, {1 l( P/ G* B

//以下几个语句获取Lu32.dll的输出函数5 G$ G9 l& v\\" b7 V& Y' f8 J  i\\" @3 D

pGetFor=(luGetFor) pGetLuProc("GetFor");. O/ `3 g% \; C/ g5 ~9 f

pLuCal=(luLuCal) pGetLuProc("LuCal"); 
, P3 d! e7 B5 q, T5 Q( Q\\" i. M
        return true; 
0 \/ |% F; b* N& m\\" O6 w
}& R- ^3 E( _, v9 F

void theFreeMLu(void)        //释放MLu 
; i0 H1 A, R% Y2 ]* J& E3 k$ z
{ 
, |+ L$ m% X6 a, {' n
        pFreeMLu();        //释放MLu申请的空间* S  ?& m. Q8 c9 ]7 i; W

FreeLibrary(hMLu);        //释放动态库- O7 o- a- J5 M

}2 L: T& E7 i/ S  O2 `\\" O

void main(void) 
; a1 y. ~5 A. W
{) [( z7 M' T& b\\" U0 A+ E: {3 `) \

void *hModule;                //模块句柄 
8 x8 _/ d\\" L6 B: z& L  M' Q
        luINT ErrBegin,ErrEnd;        //表达式编译出错的初始位置和结束位置4 t\\" _5 W6 v3 Z' q! i$ Y$ A4 U

int i;                        //错误代码 
; B* ~5 I$ d4 H2 @1 E5 ^7 T
        void *hFor;                //表达式句柄 
3 E! Q5 M% K! @. o4 Z# w! l8 P
        luVOID nModule=0;                //表达式所在模块 
* h& ^8 ~. J9 h0 w, d( s+ r  F
        void *vPara;                //存放输入自变量的数组指针% g* e0 X5 }+ \( X, s, o

LuData *pPara;                //存放输入自变量的数组指针) C  x* m2 ]* P. q2 e1 }

luINT nPara;                //存放表达式的自变量个数. `3 Y+ G9 ^1 T( u) u& b\\" L

LuData Val;                //存放表达式的值- u) i9 V5 [0 f, R$ h( K

wchar_t ForStr[]=L"f(x)=x+1; :::ff(x,y)=f(x)+y;";        //Lu模块化源程序 
; K. _2 @8 M/ S) X% y) a
        if(!theInitMLu()) return;        //初始化MLu 
+ P) w# i8 Z5 k$ C3 [
        if(!pUseLu(2))                //申请使用Lu资源. `5 {2 A& G: u; m1 E

{ 
0 W5 f5 k' `9 g. ]7 ^8 ~, G, o' b, `
                i=pComModule(ForStr,nModule,hModule,ErrBegin,ErrEnd);        //编译Lu源程序# W9 a& x' h, `9 I\\" v\\" u  d8 ~

if(i) 
; h* V4 ?9 x, p1 q. T
                { 
9 C\\" W5 k1 ^' W3 N5 M2 f+ f
                        cout<<"Lu源程序有错误！错误代码："<<i<<endl; 
# f! v4 x, G; L; A( _
                }! W% |0 V+ b; u/ ]

else6 o( I2 {6 S9 ?- i! ^% V9 D\\" F  q

{) t5 z/ Z$ b9 L: F; q6 L4 U\\" A: u+ k

if(pGetFor(L"ff",1,NULL,nModule,hFor,vPara,nPara)) 
3 s! v3 e! N5 E( y( d. z
                        {3 C4 D3 O1 f, V) b9 j. Z2 B

pPara=(LuData *)vPara; 
- M' v1 U  {& L& `/ \$ `9 X
                                for(i=0;i<=nPara;i++)        //表达式自变量赋值，均赋值为1- U1 a8 `1 R9 r- K  w

{ 
! T' K- w+ {/ J: Z. }
                                        pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1; 
+ u* k. ~1 M. C% U8 v
                                } 
1 V1 p* U' {+ t( A7 a2 |. B  x( g
                                Val=pLuCal(hFor,pPara);        //计算表达式的值' s# b$ Y: P: k& I5 q% V7 z

cout<<Val.x<<endl; 
) Q2 h5 y# g. G3 ~$ B2 a1 b
                        }8 k% `8 v! F5 Y, S; ?2 e: g% U

else% O5 S; B) J3 u\\" G! s* X# c

{5 |3 {2 H/ P2 o/ ]

cout<<"找不到指定的函数！"<<endl; 
! f5 c- q/ k. p, D7 r. k
                        } 
7 _, U. b9 k. |+ V0 a) `: m: v  E
                } 
3 K' k, X% R6 p3 l0 a+ {
                pUseLu(0);        //归还Lu的使用权 
2 {6 p; {& o4 B8 x
        } 
/ a\\" L  H  x* C9 Z  q
        theFreeMLu();                //释放MLu 
# s$ A) s# J0 ^2 s& ?8 M( h+ i
}

结果：