$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                      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
$TYPE SPACE FRAME
&default -ext_cat loaTOTO
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                              Classes                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
~10 TUBE 500 100 -dens 9.8001
~20 TUBE 500 100 -dens 9.8001
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Nodes                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
*10
*20         20.000*%xfac
*30         40.000*%xfac
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                             Elements                                @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
BEAM 10 ~10 *10 *20
BEAM 20 ~20 *20 *30
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                           Loads Factors                             @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&local wt_air  = .false.
&local smargin = 1.
&local use_comments = .true.
&local loaTOTO = &number(real 1.00/%smargin)
&local load000 = &number(real 1.00/%smargin)
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@                                                                     @
$@                               Loads                                 @
$@                                                                     @
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
&if %doload &then
MJNT  *10 600.01 -sgrav 7.6563 -fact %loaTOTO
MJNT  *20 600.01 -sgrav 7.6563 -fact %loaTOTO
MMEM 10 1 -loc 0 0 -sgrav 7.6563 -fact %loaTOTO
MMEM 10 2.5001 -loc 5 7 -sgrav 7.6563 -fact %loaTOTO
MMEM 20 2.5001 -loc 3 5 -sgrav 7.6563 -fact %loaTOTO
MMEM 10 1 -loc 0 0 -sgrav 7.6563 -fact %loaTOTO
MMEM 20 1 -loc 0 0 -sgrav 7.6563 -fact %loaTOTO
MMEM 10 4.0001 -loc 5 -conc -sgrav 7.6563 -fact %loaTOTO
MMEM 20 4.0001 -loc 5 -conc -sgrav 7.6563 -fact %loaTOTO
MMEM 10 4.0001 -loc 5 -conc -sgrav 7.6563 -fact %loaTOTO
MMEM 20 4.0001 -loc 5 -conc -sgrav 7.6563 -fact %loaTOTO
&endif
$
$****************************************          Finish Up
$
&dimen -remember
&default -remember