$ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Converted STRUDL Model @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $ $**************************************** Set Dimensions $ &dimen -save -dimen Meters M-Tons $ $**************************************** Defaults $ &LOCAL xfac = 1 yfac = 1 zfac = 1 &default -save &default -fyield 248.04 -alpha 3.6111E-6 -spgravit 7.8492 -emodulus 1.9981E5 \ -poi_ratio 0.3 -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @ $ $**************************************** Macros $ use_mac strudl.mac $ $**************************************** doload? $ &if .not. &v_exist(doload) &then &local doload = .true. &endif $ $**************************************** flood? $ &if .not. &v_exist(flood) &then &local flood = yes &endif $ $**************************************** Strudl Axis $ &default -stgaxis 0 1 0 -1 0 0 $ $**************************************** plate local axes $ &default -dir_pla nodes $ $**************************************** load cat $ &default -ext_cat load000 $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Ignored Cards @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ $STRUDL ESSAI TEST $TYPE SPACE FRAME &default -ext_cat load100 &default -ext_cat loaLIST $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Classes @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ ~101 PLATE 6 -dens 9.8001E-8 ~102 PLATE 6 -dens 9.8001E-8 ~501 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~502 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~503 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~504 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~505 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~506 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~507 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~508 IBEAM 300 600 15 30 -sect 2.7E4 1.7103E9 1.3529E8 7.5899E6 -dens 9.8001E-8 -emod 2.0985E7 ~509 IBEAM 220 600 12 19 -sect 1.56E4 9.2079E8 3.3869E7 1.6599E6 -dens 9.8001E-8 -emod 2.0985E7 ~510 IBEAM 220 600 12 19 -sect 1.56E4 9.2079E8 3.3869E7 1.6599E6 -dens 9.8001E-8 -emod 2.0985E7 ~511 IBEAM 300 490 12 23 -sect 1.975E4 8.6979E8 1.0369E8 3.3599E6 -dens 9.8001E-8 -emod 2.0985E7 ~512 IBEAM 300 490 12 23 -sect 1.975E4 8.6979E8 1.0369E8 3.3599E6 -dens 9.8001E-8 -emod 2.0985E7 ~513 IBEAM 300 500 14 28 -sect 2.386E4 1.0717E9 1.2619E8 6.0499E6 -dens 9.8001E-8 -emod 2.0985E7 ~514 IBEAM 300 500 14 28 -sect 2.386E4 1.0717E9 1.2619E8 6.0499E6 -dens 9.8001E-8 -emod 2.0985E7 ~515 IBEAM 300 500 14 28 -sect 2.386E4 1.0717E9 1.2619E8 6.0499E6 -dens 9.8001E-8 -emod 2.0985E7 ~516 IBEAM 300 500 14 28 -sect 2.386E4 1.0717E9 1.2619E8 6.0499E6 -dens 9.8001E-8 -emod 2.0985E7 ~517 TUBE 300 25.4 -dens 9.8001E-8 -emod 2.0985E7 ~518 PRI 300 300.04 -sect 1.076E4 1.6711E8 7.2599E7 1.3187E8 -dens 9.8001E-8 -emod 2.0985E7 $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Nodes @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ *1 9.9999E10*%xfac *2 0.000*%xfac 9.9999E10*%yfac *3 0.000*%xfac 0.000*%yfac 9.9999E10*%zfac *501 172.800*%xfac -22.200*%yfac 106.570*%zfac *502 174.600*%xfac -22.200*%yfac 106.570*%zfac *503 174.600*%xfac -24.000*%yfac 106.570*%zfac *504 172.800*%xfac -24.000*%yfac 106.570*%zfac *505 172.800*%xfac -22.200*%yfac 108.570*%zfac *506 174.600*%xfac -22.200*%yfac 108.570*%zfac *507 174.600*%xfac -24.000*%yfac 108.570*%zfac *508 172.800*%xfac -24.000*%yfac 108.570*%zfac *509 173.700*%xfac -23.100*%yfac 108.570*%zfac *510 173.700*%xfac -22.200*%yfac 108.570*%zfac *511 174.600*%xfac -23.100*%yfac 108.570*%zfac *512 173.700*%xfac -24.000*%yfac 108.570*%zfac *513 172.800*%xfac -23.100*%yfac 108.570*%zfac $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Elements @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ PLATE 101 ~101 *513 *509 *512 *508 PLATE 102 ~102 *510 *506 *511 *509 BEAM 501 ~501 -REFN *3 -BLY 5 -BLZ 3 -KY 0.8 -KZ 1.2 -CFB 100 -REL1 RY *505 *510 BEAM 502 ~502 -REFN *3 *510 *506 BEAM 503 ~503 -REFN *3 *506 *511 BEAM 504 ~504 -REFN *3 *511 *507 BEAM 505 ~505 -REFN *3 *507 *512 BEAM 506 ~506 -REFN *3 -KY 0.5 -KZ 0.7 *512 *508 BEAM 507 ~507 -REFN *3 *508 *513 BEAM 508 ~508 -REFN *3 *513 *505 BEAM 509 ~509 -REFN *2 *501 *505 BEAM 510 ~510 -REFN *2 -REL2 Y RX RZ *502 *506 BEAM 511 ~511 -REFN *1 -REL2 X RX RY *503 *507 BEAM 512 ~512 -REFN *1 *508 *504 BEAM 513 ~513 -REFN *1 *509 *510 BEAM 514 ~514 -REFN *2 *509 *511 BEAM 515 ~515 -REFN *1 *509 *512 BEAM 516 ~516 -REFN *2 *509 *513 BEAM 517 ~517 -REFN *1 *501 *506 BEAM 518 ~518 -REFN *1 *506 *503 $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Loads Factors @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ &local wt_air = .false. &local smargin = 1. &local use_comments = .true. &local loaLIST = &number(real 1.00/%smargin) &local load000 = &number(real 1.00/%smargin) &local load100 = &number(real 1.00/%smargin) $ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $@ @ $@ Loads @ $@ @ $@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ $ &if %doload &then MJNT *509 100 -sgrav 7.6563 -fact %load100 &endif $ $**************************************** Finish Up $ &dimen -remember &default -remember