drawheisenberg.sci

来自「小波分解源代码」· SCI 代码 · 共 37 行

function DrawHeisenberg(x0,x1,y0,y1,v)
// DrawHeisenberg -- Draw Heisenberg rectangle
//  Usage
//    DrawHeisenberg(x0,x1,y0,y1,v)
//  Inputs
//    x0,x1,y0,y1    coordinates of rectangle
//    v              value determining how rectangle is plotted
//                   v < 3 invisible
//                   v > 3 visible
//                   3 < v <= 5   '.'
//                   5 < v <= 10  'o'
//                   10 < v       'x'
//
//  Description
//    This is a utility employed by PlotPhasePlane.
//
//  See Also
//    PlotPhasePlane, CPTour, WPTour
//
//  Copyright Aldo I Maalouf

	if( v > 3)
		mtlb_plot([x0 x1 x1 x0 x0], [y0 y0 y1 y1 y0])
	end 
	if( v > 3 & v <= 5), 
		 mtlb_plot( (x0+x1)/2, (y0+y1)/2, '.')
	else
		 if( v > 5 & v <= 10),
			 mtlb_plot( (x0+x1)/2, (y0+y1)/2, 'o')
		  else
			 if( v > 10),
					mtlb_plot( (x0+x1)/2, (y0+y1)/2, 'x')
			 end
		  end
	   end
endfunction