Page 174 - Using ANSYS for Finite Element Analysis Dynamic, Probabilistic, Design and Heat Transfer Analysis
P. 174

apDl programming   •   161

                                 ! LGWRITE,’Tutorial 2’,’lgw’,’C:\A6_ANS~1\
                               FINOPT~1\OPTIMI~1\’,COMMENT
                          After editing
                               /PMETH,OFF,0 ! Setting preference
                               KEYW,PR_SET,1
                               KEYW,PR_STRUC,0
                               KEYW,PR_THERM,1
                               KEYW,PR_FLUID,0
                               KEYW,PR_ELMAG,0
                               KEYW,MAGNOD,0
                               KEYW,MAGEDG,0
                               KEYW,MAGHFE,0
                               KEYW,MAGELC,0
                               KEYW,PR_MULTI,0
                               KEYW,PR_CFD,0
                               /PREP7 ! Enter into preprocessor (PREP7)
                               !*
                               ET,1,PLANE55  !  Set  element  type  with
                           axisymmetric option
                               !*
                               KEYOPT,1,1,0
                               KEYOPT,1,3,1
                               KEYOPT,1,4,0
                               KEYOPT,1,8,0
                               KEYOPT,1,9,0
                               MPTEMP,,,,,,,, ! Enter material properties
                               MPTEMP,1,0
                               MPDATA,KXX,1,,398
                               BLC4,0,0,12.5e-3,1.32 ! Geometric modeling
                               FLST,5,2,4,ORDE,2  ! Divide  lines 2 and 4
                           into 600 divisions
                               FITEM,5,2
                               FITEM,5,4
                               CM,_Y,LINE
                               LSEL, , , ,P51X
                               CM,_Y1,LINE
                               CMSEL,,_Y
                               !*
                               LESIZE,_Y1, , ,600, , , , ,1
                               !*
                               FLST,5,2,4,ORDE,2  ! Divide  lines 1 and 3
                           into 5 divisions
   169   170   171   172   173   174   175   176   177   178   179