Anfis-基于模糊推理的自适应神经网络程序(免费分享)

news2024/11/18 7:35:57

输出结果展示:

完整代码:

clear;close all;

gamma=0.75;%设定惯性因子

eps1=0.005;%设定停止训练的条件参数

m1=8;%设定隶属函数个数

m2=8;

a=-1;b=1;

w0=a+(b-a)*rand(1,m1*m2);%初始化权值阵

for i=1:2

switch i

case 1,beta=0.75;%设定学习率

otherwise,beta=0.25;

end

c=[2/7*(0:m1-1)-1;2/7*(0:m2-1)-1];%初始化Cij

sigma=0.1213*ones(2,m1);%初始化σij 

w=w0;

mu=zeros(2,m1);%初始化隶属度层

alpha=zeros(1,m1*m2);%初始化规则层

alpha_=zeros(1,m1*m2);%初始化归一化层

delta2=zeros(2,m1);%初始化δ2

dw=zeros(1,m1*m2);%初始化权值变化量

dc=zeros(2,m1);%初始化c变化量

dsigma=zeros(2,m1);%初始化σij变化量

%----------------训练过程----------------%

err=1;%初始化误差

er=[];

counter=0;%统计训练步数

while(err>=eps1)

Par_E_w=zeros(1,m1*m2);%误差对权值阵的偏导数

Par_E_c=zeros(2,m1);%误差对c的偏导数

Par_E_sigma=zeros(2,m1);%误差对σ的偏导数

E=0;

for x1=-1:2/19:1

for x2=-1:2/19:1

yd=sin(pi*x1)*cos(pi*x2);%期望输出,导师信号

%正向传播

mu(1,:)=exp(-(x1-c(1,:)).^2./sigma(1,:).^2);%计算隶属度层

mu(2,:)=exp(-(x2-c(2,:)).^2./sigma(2,:).^2);

s=zeros(2,m1,m1*m2);%初始化Sij

for m=1:m1

for n=1:m2

alpha((m-1)*m2+n)=min(mu(1,m),mu(2,n));%计算规则层(取小运算)

if mu(1,m)<=mu(2,n)

s(1,m,(m-1)*m2+n)=1;

end

if mu(1,m)>=mu(2,n)

s(2,n,(m-1)*m2+n)=1;

end

end

end

alpha_=alpha/sum(alpha);%计算归一化层

y=alpha_*w.';%计算网络输出

E=E+1/2*(yd-y)^2;%计算误差

%反向传播

delta5=yd-y;

delta4=delta5*w;

for k=1:m1*m2

delta3(k)=delta4(k)*(sum(alpha)-alpha(k))./sum(alpha)^2;

end

for m=1:2

for n=1:m1

delta2(m,n)=0;

for l=1:m1*m2

delta2(m,n)=delta2(m,n)+delta3(l)*s(m,n,l)*mu(m,n);

end

end

end

Par_E_w=Par_E_w-delta5*alpha_;%计算偏导数

Par_E_c(1,:)=Par_E_c(1,:)-2*delta2(1,:).*(x1-c(1,:))./sigma(1,:).^2;

Par_E_c(2,:)=Par_E_c(2,:)-2*delta2(2,:).*(x2-c(2,:))./sigma(2,:).^2;

Par_E_sigma(1,:)=Par_E_sigma(1,:)-2*delta2(1,:).*(x1-c(1,:)).^2./sigma(1,:).^3;

Par_E_sigma(2,:)=Par_E_sigma(2,:)-2*delta2(2,:).*(x2-c(2,:)).^2./sigma(2,:).^3;

end

end

num=20*20;

Par_E_w=Par_E_w/num;

Par_E_c=Par_E_c/num;

Par_E_sigma=Par_E_sigma/num;

dw=-beta*Par_E_w+gamma*dw;

dc=-beta*Par_E_c+gamma*dc;

dsigma=-beta*Par_E_sigma+gamma*dsigma;

w=w+dw;

c=c+dc;

sigma=sigma+dsigma;

counter=counter+1;

er(counter)=E/num;

err=E/num;

% if counter>1000

% break;

% end

end

%----------------测试过程----------------%

xx1=-1:2/19:1;

xx2=-1:2/19:1;

yd1=zeros(20,20);

for m=1:20

for n=1:20

yd1(m,n)=sin(pi*xx1(m))*cos(pi*xx2(n));%期望输出

mu(1,:)=exp(-(xx1(m)-c(1,:)).^2./sigma(1,:).^2);%计算隶属度层

mu(2,:)=exp(-(xx2(n)-c(2,:)).^2./sigma(2,:).^2);

for k=1:m1 %计算规则层

for l=1:m2

alpha((k-1)*m2+l)=min(mu(1,k),mu(2,l));

end

end

alpha_=alpha/sum(alpha);%计算归一化层

yr(m,n)=alpha_*w.'; %计算网络输出

end

end

errorf1=1/2*(yd1-yr).^2;%计算误差

xxx1=-1:2/11:1;

xxx2=-1:2/11:1;

yd2=zeros(12,12);

for m=1:12

for n=1:12

yd2(m,n)=sin(pi*xxx1(m))*cos(pi*xxx2(n));%期望输出

mu(1,:)=exp(-(xxx1(m)-c(1,:)).^2./sigma(1,:).^2);%计算隶属度层

mu(2,:)=exp(-(xxx2(n)-c(2,:)).^2./sigma(2,:).^2);

for k=1:m1 %计算规则层

for l=1:m2

alpha((k-1)*m2+l)=min(mu(1,k),mu(2,l));

end

end

alpha_=alpha/sum(alpha);%计算归一化层

yr2(m,n)=alpha_*w.'; %计算网络输出

end

end

errorf2=1/2*(yd1-yr).^2;%计算误差

%----------------绘图----------------%

figure(i);

sn=sprintf('β=%4.2f,γ=%4.2f',beta,gamma);

X=ones(size(xx2.'))*xx1;

Y=xx2.'*ones(size(xx1));

subplot(2,2,1);

surf(X,Y,yd1);

xlabel('x1');

ylabel('x2');

zlabel('期望的输出yd');

title(sn);

subplot(2,2,3);

surf(X,Y,yr);

xlabel('x1');

ylabel('x2');

zlabel('实际网络的输出yr');

title(sn);

subplot(2,2,2);

plot(er);

xlabel('训练步数');

ylabel('误差');

title(sn);

subplot(2,2,4);

surf(X,Y,errorf1);

xlabel('x1');

ylabel('x2');

zlabel('误差');

title(sn);

figure(i+2);

sn=sprintf('β=%4.2f,γ=%4.2f 泛化能力测试',beta,gamma);

X=ones(size(xxx2.'))*xxx1;

Y=xxx2.'*ones(size(xxx1));

subplot(2,1,1);

surf(X,Y,yd2);

xlabel('x1');

ylabel('x2');

zlabel('期望的输出yd');

title(sn);

subplot(2,1,2);

surf(X,Y,yr2);

xlabel('x1');

ylabel('x2');

zlabel('实际网络的输出yr');

title(sn);

beta

counter

end

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.coloradmin.cn/o/163890.html

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈,一经查实,立即删除!

相关文章

ESP-IDF:链表例程实现创建,增加,打印数据成员,释放链表空间等功能

链表例程&#xff1a; typedef struct LISTNODE { void *data_p; LISTNODE *next; } mlistnode; typedef struct MYLIST { int size; mlistnode *head; } mylist; mylist *initial_mylist() { mylist *p (mylist *)malloc(sizeof(mylist)); p->size 0; p->head (ml…

下载指定的tomcat版本和配置

如何下载指定的tomcat版本 tomcat官网:https://archive.apache.org/ tomcat指定版本下载地址&#xff1a;https://archive.apache.org/dist/tomcat/ 找到指定的版本&#xff0c;例如这里要找到tomcat8.0.1 bin是二进制文件&#xff0c;src是源码文件 配置tomcat环境变量 t…

Paddle进阶实战系列(二):智慧交通预测系统

✨写在前面&#xff1a;强烈推荐给大家一个优秀的人工智能学习网站&#xff0c;内容包括人工智能基础、机器学习、深度学习神经网络等&#xff0c;详细介绍各部分概念及实战教程&#xff0c;通俗易懂&#xff0c;非常适合人工智能领域初学者及研究者学习。➡️点击跳转到网站。…

[ 环境搭建篇 ] 安装python环境并配置环境变量(附python3.10.3安装包)

&#x1f36c; 博主介绍 &#x1f468;‍&#x1f393; 博主介绍&#xff1a;大家好&#xff0c;我是 _PowerShell &#xff0c;很高兴认识大家~ ✨主攻领域&#xff1a;【渗透领域】【数据通信】 【通讯安全】 【web安全】【面试分析】 &#x1f389;点赞➕评论➕收藏 养成习…

力扣刷题记录——496. 下一个更大元素 I、500. 键盘行、506. 相对名次

本专栏主要记录力扣的刷题记录&#xff0c;备战蓝桥杯&#xff0c;供复盘和优化算法使用&#xff0c;也希望给大家带来帮助&#xff0c;博主是算法小白&#xff0c;希望各位大佬不要见笑&#xff0c;今天要分享的是——《496. 下一个更大元素 I、500. 键盘行、506. 相对名次》。…

Acwing4700. 何以包邮?(DP,01背包)

新学期伊始&#xff0c;适逢顿顿书城有购书满 x 元包邮的活动&#xff0c;小 P 同学欣然前往准备买些参考书。 一番浏览后&#xff0c;小 P 初步筛选出 n 本书加入购物车中&#xff0c;其中第 i 本&#xff08;1≤i≤n&#xff09;的价格为 ai 元。 考虑到预算有限&#xff0…

【大厂高频真题100题】《删除无效的括号》 真题练习第24题 持续更新~

删除无效的括号 给你一个由若干括号和字母组成的字符串 s ,删除最小数量的无效括号,使得输入的字符串有效。 返回所有可能的结果。答案可以按 任意顺序 返回。 示例 1: 输入:s = "()())()" 输出:["(())()","()()()"] 示例 2: 输入:…

1.初识React

React是用于构建用户界面的JavaScript库&#xff0c;可以应用于web&#xff0c;app(react-native),VR(react 360) 目录 1 安装React 2 简单使用 2.1 在页面上创建一个元素 2.2 React.createElement() 2.3 ReactDom.render() 3 React脚手架 3.1 初始化项目 3.2 …

国际人才考试中级的一点备考经验

在学英语的过程中&#xff0c;考证算是一件检验自己学习成果不错的方法&#xff0c;一开始是考虑了考雅思的&#xff0c;但综合自己幼儿园水平的听力&#xff0c;打算先放一放&#xff0c;考一考国才试试水。 国才考试近几年才有&#xff0c;知名度稍差&#xff0c;不过它不限制…

【Nginx】Nginx原理及优化参数配置

1. master和worker2. worker如何进行工作3. 一个master和多个woker有好处4. 设置多少个worker合适5. 连接数worker_connection 1. master和worker 2. worker如何进行工作 3. 一个master和多个woker有好处 首先&#xff0c;对于每个 worker 进程来说&#xff0c;独立的进程&am…

读书:《有无之境:王阳明哲学的精神》

《有无之境&#xff1a;王阳明哲学的精神》 王阳明晚年的时候&#xff0c;把他的哲学概括成了四句话&#xff0c;即四句教&#xff1a; 无善无恶心之体&#xff1b; 有善有恶意之动&#xff1b; 知善知恶是良知&#xff1b; 为善去恶是格物。 第一句&#xff1a;无善无恶心…

Trino源码分析:sql字段解析

业务中需要对Trino查询语句中涉及的字段进行处理&#xff0c;所以对这一段源码进行追踪分析&#xff0c;记录如下。 源码追踪是从QueuedStatementResource类开始的。 QueuedStatementResource类与ExecutingStatementResource类&#xff0c;提供用户执行查询相关的Restful接口。…

【C进阶】自定义类型——结构体、枚举和联合体

家人们欢迎来到小姜的世界&#xff0c;<<点此>>传送门 这里有详细的关于C/C/Linux等的解析课程&#xff0c;家人们赶紧冲鸭&#xff01;&#xff01;&#xff01; 客官&#xff0c;码字不易&#xff0c;来个三连支持一下吧&#xff01;&#xff01;&#xff01;关注…

MySQL高级【事务原理】

1&#xff1a;事务原理1.1&#xff1a;事务基础1). 事务 事务 是一组操作的集合&#xff0c;它是一个不可分割的工作单位&#xff0c;事务会把所有的操作作为一个整体一起向系 统提交或撤销操作请求&#xff0c;即这些操作要么同时成功&#xff0c;要么同时失败。 2). 特性 • …

Leetcode 算法刷题Day22-----------------------二叉树

Leetcode 算法刷题Day22-----------------------二叉树 1. 235. 二叉搜索树的最近公共祖先 题目链接&#xff1a;https://leetcode.cn/problems/lowest-common-ancestor-of-a-binary-search-tree/文章讲解&#xff1a;https://programmercarl.com/0235.%E4%BA%8C%E5%8F%89%E6…

Burp Suite Professional v2022.12.6 Crack

Burp Suite 被描述为通过 Port Swigger 提供给用户和开发人员的网络安全工具组合的重要过程。它有能力为开发人员提供服务&#xff0c;也有能力为具有竞争优势的用户提供卓越的研究。Burp Suite 基本上是一个集成平台&#xff0c;呈现给用户和开发人员&#xff0c;用于执行 Web…

[Zombodb那些事]Zombodb执行引擎

Zombodb执行引擎0.前言我们在使用Zombodb时&#xff0c;会使用一些SQL查询&#xff0c;例如&#xff1a;CREATE EXTENSION zombodb; DROP EXTENSION zombodb; CREATE INDEX idxtest_analyze_text ON test_analyze_text USING zombodb ((test_analyze_text.*)); DROP TABLE idxt…

机器学习实战:一文详解K近邻算法,包括原理解析+实战案例

各位同学好&#xff0c;今天我向大家介绍一下python机器学习中的K近邻算法。内容有&#xff1a; K近邻算法的原理解析&#xff1b;实战案例–红酒分类预测。 案例简介&#xff1a;有178个红酒样本&#xff0c;每一款红酒含有13项特征参数&#xff0c;如镁、脯氨酸含量&#x…

从 PageHelper 到 MyBatis Plugin

在很多业务场景下我们需要去拦截 SQL&#xff0c;达到不入侵原有代码业务处理一些东西&#xff0c;比如&#xff1a;历史记录、分页操作、数据权限过滤操作、SQL 执行时间性能监控等等&#xff0c;这里我们就可以用到 MyBatis 的插件 Plugin。下面我们来了解一下 Plugin 到底是…

代码随想录算法训练营第11天 20.有效的括号、150.逆波兰表达式求值、1047. 删除字符串中的所有相邻重复项

代码随想录算法训练营第11天 20.有效的括号、150.逆波兰表达式求值、1047. 删除字符串中的所有相邻重复项 有效的括号 力扣题目链接(opens new window) 给定一个只包括 ‘(’&#xff0c;‘)’&#xff0c;‘{’&#xff0c;‘}’&#xff0c;‘[’&#xff0c;‘]’ 的字符…