WAFOFIG1 Linear simulation from a Torsethaugen spectrum. Use the mouse to zoom in on a specific region.
Prints a caption "made by WAFO" in current figure. | |
Plots the surface elevation of timeseries. | |
Clear variables and functions from memory. | |
Convert number to string. (Fast version) | |
Zoom in and out on a 2-D plot. |
01 function wafofig1 02 % WAFOFIG1 Linear simulation from a Torsethaugen spectrum. 03 % Use the mouse to zoom in on a specific region. 04 % 05 06 global WAFOFIGNUM 07 08 if isempty(WAFOFIGNUM) 09 disp('You must start wafodemo in order to run this script') 10 clear global WAFOFIGNUM 11 return 12 end 13 14 global xt Hm0 Tp 15 16 disp([' Hm0 = ' num2str(Hm0), ' Tp = ', num2str(Tp)]) 17 waveplot(xt,'-',1,1) 18 zoom xon 19 wafostamp('Figure 1','(ER)') 20
Comments or corrections to the WAFO group