close all
clear all

Poly_7d8 = load('7d8Results.mat');
Poly_1d2 = load('1d2Results.mat');

figure('Position',[520   173   766   925],'PaperOrientation','portrait','PaperPosition',[0 0 8.5 11]);
subplot(2,1,1)
plot(Poly_7d8.CurrentFactors/.515,Poly_7d8.Buoy_freeboard,Poly_1d2.CurrentFactors/.515,Poly_1d2.Buoy_freeboard)
title('Mooring Performance in Slab Currents');
legend('7/8" diameter Polyester Rope','1/2" diameter Polyester Rope');

xlabel('Current (kts)');
ylabel('Buoy Freeboard (m)');

subplot(2,1,2)
plot(Poly_7d8.CurrentFactors/.515,Poly_7d8.ESP_Depth,Poly_1d2.CurrentFactors/.515,Poly_1d2.ESP_Depth)
legend('7/8" diameter Polyester Rope','1/2" diameter Polyester Rope','Location','NorthWest');
xlabel('Current (kts)');
ylabel('Depth of top of ESP (m)');
print('-dpdf','PolyesterDiameterComparison');