displvar.m

来自「用MATLAB进行海洋水团的模拟程序」· M 代码 · 共 46 行

%  DISPLVAR.M: displays individual stations from omp2 produced by statns2.m.
%
%  displvar.m
%
% This program is part of the OMP package from:
% Institut fuer Meereskunde
% J. Karstensen 
% Troplowitzstr. 7
% 22529 Hamburg
% Germany
%
%  It was written by Matthias Tomczak.
%
% BUGS: [e-mail]
%--------------------------------------------
%

disp('  ')
disp('available variables:')
who

%define input file
incontrol = input('Which variable for display?  [salinity]  ','s');
if length(incontrol) > 0
	dataset = incontrol;
else
	dataset = 'salinity';
end

incontrol = input('Overplotting (y/n)?  [n]  ','s');
if incontrol == 'y'
	oplt = incontrol;
else
	oplt = 'n';
end

figure
hold off
if oplt == 'y' hold on; end
dept = -levels;
for i = 1:length(salinity(1,:))
	s = ['plot(' dataset '(:,i),dept)'];
	eval(s);
	pause
end