gusucode.com > 模糊控制工具箱 fuzzy logic toolbox源码程序 > fuzzy/fuzzy/ja/anfis.m

    % ANFIS   悰栰僞僀僾FIS偺揔墳僯儏乕儘僼傽僕乕孭楙
%
% ANFIS偼悰栰僞僀僾僼傽僕乕悇榑僔僗僥儉(FIS)偺扨弌椡偺儊儞僶僔僢僾娭悢
% 僷儔儊乕僞偺摨掕偵丄僴僀僽儕僢僪側妛廗傾儖僑儕僘儉傪棙梡偟傑偡丅
% 梌偊傜傟偨擖弌椡僨乕僞偵婎偯偒丄嵟彫擇忔朄偲僶僢僋僾儘僷僎乕僔儑儞嵟媫
% 崀壓朄傪慻傒崌偣偨庤朄偱儌僨儖偺FIS儊儞僶僔僢僾娭悢偺僷儔儊乕僞孭楙傪
% 峴偄傑偡丅
% 
% [FIS,ERROR] = ANFIS(TRNDATA) 偼TRNDATA偵僗僩傾偝傟偨擖弌椡妛廗僨乕僞傪
% 梡偄偰FIS僷儔儊乕僞傪僠儏乕僯儞僌偟傑偡丅N擖椡偺FIS偺応崌丄TRNDATA偼
% N+1楍偺峴楍偱丄嵟弶偺N楍偵FIS擖椡丄嵟屻偺楍偵弌椡僨乕僞傪帩偪傑偡丅
% ERROR偼奺僄億僢僋偵偍偗傞孭楙岆嵎乮FIS弌椡偲孭楙僨乕僞偺弌椡偲偺嵎乯偺
% 暯嬒擇忔崻偺攝楍偱偡丅ANFIS偼ANFIS孭楙偺奐巒揰偵棙梡偝傟傞僨僼僅儖僩
% FIS嶌惉偵GENFIS1傪梡偄傑偡丅
%
% [FIS,ERROR] = ANFIS(TRNDATA,INITFIS) 偼FIS峔憿懱傪棙梡偟傑偡丅INITFIS偼
% ANFIS孭楙偺奐巒揰偱偡丅
%
% [FIS,ERROR,STEPSIZE] = ANFIS(TRNDATA,INITFIS,TRNOPT,DISPOPT,[],OPTMETHOD)
% 偼孭楙僆僾僔儑儞偺巜掕偺偨傔偵TRNOPT儀僋僩儖傪梡偄傑偡丅
%       TRNOPT(1): 孭楙僄億僢僋夞悢                (僨僼僅儖僩: 10)
%       TRNOPT(2): 孭楙岆嵎偺栚昗                  (僨僼僅儖僩: 0)
%       TRNOPT(3): 弶婜僗僥僢僾僒僀僘              (僨僼僅儖僩: 0.01)
%       TRNOPT(4): 僗僥僢僾僒僀僘偺尭彮棪          (僨僼僅儖僩: 0.9)
%       TRNOPT(5): 僗僥僢僾僒僀僘偺憹壛棪          (僨僼僅儖僩: 1.1)
% 妛廗僾儘僙僗偼丄巜掕偝傟偨僄億僢僋悢丄傑偨偼丄孭楙岆嵎偺栚昗抣偵摓払偟偨
% 抧揰偱廔椆偟傑偡丅STEPSIZE偼僗僥僢僾僒僀僘偺攝楍偱偡丅僗僥僢僾僒僀僘偺
% 憹尭偼妛廗僆僾僔儑儞偱巜掕偝傟偨憹壛丄傑偨偼尭彮僗僥僢僾僒僀僘棪傪忔偠傞
% 偙偲偱寛傑傝傑偡丅僨僼僅儖僩偺抣傪棙梡偡傞偵偼NaN傪巜掕偟傑偡丅
%
% DISPOPT儀僋僩儖偼妛廗拞偺昞帵僆僾僔儑儞偺巜掕偵棙梡偟傑偡丅1偼忣曬偺
% 昞帵傪丄0偼旕昞帵傪堄枴偟傑偡:
%
%    DISPOPT(1)   :堦斒揑側ANFIS忣曬              (僨僼僅儖僩: 1)
%    DISPOPT(2)   :僄儔乕                         (僨僼僅儖僩: 1)
%    DISPOPT(3)   :奺僷儔儊乕僞偺峏怴帪偺僗僥僢僾僒僀僘(僨僼僅儖僩: 1)
%    DISPOPT(4)   :嵟廔寢壥                       (僨僼僅儖僩: 1)
%
% OPTMETHOD偼妛廗偵棙梡偡傞嵟揔壔庤朄傪巜掕偟傑偡丅1偼僨僼僅儖僩偺僴僀僽儕僢僪
% 朄傪慖戰偟傑偡丅偙傟偼嵟彫擇忔悇掕偲僶僢僋僾儘僷僎乕僔儑儞偺寢崌偟偨庤朄偱偡丅
% 0偼僶僢僋僾儘僷僎乕僔儑儞朄傪棙梡偟傑偡丅
%
% [FIS,ERROR,STEPSIZE,CHKFIS,CHKERROR] = ...
% ANFIS(TRNDATA,INITFIS,TRNOPT,DISPOPT,CHKDATA) 偼僠僃僢僋乮昡壙乯僨乕僞
% CHKDATA傪妛廗僨乕僞僙僢僩偺僆乕僶乕僼傿僢僨傿儞僌偺偨傔偵巜掕偟傑偡丅CHKDATA偼
% TRNDATA偲摨偠僼僅乕儅僢僩偱偡丅僆乕僶乕僼傿僢僨傿儞僌偼丄妛廗僄儔乕偑憹壛偟偰偄傞
% 娫偵丄僠僃僢僉儞僌僄儔乕(CHKFIS偐傜偺弌椡偲僠僃僢僋僨乕僞偲偺嵎乯偑憹壛偟偰偄傞
% 尰徾傪専抦偱偒傑偡丅CHKFIS偼僠僃僢僉儞僌僨乕僞僄儔乕偑嵟彫偵側偭偨偲偒偺FIS偺
% 僗僫僢僾僔儑僢僩偱偡丅CHKERROR偼彂偔僄億僢僋偺僠僃僢僉儞僌僨乕僞僄儔乕偺暯嬒
% 擇忔榓崻偺攝楍偱偡丅
% 
%   椺
%       x = (0:0.1:10)';
%       y = sin(2*x)./exp(x/5);
%       epoch_n = 20;
%       in_fis  = genfis1([x y],5,'gbellmf');
%       out_fis = anfis([x y],in_fis,epoch_n);
%       plot(x,y,x,evalfis(x,out_fis));
%       legend('Training Data','ANFIS Output');
%
% 嶲峫 GENFIS1, ANFISEDIT.


%   Copyright 1994-2004 The MathWorks, Inc.