finish /clear,nostart /PREP7 !* deltaT=4 ET,1,LINK180 !* R,1,100, , !* E1=3200 E2=4000 eta2=50000 E3=E1*E2/(E1+E2) E4=E1-E3 eta4=eta2*E4/(E1+E2) nsub=200 nth_sub=1 E0=E3+E4 alfa1=E4/E0 t1=eta4/E4 !* MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,1,,E0 MPDATA,PRXY,1,,0.3 TB,PRONY,1,1,1,SHEAR TBTEMP,0 TBDATA,,alfa1,t1,,,, TB,SHIFT,1,1,3,1 TBTEMP,0 TBDATA,,120,17,52,,, N,1,0,0,0,0,0,0, N,2,1000,0,0,0,0,0, FLST,2,2,1 FITEM,2,1 FITEM,2,2 E,P51X !* /CFORMAT,32,0 /CFORMAT,32,0 !* FINISH /SOL !* ANTYPE,0 !* TUNIF,120+deltaT, TIME,50 AUTOTS,-1 NSUBST,nsub, , ,1 KBC,1 !* TSRES,ERASE OUTRES,ALL,nth_sub, FLST,2,1,1,ORDE,1 FITEM,2,1 !* /GO D,P51X, , , , , ,UX,UY, , , , FLST,2,1,1,ORDE,1 FITEM,2,2 !* /GO D,P51X, , , , , ,UY, , , , , FLST,2,1,1,ORDE,1 FITEM,2,2 !* /GO F,P51X,FX,10000 ! /STATUS,SOLU lswrite,1 TIME,100 AUTOTS,-1 NSUBST,nsub, , ,1 KBC,1 !* TSRES,ERASE OUTRES,ALL,nth_sub, FLST,2,1,1,ORDE,1 FITEM,2,1 !* /GO D,P51X, , , , , ,UX,UY, , , , FLST,2,1,1,ORDE,1 FITEM,2,2 !* /GO D,P51X, , , , , ,UY, , , , , FLST,2,1,1,ORDE,1 FITEM,2,2 !* /GO F,P51X,FX,0 lswrite,2 lssolve,1,2,1 FINISH /POST26 FILE,'','rst','.' /UI,COLL,1 NUMVAR,400 SOLU,191,NCMIT STORE,MERGE FILLDATA,191,,,,1,1 REALVAR,191,191 !* NSOL,3,2,U,X,UX_2 STORE,MERGE XVAR,1 PLVAR,3,