&dimen -dimen feet kips
$
$****************************************       read model
$
inmodel
&instate -loc 0 0 20
$
$****************************************       connect
$
medit
   ~fix foundation x 1e5 y 1e5 z 1e5 -friction .6
   connector ss ~fix   *mla -euler +z
   connector ps ~fix   *mlb -euler +z
   connector pb ~fix   *mlc -euler +z
   connector sb ~fix   *mld -euler +z
end
$
$****************************************      preload
$
&subtitle Preload Condition
&equi -omega 2 -iter 100
&event 1
&connect @ -set_state preload
&status force -hard
&status f_connector -hard
$
$****************************************      nominal
$
&subtitle Nominal Condition
&apply preload 0
&equi
&event 2
&connect @ -set_state nominal  1./.9
&status force -hard
&status f_connector -hard
$
$****************************************      Check
$
&env wind -wind 100 90
&subtitle Nominal Condition
&apply preload 0
&equi
&status force -hard
&status f_connector -hard
&event 3
$
$****************************************      post-process
$
prcpost
     foundation
        vl
        report
        end
end
$
$****************************************      struct
$
struct
    lcase -process pre 1 nom 2 check 3
    ssolve
end
$
$****************************************      strpost
$
strpost
    rest load  -load @    -detail
    rest found -load check
    case -nominal nom 1./.9 -preload pre
    rest found -load check
end
$
$****************************************      all done
$
&fini