function noise_a()

load noi                               

a = figure('Color',[0.8 0.8 0.8], ...
	'Colormap',mat0, ...
	'PointerShapeCData',mat1, ...
	'Position',[227 116 560 420], ...
	'Tag','Fig1');
b = uicontrol('Parent',a, ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Callback','val=get(gco,''Value'');save V val', ...
	'Max',300, ...
	'Position',[21 20 20 320], ...
	'Style','slider', ...
	'Tag','Slider1', ...
	'Value',291);
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Position',[202.5 128.25 133.5 93], ...
	'String','Enter noise level,expected number of pixel errors', ...
	'Style','text', ...
	'Tag','StaticText1');
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Position',[42.75 225 46.5 20.25], ...
	'String','300', ...
	'Style','text', ...
	'Tag','StaticText2');
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Position',[42 6.75 45 25.5], ...
	'String','0', ...
	'Style','text', ...
	'Tag','StaticText3');
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Position',[43.5 75 47.25 25.5], ...
	'String','100', ...
	'Style','text', ...
	'Tag','StaticText5');
b = uicontrol('Parent',a, ...
	'Units','points', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'Position',[43.5 152.25 48 32.25], ...
	'String','200', ...
	'Style','text', ...
	'Tag','StaticText6');