WAFOFIG2 Spectral densities: Original Torsethaugen spectrum (solid), Estimated from linear simulations (dash), and 95% Confidence interval (dotted)
Prints a caption "made by WAFO" in current figure. | |
Plot a spectral density | |
Clear variables and functions from memory. | |
Hold current graph. | |
Return hold state. |
01 function wafofig2 02 % WAFOFIG2 Spectral densities: 03 % Original Torsethaugen spectrum (solid), 04 % Estimated from linear simulations (dash), and 05 % 95% Confidence interval (dotted) 06 % 07 08 global WAFOFIGNUM 09 10 if isempty(WAFOFIGNUM) 11 disp('You must start wafodemo in order to run this script') 12 clear global WAFOFIGNUM 13 return 14 end 15 16 global St Ste 17 wspecplot(St,1,'k-') 18 ih=ishold; 19 hold on 20 wspecplot(Ste,1,'--') 21 if ~ih, hold off, end 22 wafostamp('Figure 2','(ER)') 23
Comments or corrections to the WAFO group