$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ &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 SPAR $ &describe body SPAR 1 $ $**************************************** Define Coordinates $ *PN10002 29.904*%xfac -10.884*%yfac 110.000*%zfac *PN10003 29.904*%xfac -10.884*%yfac 290.000*%zfac *PN10006 29.904*%xfac 10.884*%yfac 110.000*%zfac *PN10007 29.904*%xfac 10.884*%yfac 290.000*%zfac *PN11002 31.823*%xfac 0.000*%yfac 110.000*%zfac *PN11003 31.823*%xfac 0.000*%yfac 290.000*%zfac *PNT0004 -31.823*%xfac 0.000*%yfac 110.000*%zfac *PNT0005 -31.823*%xfac 0.000*%yfac 290.000*%zfac *PNT1006 -29.904*%xfac -10.884*%yfac 110.000*%zfac *PNT1007 -29.904*%xfac -10.884*%yfac 290.000*%zfac *PNT1010 -29.904*%xfac 10.884*%yfac 110.000*%zfac *PNT1011 -29.904*%xfac 10.884*%yfac 290.000*%zfac *PNT2006 -24.378*%xfac -20.455*%yfac 110.000*%zfac *PNT2007 -24.378*%xfac -20.455*%yfac 290.000*%zfac *PNT2010 -24.378*%xfac 20.455*%yfac 109.999*%zfac *PNT2011 -24.378*%xfac 20.455*%yfac 290.001*%zfac *PNT3006 -15.911*%xfac -27.559*%yfac 109.999*%zfac *PNT3007 -15.911*%xfac -27.559*%yfac 290.001*%zfac *PNT3010 -15.911*%xfac 27.559*%yfac 109.999*%zfac *PNT3011 -15.911*%xfac 27.559*%yfac 290.001*%zfac *PNT4006 -5.526*%xfac -31.339*%yfac 109.999*%zfac *PNT4007 -5.526*%xfac -31.339*%yfac 290.001*%zfac *PNT4010 -5.526*%xfac 31.339*%yfac 109.999*%zfac *PNT4011 -5.526*%xfac 31.339*%yfac 290.001*%zfac *PNT5005 0.547*%xfac -31.339*%yfac 109.999*%zfac *PNT5006 0.547*%xfac -31.339*%yfac 290.001*%zfac *PNT6005 -0.547*%xfac 31.339*%yfac 109.999*%zfac *PNT6006 -0.547*%xfac 31.339*%yfac 290.001*%zfac *PNT7006 5.526*%xfac -31.339*%yfac 109.999*%zfac *PNT7007 5.526*%xfac -31.339*%yfac 290.001*%zfac *PNT7010 5.526*%xfac 31.339*%yfac 109.999*%zfac *PNT7011 5.526*%xfac 31.339*%yfac 290.001*%zfac *PNT8006 15.911*%xfac -27.559*%yfac 109.999*%zfac *PNT8007 15.911*%xfac -27.559*%yfac 290.001*%zfac *PNT8010 15.911*%xfac 27.559*%yfac 109.999*%zfac *PNT8011 15.911*%xfac 27.559*%yfac 290.001*%zfac *PNT9004 24.378*%xfac -20.455*%yfac 109.999*%zfac *PNT9005 24.378*%xfac -20.455*%yfac 290.001*%zfac *PNT9008 24.378*%xfac 20.455*%yfac 109.999*%zfac *PNT9009 24.378*%xfac 20.455*%yfac 290.001*%zfac *PN10001 29.904*%xfac -10.884*%yfac 0.000*%zfac *PN10004 29.904*%xfac -10.884*%yfac 300.000*%zfac *PN10005 29.904*%xfac 10.884*%yfac 0.000*%zfac *PN10008 29.904*%xfac 10.884*%yfac 300.000*%zfac *PN11001 31.823*%xfac 0.000*%yfac 0.000*%zfac *PN11004 31.823*%xfac 0.000*%yfac 300.000*%zfac *PNT0003 -31.823*%xfac 0.000*%yfac -0.000*%zfac *PNT0006 -31.823*%xfac 0.000*%yfac 300.000*%zfac *PNT1005 -29.904*%xfac -10.884*%yfac -0.000*%zfac *PNT1008 -29.904*%xfac -10.884*%yfac 300.000*%zfac *PNT1009 -29.904*%xfac 10.884*%yfac -0.000*%zfac *PNT1012 -29.904*%xfac 10.884*%yfac 300.000*%zfac *PNT2005 -24.378*%xfac -20.455*%yfac -0.000*%zfac *PNT2008 -24.378*%xfac -20.455*%yfac 300.000*%zfac *PNT2009 -24.378*%xfac 20.455*%yfac -0.000*%zfac *PNT2012 -24.378*%xfac 20.455*%yfac 300.000*%zfac *PNT3005 -15.911*%xfac -27.559*%yfac -0.000*%zfac *PNT3008 -15.911*%xfac -27.559*%yfac 300.000*%zfac *PNT3009 -15.911*%xfac 27.559*%yfac -0.000*%zfac *PNT3012 -15.911*%xfac 27.559*%yfac 300.000*%zfac *PNT4005 -5.526*%xfac -31.339*%yfac -0.000*%zfac *PNT4008 -5.526*%xfac -31.339*%yfac 300.000*%zfac *PNT4009 -5.526*%xfac 31.339*%yfac -0.000*%zfac *PNT4012 -5.526*%xfac 31.339*%yfac 300.000*%zfac *PNT7005 5.526*%xfac -31.339*%yfac 0.000*%zfac *PNT7008 5.526*%xfac -31.339*%yfac 300.000*%zfac *PNT7009 5.526*%xfac 31.339*%yfac 0.000*%zfac *PNT7012 5.526*%xfac 31.339*%yfac 300.000*%zfac *PNT8005 15.911*%xfac -27.559*%yfac 0.000*%zfac *PNT8008 15.911*%xfac -27.559*%yfac 300.000*%zfac *PNT8009 15.911*%xfac 27.559*%yfac 0.000*%zfac *PNT8012 15.911*%xfac 27.559*%yfac 300.000*%zfac *PNT9003 24.378*%xfac -20.455*%yfac 0.000*%zfac *PNT9006 24.378*%xfac -20.455*%yfac 300.000*%zfac *PNT9007 24.378*%xfac 20.455*%yfac 0.000*%zfac *PNT9010 24.378*%xfac 20.455*%yfac 300.000*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define SPAR @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Piece to SPAR $ &describe piece SPAR -perm 1 -diftype 3ddif -cs_wind 1 1 1 -cs_curr 1 1 1 $ $**************************************** Define Panels $ PANEL SUR00021 *PNT1005 *PNT2005 *PNT3005 *PNT4005 *PNT7005 *PNT8005 *PNT9003 \ *PN10001 *PN11001 *PN10005 *PNT9007 *PNT8009 *PNT7009 *PNT4009 \ *PNT3009 *PNT2009 *PNT1009 *PNT0003 PANEL SUR00022 *PNT0003 *PNT1009 *PNT1012 *PNT0006 PANEL SUR00023 *PNT1005 *PNT0003 *PNT0006 *PNT1008 PANEL SUR00028 *PNT0006 *PNT1012 *PNT2012 *PNT3012 *PNT4012 *PNT7012 *PNT8012 \ *PNT9010 *PN10008 *PN11004 *PN10004 *PNT9006 *PNT8008 *PNT7008 \ *PNT4008 *PNT3008 *PNT2008 *PNT1008 PANEL SUR00051 *PNT2005 *PNT1005 *PNT1008 *PNT2008 PANEL SUR00053 *PN11001 *PN10001 *PN10004 *PN11004 PANEL SUR00054 *PN10005 *PN11001 *PN11004 *PN10008 PANEL SUR00055 *PNT1009 *PNT2009 *PNT2012 *PNT1012 PANEL SUR00057 *PNT3005 *PNT2005 *PNT2008 *PNT3008 PANEL SUR00059 *PNT2009 *PNT3009 *PNT3012 *PNT2012 PANEL SUR00061 *PNT4005 *PNT3005 *PNT3008 *PNT4008 PANEL SUR00063 *PNT3009 *PNT4009 *PNT4012 *PNT3012 PANEL SUR00065 *PNT7005 *PNT4005 *PNT4008 *PNT7008 PANEL SUR00067 *PNT4009 *PNT7009 *PNT7012 *PNT4012 PANEL SUR00071 *PNT8005 *PNT7005 *PNT7008 *PNT8008 PANEL SUR00073 *PNT7009 *PNT8009 *PNT8012 *PNT7012 PANEL SUR00075 *PNT9003 *PNT8005 *PNT8008 *PNT9006 PANEL SUR00077 *PNT8009 *PNT9007 *PNT9010 *PNT8012 PANEL SUR00079 *PN10001 *PNT9003 *PNT9006 *PN10004 PANEL SUR00081 *PNT9007 *PN10005 *PN10008 *PNT9010 $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Define SAMPLE @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Cmp. to SAMPLE $ &describe compartment SAMPLE $ $**************************************** Set Piece to SAMPLE $ &describe piece SAMPLE -perm -1 -diftype none -cs_win 0 0 0 -cs_curr 0 0 0 $ $**************************************** Define Panels $ PANEL *PNT1010 *PNT1011 *PNT0005 *PNT0004 PANEL *PNT0004 *PNT0005 *PNT1007 *PNT1006 PANEL *PNT5005 *PNT6005 *PNT4010 *PNT3010 *PNT2010 *PNT1010 *PNT0004 *PNT1006 *PNT2006 *PNT3006 *PNT4006 PANEL *PNT6006 *PNT5006 *PNT4007 *PNT3007 *PNT2007 *PNT1007 *PNT0005 *PNT1011 *PNT2011 *PNT3011 *PNT4011 PANEL *PNT1006 *PNT1007 *PNT2007 *PNT2006 PANEL *PNT2010 *PNT2011 *PNT1011 *PNT1010 PANEL *PNT2006 *PNT2007 *PNT3007 *PNT3006 PANEL *PNT3010 *PNT3011 *PNT2011 *PNT2010 PANEL *PNT3006 *PNT3007 *PNT4007 *PNT4006 PANEL *PNT4010 *PNT4011 *PNT3011 *PNT3010 PANEL *PNT4006 *PNT4007 *PNT5006 *PNT7007 *PNT7006 *PNT5005 PANEL *PNT7010 *PNT7011 *PNT6006 *PNT4011 *PNT4010 *PNT6005 PANEL *PNT6005 *PNT5005 *PNT7006 *PNT8006 *PNT9004 *PN10002 *PN11002 *PN10006 *PNT9008 *PNT8010 *PNT7010 PANEL *PNT5006 *PNT6006 *PNT7011 *PNT8011 *PNT9009 *PN10007 *PN11003 *PN10003 *PNT9005 *PNT8007 *PNT7007 PANEL *PNT7006 *PNT7007 *PNT8007 *PNT8006 PANEL *PNT8010 *PNT8011 *PNT7011 *PNT7010 PANEL *PNT8006 *PNT8007 *PNT9005 *PNT9004 PANEL *PNT9008 *PNT9009 *PNT8011 *PNT8010 PANEL *PNT9004 *PNT9005 *PN10003 *PN10002 PANEL *PN10006 *PN10007 *PNT9009 *PNT9008 PANEL *PN10002 *PN10003 *PN11003 *PN11002 PANEL *PN11002 *PN11003 *PN10007 *PN10006 $ $**************************************** Finish Up $ &dimen -remember &default -remember