x,k2,EcРmp,prxy,k2,0.2Рtb,creep,k2,,,11Рtbdata,1,C1(i),1,0,0,,0Рk2=k2+2Р*enddoРet,1,188Рsectype,1,beam,rect,a1Рsecdata,1,1Рkeyopt,1,1,0Рkeyopt,1,3,3Р! 左边材料属性Рmp,ex,1,EcРmp,prxy,1,0.2Рtb,creep,1,,,11Рtbdata,1,0,0,0,0,0,0Р! 右边材料属性Рmp,ex,2,EcРmp,prxy,2,0.2Рtb,creep,2,,,11Рtbdata,1,0,0,0,0,0,0Р! 建立有限元模型Р*do,i,1,19Рn,i,(i-1)/2Р*enddoР*do,i,1,19Рn,i+19,(i-1)/2+9Р*enddoРtype,1Рmat,1Р*do,i,1,18Рe,i,i+1Р*enddoРtype,1Рmat,2Р*do,i,18,35Рe,i+2,i+2+1Р*enddoРd,1,allРd,38,allРesel,s,,,1,18Рsfbeam,all,,pres,1000Рesel,s,,,19,36Рsfbeam,all,,pres,1000Р/soluРoutres,all,allРrate,offРallsel,allРcrplim,0.25Рbfunif,temp,100Рtime,1e-6РsolveРcpintf,allРrate,onРk1=3Рk2=4Р*do,i,1,nnРesel,s,,,1,18Рmpchg,k1,allРk1=k1+2Рallsel,allРesel,s,,,19,36Рmpchg,k2,allРk2=k2+2Рallsel,allРtime,tt(i)Рnsubst,40РsolveР*enddoРMIDAS计算模型
全文预览
