| 1 |
function [fig_sigh,fig_pp,fig_dp,fig_dd]=nortek_Winfo_plot(Winfo); |
|---|
| 2 |
|
|---|
| 3 |
%This function takes the wave info (sigH, peak period, direction of peak and dominant direction |
|---|
| 4 |
%for a series of bursts and plots it as a function of time |
|---|
| 5 |
|
|---|
| 6 |
|
|---|
| 7 |
%plot sig wave height |
|---|
| 8 |
scrsz = get(0,'ScreenSize'); |
|---|
| 9 |
fig_sigh=figure('Position',[scrsz]); |
|---|
| 10 |
h1=plot(Winfo.time,Winfo.hsig(1,:),'b.-'); |
|---|
| 11 |
hold on |
|---|
| 12 |
h2=plot(Winfo.time,Winfo.hsig(2,:),'r.-'); |
|---|
| 13 |
h3=plot(Winfo.time,Winfo.hsig(3,:),'k.-'); |
|---|
| 14 |
|
|---|
| 15 |
datetick('x',15,'keepticks'); |
|---|
| 16 |
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best'); |
|---|
| 17 |
title(['Significant Wave Height starting on ',datestr(Winfo.time(:,1),0)]); |
|---|
| 18 |
xlabel('time'); |
|---|
| 19 |
ylabel('Wave Height (m)'); |
|---|
| 20 |
|
|---|
| 21 |
%plot peak period |
|---|
| 22 |
fig_pp=figure('Position',[scrsz]); |
|---|
| 23 |
h1=plot(Winfo.time,Winfo.peakP(1,:),'b.-'); |
|---|
| 24 |
hold on |
|---|
| 25 |
h2=plot(Winfo.time,Winfo.peakP(2,:),'r.-'); |
|---|
| 26 |
h3=plot(Winfo.time,Winfo.peakP(3,:),'k.-'); |
|---|
| 27 |
|
|---|
| 28 |
datetick('x',15,'keepticks'); |
|---|
| 29 |
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best'); |
|---|
| 30 |
title(['Peak Period starting on ',datestr(Winfo.time(:,1),0)]); |
|---|
| 31 |
xlabel('time'); |
|---|
| 32 |
ylabel('Period (seconds)'); |
|---|
| 33 |
|
|---|
| 34 |
%plot dir of peak period |
|---|
| 35 |
fig_dp=figure('Position',[scrsz]); |
|---|
| 36 |
h1=plot(Winfo.time,Winfo.dirP(1,:),'b.-'); |
|---|
| 37 |
hold on |
|---|
| 38 |
h2=plot(Winfo.time,Winfo.dirP(2,:),'r.-'); |
|---|
| 39 |
h3=plot(Winfo.time,Winfo.dirP(3,:),'k.-'); |
|---|
| 40 |
|
|---|
| 41 |
datetick('x',15,'keepticks'); |
|---|
| 42 |
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best'); |
|---|
| 43 |
title(['Direction of Peak Period starting on ',datestr(Winfo.time(:,1),0)]); |
|---|
| 44 |
xlabel('time'); |
|---|
| 45 |
ylabel('Direction (Degrees True)'); |
|---|
| 46 |
|
|---|
| 47 |
%plot the dominant direction |
|---|
| 48 |
|
|---|
| 49 |
fig_dd=figure('Position',[scrsz]); |
|---|
| 50 |
h1=plot(Winfo.time,Winfo.Ddir(1,:),'b.-'); |
|---|
| 51 |
hold on |
|---|
| 52 |
h2=plot(Winfo.time,Winfo.Ddir(2,:),'r.-'); |
|---|
| 53 |
h3=plot(Winfo.time,Winfo.Ddir(3,:),'k.-'); |
|---|
| 54 |
|
|---|
| 55 |
datetick('x',15,'keepticks'); |
|---|
| 56 |
legend([h1, h2, h3],'EMEP','IMLM','nortek','location','best'); |
|---|
| 57 |
title(['Dominant Direction starting on ',datestr(Winfo.time(:,1),0)]); |
|---|
| 58 |
xlabel('time'); |
|---|
| 59 |
ylabel('Direction (Degrees True)'); |
|---|
| 60 |
|
|---|
