October 11, 2017 at 1:06 pm
inaamqazi
Subscriber

/NOPR   ! Suppress printing of UNDO process 


/PMACRO ! Echo following commands to log    


FINISH  ! Make sure we are at BEGIN level   


/CLEAR,NOSTART  ! Clear model since no SAVE found   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


! WE SUGGEST YOU REMOVE THIS LINE AND THE FOLLOWING STARTUP LINES   


!*  


!*  


/NOPR   


KEYW,PR_SET,1   


KEYW,PR_STRUC,1 


KEYW,PR_THERM,0 


KEYW,PR_FLUID,0 


KEYW,PR_ELMAG,0 


KEYW,MAGNOD,0   


KEYW,MAGEDG,0   


KEYW,MAGHFE,0   


KEYW,MAGELC,0   


KEYW,PR_MULTI,0 


/GO 


!*  


!*  


/PREP7  


!*  


ET,1,BEAM188


!*  


KEYOPT,1,1,0


KEYOPT,1,2,0


KEYOPT,1,3,3


KEYOPT,1,4,0


KEYOPT,1,6,0


KEYOPT,1,7,0


KEYOPT,1,9,0


KEYOPT,1,11,0   


KEYOPT,1,12,0   


KEYOPT,1,15,0   


!*  


!*  


MPTEMP,,,,,,,,  


MPTEMP,1,0  


MPDATA,EX,1,,33500  


MPDATA,PRXY,1,,0.15 


SECTYPE,   1, BEAM, RECT, , 0   


SECOFFSET, CENT 


SECDATA,1500,5000,0,0,0,0,0,0,0,0,0,0   


N,1,0,0,,,,,


N,101,0,4400,,,,,   


!*  


FILL,1,101,99, , ,1,1,1,


!*  


/ZOOM,1,SCRN,0.341257,-0.888843,0.351177,-0.938430  


FLST,2,2,1  


FITEM,2,1   


FITEM,2,2   


E,P51X  


/AUTO,1 


/REP,FAST   


/ZOOM,1,SCRN,0.356137,-0.898760,0.385896,-0.935950  


FLST,4,1,2,ORDE,1   


FITEM,4,1   


EGEN,100,1,P51X, , , , , , , , , , ,


EPLOT   


/AUTO,1 


/REP,FAST   


FLST,2,1,1,ORDE,1   


FITEM,2,1   


!*  


/GO 


D,P51X, , , , , ,UY,ROTZ, , , , 


FLST,2,1,1,ORDE,1   


FITEM,2,101 


!*  


/GO 


D,P51X, , , , , ,UX, , , , ,


DSYM,SYMM,Z, ,  


!*  


FINISH  


/SOL


FLST,2,1,1,ORDE,1   


FITEM,2,101 


!*  


/GO 


F,P51X,FY,-1


!*  


ANTYPE,0


PSTRES,1


/STATUS,SOLU


SOLVE   


FINISH  


/POST1  


PLDISP,1


/VIEW,1,1,1,1   


/ANG,1  


/REP,FAST   


/AUTO,1 


/REP,FAST   


/DIST, 1 ,1.082226,1


/REP,FAST   


/DIST, 1 ,1.082226,1


/REP,FAST   


FINISH  


/SOL


!*  


ANTYPE,1


!*  


BUCOPT,LANB,5,0,0,CENTER


MXPAND,5,0,0,0,0.001,   


/STATUS,SOLU


SOLVE   


FINISH  


/POST1  


SET,LIST,999


SET,,, ,,, ,1   


/REPLOT 


SET,LIST,999


SET,,, ,,, ,1   


SET,LIST,999


/USER,  1   


/REPLO  


/REPLO  


FINISH  


/SOL


!*  


ANTYPE,0


FLST,2,1,1,ORDE,1   


FITEM,2,2   


!*  


/GO 


F,P51X,FX,3600000   


!*  


/PSF,PRES,NORM,2,0,1


/PBF,DEFA, ,1   


/PSYMB,CS,0 


/PSYMB,NDIR,0   


/PSYMB,ESYS,0   


/PSYMB,LDIV,0   


/PSYMB,LDIR,0   


/PSYMB,ADIR,0   


/PSYMB,ECON,0   


/PSYMB,XNODE,0  


/PSYMB,DOT,1


/PSYMB,PCONV,   


/PSYMB,LAYR,0   


/PSYMB,FBCS,0   


!*  


/PBC,ALL, ,1


/REP


!*  


/ZOOM,1,SCRN,0.283175,0.813653,0.376187,0.650922


!*  


/PSF,PRES,NORM,2,0,1


/PBF,DEFA, ,1   


/PSYMB,CS,0 


/PSYMB,NDIR,0   


/PSYMB,ESYS,0   


/PSYMB,LDIV,0   


/PSYMB,LDIR,0   


/PSYMB,ADIR,0   


/PSYMB,ECON,0   


/PSYMB,XNODE,0  


/PSYMB,DOT,1


/PSYMB,PCONV,   


/PSYMB,LAYR,0   


/PSYMB,FBCS,0   


!*  


/PBC,ALL, ,1


/REP


!*  


FLST,2,1,1,ORDE,1   


FITEM,2,101 


!*  


/GO 


F,P51X,FY,-2500000  


ANTYPE,0


NLGEOM,1


NSUBST,2000,0,0 


OUTRES,ERASE


OUTRES,ALL,ALL  


AUTOTS,1


NEQIT,2100  


RESCONTRL,DEFINE,ALL,ALL,-1 


/STATUS,SOLU


SOLVE   


FINISH  


/POST1  


PLDISP,1


/VIEW,1,1,1,1   


/ANG,1  


/REP,FAST   


/AUTO,1 


/REP,FAST   


!*  


/EFACET,1   


PLNSOL, U,SUM, 0,1.0


! SET,LIST,999  


SET,,, ,,, ,205 


/REPLOT 


FINISH  


/POST26 


FILE,'file','rst','.'   


/UI,COLL,1  


NUMVAR,200  


SOLU,191,NCMIT  


STORE,MERGE 


FILLDATA,191,,,,1,1 


REALVAR,191,191 


/DIST, 1 ,1.082226,1


/REP,FAST   


/DIST, 1 ,1.082226,1


/REP,FAST   


/DIST, 1 ,1.082226,1


/REP,FAST   


!*  


NSOL,2,1,U,X, UX_4, 


STORE,MERGE 


!*  


RFORCE,3,1,F,Y, FY_3


STORE,MERGE 


FINISH  


/AUX12  


FINISH  


/POST26 


NUMVAR,200  


FILLDATA,191,,,,1,1 


REALVAR,191,191 


XVAR,2  


PLVAR,3,


XVAR,2  


PLVAR,3,


NUMVAR,200  


FILLDATA,191,,,,1,1 


REALVAR,191,191 


XVAR,2  


PLVAR,3,


FINISH  


/POST1  


!*  


PRNSOL,U,COMP   


)/GOP    ! Resume printing after UNDO process   


)! We suggest a save at this point  


Â