inbox.m

这是一个等高线拟合的程序源代码,程序很复杂,但相当精致.不过其中有一处可能在有的机器上需要略微修改一下才能正常.

function test=inbox(x,y)

%	controleert of het punt x,y in het 
%	vierkant ,gevormd door XSIZE en YSIZE, gelegen is.

global XSIZE
global YSIZE

if (x > 1) & (x < XSIZE)
	if (y > 1) & (y < YSIZE)
		test = 1;
	else test = 0;
	end
else test = 0;
end