/TITLE, Your name and date here, bracket.a /COM, *** BUILD THE MODEL *** /FILNAME,modling /UNITS,BIN ! Input will be in inches, pounds-force, seconds, etc. /SHOW, ! Specify graphics driver for interactive run /PREP7 ! preprocessor section ET,1,SHELL93 ! 8-node structural shell element MP,EX,1,29E6 ! Young's modulus = 30E6 psi (2.07E11 Pa) MP,DENS,1,0.00073 ! Density = 0.00073 lbm-sec^2/in^4 (7807.5 kg/m^3) R,1,0.1 ! Shell thickness = 0.1 in (0.00254 m) ! working plane at (0,3,-2),-1 means don't change view direction WPLANE,-1,0,3,-2 ! WP origin at center of top arch (0,3,-2) RECT,-2,0,0,2 ! Upper-left rectangle (-1,0), (0,1) ! next pcircle makes half circle radius 1, 90-180 degrees PCIRC,1,,90,180 ! Top left arch (to be subtracted from rectangle) APLOT,all ! plot all areas, Not shown here ASBA,1,2 ! Rectangle minus circle WPOFFS,-1.5,1.5 ! WP origin at center of top left hole ! next pcircle makes circle, radius 1/8 PCIRC,.25/2 ! Circle representing top left hole ASBA,3,1 ! Subtracts circle to form the hole WPLANE,-1,-2,5,-2 ! WP origin at top left corner (-2,5,-2) !----- The following graphics commands are optional: ! /PLOPTS,INFO,OFF ! Removes entire legend column ! /PLOPTS,FRAME,OFF ! Removes frame APLOT,all ! plot all areas ! !* add rectangle and curved plate RECT,0,1,-2,-5 ! Rectangular side strip LSEL,S,LOC,Y,0 ! Select line at bottom of side strip and ... *GET,ROTLINE,LINE,,NUM,MAX ! ... get line number LSEL,ALL K,101 ! Keypoints to define axis for AROTAT K,102,-0.5 AROTAT,ROTLINE,,,,,,101,102,45 ! Area by line rotation AGLUE,ALL ! Glues all areas together /VIEW,,-1,1,1 APLOT ! ! Meshing ! define cylindrical coord system at (-1.5,4.5,-2) LOCAL,11,1,-1.5,4.5,-2 ! Local cylindrical c.s. at hole LSEL,S,LOC,X,.25/2 ! Selects all lines around the hole LESIZE,ALL,,,2 ! 2 divisions on all selected lines LSEL,ALL CSYS,0 ! back to cartesian coord KSEL,S,LOC,X,-2 ! Selects top-left corner keypoint KSEL,R,LOC,Y,5 KESIZE,ALL,0.4 ! Element size of 0.3 at corner keypoint KSEL,ALL ESIZE,0.7 ! Default element size for all other lines SAVE ! Save the database before meshing! AMESH,ALL ! Action command to mesh areas EPLOT ! ! The rest of the bracket will be generated by symmetry reflection SAVE ! Save before starting ARSYM,X,ALL ! Symmetry reflection of all areas about Y-Z plane ! (includes nodes and elements) NUMMRG,ALL ! Merges all duplicate entities EPLOT ! SAVE ! define cartesian coord system at (0,0,0), rotate x axis -45 deg LOCAL,11,0,0,0,0,,-45 ! Rotated local c.s. for 90-degree reflection ARSYM,Y,ALL ! Reflection about rotated X-Z plane NUMMRG,ALL ! Merges all duplicate entities EPLOT ! SAVE ! Now define components for future use ! define cylindrical coord system at (-1.5,4.5,-2) LOCAL,11,1,-1.5,4.5,-2 ! Local cylindrical c.s. at top left hole LSEL,S,LOC,X,.25/2 ! Selects lines around the hole NSLL,S,1 ! Selects all nodes around the hole CM,TL_BOLT,NODE ! Component name = TL_BOLT, made of nodes ! define cylindrical coord system at (1.5,4.5,-2) LOCAL,11,1,1.5,4.5,-2 ! Local cylindrical c.s. at top right hole LSEL,S,LOC,X,.25/2 NSLL,S,1 CM,TR_BOLT,NODE ! Component name = TR_BOLT ! define cylindrical coord system at (-1.5,2,4.5,), rotate -90 deg LOCAL,11,1,-1.5,-2,4.5,,-90 ! Local cylindrical c.s. at bottom left hole LSEL,S,LOC,X,.25/2 NSLL,S,1 CM,BL_BOLT,NODE ! Component name = BL_BOLT ! define cylindrical coord system at (1.5,-2,4.5,), rotate -90 deg LOCAL,11,1,1.5,-2,4.5,,-90 ! Local cylindrical c.s. at bottom right hole LSEL,S,LOC,X,.25/2 NSLL,S,1 CM,BR_BOLT,NODE ! Component name = BR_BOLT ALLSEL ! Restores full sets of all entities CSYS,0 ! cartesean coord SAVE ! FINISH ! preprocessor section