`Prototype run file for generating a composite max VCG curve.
`Includes intact and damage.
`This can be used as a pattern for composite max VCG work.

project mxproto

read fv
report
\\\\\\\\
\Maximum VCG Curves\

macro mx
`maxvcg 3, 3.5 ... 7 /lcg:5f,4f,3f %1
maxvcg displ=47.24,63.04,...,202.32 /lcg:5f,4f,...,3 %1
/

`Intact criterion:
macro Ilim
units mt
LIMIT OFF
LIMIT AREA FROM 0 TO 30 > 0.055
LIMIT AREA FROM 0 TO 40 OR FLD > 0.090
LIMIT AREA FROM 30 TO 40 OR FLD > 0.030
LIMIT GM UPRIGHT > 0.150
units lt
/

macro int
subtitle
\
\Intact\
page
.Ilim
.mx "/ID:INT"
/

`Damage criterion:
macro Dlim
LIMIT OFF
LIMIT ANGLE FROM EQUIL TO RA0 > 20
LIMIT ABSOLUTE ANGLE AT EQUIL < 25
LIMIT ANGLE FROM EQUIL TO FLD > 0
/

macro mxdam
type (*) intact /quiet
subtitle
\
\Damaged: %1\
type (%1) flood
.mx "/ID: DAM%2 /composite"
/

macro mxfinal
type (*) intact /quiet
subtitle
\
\Composite\
.mx "/lookup"
/

macro dam
.Dlim
.mxdam "wt1.s,wt2.s" "1,2"
.mxdam "wt2.s, wt3.s" "2,3"
/

`Intact:
.int

`All damage zones:
.dam

`Composite:
.mxfinal

write (maxvcg) {project}.sav

`Check conditions:

macro cond
solve
vcg max
solve
subtitle
\
\%1 condition at max VCG\
page
maxvcg /print
status ghs
heel 0
ra /fsm /lim:att
/

macro lookup
vcg 0
maxvcg draft=3,4,...,7 /trim:-.25,0,.25 /lookup
/

`Light ship:
weight 90.0
lcg 3.5f

`Load:
load (wt*) 0.98

.Ilim
maxvcg valid

.cond "Departure"
.lookup


print preview
report off