$
&device -g_def device -oec n 
&dime -dimen meters m-tons
&titl Checking Multiple Spring Buoys
$
$*********************************************      read model
$
INMODEL
&env -water 9908.1
&equi
$
$*********************************************      attach mooring
$
medit
   &set most = -wtp 0.0173 -buoyd 63.5 \
               -emod 70000 -b_t 300 -amasd 63.5 -windd 63.5 \
               -dragd 63.5 -botf 0.6 
   ~wire3s  b_cat 63.5 exact %most -len 1000+25  -clump -40 55 -dep 190 
   ~wire3s  b_cat 63.5 exact %most -len 750      -clump -40 55   
   ~wire3s  b_cat 63.5 exact %most -len 500    
   conn  S3 -anc   104  2000   ~wire3s   *a3s
end
$
$****************************************************** pretension
$
&conn S3 -l_t  18.49*0.75
conn
   geom s3
   report
   plot 1 5 -n
&fini