查看: 8093|回复: 0

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

[复制链接]

字体大小: 正常放大

forcal

45 主题	3 听众	282 积分

升级 91%

TA的每日心情

	难过 2012-8-27 18:22

签到天数: 1 天

[LV.1]初来乍到

电梯直达

1^#

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

|招呼Ta 关注Ta

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

仅需要以下支持文件：

1、头文件lu32.h。
2、导入库lu32.lib。
3、核心库lu32.dll。

#include <windows.h>6 |: W' L( o' x' ~) e
#include <iostream>
* ^/ f! a% H) U5 L+ x, ?
#include <math.h>
; k. q: x* E5 J* M/ Z4 V0 E+ h
#include "lu32.h" //Lu头文件
2 _. D+ f) M; @8 Q6 e1 s9 s) C4 E
9 N8 X) L6 L5 z
#pragma comment( lib, "lu32.lib" )4 H& l; ] K2 h/ z- s
9 u$ T+ c$ }* v3 S
using namespace std;
2 b6 [2 \+ O) M( X0 ^
8 d7 h3 e5 O# Q, l' C* Z% ?& m
void main(void)- a7 N5 H& S! I' u% l4 Q: i/ k: }
{
; R( Y\\" {- c5 h2 i
void *hFor; //表达式句柄: Z7 {, J c1 n+ L\\" P
luINT nPara; //存放表达式的自变量个数' U- }$ q$ q1 f# z0 V, L6 t
LuData *pPara; //存放输入自变量的数组指针5 ]) z( M& o& i* B$ o/ ?4 N6 b
LuData Val; //存放表达式的值7 v5 w% k1 }3 Q4 C, P2 |
luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置, {8 Y' K$ R4 h1 C) j: |
int ErrCode; //错误代码8 c+ i: S) P; h L2 G
wchar_t ForStr[]=L"f(x,y)=x+y"; //字符串表达式
8 t# J8 O, X. \, e' F5 ]# f
int i;1 |- r\\" O3 B7 D, Q
4 s+ g- \& X! s9 q- K5 j5 v
if(!InitLu()) return; //初始化Lu Y( a1 U% q/ O( j
2 i, _) K& }0 I9 D! n6 B7 d) ]
ErrCode=LuCom(ForStr,0,0,0,hFor,nPara,pPara,ErrBegin,ErrEnd); //编译表达式
+ k6 l7 r4 d! \' \\\" P# O0 O
if(ErrCode)( f- |2 D8 v- H
{8 H8 Q) U; I. r$ L, t
cout<<"表达式有错误！错误代码："<<ErrCode<<endl;( a7 f; A/ t/ a5 L. x7 S# j0 ]! ^
}' j5 w/ b5 j5 b8 Y- ]% S% m1 _
else9 @) |2 f1 ]4 C2 v# e, K
{+ }* n- M* b' W0 _1 v! O# a\\" ?
for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1
/ P D& ?) ^/ t
{
; S# ?# z8 ] P& F
pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;6 k/ v2 r c( L; e
}
- ]4 i) r8 D5 [* g5 s2 D+ }, d/ B
Val=LuCal(hFor,pPara); //计算表达式的值* l% i, l& c5 V3 ]\\" w* U
cout<<Val.x<<endl;
2 l8 N9 b) f4 }( h8 \6 S+ F
}
) W4 Z( I( d3 k0 u# A9 Z& i
FreeLu(); //释放Lu1 I7 S2 {5 j( h& V% ~; e0 \\\" A\\" q7 x
}

#include <windows.h>6 |: W' L( o' x' ~) e

#include <iostream> 
* ^/ f! a% H) U5 L+ x, ?
#include <math.h> 
; k. q: x* E5 J* M/ Z4 V0 E+ h
#include "lu32.h"  //Lu头文件 
2 _. D+ f) M; @8 Q6 e1 s9 s) C4 E
9 N8 X) L6 L5 z

#pragma comment( lib, "lu32.lib" )4 H& l; ]  K2 h/ z- s

9 u$ T+ c$ }* v3 S
using namespace std; 
2 b6 [2 \+ O) M( X0 ^
 
8 d7 h3 e5 O# Q, l' C* Z% ?& m
void main(void)- a7 N5 H& S! I' u% l4 Q: i/ k: }

{ 
; R( Y\\" {- c5 h2 i
    void *hFor;    //表达式句柄: Z7 {, J  c1 n+ L\\" P

luINT nPara;   //存放表达式的自变量个数' U- }$ q$ q1 f# z0 V, L6 t

LuData *pPara; //存放输入自变量的数组指针5 ]) z( M& o& i* B$ o/ ?4 N6 b

LuData Val;    //存放表达式的值7 v5 w% k1 }3 Q4 C, P2 |

luINT ErrBegin,ErrEnd; //表达式编译出错的初始位置和结束位置, {8 Y' K$ R4 h1 C) j: |

int ErrCode;   //错误代码8 c+ i: S) P; h  L2 G

wchar_t ForStr[]=L"f(x,y)=x+y"; //字符串表达式 
8 t# J8 O, X. \, e' F5 ]# f
    int i;1 |- r\\" O3 B7 D, Q

4 s+ g- \& X! s9 q- K5 j5 v
    if(!InitLu()) return; //初始化Lu  Y( a1 U% q/ O( j

2 i, _) K& }0 I9 D! n6 B7 d) ]
    ErrCode=LuCom(ForStr,0,0,0,hFor,nPara,pPara,ErrBegin,ErrEnd); //编译表达式 
+ k6 l7 r4 d! \' \\\" P# O0 O
    if(ErrCode)( f- |2 D8 v- H

{8 H8 Q) U; I. r$ L, t

cout<<"表达式有错误！错误代码："<<ErrCode<<endl;( a7 f; A/ t/ a5 L. x7 S# j0 ]! ^

}' j5 w/ b5 j5 b8 Y- ]% S% m1 _

else9 @) |2 f1 ]4 C2 v# e, K

{+ }* n- M* b' W0 _1 v! O# a\\" ?

for(i=0;i<=nPara;i++) //表达式自变量赋值，均赋值为1 
/ P  D& ?) ^/ t
        { 
; S# ?# z8 ]  P& F
            pPara[i].BType=luStaData_int64; pPara[i].VType=luStaData_int64; pPara[i].x=1;6 k/ v2 r  c( L; e

} 
- ]4 i) r8 D5 [* g5 s2 D+ }, d/ B
        Val=LuCal(hFor,pPara); //计算表达式的值* l% i, l& c5 V3 ]\\" w* U

cout<<Val.x<<endl; 
2 l8 N9 b) f4 }( h8 \6 S+ F
    } 
) W4 Z( I( d3 k0 u# A9 Z& i
    FreeLu();      //释放Lu1 I7 S2 {5 j( h& V% ~; e0 \\\" A\\" q7 x

}

运行结果：

2
请按任意键继续. . .

zan

comment, include, return, 表达式