解吸塔.docVIP

Option Base 1 Const n As Integer = 1 输出个数 Const m As Integer = 1 输入个数 Const d As Integer = 1000 系统最大时滞 Dim ts1 As Single 采样时间 Dim tr1 As Single 参考轨迹柔化系数 Dim H1 As Single 预测时域长度 Dim ts2 As Single 采样时间 Dim tr2 As Single 参考轨迹柔化系数 Dim H2 As Single 预测时域长度 Dim ts3 As Single 采样时间 Dim tr3 As Single 参考轨迹柔化系数 Dim H3 As Single 预测时域长度 标志位定义 Dim APC_COM As Integer Dim AP As C_ONInteger Dim APC_1_ON As Integer Dim TIC_623_STA As Integer Dim LIC_628_STA As Integer Dim LIC_624_STA As Integer 模型参数 Dim K1 As Single Dim T1 As Single Dim TAO1 As Single Dim K2 As Single Dim T2 As Single Dim TAO2 As Single Dim K3 As Single Dim T3 As Single Dim TAO3 As Single Dim KM1 As Single Dim TM1 As Single Dim TAOM1 As Single Dim KM2 As Single Dim TM2 As Single Dim TAOM2 As Single Dim KM3 As Single Dim TM3 As Single Dim TAOM3 As Single Dim K(n, m) As Single Dim t(n, m) As Single Dim tao(n, m) As Single Dim km(n, m) As Single Dim tm(n, m) As Single Dim taom(n, m) As Single 变量定义 Dim I As Integer Dim J As Integer Dim g As Integer Dim AA1(n, m) As Single Dim AA2(n, m) As Single Dim AA3(n, m) As Single Dim BB1(n, 1) As Single Dim BB2(n, 1) As Single Dim BB3(n, 1) As Single Dim b1(n) As Single Dim b2(n) As Single Dim b3(n) As Single Dim a1(n, m) As Single Dim a2(n, m) As Single Dim a3(n, m) As Single Dim am1(n, m) As Single Dim am2(n, m) As Single Dim am3(n, m) As Single Dim L1(n, m) As Single Dim L2(n, m) As Single Dim L3(n, m) As Single Dim Lm1(n, m) As Single Dim Lm2(n, m) As Single Dim Lm3(n, m) As Single Dim Z1 As Single Dim Z2 As Single Dim Z3 As Single Dim c1 As Single Dim c2 As Single Dim c3 As Single Dim piduu1 As Single Dim piduu2 As Single Dim piduu3 As Single Dim pidsv1 As Single Dim pidsv2 As Single Dim pidsv3 As Single Dim olduu1 As Single Dim olduu2 As Single Dim olduu3 As Single Dim pidy1 As Single Dim pidy2 As Single Dim pidy3 As Single Dim ym1(n, m) As Single 模型输出 （三个模型） Dim ym11(n, m, d) As Singl