`Example deadweight calculator

proj deadwt

`For this example, make a simple barge hull:
macro makehull
clear
enter pm
create hull
ends 20 140
top 20
bot 0
out 20
comp frake
ends 0 20
top 20
bot 0 @ 20, 15 @ 0
out 20
spacing 1
comp arake
ends 140 150
top 20
bot 0 @ 140, 10 @ 150
out 20
spacing 1
//
di
write barge.gf
quit pm
/
.makehull

read barge.gf
cls

variable w,w0,df,da
variable (string) q

`Define draft mark locations:
lbp 20 to 140

`Set light ship:
draft = 5
vcg = 10
solve weight, lcg
set w0 = {weight}

macro calc
me
input "Enter mean fwd draft: ", df
input "Enter mean aft draft: ", da

draft = {df} @ fp, {da} @ ap
add "Deadwt" delta
stat weight
`ghs
set w = {weight} minus {w0}

\\  Fwd draft { df:2}  Aft draft { da:2}  Deadweight: {w:2} {WUNIT}
me
delete "Deadwt"
input "Want to run another condition? ",q
set q = cap {q}
if {q}="Y" then exit calc
/
.calc