sample3.m

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

function [ret,x0,str,ts,xts]=sample3(t,x,u,flag);
%SAMPLE3	is the M-file description of the SIMULINK system named SAMPLE3.
%	The block-diagram can be displayed by typing: SAMPLE3.
%
%	SYS=SAMPLE3(T,X,U,FLAG) returns depending on FLAG certain
%	system values given time point, T, current state vector, X,
%	and input vector, U.
%	FLAG is used to indicate the type of output to be returned in SYS.
%
%	Setting FLAG=1 causes SAMPLE3 to return state derivatives, FLAG=2
%	discrete states, FLAG=3 system outputs and FLAG=4 next sample
%	time. For more information and other options see SFUNC.
%
%	Calling SAMPLE3 with a FLAG of zero:
%	[SIZES]=SAMPLE3([],[],[],0),  returns a vector, SIZES, which
%	contains the sizes of the state vector and other parameters.
%		SIZES(1) number of states
%		SIZES(2) number of discrete states
%		SIZES(3) number of outputs
%		SIZES(4) number of inputs
%		SIZES(5) number of roots (currently unsupported)
%		SIZES(6) direct feedthrough flag
%		SIZES(7) number of sample times
%
%	For the definition of other parameters in SIZES, see SFUNC.
%	See also, TRIM, LINMOD, LINSIM, EULER, RK23, RK45, ADAMS, GEAR.

% Note: This M-file is only used for saving graphical information;
%       after the model is loaded into memory an internal model
%       representation is used.

% the system will take on the name of this mfile:
sys = mfilename;
new_system(sys)
simver(1.3)
if (0 == (nargin + nargout))
     set_param(sys,'Location',[8,47,741,297])
     open_system(sys)
end;
set_param(sys,'algorithm',     'RK-45')
set_param(sys,'Start time',    '0.0')
set_param(sys,'Stop time',     '5')
set_param(sys,'Min step size', '0.04')
set_param(sys,'Max step size', '0.04')
set_param(sys,'Relative error','1e-3')
set_param(sys,'Return vars',   '')

add_block('built-in/Scope',[sys,'/','signal'])
set_param([sys,'/','signal'],...
		'BackGround',3,...
		'Vgain','6.000000',...
		'Hgain','5.000000',...
		'Vmax','12.000000',...
		'Hmax','10.000000',...
		'Window',[548,321,813,563])
open_system([sys,'/','signal'])
set_param([sys,'/','signal'],...
		'position',[495,17,515,43])

add_block('built-in/Mux',[sys,'/','Mux5'])
set_param([sys,'/','Mux5'],...
		'hide name',0,...
		'inputs','2',...
		'position',[420,14,450,41])

add_block('built-in/Mux',[sys,'/','Mux4'])
set_param([sys,'/','Mux4'],...
		'hide name',0,...
		'inputs','2',...
		'position',[230,14,260,41])

add_block('built-in/Scope',[sys,'/','dx'])
set_param([sys,'/','dx'],...
		'BackGround',3,...
		'Vgain','2.000000',...
		'Hgain','5.000000',...
		'Vmax','4.000000',...
		'Hmax','10.000000',...
		'Window',[5,320,270,559])
open_system([sys,'/','dx'])
set_param([sys,'/','dx'],...
		'position',[300,17,320,43])

add_block('built-in/Sum',[sys,'/','error'])
set_param([sys,'/','error'],...
		'inputs','+-',...
		'position',[155,122,170,158])

add_block('built-in/Transfer Fcn',[sys,'/','pt2'])
set_param([sys,'/','pt2'],...
		'Denominator','[0.02 0.16 1]',...
		'position',[435,122,550,158])


%     Subsystem  'Fuzzi'.

new_system([sys,'/','Fuzzi'])
set_param([sys,'/','Fuzzi'],'Location',[220,420,895,753])

add_block('built-in/Mux',[sys,'/','Fuzzi/Mux1'])
set_param([sys,'/','Fuzzi/Mux1'],...
		'inputs','2',...
		'position',[425,305,455,325])

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',[609,369,873,613],...
		'position',[475,305,495,325])

add_block('built-in/Stop Simulation',[sys,'/','Fuzzi/Stop Simulation'])
set_param([sys,'/','Fuzzi/Stop Simulation'],...
		'position',[455,365,495,385])

add_block('built-in/Demux',[sys,'/','Fuzzi/Demux'])
set_param([sys,'/','Fuzzi/Demux'],...
		'outputs','3',...
		'position',[365,295,400,335])

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

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation3'])
set_param([sys,'/','Fuzzi/Saturation3'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[145,350,170,370])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn3'])
set_param([sys,'/','Fuzzi/GainIn3'],...
		'Gain','0.8',...
		'position',[95,350,115,370])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_3'])
set_param([sys,'/','Fuzzi/in_3'],...
		'Port','3',...
		'position',[50,350,70,370])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation2'])
set_param([sys,'/','Fuzzi/Saturation2'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[145,305,170,325])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn2'])
set_param([sys,'/','Fuzzi/GainIn2'],...
		'Gain','2',...
		'position',[95,305,115,325])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_2'])
set_param([sys,'/','Fuzzi/in_2'],...
		'Port','2',...
		'position',[50,305,70,325])

add_block('built-in/Saturation',[sys,'/','Fuzzi/Saturation1'])
set_param([sys,'/','Fuzzi/Saturation1'],...
		'Lower Limit','-1',...
		'Upper Limit','1',...
		'position',[145,260,170,280])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainIn1'])
set_param([sys,'/','Fuzzi/GainIn1'],...
		'position',[95,260,115,280])

add_block('built-in/Inport',[sys,'/','Fuzzi/in_1'])
set_param([sys,'/','Fuzzi/in_1'],...
		'position',[50,260,70,280])

add_block('built-in/Mux',[sys,'/','Fuzzi/Mux'])
set_param([sys,'/','Fuzzi/Mux'],...
		'inputs','3',...
		'position',[220,245,250,395])

add_block('built-in/Switch',[sys,'/','Fuzzi/Switch'])
set_param([sys,'/','Fuzzi/Switch'],...
		'Threshold','0.5',...
		'position',[315,43,340,137])

add_block('built-in/Signal Generator',[sys,'/','Fuzzi/Rauschen'])
set_param([sys,'/','Fuzzi/Rauschen'],...
		'Peak','1.000000',...
		'Peak Range','5.000000',...
		'Freq','1.000000',...
		'Freq Range','5.000000',...
		'Wave','Rnd',...
		'Units','Rads',...
		'position',[145,49,185,71])

add_block('built-in/Gain',[sys,'/','Fuzzi/Gain'])
set_param([sys,'/','Fuzzi/Gain'],...
		'Gain','0.4',...
		'position',[210,44,265,76])


%     Subsystem  'Fuzzi/Get Signal'.

new_system([sys,'/','Fuzzi/Get Signal'])
set_param([sys,'/','Fuzzi/Get Signal'],'Location',[200,498,478,742])

add_block('built-in/S-Function',[sys,'/','Fuzzi/Get Signal/S-Function1'])
set_param([sys,'/','Fuzzi/Get Signal/S-Function1'],...
		'function name','getsig',...
		'parameters','width,name',...
		'position',[65,48,115,72])

add_block('built-in/Outport',[sys,'/','Fuzzi/Get Signal/out_1'])
set_param([sys,'/','Fuzzi/Get Signal/out_1'],...
		'position',[125,50,145,70])
add_line([sys,'/','Fuzzi/Get Signal'],[120,60;120,60])
set_param([sys,'/','Fuzzi/Get Signal'],...
		'Mask Display','GETSIG',...
		'Mask Type','GEt Signal',...
		'Mask Dialogue','Put a signal into the MATLAB workspace.  Specify the signal width and name. | Signal Width: | Name (in quotes):')
set_param([sys,'/','Fuzzi/Get Signal'],...
		'Mask Translate','width=@1;name=@2;')
set_param([sys,'/','Fuzzi/Get Signal'],...
		'Mask Help','Get signal from the MATLAB workspace. To be used in conjunction with PUTSIG. Names must be entered as strings.  The code for this block is getsig.c')
set_param([sys,'/','Fuzzi/Get Signal'],...
		'Mask Entries','1\/''NEFCON_NOISE''\/')


%     Finished composite block 'Fuzzi/Get Signal'.

set_param([sys,'/','Fuzzi/Get Signal'],...
		'position',[140,90,200,130])

add_block('built-in/Constant',[sys,'/','Fuzzi/Constant1'])
set_param([sys,'/','Fuzzi/Constant1'],...
		'Value','0',...
		'position',[250,120,270,140])

add_block('built-in/Sum',[sys,'/','Fuzzi/Sum'])
set_param([sys,'/','Fuzzi/Sum'],...
		'position',[420,52,445,208])

add_block('built-in/Gain',[sys,'/','Fuzzi/GainOut'])
set_param([sys,'/','Fuzzi/GainOut'],...
		'Gain','4',...
		'position',[485,125,505,145])

add_block('built-in/Outport',[sys,'/','Fuzzi/out_1'])
set_param([sys,'/','Fuzzi/out_1'],...
		'position',[535,125,555,145])
add_line([sys,'/','Fuzzi'],[75,270;90,270])
add_line([sys,'/','Fuzzi'],[120,270;140,270])
add_line([sys,'/','Fuzzi'],[175,270;215,270])
add_line([sys,'/','Fuzzi'],[75,315;90,315])