load waves_tension_50y15

figure(1)
clf
subplot(411)
plot(time(1:1201),(Tdyn_50y_b(1066:2266)))
axis([0 120 0 8000])
4*std(Tdyn_50y_b(1066:2266))
mean(Tdyn_50y_b(1066:2266))
title('4000-Meter Benthic Mooring (w/ 15-Meter Snubber) - 50-Year Return Sea State')
ylabel('Ten. (lbs)','fontsize',12,'fontangle','italic');
text(6,6400,'Surface Buoy  (T_{mean} = 1630 lbs  4\sigma_T = 2400 lbs)')


subplot(412)
plot(time(1:1201),(Tdyn_50y_x(1066:2266)))
axis([0 120 0 8000])
4*std(Tdyn_50y_x(1066:2266))
Tm=mean(Tdyn_50y_x(1066:2266))
ylabel('Ten. (lbs)','fontsize',12,'fontangle','italic');
text(6,6400,'Snubber/EM-cable  (T_{mean} = 1480 lbs  4\sigma_T = 2340 lbs)')

subplot(413)
plot(time(1:1201),(Tdyn_50y_s(1066:2266)))
axis([0 120 0 8000])
4*std(Tdyn_50y_s(1066:2266))
mean(Tdyn_50y_s(1066:2266))
ylabel('Ten. (lbs)','fontsize',12,'fontangle','italic');
text(6,6400,'Subsurface Buoy  (T_{mean} = 3340 lbs  4\sigma_T = 1430 lbs)')

subplot(414)
plot(time(1:1201),(Tdyn_50y_a(1066:2266)))
axis([0 120 0 8000])
4*std(Tdyn_50y_a(1066:2266))
mean(Tdyn_50y_a(1066:2266))
ylabel('Ten. (lbs)','fontsize',12,'fontangle','italic');
text(6,6400,'Anchor  (T_{mean} = 4200 lbs  4\sigma_T = 2820 lbs)')
xlabel('Time (s)','fontsize',12,'fontangle','italic');

