plotenvironment.m

水声模型 很不错的东西

function PlotEnvironment(Obj)
Ans = inputdlg({'Figure number'}, '', 1, {num2str(gcf)});
if ~isempty(Ans)
   figure(str2num(Ans{1}));
   clf;
   if exist('GUI_SetupGraphMenu.m', 'file');
      GUI_SetupGraphMenu('plot');
   end
   
   MinArr = [];
   MaxArr = [];
   
   NLayers = length(Obj.LayerArr);
   ZTop = 0;
   for ILayer = 1:NLayers
      [NPlt, XLabels, MinVals, MaxVals] = PlotLayer(Obj.LayerArr{ILayer}, ZTop);
      MinArr = [MinArr; MinVals];
      MaxArr = [MaxArr; MaxVals];
      
      ZTop = ZTop + GetLayerThickness(Obj.LayerArr{ILayer});
   end
   AllMin = min(MinArr);
   AllMax = max(MaxArr);
   
   for IPlt = 1:NPlt
      subplot(1, NPlt, IPlt);
      xlabel(XLabels{IPlt});
      view(0, -90);
      LowLim = 0.9*AllMin(IPlt);
      HighLim = 1.1*AllMax(IPlt);
      if LowLim == 0
          if HighLim == 0
              LowLim = -1;
              HighLim = 1;
          else
              LowLim = -0.1*HighLim;
          end
      end
      axis([LowLim HighLim -inf inf]);
   end
   
   subplot(1,NPlt, 1);
   ylabel('Depth (m)');
   
   subplot(1,NPlt,ceil(NPlt/2));
   title(Obj.Name, 'FontSize', 12);
end