$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ &SURFACE Results @ $@ @ $@ block debugging @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Dimensions $ &dimen -save -dimen Feet Kips $ $**************************************** Defaults $ &LOCAL xfac = 1 yfac = 1 zfac = 1 &default -save &default -fyield 36 -alpha 6.5E-6 -density 490 -emodulus 2.9E4 -poi_ratio 0.3 \ -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @ $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define Points @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set factors $ &set xfac = 1 &set yfac = 1 &set zfac = 1 $ $**************************************** Set body to CUBE5 $ &describe body CUBE5 1/12-0.01 $ $**************************************** Define Coordinates $ **S00037 0.083*%xfac 0.125*%yfac 0.168*%zfac **S00038 0.083*%xfac 0.167*%yfac 0.167*%zfac **S00039 0.083*%xfac 0.167*%yfac 0.083*%zfac **S00040 0.083*%xfac 0.125*%yfac 0.083*%zfac **S00041 0.083*%xfac 0.083*%yfac 0.083*%zfac **S00042 0.083*%xfac 0.083*%yfac 0.167*%zfac **S00043 0.083*%xfac -0.125*%yfac 0.168*%zfac **S00044 0.083*%xfac -0.083*%yfac 0.167*%zfac **S00045 0.083*%xfac -0.083*%yfac 0.083*%zfac **S00046 0.083*%xfac -0.125*%yfac 0.083*%zfac **S00047 0.083*%xfac -0.167*%yfac 0.083*%zfac **S00048 0.083*%xfac -0.167*%yfac 0.167*%zfac **S00001 0.083*%xfac 0.000*%yfac 0.251*%zfac **S00002 0.083*%xfac 0.250*%yfac 0.250*%zfac **S00003 0.083*%xfac 0.250*%yfac **S00004 0.083*%xfac 0.000*%yfac -0.001*%zfac **S00005 0.083*%xfac -0.250*%yfac **S00006 0.083*%xfac -0.250*%yfac 0.250*%zfac **S00007 0.250*%xfac 0.000*%yfac 0.251*%zfac **S00008 0.250*%xfac 0.250*%yfac 0.250*%zfac **S00009 0.250*%xfac 0.250*%yfac **S00010 0.250*%xfac 0.000*%yfac -0.001*%zfac **S00011 0.250*%xfac -0.250*%yfac **S00012 0.250*%xfac -0.250*%yfac 0.250*%zfac **S00019 0.167*%xfac 0.125*%yfac 0.168*%zfac **S00020 0.167*%xfac 0.167*%yfac 0.167*%zfac **S00021 0.167*%xfac 0.167*%yfac 0.083*%zfac **S00022 0.167*%xfac 0.125*%yfac 0.083*%zfac **S00023 0.167*%xfac 0.083*%yfac 0.083*%zfac **S00024 0.167*%xfac 0.083*%yfac 0.167*%zfac **S00031 0.167*%xfac -0.125*%yfac 0.168*%zfac **S00032 0.167*%xfac -0.083*%yfac 0.167*%zfac **S00033 0.167*%xfac -0.083*%yfac 0.083*%zfac **S00034 0.167*%xfac -0.125*%yfac 0.083*%zfac **S00035 0.167*%xfac -0.167*%yfac 0.083*%zfac **S00036 0.167*%xfac -0.167*%yfac 0.167*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define CUBE5 @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Piece to CUBE5 $ &describe piece CUBE5 -diftype 3d $ $**************************************** Define Panels $ PANEL **S00039 **S00040 **S00005 **S00004 **S00003 PANEL **S00040 **S00041 **S00045 **S00046 **S00005 PANEL **S00041 **S00042 **S00001 **S00044 **S00045 PANEL **S00042 **S00037 **S00002 **S00001 PANEL **S00038 **S00039 **S00003 **S00002 PANEL **S00001 **S00006 **S00043 **S00044 PANEL **S00047 **S00048 **S00006 **S00005 PANEL **S00001 **S00002 **S00008 **S00007 PANEL **S00002 **S00003 **S00009 **S00008 PANEL **S00003 **S00004 **S00010 **S00009 PANEL **S00004 **S00005 **S00011 **S00010 PANEL **S00005 **S00006 **S00012 **S00011 PANEL **S00006 **S00001 **S00007 **S00012 PANEL **S00007 **S00008 **S00009 **S00010 **S00011 **S00012 $ $**************************************** Finish Up $ &dimen -remember &default -remember