clear all
close all


Ram.R_Ram = 1.5;  %OD
Ram.R_Rod = 5/8;  %ID
Ram.A = 0.25*pi*Ram.R_Ram^2;
Ram.Ar = Ram.A-0.25*pi*Ram.R_Rod^2;

Ram.S = 16;  %Stroke
Ram.tp = 1;  %Piston Thickness
Ram.lRod = 1.25; %Rod end clevis length (distance from piston ram side at full retraction - S)
Ram.lRam = 1.5;  %Ram end clevis length (from piston rod side at full retraction.)


x = 0:Ram.S;

[L,VolRodSide,VolPistonSide] = RamState(Ram,x);


figure
plot(x,L);
xlabel('Position (in)');
ylabel('OverAll Length');
