$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ &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 CUBE3 $ &describe body CUBE3 -poi $ $**************************************** Define Coordinates $ **S00025 0.083*%xfac 0.000*%yfac 0.167*%zfac **S00026 0.083*%xfac 0.080*%yfac 0.083*%zfac **S00027 0.169*%xfac 0.000*%yfac 0.083*%zfac **S00028 0.083*%xfac 0.080*%yfac 0.166*%zfac **S00029 0.169*%xfac 0.000*%yfac 0.167*%zfac **S00030 0.169*%xfac 0.080*%yfac 0.083*%zfac **S00013 0.083*%xfac 0.083*%yfac 0.251*%zfac **S00014 0.083*%xfac 0.167*%yfac 0.250*%zfac **S00015 0.083*%xfac 0.167*%yfac 0.083*%zfac **S00016 0.083*%xfac 0.083*%yfac 0.083*%zfac **S00018 0.083*%xfac 0.000*%yfac 0.250*%zfac **S00019 0.250*%xfac 0.083*%yfac 0.251*%zfac **S00020 0.250*%xfac 0.167*%yfac 0.250*%zfac **S00021 0.250*%xfac 0.167*%yfac 0.083*%zfac **S00022 0.250*%xfac 0.083*%yfac 0.083*%zfac **S00023 0.250*%xfac 0.000*%yfac 0.083*%zfac **S00024 0.250*%xfac 0.000*%yfac 0.250*%zfac **S00008 0.169*%xfac 0.080*%yfac 0.166*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define CUBE3 @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Piece to CUBE3 $ &describe piece CUBE3 -diftype 3d $ $**************************************** Define Panels $ PANEL **S00028 **S00026 **S00015 PANEL **S00018 **S00028 **S00015 **S00014 PANEL **S00013 **S00014 **S00020 **S00019 PANEL **S00014 **S00015 **S00021 **S00020 PANEL **S00015 **S00016 **S00022 **S00021 PANEL **S00029 **S00025 **S00018 PANEL **S00024 **S00023 **S00029 PANEL **S00018 **S00024 **S00029 PANEL **S00018 **S00013 **S00019 **S00024 PANEL **S00019 **S00020 **S00021 **S00022 **S00023 **S00024 PANEL **S00026 **S00028 **S00008 **S00030 $ $**************************************** Finish Up $ &dimen -remember &default -remember