$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------      model for barge    ------------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$
$*********************************************      ground points
$
$
$*********************************************      define body
$
&describe body tbrg barge
$
$*********************************************     hydrostatics
$
pgen hull -cs_wind 1 1 1 -cs_curr 1 1 1
   plane -200 -100 00 100 200 -rect 0  20 100
end pgen
pgen dd_house -cs_wind 1 5 1 -cs_curr 1 1 1 -loc 0 0 20
   plane -200 -100 0 -rect 0  20 100
end pgen
$
$*********************************************     points
$
&describe body ground
&loop p ( g b )
   *%(p)_cn   00   0 0
   *%(p)_bp -200 -50 0
   *%(p)_bs -200 +50 0
   *%(p)_sp  200 -50 0
   *%(p)_ss  200 +50 0
&describe body tbrg
&endloop
$
$*********************************************     #propulsion
$
&data curve efficiency prop 0 1 2 .5 4 .25
$
$*********************************************     point sensors
$
&loop su ( bp sp )
   &describe sensor d_x_%(su)  -signal vector *b_%(su) *g_%(su) value 1
   &describe sensor d_y_%(su)  -signal vector *b_%(su) *g_%(su) value 2
   &describe sensor v_x_%(su)  -signal vector *b_%(su) *g_%(su) value 1 -deriv
   &describe sensor v_y_%(su)  -signal vector *b_%(su) *g_%(su) value 2 -deriv
&endloop
$
$*********************************************     convolution
$
$&describe sensor cd_x    -signal vector *b_cn *g_cn value 2  -convol 50ave
$&describe sensor cd_y    -signal vector *b_cn *g_cn value 1  -convol 50ave