
scope = 1.15;
wave_amp = 4.75;


suffix = 'SeahorseLargeFloatSME';   


path = ['./',suffix,'/'];




figure('PaperPositionMode','manual','PaperType','tabloid','PaperPosition',[0 0 11 17]); 

subplot(4,1,1)
curr_fact = .02;
load([path,'DynRes-',num2str(wave_amp),'A-',num2str(100*curr_fact),'c-',num2str(scope),'s-',suffix,'.mat']);
plot(s,T_s)
xlabel('meters from anchor');
ylabel('lbs');
title(['Mooring Tensions:  Wave Amp = ',num2str(wave_amp),' current factor = ',num2str(curr_fact*100),'% scope = ',num2str(scope)]);

subplot(4,1,2)
curr_fact = 0.5;
load([path,'DynRes-',num2str(wave_amp),'A-',num2str(100*curr_fact),'c-',num2str(scope),'s-',suffix,'.mat']);
plot(s,T_s)
xlabel('meters from anchor');
ylabel('lbs');
title(['Mooring Tensions:  Wave Amp = ',num2str(wave_amp),' current factor = ',num2str(curr_fact*100),'% scope = ',num2str(scope)]);

subplot(4,1,3)
curr_fact = 1.0;
load([path,'DynRes-',num2str(wave_amp),'A-',num2str(100*curr_fact),'c-',num2str(scope),'s-',suffix,'.mat']);
plot(s,T_s)
xlabel('meters from anchor');
ylabel('lbs');
title(['Mooring Tensions:  Wave Amp = ',num2str(wave_amp),' current factor = ',num2str(curr_fact*100),'% scope = ',num2str(scope)]);

subplot(4,1,4)
curr_fact = 1.5;
load([path,'DynRes-',num2str(wave_amp),'A-',num2str(100*curr_fact),'c-',num2str(scope),'s-',suffix,'.mat']);
plot(s,T_s)
xlabel('meters from anchor');
ylabel('lbs');
title(['Mooring Tensions:  Wave Amp = ',num2str(wave_amp),' current factor = ',num2str(curr_fact*100),'% scope = ',num2str(scope)]);


ps_filenm = [path,'Motions-',num2str(wave_amp),'A-',num2str(scope),'s-',suffix,'.eps'];
print('-depsc2',ps_filenm);
