$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ &SURFACE Results @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** 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 ANS4 $ &describe body ANS4 -fact 0 -peri_use 6 $ $**************************************** Define Coordinates $ *PNT0001 0.000*%xfac -45.000*%yfac *PNT0002 0.000*%xfac -45.000*%yfac 20.000*%zfac *PNT0003 -0.000*%xfac -45.001*%yfac 30.000*%zfac *PNT0004 -0.000*%xfac -45.001*%yfac 70.000*%zfac *PNT0005 0.000*%xfac 0.000*%yfac -0.001*%zfac *PNT0006 0.000*%xfac 0.000*%yfac 20.001*%zfac *PNT0007 -0.000*%xfac -0.001*%yfac 29.999*%zfac *PNT0008 -0.000*%xfac -0.001*%yfac 70.001*%zfac *PNT0009 -0.000*%xfac 44.999*%yfac 30.000*%zfac *PNT0010 -0.000*%xfac 44.999*%yfac 70.000*%zfac *PNT0011 0.000*%xfac 45.000*%yfac *PNT0012 0.000*%xfac 45.000*%yfac 20.000*%zfac *PNT1001 25.000*%xfac -0.001*%yfac 29.999*%zfac *PNT1002 25.000*%xfac -22.500*%yfac 20.000*%zfac *PNT1003 25.000*%xfac -22.500*%yfac 30.000*%zfac *PNT1004 25.000*%xfac 0.000*%yfac 20.001*%zfac *PNT1005 25.000*%xfac 11.249*%yfac 29.999*%zfac *PNT1006 25.000*%xfac 22.500*%yfac 20.000*%zfac *PNT1007 25.000*%xfac 22.500*%yfac 30.000*%zfac *PNT2001 40.000*%xfac -10.000*%yfac -0.001*%zfac *PNT2002 40.000*%xfac -10.000*%yfac 70.001*%zfac *PNT2003 40.000*%xfac 0.000*%yfac -0.001*%zfac *PNT2004 40.000*%xfac -0.001*%yfac 70.001*%zfac *PNT2005 40.000*%xfac 10.000*%yfac -0.001*%zfac *PNT2006 40.000*%xfac 10.000*%yfac 70.001*%zfac *PNT3001 50.000*%xfac -15.834*%yfac 70.000*%zfac *PNT3002 50.000*%xfac -45.000*%yfac *PNT3003 50.000*%xfac -45.000*%yfac 20.000*%zfac *PNT3004 50.000*%xfac -45.001*%yfac 30.000*%zfac *PNT3005 50.000*%xfac -45.001*%yfac 70.000*%zfac *PNT3006 50.000*%xfac -30.000*%yfac 20.000*%zfac *PNT3007 50.000*%xfac -22.500*%yfac 20.000*%zfac *PNT3008 50.000*%xfac -22.500*%yfac 30.000*%zfac *PNT3009 50.000*%xfac -15.833*%yfac -0.001*%zfac *PNT3010 50.000*%xfac -10.000*%yfac -0.001*%zfac *PNT3011 50.000*%xfac -10.000*%yfac 70.001*%zfac *PNT3012 50.000*%xfac 10.000*%yfac -0.001*%zfac *PNT3013 50.000*%xfac 10.000*%yfac 70.001*%zfac *PNT3014 50.000*%xfac 15.833*%yfac -0.001*%zfac *PNT3015 50.000*%xfac 15.833*%yfac 70.000*%zfac *PNT3016 50.000*%xfac 22.500*%yfac 20.000*%zfac *PNT3017 50.000*%xfac 22.500*%yfac 30.000*%zfac *PNT3018 50.000*%xfac 30.000*%yfac 30.000*%zfac *PNT3019 50.000*%xfac 30.000*%yfac 20.000*%zfac *PNT3020 50.000*%xfac 44.999*%yfac 30.000*%zfac *PNT3021 50.000*%xfac 44.999*%yfac 70.000*%zfac *PNT3022 50.000*%xfac 45.000*%yfac *PNT3023 50.000*%xfac 45.000*%yfac 20.000*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define ANS4 @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Cmp. to ANS4 $ &describe compartment ANS4 -description 'This is Extra ' $ $**************************************** Set Piece to ANS4 $ &describe piece ANS4 -diftype 3ddif -cs_current 1 1 1 -cs_wind 1 1 1 $ $**************************************** Define Panels $ PANEL SUR00001 *PNT0002 *PNT0001 *PNT0005 *PNT0011 *PNT0012 *PNT0006 PANEL SUR00002 *PNT0005 *PNT0001 *PNT3002 *PNT3009 PANEL SUR00003 *PNT0001 *PNT0002 *PNT3003 *PNT3002 PANEL SUR00004 *PNT0002 *PNT0006 *PNT1002 PANEL SUR00005 *PNT0002 *PNT1002 *PNT3006 *PNT3003 PANEL SUR00006 *PNT0004 *PNT0003 *PNT0007 *PNT0009 *PNT0010 *PNT0008 PANEL SUR00007 *PNT1003 *PNT0007 *PNT0003 PANEL SUR00008 *PNT0003 *PNT3004 *PNT3008 *PNT1003 PANEL SUR00009 *PNT0003 *PNT0004 *PNT3005 *PNT3004 PANEL SUR00010 *PNT0004 *PNT0008 *PNT3001 *PNT3005 PANEL SUR00011 *PNT0005 *PNT2003 *PNT2005 PANEL SUR00012 *PNT0005 *PNT2005 *PNT3014 PANEL SUR00013 *PNT0011 *PNT0005 *PNT3014 *PNT3022 PANEL SUR00014 *PNT2001 *PNT2003 *PNT0005 PANEL SUR00015 *PNT3009 *PNT2001 *PNT0005 PANEL SUR00016 *PNT1006 *PNT1004 *PNT0006 PANEL SUR00017 *PNT1006 *PNT0006 *PNT0012 PANEL SUR00018 *PNT0006 *PNT1004 *PNT1002 PANEL SUR00019 *PNT0007 *PNT1001 *PNT1007 PANEL SUR00020 *PNT0009 *PNT0007 *PNT1007 PANEL SUR00021 *PNT1003 *PNT1001 *PNT0007 PANEL SUR00022 *PNT2006 *PNT2004 *PNT0008 PANEL SUR00023 *PNT3015 *PNT2006 *PNT0008 PANEL SUR00024 *PNT0008 *PNT0010 *PNT3021 *PNT3015 PANEL SUR00025 *PNT0008 *PNT2004 *PNT2002 PANEL SUR00026 *PNT0008 *PNT2002 *PNT3001 PANEL SUR00027 *PNT0010 *PNT0009 *PNT3020 *PNT3021 PANEL SUR00028 *PNT0009 *PNT1007 *PNT3018 *PNT3020 PANEL SUR00029 *PNT0012 *PNT0011 *PNT3022 *PNT3023 PANEL SUR00030 *PNT0012 *PNT3023 *PNT3019 *PNT1006 PANEL SUR00031 *PNT1004 *PNT1005 *PNT1001 PANEL SUR00032 *PNT1003 *PNT1002 *PNT1004 *PNT1001 PANEL SUR00034 *PNT1002 *PNT3007 *PNT3006 PANEL SUR00035 *PNT1002 *PNT1003 *PNT3008 *PNT3007 PANEL SUR00036 *PNT1004 *PNT1006 *PNT1007 *PNT1005 PANEL SUR00037 *PNT3016 *PNT1006 *PNT3019 PANEL SUR00038 *PNT1007 *PNT1006 *PNT3016 *PNT3017 PANEL SUR00039 *PNT1007 *PNT3017 *PNT3018 PANEL SUR00040 *PNT3010 *PNT2001 *PNT3009 PANEL SUR00041 *PNT2004 *PNT2006 *PNT2005 *PNT2003 *PNT2001 *PNT2002 PANEL SUR00042 *PNT3011 *PNT2002 *PNT2001 *PNT3010 PANEL SUR00043 *PNT2002 *PNT3011 *PNT3001 PANEL SUR00044 *PNT2005 *PNT3012 *PNT3014 PANEL SUR00045 *PNT3012 *PNT2005 *PNT2006 *PNT3013 PANEL SUR00046 *PNT3013 *PNT2006 *PNT3015 PANEL SUR00047 *PNT3001 *PNT3011 *PNT3010 PANEL SUR00048 *PNT3001 *PNT3010 *PNT3008 PANEL SUR00049 *PNT3008 *PNT3004 *PNT3005 *PNT3001 PANEL SUR00051 *PNT3002 *PNT3003 *PNT3007 PANEL SUR00052 *PNT3010 *PNT3002 *PNT3007 PANEL SUR00054 *PNT3010 *PNT3007 *PNT3008 PANEL SUR00056 *PNT3016 *PNT3022 *PNT3012 PANEL SUR00057 *PNT3017 *PNT3016 *PNT3012 PANEL SUR00058 *PNT3017 *PNT3012 *PNT3013 PANEL SUR00060 *PNT3013 *PNT3021 *PNT3020 *PNT3017 PANEL SUR00062 *PNT3016 *PNT3023 *PNT3022