脱丙烷塔.docx
《脱丙烷塔.docx》由会员分享，可在线阅读，更多相关《脱丙烷塔.docx（27页珍藏版）》请在冰豆网上搜索。
脱丙烷塔
onBase1
ConstnAsInteger=3'输出个数
ConstmAsInteger=3'输入个数
ConstdAsInteger=100'系统最大时滞
DimtsAsSingle'采样时间
Dimtr（n）AsSingle'参考轨迹柔化系数
DimH（n）AsSingle'预测时域长度
'标志位定义
DimAPC_COMAsInteger
DimAPC_ONAsInteger
DimAPC_2_ONAsInteger
DimT_APC_STAAsInteger
DimMV_1_STAAsInteger
DimMV_2_STAAsInteger
DimMV_3_STAAsInteger
DimDV_1_STAAsInteger
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
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
升级会员 