nefcrea.m

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

    set_param([sys,'/',subname, '/out_1'],...   
		'position',[440,125,460,145])   
    %-----   
    add_block('built-in/Constant',[sys,'/',subname,'/Constant1'])  
    set_param([sys,'/',subname,'/Constant1'],...  
    		'Value','0',...  
    		'position',[150,240,170,260])  
  
    add_block('built-in/Switch',[sys,'/',subname,'/Switch'])  
    set_param([sys,'/',subname,'/Switch'],...  
    		'Threshold','0.5',...  
    		'position',[200,167,225,233])  
  
    add_block('built-in/Gain',[sys,'/',subname,'/Gain'])  
    set_param([sys,'/',subname,'/Gain'],...  
    		'Gain','0.4',...  
    		'position',[90,164,145,196])  
  
    add_block('built-in/Signal Generator',[sys,'/',subname,'/Rauschen'])  
    set_param([sys,'/',subname,'/Rauschen'],...  
    		'Peak','1.000000',...  
    		'Peak Range','5.000000',...  
    		'Freq','1.000000',...  
    		'Freq Range','5.000000',...  
    		'Wave','Rnd',...  
    		'Units','Rads',...  
    		'position',[25,169,65,191])  
  
  
    %     Subsystem  subname,'/Get Signal'.  
  
    new_system([sys,'/',subname,'/Get Signal'])  
    set_param([sys,'/',subname,'/Get Signal'],'Location',[200,498,478,742])  
  
    add_block('built-in/S-Function',[sys,'/',subname,'/Get Signal/S-Function1'])  
    set_param([sys,'/',subname,'/Get Signal/S-Function1'],...  
    		'function name','getsig',...  
    		'parameters','width,name',...  
    		'position',[65,48,115,72])  
  
    add_block('built-in/Outport',[sys,'/',subname,'/Get Signal/out_1'])  
    set_param([sys,'/',subname,'/Get Signal/out_1'],...  
    		'position',[125,50,145,70])  
    add_line([sys,'/',subname,'/Get Signal'],[120,60;120,60])  
    set_param([sys,'/',subname,'/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,'/',subname,'/Get Signal'],...  
    		'Mask Translate','width=@1;name=@2;')  
    set_param([sys,'/',subname,'/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,'/',subname,'/Get Signal'],...  
    		'Mask Entries','1\/''NEFCON_NOISE''\/')  
  
  
    %     Finished composite block subname,'/Get Signal'.  
  
    set_param([sys,'/',subname,'/Get Signal'],...  
    		'position',[35,210,95,250])  
  
    add_line([sys,'/',subname],[180,135;285,135])  
    add_line([sys,'/',subname],[70,180;85,180])  
    add_line([sys,'/',subname],[115,70;285,70])  
    add_line([sys,'/',subname],[415,135;435,135])  
    add_line([sys,'/',subname],[325,135;350,135])  
    add_line([sys,'/',subname],[230,200;285,200])  
    add_line([sys,'/',subname],[150,180;195,180])  
    add_line([sys,'/',subname],[175,250;180,250;180,220;195,220])  
    add_line([sys,'/',subname],[100,230;140,230;140,200;195,200])  
    set_param([sys,'/',subname],...  
    		'Mask Display','NEFCON\nSigGen')  
  
    %-----   
  
    %     Finished composite block subname .   
   
    set_param([sys,'/',subname ],...   
    		'BackGround',2,...   
    		'hide name',0,...   
    		'position',[60,30,130,80])   
   
end;    % end of generator   
   
% -------------------------------------------------------------------   
% Nefcon-Bounded-SigGen   
% -------------------------------------------------------------------   
subname = 'Bounded SigGen';   
   
if gen==2 & get_param([sys,'/',subname], 'position') == []   % look if generator exists already...   
   
    %     Subsystem  subname.  
  
    new_system([sys,'/',subname])  
    set_param([sys,'/',subname],'Location',[228,66,700,333])  
    %open_system([sys,'/',subname])  
  
    add_block('built-in/Switch',[sys,'/',subname,'/Switch'])  
    set_param([sys,'/',subname,'/Switch'],...  
    		'Threshold','0.5',...  
    		'position',[205,23,230,117])  
  
    add_block('built-in/Signal Generator',[sys,'/',subname,'/Rauschen'])  
    set_param([sys,'/',subname,'/Rauschen'],...  
    		'Peak','1.000000',...  
    		'Peak Range','5.000000',...  
    		'Freq','1.000000',...  
    		'Freq Range','5.000000',...  
    		'Wave','Rnd',...  
    		'Units','Rads',...  
    		'position',[35,29,75,51])  
  
    add_block('built-in/Gain',[sys,'/',subname,'/Gain'])  
    set_param([sys,'/',subname,'/Gain'],...  
    		'Gain','0.4',...  
    		'position',[100,24,155,56])  
  
  
    %     Subsystem  subname,'/Get Signal'.  
  
    new_system([sys,'/',subname,'/Get Signal'])  
    set_param([sys,'/',subname,'/Get Signal'],'Location',[200,498,478,742])  
  
    add_block('built-in/Outport',[sys,'/',subname,'/Get Signal/out_1'])  
    set_param([sys,'/',subname,'/Get Signal/out_1'],...  
    		'position',[125,50,145,70])  
  
    add_block('built-in/S-Function',[sys,'/',subname,'/Get Signal/S-Function1'])  
    set_param([sys,'/',subname,'/Get Signal/S-Function1'],...  
    		'function name','getsig',...  
    		'parameters','width,name',...  
    		'position',[65,48,115,72])  
    add_line([sys,'/',subname,'/Get Signal'],[120,60;120,60])  
    set_param([sys,'/',subname,'/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,'/',subname,'/Get Signal'],...  
    		'Mask Translate','width=@1;name=@2;')  
    set_param([sys,'/',subname,'/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,'/',subname,'/Get Signal'],...  
    		'Mask Entries','1\/''NEFCON_NOISE''\/')  
  
  
    %     Finished composite block subname,'/Get Signal'.  
  
    set_param([sys,'/',subname,'/Get Signal'],...  
    		'position',[30,70,90,110])  
  
    add_block('built-in/Constant',[sys,'/',subname,'/Constant1'])  
    set_param([sys,'/',subname,'/Constant1'],...  
    		'Value','0',...  
    		'position',[140,100,160,120])  
  
    add_block('built-in/Inport',[sys,'/',subname,'/in_1'])   
    set_param([sys,'/',subname,'/in_1'],...   
		'Port', '1',...   
   		'position',[15,190,35,210])  
  
    add_block('built-in/Derivative',[sys,'/',subname,'/Derivative'])  
    set_param([sys,'/',subname,'/Derivative'],...  
    		'position',[70,230,100,260])  
  
    add_block('built-in/Mux',[sys,'/',subname,'/Mux'])  
    set_param([sys,'/',subname,'/Mux'],...  
    		'inputs','2',...  
    		'position',[120,190,150,250])  
  
    add_block('built-in/S-Function',[sys,'/',subname,'/S-function'])  
    set_param([sys,'/',subname,'/S-function'],...  
    		'function name','snefsign',...  
    		'position',[175,210,235,230])  
  
    add_block('built-in/Demux',[sys,'/',subname,'/Demux'])  
    set_param([sys,'/',subname,'/Demux'],...  
    		'outputs','3',...  
    		'position',[260,200,280,240])  
  
    add_block('built-in/Sum',[sys,'/',subname,'/Sum'])  
    set_param([sys,'/',subname,'/Sum'],...  
    		'position',[310,32,335,188])  
  
    add_block('built-in/Gain',[sys,'/',subname,'/Gain1'])  
    set_param([sys,'/',subname,'/Gain1'],...  
    		'position',[355,94,410,126])  
  
    add_block('built-in/Outport',[sys,'/',subname,'/out_1'])  
    set_param([sys,'/',subname,'/out_1'],...  
    		'position',[425,100,445,120])  
  
  
    autoline([sys,'/',subname],'in_1/1', 'Derivative/1');   
    autoline([sys,'/',subname],'in_1/1', 'Mux/1');   
    autoline([sys,'/',subname],'Derivative/1', 'Mux/2');   
    autoline([sys,'/',subname],'Mux/1', 'S-function/1');   
    autoline([sys,'/',subname],'S-function/1', 'Demux/1');   
    autoline([sys,'/',subname],'Demux/1', 'Sum/2');   
    autoline([sys,'/',subname],'Rauschen/1', 'Gain/1');   
    autoline([sys,'/',subname],'Gain/1', 'Switch/1');   
    autoline([sys,'/',subname],'Get Signal/1', 'Switch/2');   
    autoline([sys,'/',subname],'Constant1/1', 'Switch/3');   
    autoline([sys,'/',subname],'Switch/1', 'Sum/1');   
    autoline([sys,'/',subname],'Sum/1', 'Gain1/1');   
    autoline([sys,'/',subname],'Gain1/1', 'out_1/1');   
  
    set_param([sys,'/',subname],...   
    		'Mask Display','NEFCON\nBounded\nSigGen',...   
    		'Mask Dialogue','eval(''nefsign'');')   
   
    %     Finished composite block subname.   
   
    set_param([sys,'/',subname],...   
    		'BackGround',2,...   
    		'hide name',0,...   
    		'position',[10,10,80,60])   
   
    drawnow   
   
  
end;    % end of bounded generator   
   
drawnow