% Eksempel 4.2 fra Introduction to Naval Architecture
% in tonn istedenfor N
clear all

rho=1025;      % [kg/m^3]
delta=5000e3;  % [kg]
L=150;         % [m]
TF=2.7;        % [m]
TA=4.2;        % [m]
t=TF-TA;  % [m] trim before docking, bow up, negative trim
KG=8.5;
KM=9.3;
MCT=105e6/9.81      % [kg m / 1meter]
LCF=2.7;       % Avstand F bak nullkryss
xF=L/2-LCF;    
GM=KM-KG;       % GM before docking

% vektarm fra dokkingpunkt til flotasjonsenter
l=xF; % i dette fall ved dokking ved hekk


% finn belastning w ved dokkingpunkt via momentlikevekt,
% antatt null trim etter gjennomfort dokking
w=MCT*abs(t)/l  % [tonn]

MM1=w*KM/(delta)*(-1) % dette er et avstand i negativ retning nedover

GM1=GM+MM1