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

188  •   using ansys for finite eLement anaLysis
                     1.  Choose menu path Utility Menu> File> Clear & Start New.
                        Click on OK.
                     2.  When the Verify dialog box appears, click Yes.
                     3.  Change the jobname. Choose menu path Utility Menu> File>
                        Change Jobname. The Change Jobname dialog box appears.
                     4.  Change the jobname to hexplate and click on OK.
                     5.  Choose menu path Utility Menu> File> Read Input from. In
                        the Files list, click on hexplate.lgw. Then click on OK. You see
                        a replay of the entire analysis. Click on Close when the “Solu-
                        tion is done!” message appears.

                     ! *******************************
                     ! First Pass: Create analysis file.
                     ! ********************************
                     *create,hexplate
                     !
                     ! GEOMETRY (in mm)
                     !-----------------
                     *afun,deg !Degree units for trig. functions
                     inrad=200*cos(30)-20 ! Inner radius
                     t1=30 ! Thickness
                     fil=10 ! Fillet radius
                     /prep7
                     ! Create the three bounding annuli
                     cyl4,-200,,inrad,-30,inrad+t1,30
                     cyl4,200*cos(60),200*sin(60),inrad,-
                     90,inrad+t1,-150
                     cyl4,200*cos(60),200*sin(-
                     60),inrad,90,inrad+t1,150
                     aplot
                     aadd,all
                     adele,all ! Delete area, keep lines
                     lplot
                     ! Fillets on inner slot
                     lsel,,radius,,inrad+t1 ! Select inner arcs
                     l1 = lsnext(0) ! Get their line numbers
                     l2 = lsnext(l1)
                     l3 = lsnext(l2)
                     lfillet,l1,l2,fil ! Fillets
                     lfillet,l2,l3,fil
                     lfillet,l3,l1,fil
   196   197   198   199   200   201   202   203   204   205   206