cycling/perim_plot.m

   1 function perim_plot(t1,t2,pc)
   2 %plots final perimeter of two simulations
   3 %inputs t1, t2 - tign in matrix,
   4 %        pc - path structure pc = cluster_paths(w,1)
   5
   6 mxt = max(t1(:))-0.2;
   7 p = [mxt mxt];
   8 %p = 20;
   9
  10 figure,contour(pc.red.fxlong,pc.red.fxlat,t1,p,'k');
  11 hold on
  12 contour(pc.red.fxlong,pc.red.fxlat,t2,p,'r')
  13 title('Perimeters')
  14 legend('t1','t2')
  15
  16
  17 end % function