脱丙烷塔Word格式.docx

脱丙烷塔Word格式.docx

《脱丙烷塔Word格式.docx》由会员分享，可在线阅读，更多相关《脱丙烷塔Word格式.docx（27页珍藏版）》请在冰豆网上搜索。

DimDV_2_STAAsInteger

模型参数

DimK11,K12,K13,K21,K22,K23,K31,K32,K33AsSingle

DimT11,T12,T13,T21,T22,T23,T31,T32,T33AsSingle

DimTAO11,TAO12,TAO13,TAO21,TAO22,TAO23,TAO31,TAO32,TAO33AsSingle

DimKM11,KM12,KM13,KM21,KM22,KM23,KM31,KM32,KM33AsSingle

DimTM11,TM12,TM13,TM21,TM22,TM23,TM31,TM32,TM33AsSingle

DimTAOM11,TAOM12,TAOM13,TAOM21,TAOM22,TAOM23,TAOM31,TAOM32,TAOM33AsSingle

DimK（n,m）AsSingle

Dimt（n,m）AsSingle

Dimtao（n,m）AsSingle

Dimkm（n,m）AsSingle

Dimtm（n,m）AsSingle

Dimtaom（n,m）AsSingle

变量定义

DimIAsInteger

DimJAsInteger

DimgAsInteger

DimAA（n,m）AsSingle

DimAAA（）AsSingle

DimBB（n,1）AsSingle

Dimb（n）AsSingle

Dima（n,m）AsSingle

Dimam（n,m）AsSingle

DimL（n,m）AsSingle

DimLm（n,m）AsSingle

Dimc（n）AsSingle

Dimpiduu1AsSingle

Dimpiduu2AsSingle

Dimpiduu3AsSingle

Dimym（n,m）AsSingle'

模型输出

Dimym1（n,m,d）AsSingle'

模型上次输出

Dimy0AsSingle

Dimyp0AsSingle

Dimyp（n）AsSingle'

过程输出

Dimy（n,m）AsSingle

Dimypav（n）AsSingle

Dimymm0AsSingle

Dimym0（n）AsSingle

DimY1（n,m,1）AsSingle

Dimu1（m,d）AsSingle

Dimuu（m）AsSingle

力控数据通讯所需参数

Dimread_datas（22）AsDouble'

读数据数组

DimreadtagAsString

Dimread_dataAsLong

Dimwrite_datas（6）AsDouble'

写数据数组

DimwritetagAsString

Dimwrite_dataAsLong

PrivateSubForm_Load（）

过程参数

K11=4.05:

T11=50:

TAO11=2

K12=1.77:

T12=60:

TAO12=3

K13=5.88:

T13=50:

TAO13=2

K21=5.39:

T21=50:

TAO21=3

K22=5.72:

T22=60:

TAO22=2

K23=6.9:

T23=40:

TAO23=3

K31=4.38:

T31=33:

TAO31=2

K32=4.42:

T32=44:

TAO32=3

K33=7.52:

T33=19:

TAO33=3

K（1,1）=K11:

K（1,2）=K12:

K（1,3）=K13:

K（2,1）=K21:

K（2,2）=K22:

K（2,3）=K23:

K（3,1）=K31:

K（3,2）=K32:

K（3,3）=K33

t（1,1）=T11:

t（1,2）=T12:

t（1,3）=T13:

t（2,1）=T21:

t（2,2）=T22:

t（2,3）=T23:

t（3,1）=T31:

t（3,2）=T32:

t（3,3）=T33

tao（1,1）=TAO11:

tao（1,2）=TAO12:

tao（1,3）=TAO13:

tao（2,1）=TAO21:

tao（2,2）=TAO22:

tao（2,3）=TAO23:

tao（3,1）=TAO31:

tao（3,2）=TAO32:

tao（3,3）=TAO33

Text29.Text=Val（K（1,1））:

Text30.Text=Val（K（1,2））:

Text31.Text=Val（K（1,3））:

Text32.Text=Val（K（2,1））:

Text33.Text=Val（K（2,2））:

Text34.Text=Val（K（2,3））:

Text35.Text=Val（K（3,1））:

Text36.Text=Val（K（3,2））:

Text37.Text=Val（K（3,3））

Text38.Text=Val（t（1,1））:

Text39.Text=Val（t（1,2））:

Text40.Text=Val（t（1,3））:

Text41.Text=Val（t（2,1））:

Text42.Text=Val（t（2,2））:

Text43.Text=Val（t（2,3））:

Text44.Text=Val（t（3,1））:

Text45.Text=Val（t（3,2））:

Text46.Text=Val（t（3,3））

Text47.Text=Val（tao（1,1））:

Text48.Text=Val（tao（1,2））:

Text49.Text=Val（tao（1,3））:

Text50.Text=Val（tao（2,1））:

Text51.Text=Val（tao（2,2））:

Text52.Text=Val（tao（2,3））:

Text53.Text=Val（tao（3,1））:

Text54.Text=Val（tao（3,2））:

Text55.Text=Val（tao（3,3））

KM11=4.05:

TM11=50:

TAOM11=2

KM12=1.77:

TM12=60:

TAOM12=3

KM13=5.88:

TM13=50:

TAOM13=2

KM21=5.39:

TM21=50:

TAOM21=3

KM22=5.72:

TM22=60:

TAOM22=2

KM23=6.9:

TM23=40:

TAOM23=3

KM31=4.38:

TM31=33:

TAOM31=2

KM32=4.42:

TM32=44:

TAOM32=3

KM33=7.52:

TM33=19:

TAOM33=3

km（1,1）=KM11:

km（1,2）=KM12:

km（1,3）=KM13:

km（2,1）=KM21:

km（2,2）=KM22:

km（2,3）=KM23:

km（3,1）=KM31:

km（3,2）=KM32:

km（3,3）=KM33

tm（1,1）=TM11:

tm（1,2）=TM12:

tm（1,3）=TM13:

tm（2,1）=TM21:

tm（2,2）=TM22:

tm（2,3）=TM23:

tm（3,1）=TM31:

tm（3,2）=TM32:

tm（3,3）=TM33

taom（1,1）=TAOM11:

taom（1,2）=TAOM12:

taom（1,3）=TAOM13:

taom（2,1）=TAOM21:

taom（2,2）=TAOM22:

taom（2,3）=TAOM23:

taom（3,1）=TAOM31:

taom（3,2）=TAOM32:

taom（3,3）=TA0M33

初始化变量

ForI=1Ton

ForJ=1Tom

ym（I,J）=0

y（I,J）=0

uu（J）=0

Forg=1Tod

ym1（I,J,g）=0

Next

yp（I）=0

ypav（I）=0

ym0（I）=0

Next

piduu1=0

piduu2=0

piduu3=0

EndSub

PrivateSubTimer1_Timer（）

从力控读数据

readtag="

T_APC_TS.pv,T_APC_H1.pv,T_APC_H2.pv,T_APC_H3.pv,T_APC_TR1.pv,T_APC_TR2.pv,T_APC_TR3.pv,TI_707_1_SP.pv,TIC_706_SP.pv,LIC_703_SP.pv,APC_COM.pv,APC_ON.pv,APC_2_ON.pv,T_APC_STA.pv,FIC_730_MV.pv,TIC_706_MV.pv,FIC_704_MV.pv,FIC_702_DV.pv,TIC_701_DV.pv,PID_U1.pv,PID_U2.pv,PID_U3.pv"

read_data=Dbcom1.GetRealData（22,readtag,read_datas

（1））

Text1.Text=read_datas

（1）

Text2.Text=read_datas

（2）

Text3.Text=read_datas（3）

Text4.Text=read_datas（4）

Text5.Text=read_datas（5）

Text6.Text=read_datas（6）

Text7.Text=read_datas（7）

Text14.Text=r