$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ &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 CUBED $ &describe body CUBED 1/12-0.01 $ $**************************************** Define Coordinates $ **S00061 0.083*%xfac 0.042*%yfac 0.168*%zfac **S00062 0.083*%xfac 0.083*%yfac 0.167*%zfac **S00063 0.083*%xfac 0.083*%yfac 0.083*%zfac **S00064 0.083*%xfac 0.042*%yfac 0.083*%zfac **S00065 0.083*%xfac 0.000*%yfac 0.083*%zfac **S00066 0.083*%xfac 0.000*%yfac 0.167*%zfac **S00067 0.083*%xfac 0.542*%yfac 0.168*%zfac **S00068 0.083*%xfac 0.583*%yfac 0.167*%zfac **S00069 0.083*%xfac 0.583*%yfac 0.083*%zfac **S00070 0.083*%xfac 0.542*%yfac 0.083*%zfac **S00071 0.083*%xfac 0.500*%yfac 0.083*%zfac **S00072 0.083*%xfac 0.500*%yfac 0.167*%zfac **S00073 0.083*%xfac 0.208*%yfac 0.168*%zfac **S00074 0.083*%xfac 0.250*%yfac 0.167*%zfac **S00075 0.083*%xfac 0.250*%yfac 0.083*%zfac **S00076 0.083*%xfac 0.208*%yfac 0.083*%zfac **S00077 0.083*%xfac 0.167*%yfac 0.083*%zfac **S00078 0.083*%xfac 0.167*%yfac 0.167*%zfac **S00079 0.083*%xfac 0.375*%yfac 0.168*%zfac **S00080 0.083*%xfac 0.417*%yfac 0.167*%zfac **S00081 0.083*%xfac 0.417*%yfac 0.083*%zfac **S00082 0.083*%xfac 0.375*%yfac 0.083*%zfac **S00083 0.083*%xfac 0.333*%yfac 0.083*%zfac **S00084 0.083*%xfac 0.333*%yfac 0.167*%zfac **S00001 0.083*%xfac 0.375*%yfac 0.251*%zfac **S00002 0.083*%xfac 0.792*%yfac 0.250*%zfac **S00003 0.083*%xfac 0.792*%yfac **S00004 0.083*%xfac 0.375*%yfac -0.001*%zfac **S00005 0.083*%xfac -0.042*%yfac **S00006 0.083*%xfac -0.042*%yfac 0.250*%zfac **S00007 0.250*%xfac 0.375*%yfac 0.251*%zfac **S00008 0.250*%xfac 0.792*%yfac 0.250*%zfac **S00009 0.250*%xfac 0.792*%yfac **S00010 0.250*%xfac 0.375*%yfac -0.001*%zfac **S00011 0.250*%xfac -0.042*%yfac **S00012 0.250*%xfac -0.042*%yfac 0.250*%zfac **S00019 0.167*%xfac 0.042*%yfac 0.168*%zfac **S00020 0.167*%xfac 0.083*%yfac 0.167*%zfac **S00021 0.167*%xfac 0.083*%yfac 0.083*%zfac **S00022 0.167*%xfac 0.042*%yfac 0.083*%zfac **S00023 0.167*%xfac 0.000*%yfac 0.083*%zfac **S00024 0.167*%xfac 0.000*%yfac 0.167*%zfac **S00055 0.167*%xfac 0.542*%yfac 0.168*%zfac **S00056 0.167*%xfac 0.583*%yfac 0.167*%zfac **S00057 0.167*%xfac 0.583*%yfac 0.083*%zfac **S00058 0.167*%xfac 0.542*%yfac 0.083*%zfac **S00059 0.167*%xfac 0.500*%yfac 0.083*%zfac **S00060 0.167*%xfac 0.500*%yfac 0.167*%zfac **S00031 0.165*%xfac 0.208*%yfac 0.168*%zfac **S00032 0.165*%xfac 0.250*%yfac 0.167*%zfac **S00033 0.165*%xfac 0.250*%yfac 0.083*%zfac **S00034 0.165*%xfac 0.208*%yfac 0.083*%zfac **S00035 0.165*%xfac 0.167*%yfac 0.083*%zfac **S00036 0.165*%xfac 0.167*%yfac 0.167*%zfac **S00043 0.165*%xfac 0.375*%yfac 0.168*%zfac **S00044 0.165*%xfac 0.417*%yfac 0.167*%zfac **S00045 0.165*%xfac 0.417*%yfac 0.083*%zfac **S00046 0.165*%xfac 0.375*%yfac 0.083*%zfac **S00047 0.165*%xfac 0.333*%yfac 0.083*%zfac **S00048 0.165*%xfac 0.333*%yfac 0.167*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define CUBED @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Piece to CUBED $ &describe piece CUBED -diftype 3d $ $**************************************** Define Panels $ PANEL **S00072 **S00067 **S00002 **S00001 **S00006 **S00079 **S00080 PANEL **S00068 **S00069 **S00003 **S00002 PANEL **S00069 **S00070 **S00004 **S00003 PANEL **S00070 **S00071 **S00081 **S00082 **S00004 PANEL **S00006 **S00061 **S00073 **S00079 PANEL **S00006 **S00005 **S00065 **S00066 PANEL **S00005 **S00004 **S00064 **S00065 PANEL **S00004 **S00082 **S00076 **S00064 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