下载手机汽配人

调速器参数稳定域程序

调速器参数稳定域程序如何书写
提问者:网友 2018-07-31
最佳回答
DIMENSION PS(4,10),HW(13),HWM(4),bb(2,500000),bbb(2,2000) DIMENSION PS1(14),FTH(4),ZZ(3),P10(4),NZ(50000),NX(10) REAL SP1,P2 COMMON TWw(3) /T/T(3) /R/R(3) real ZT,en,bp,r1,tn,ta,eh,ex,ey,eqh,eqx,eqy ,TF,tw,rt,a,b,c,a1 1,b1,c1,d1,a2,b2,c2,d2,a3,b3,c3,d3,a4,b4,c4,d4,e1,e2,e3,e4,e5,e6,e7 2 ,e8,e0,ee1,ee2,ee3,ee4,k1,k2 OPEN(7,FILE='so1.DAT',STATUS='OLD') READ(7,*)M2,M3 READ(7,*)((PS(I,J),J=1,4),I=1,2) READ(7,*)en,bp,bt,td,tn,ta,DTBT,DTTD READ(7,*)eh,ex,ey,eqh,eqx,eqy,tf,tw,rt,k1,k2 READ(7,*)bt2,td2 CLOSE(7) C ************************************************************** C CALOUATI0N OF STABILITY C ************************************************************** DO 35 L=1,2 TWw(L)=PS(L,2) R(L)=PS(L,3) 35 CONTINUE B=1/ta*(ey-eh*eqy/eqh) A=1/ta*(-en-eh*eqx/eqh) C=eh/ta/eqh A1=1/tww(1) B1=-1/tww(1)*(1/eqh+r(1)) D1=eqx/(tww(1)*eqh) C1=eqy/(tww(1)*eqh) A2=1/tww(2); B2=-1/tww(2)*(1/eqh+r(2)) D2=eqx/(tww(2)*eqh) C2=eqy/(tww(2)*eqh) OPEN(4,FILE='bt-td.DAT') btt=bt DD=TD g=0 63 II=0 zn1=0.0 zn2=0.0 DO 200 J=1,M2 bt=btt+(J-1
回答者:网友
产品精选
在移动端查看: 调速器参数稳定域程序
搜索问答
还没有汽配人账号?立即注册

我要提问

汽配限时折扣

本页是网友提供的关于“调速器参数稳定域程序”的解答,仅供您参考,汽配人网不保证该解答的准确性。