%% Tether Storage Drum Size Calculator
%

lastRun = datetime

% Winch: Okeanus ECO2000 3HP
%
%% Drum Storage Calculator
%

%Drum core
drumID = 12.75; %in

%Cheek Height
drumOD = 24; %in

%Drum Width
drumWD = 22; %in

%Tether Diameter
tetherDiam = 0.394; %in

%Laying Efficiency (tight = 1.1, loose = 1.0
layEff = 1;

%% Calcs

nWraps = floor((drumOD-drumID)/tetherDiam);
nTurnsPerWrap = floor(drumWD/tetherDiam);

wrapLengths = ((([1:nWraps])*tetherDiam - tetherDiam/2 + drumID)*pi)*nTurnsPerWrap*layEff;

TotalStored = sum(wrapLengths);

fprintf("Drum will store %5.1f feet or %5.1f meters of tether",...
    TotalStored/12, TotalStored*0.0254)