- 1、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
自适应线性网络
%%清空环境变量
clc
clearall
closeall
%%训练数据预测数据提取及归一化
%导入数据
input=xlsread(wind.xlsx,b1:c151);%载入输入数据
output=xlsread(wind.xlsx,d1:d151);%载入输出数据
%找出训练数据和预测数据
input_train=input((1:120),:);%120组训练数据,31组预测数据
output_train=output(1:120);
input_test=input((121:151),:);
output_test=output(121:151);
%归一化输入输出数据
[inputn,inputps]=mapminmax(input_train);
[outputn,outputps]=mapminmax(output_train);
%生成线性网络
%lr=0.99*maxlinlr(P);
lr=0.001;
delays=[0];
net=newlin(inputn,1,delays,lr);
net.inputWeights{1,1}.initFcn=rands;%初始化权值
net.biases{1}.initFcn=rands;%初始化偏差
net=init(net);%把初始化权值和偏差函数赋给网络
W0=net.iw{1,1};%初始化权值和偏差
B0=net.b{1};
net.trainParam.epochs=1500;%最大循环次数
net.trainParam.goal=0.0001;%期望误差
[net,tr]=train(net,inputn,outputn);%进行线性网络权值训练
W=net.iw{1,1};%网络训练后的最终权值和偏差
B=net.b{1};
%对网络进行自适应线性训练
[net,a,e]=adapt(net,inputn,outputn);
%%预测
%预测数据归一化
inputn_test=mapminmax(apply,input_test,inputps);
%网络预测输出
an=sim(net,inputn_test);
%网络输出反归一化
output=mapminmax(reverse,an,outputps);
%%结果分析
figure
plot(output,:og)
holdon
plot(output_test,-*);
plot(output-output_test,-r^);
legend(预测输出,实际输出,预测误差)
title(WH网络预测输出,fontsize,12)
ylabel(函数输出,fontsize,12)
xlabel(样本,fontsize,12)
%%误差分析
%1.均方根误差未归一化
RMSe=sqrt(sum((an-output_test).^2)/31);
fprintf(1.均方根误差=%f,RMSe);
%2.平均相对误差
MRE=sum(abs(an./output_test))/31;
fprintf(2.平均相对误差=%f,MRE);
%3.平均离差
MD=sum(abs(an-output_test))/31;
fprintf(3.平均离差=%f,MD);
%4.相关系数
correlation=corrcoef(an,output_test);
correlation_coefficient=correlation(1,2);
fprintf(4.相关系数=%f,correlation_coefficient);
您可能关注的文档
最近下载
- 2023年山东省夏季普通高中学业水平合格考试会考生物试题及参考答案.pdf VIP
- 名医扁鹊介绍成就宣讲PPT课件.pptx VIP
- 电池管理系统整体设计(共30张PPT).pptx VIP
- 光伏工程安装进度计划表.docx VIP
- 成都七中初中九年级下期英语半期考试模拟试卷试题含答案.docx VIP
- 电力电子技术论文500W逆变器.docx VIP
- 技术监督实施细则.pdf VIP
- 北京市海淀区2024-2025学年七年级上学期期末考试英语试卷(含答案).pdf VIP
- 《跨学科主题学习设计与实施(第一版)》教学课件.pptx
- Q∕GDW 11262-2014 电力电缆及通道检修规程.docx VIP
有哪些信誉好的足球投注网站
文档评论(0)