$
$*********************************************      basics
$
&title Two Rigid Boxes with Hinge Connector
&dimen -dimen feet kips
&device     -g_default device -oecho no
&set num_modes = 10
$
$*********************************************      read model
$
inmodel
$
$*********************************************      setup
$
&apply @
&instate -locate boxhead -600 0 -10 0 0 0 \
        -locate boxback 200 0 -10 0 0 0
$
$*********************************************      Hinge connector
$
medit
	~hinge fix x y z rx rz
	connector hin2 ~hinge *os2 *op2
	connector hin4 ~hinge *os4 *op4
end
&status -h
$
$*********************************************      freq
$
$
hydro
   g_press boxhead -period 5 6 7 8 9 10 11 12 13 14  -heading 0 45
   g_press boxback -period 5 6 7 8 9 10 11 12 13 14  -heading 0 45
end
freq_resp
  rao -head 0
   &subtitle RAO at *P4 of BOXBACK
   fp_std *p4
   &subtitle RAO at *OS1 of BOXHEAD
   fp_std *os1
   &subtitle RAO at *S1 of BOXHEAD
   fp_std *s1
end
$
$*********************************************      all done
$
&fini
