$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------    PIPE RISER SAMPLE     ------------
$
$    This set of commands will perform an analysis of a pipe connected
$ to a fixed structure.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      set basics
$
&device  -oecho n $-g_default device
&dimen -dimen meters m-tons
&default -depth 78.9 -ramp -1
$
$*********************************************      execution control
$
&set summ = .false.
&set plot = .false.
$
$*********************************************     read model
$
inmodel
&instate -locate 0 0 0
&if %summ% &then
   &summary
      class_sum
      cone_sum
      point_sum
      beam_sum
      plate_sum
      categ_sum
   end
&endif
$
$*********************************************     model plots
$
&if %plot% &then
   &pltmode struct $ -s
      picture iso
      picture side
      picture front
      picture top
   end
&endif
$
$*********************************************      aux. data
$
&data curves   m_growth growth -78.900 0      -21.341 0      \
                      -21.340 2*25.4 -12.201 2*25.4 \
                      -12.200 4*25.4   1.481 4*25.4
&data curves   c_profile current  0.0 2.22 10.0 2.14 20.0 2.06 \
                       30.0 1.96 40.0 1.85 50.0 1.72 \
                       60.0 1.54 70.0 1.28 75.0 1.03 \
                       78.0 0.71 78.9 0
&data environment
   t_pressure oper8 ~tube 22.8 14.483
   t_pressure hydro ~tube  0   18.120
   s_grid wave stream 78.9 12.2 11.7
$ v = 2.1*((78.9-z)/63.9)**0.2531  m/sec
$
$*********************************************     environments
$
    env still -m_growth growth                -time 5 1
    env hydro -m_growth growth -t_pressure hydro -time 5 1
    &set str  = -m_growth growth -t_pressure oper8
    &set time = -time 11.7 1.17
    env oper8180 -sea wave 180 %str% %time% -cur current 180
    env oper8135 -sea wave 135 %str% %time% -cur current 135
    env oper8090 -sea wave  90 %str% %time% -cur current  90
end_&data
$
$*********************************************     structural solution
$
structural
   lcase -static still still
   lcase -static hydro hydro
   lcase -static oper8180 oper8180
   lcase -static oper8135 oper8135
   lcase -static oper8090 oper8090
   ssolve
end
$
$*********************************************     structural post
$
strpost -old no
   &dimen -dimen feet kips
   &select :case1 -sel hydro
   &select :oper8 -sel oper8///
   &select :supp  -sel ~fix ~slide ~soil
   &select :all   -sel @
   joint displacement -load still
   restraint -load still -class :supp
   beam_post h_collapse -load still  -detail -class :all
   joint displacement -load hydro
   restraint -load hydro  -class :supp
   beam_post h_collapse -load hydro  -detail -class :all
   joint displacement -load :oper8
   restraint -load :oper8 -class :supp
   beam_post h_collapse -load :oper8 -detail -class :all
   joint displacement -load still
   &if %plot% &then
      &pltmode struct $ -s
      picture iso -deflect 1
      end
   &endif
end
&fini