sample4.m

模糊神经网络采用matlab编程 o install NEFCON follow these steps: 1. Unpack the tar file NEFCON.TAR into your MA

add_block('built-in/Sum',[sys,'/','Sum'])
set_param([sys,'/','Sum'],...
		'orientation',1,...
		'hide name',0,...
		'inputs','+-',...
		'position',[375,220,395,240])

add_block('built-in/Signal Generator',[sys,'/','Noise'])
set_param([sys,'/','Noise'],...
		'Peak','0.500000',...
		'Peak Range','2.500000',...
		'Freq','2.000000',...
		'Freq Range','3.278689',...
		'Wave','Saw',...
		'Units','Rads',...
		'position',[115,28,160,62])


%     Subsystem  'Fuzzi'.

new_system([sys,'/','Fuzzi'])
set_param([sys,'/','Fuzzi'],'Location',[100,100,600,400])

add_block('built-in/Mux',[sys,'/','Fuzzi/Mux'])
set_param([sys,'/','Fuzzi/Mux'],...
		'position',[205,52,235,248])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_1'])
set_param([sys,'/','Fuzzi/in_1'],...
		'position',[35,65,55,85])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn1'])
set_param([sys,'/','Fuzzi/GainIn1'],...
		'Gain','3',...
		'position',[80,65,100,85])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation1'])
set_param([sys,'/','Fuzzi/Saturation1'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[130,65,155,85])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_2'])
set_param([sys,'/','Fuzzi/in_2'],...
		'Port','2',...
		'position',[35,110,55,130])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn2'])
set_param([sys,'/','Fuzzi/GainIn2'],...
		'position',[80,110,100,130])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation2'])
set_param([sys,'/','Fuzzi/Saturation2'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[130,110,155,130])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_3'])
set_param([sys,'/','Fuzzi/in_3'],...
		'Port','3',...
		'position',[35,155,55,175])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn3'])
set_param([sys,'/','Fuzzi/GainIn3'],...
		'Gain','0.33',...
		'position',[80,155,100,175])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation3'])
set_param([sys,'/','Fuzzi/Saturation3'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[130,155,155,175])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_4'])
set_param([sys,'/','Fuzzi/in_4'],...
		'Port','4',...
		'position',[35,200,55,220])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn4'])
set_param([sys,'/','Fuzzi/GainIn4'],...
		'Gain','0.33',...
		'position',[80,200,100,220])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation4'])
set_param([sys,'/','Fuzzi/Saturation4'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[130,200,155,220])

add_block('built-in/S-Function',[sys,'/',['Fuzzi/Nefcon ',13,'Lern-System']])
set_param([sys,'/',['Fuzzi/Nefcon ',13,'Lern-System']],...
		'function name','snefcon',...
		'position',[280,120,335,160])

add_block('built-in/Demux',[sys,'/','Fuzzi/Demux'])
set_param([sys,'/','Fuzzi/Demux'],...
		'outputs','3',...
		'position',[350,120,385,160])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainOut'])
set_param([sys,'/','Fuzzi/GainOut'],...
		'Gain','10',...
		'position',[410,90,430,110])

add_block('built-in/Outport',[sys,'/','Fuzzi/out_1'])
set_param([sys,'/','Fuzzi/out_1'],...
		'position',[460,90,480,110])

add_block('built-in/Stop Simulation',[sys,'/','Fuzzi/Stop Simulation'])
set_param([sys,'/','Fuzzi/Stop Simulation'],...
		'position',[440,190,480,210])

add_block('built-in/Scope',[sys,'/','Fuzzi/Error'])
set_param([sys,'/','Fuzzi/Error'],...
		'BackGround',3,...
		'Vgain','2.000000',...
		'Hgain','5.000000',...
		'Vmax','4.000000',...
		'Hmax','10.000000',...
		'Window',[100,100,380,320],...
		'position',[460,130,480,150])

add_block('built-in/Mux',[sys,'/','Fuzzi/Mux1'])
set_param([sys,'/','Fuzzi/Mux1'],...
		'inputs','2',...
		'position',[410,130,440,150])
add_line([sys,'/','Fuzzi'],[60,75;75,75])
add_line([sys,'/','Fuzzi'],[105,75;125,75])
add_line([sys,'/','Fuzzi'],[160,75;200,75])
add_line([sys,'/','Fuzzi'],[60,120;75,120])
add_line([sys,'/','Fuzzi'],[105,120;125,120])
add_line([sys,'/','Fuzzi'],[160,120;187,120;187,125;200,125])
add_line([sys,'/','Fuzzi'],[60,165;75,165])
add_line([sys,'/','Fuzzi'],[105,165;125,165])
add_line([sys,'/','Fuzzi'],[160,165;187,165;187,175;200,175])
add_line([sys,'/','Fuzzi'],[60,210;75,210])
add_line([sys,'/','Fuzzi'],[105,210;125,210])
add_line([sys,'/','Fuzzi'],[160,210;187,210;187,225;200,225])
add_line([sys,'/','Fuzzi'],[240,150;252,150;252,140;275,140])
add_line([sys,'/','Fuzzi'],[340,140;345,140])
add_line([sys,'/','Fuzzi'],[390,125;395,125;405,100])
add_line([sys,'/','Fuzzi'],[435,100;455,100])
add_line([sys,'/','Fuzzi'],[390,140;397,140;397,135;405,135])
add_line([sys,'/','Fuzzi'],[445,140;455,140])
add_line([sys,'/','Fuzzi'],[390,155;420,155;420,200;435,200])
set_param([sys,'/','Fuzzi'],...
		'Mask Display','NEFCON\nFuzzy')


%     Finished composite block 'Fuzzi'.

set_param([sys,'/','Fuzzi'],...
		'orientation',2,...
		'BackGround',2,...
		'hide name',0,...
		'position',[235,245,295,335])

add_block('built-in/Scope',[sys,'/','Scope'])
set_param([sys,'/','Scope'],...
		'hide name',0,...
		'Vgain','2.000000',...
		'Hgain','10.000000',...
		'Vmax','4.000000',...
		'Hmax','20.000000',...
		'Window',[72,525,352,745],...
		'position',[475,127,495,153])

add_block('built-in/Mux',[sys,'/','Mux2'])
set_param([sys,'/','Mux2'],...
		'hide name',0,...
		'inputs','2',...
		'position',[430,124,460,151])


%     Subsystem  ['Nefcon',13,'System'].

new_system([sys,'/',['Nefcon',13,'System']])
set_param([sys,'/',['Nefcon',13,'System']],'Location',[350,404,888,586])
set_param([sys,'/',['Nefcon',13,'System']],...
		'Mask Display','Nefcon\nSystem',...
		'Mask Type','Nefcon',...
		'Mask Dialogue','eval(''nefgui'')')


%     Finished composite block ['Nefcon',13,'System'].

set_param([sys,'/',['Nefcon',13,'System']],...
		'BackGround',2,...
		'Drop Shadow',4,...
		'position',[485,9,540,61])

add_block('built-in/Scope',[sys,'/','Scope2'])
set_param([sys,'/','Scope2'],...
		'hide name',0,...
		'Vgain','1.000000',...
		'Hgain','10.000000',...
		'Vmax','2.000000',...
		'Hmax','20.000000',...
		'Window',[188,491,468,711],...
		'position',[215,32,235,58])
add_line(sys,[295,190;380,190;380,215])
add_line(sys,[295,160;415,160;415,260;300,260])
add_line(sys,[170,130;390,130;390,215])
add_line(sys,[305,160;305,110])
add_line(sys,[315,190;315,110])
add_line(sys,[335,130;335,110])
add_line(sys,[320,65;320,50;375,50])
add_line(sys,[465,140;470,140])
add_line(sys,[115,180;115,140;135,140])
add_line(sys,[90,150;90,130;135,130])
add_line(sys,[65,120;135,120])
add_line(sys,[390,130;425,130])
add_line(sys,[380,190;380,145;425,145])
add_line(sys,[215,185;235,185])
add_line(sys,[215,185;220,185;220,145;325,145;325,110])
add_line(sys,[165,45;210,45])
add_line(sys,[465,205;475,205])
add_line(sys,[295,175;400,175;400,195;425,195])
add_line(sys,[415,210;425,210])
add_line(sys,[400,185;400,280;300,280])
add_line(sys,[385,245;385,300;300,300])
add_line(sys,[295,205;365,205;365,320;300,320])
add_line(sys,[230,290;165,290;165,190;185,190])
add_line(sys,[175,45;185,180])

drawnow

% Return any arguments.
if (nargin | nargout)
	% Must use feval here to access system in memory
	if (nargin > 3)
		if (flag == 0)
			eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
		else
			eval(['ret =', sys,'(t,x,u,flag);'])
		end
	else
		[ret,x0,str,ts,xts] = feval(sys);
	end
else
	drawnow % Flash up the model and execute load callback
end