²é¿´: 3169  |  »Ø¸´: 7

fanfanjia

гæ (³õÈëÎÄ̳)

[ÇóÖú] Çë¸ßÊÖÖ¸½ÌÈçºÎÌá¸ßÕâ¸öBPÉñ¾­ÍøÂçµÄÔ¤²â¾«¶È

Çë¸ßÈËÖ¸µã£¬ÒÔÏÂΪÎÒΪ±ÏÒµÂÛÎÄÉè¼ÆÓÃMATLAB×öµÄBPÉñ¾­ÍøÂ磬Ŀǰ´æÔÚÁ½¸öÎÊÌ⣺
1.Ä£ÐÍÔ¤²â¾«¶ÈÌØ±ðµÍ¡£
ÎÒÒѾ­³¢ÊԸıäÒþº¬²ã½ÚµãÊý£¨´Ó20µ½100¶¼Ò»Ò»ÊÔ¹ýÁË£©£¬²¢½«´«µÝº¯ÊýºÍѵÁ·º¯Êý¶¼×öÁËÌæ»»£¬µ«¾ùÎÞÃ÷ÏÔЧ¹û¡£²»Öª¸Ã´ÓºÎ´¦×ÅÊÖÌá¸ßÄ£Ð͵ÄÔ¤²âºÍѵÁ·¾«¶È¡£
2.ÿ´Î³ÌÐòÔËÐÐÍ꣬¶¼ÒªÌáʾ´íÎó£¬Ã²ËÆÊÇÔËËã·ûºÏ²»¶Ô£¬µ«ÊǸĹýÖ®ºóÒÀÈ»ÓÐÎó¡£²»Öª¸ÃÔõô¸Ä£¿


clc;
clear;
close all;
warning off;
tic;
%ÓÃ2012ÄêÊý¾Ý´´½¨Ä£ÐÍ£¬2011ÄêÊý¾ÝÑé֤ģÐ;«È·¶È¡£ ×Ô¶¯¶ÁÈ¡Îı¾Îĵµ£¬µÚÒ»ÐÐΪũѧ²ÎÊý£¬µÚ¶þÐÐÖÁ×îºóÒ»Ðж¼Îª¹âÆ×Öµ¡£
data1=importdata('E:\2012SR.txt');
data2=importdata('E:\2011SR.txt');

M1 = size(data1,2);%ÐР     
Y1 = data1(1,1:M1);%µÚÒ»ÐÐËùÓÐÁÐ,ũѧ²ÎÊý£¬2012

M2 = size(data2,2);      
Y2 = data2(1,1:M2);%µÚÒ»ÐÐËùÓÐÁУ¬Å©Ñ§²ÎÊý,2011

P =data1(2:size(data1,1),: );      %2012Äê¹âÆ×Êý¾Ý£¬Îı¾ÀïµÚ¶þÐпªÊ¼£¬ËùÓÐÁÐ
T = Y1 ;    %2012Äêũѧ²ÎÊý£¬µÚÒ»ÐÐËùÓÐÁÐ
N2011_validation=data2(2:size(data2,1),: ) ;  %2011Äê¹âÆ×Êý¾Ý£¬Îı¾ÀïµÚ¶þÐпªÊ¼£¬ËùÓÐÁÐ
N2012_data=P;       %2012Äê¹âÆ×Êý¾Ý

net=newff(P,T,[61 1],{'tansig' 'purelin'},'traingd')
t1                      = clock;                              %¼ÆÊ±¿ªÊ¼
net                     = fitnet(70);
net.trainParam.epochs   = 5000;                               %ÉèÖÃѵÁ·´ÎÊý
net.trainParam.goal     = 0.01;                            %ÉèÖÃÐÔÄܺ¯Êý£¨ÑµÁ·ÒªÇ󾫶ȣ©
net.trainParam.show     = 1;                                  %ÿ10ÏÔʾ
net.trainParam.Ir       = 0.005;                              %ÉèÖÃѧϰËÙÂÊ
net                     = train(net,P,T);                  %ѵÁ·BPÍøÂ磨PΪÊäÈ룬TΪÊä³ö£©
datat                   = etime(clock,t1);
Nets                    = net;
view(Nets);

%2011ÄêÊý¾Ý½øÐÐÑéÖ¤
y = sim(net,N2011_validation);
figure;
plot(y,'k-x');hold on
plot(N2011_validation(1:126),'.k');hold on
ymin=-1;
ymax=4;
axis([0 length(N2011_validation) floor(ymin) ceil(ymax)]);
legend('Pridicted values','Measured values');
title('Ä£ÐÍÔ¤²â½á¹û£¬ ÑÌÒ¶Nº¬Á¿');
%2012ÄêÊý¾Ý½øÐвâÊÔ
y1=sim(net,N2012_data);
figure;
plot(y1,'k-x');
hold on;
plot(N2012_data(1:102),'.k');
ymin=0;
ymax=4;
axis([0 length(N2012_data) floor(ymin) ceil(ymax)]);
legend('Pridicted values','Measured values');
title('Ä£ÐÍѵÁ·½á¹û£¬ ÑÌÒ¶Nº¬Á¿');
%µ¼Èëµ½Îı¾Îļþ
fid=fopen('E:\2012SR1.txt','wt');
if fid == -1
    error('Îļþ´ò¿ªÊ§°Ü');
end
fprintf(fid,'ʵ¼ÊÖµ Ô¤²âÖµ\n');
A=[N2012_data;y1];
fprintf(fid,'%f %f\n',A);
fclose(fid);
fid=fopen('E:\2011SR1.txt','wt');
if fid == -1
    error('Îļþ´ò¿ªÊ§°Ü');
end
fprintf(fid,'ʵ¼ÊÖµ Ô¤²âÖµ\n');
A=[N2011_validation;y];
fprintf(fid,'%f %f\n',A);
fclose(fid);
%Ô¤²âЧ¹û·ÖÎö
for i = 1:length(N2011_validation);
    K(i)  = abs(y(i) - N2011_validation(i))/(N2011_validation(i));
end
RMSE = sqrt(sum((y-N2011_validation)*(y-N2011_validation)')/length(N2011_validation))
E= 1-sum((y-N2011_validation)*(y-N2011_validation)')/sum((N2011_validation-mean(N2011_validation))*(N2011_validation-mean(N2011_validation))')
k= average(sum(abs((y-N2011_validation)/(N2011_validation))))
%ѵÁ·Ð§¹û·ÖÎö
for i = 1:length(N2012_data);
    K_1(i)  = average(sum(abs((y1(i)-N2012_data(i))/(N2012_data(i)))));
end
RMSE_1=sqrt(sum((y1-N2012_data)*(y1-N2012_data)')/length(N2012_data))
E_1= 1-sum((y1-N2012_data)*(y1-N2012_data)')/sum((N2012_data-mean(N2012_data))*(N2012_data-mean(N2012_data))')
k_1 = average(sum(abs((y1-N2012_data)/(N2012_data))))


Ô¤²â³öÀ´µÄ½á¹û×ÜÊÇÕûÌ寫¸ß£¬²»ÖªµÀ¸úÎÒûÓнøÐÐÊý¾Ý¹éÒ»»¯ÓÐûÓйØÏµ£¿Èç¹û½øÐÐÊý¾Ý¹éÒ»»¯ºÍ·´¹éÒ»»¯£¬¸ÃÔÚÄĸöµØ·½ÔõôÌí¼Ó³ÌÐòÄØ£¿Çë¸ßÊÖÖ¸½Ì[ Last edited by jjdg on 2013-1-23 at 13:03 ]
»Ø¸´´ËÂ¥

» ±¾Ìû¸½¼þ×ÊÔ´Áбí

  • »¶Ó­¼à¶½ºÍ·´À¡£ºÐ¡Ä¾³æ½öÌṩ½»Á÷ƽ̨£¬²»¶Ô¸ÃÄÚÈݸºÔð¡£
    ±¾ÄÚÈÝÓÉÓû§×ÔÖ÷·¢²¼£¬Èç¹ûÆäÄÚÈÝÉæ¼°µ½ÖªÊ¶²úȨÎÊÌ⣬ÆäÔðÈÎÔÚÓÚÓû§±¾ÈË£¬Èç¶Ô°æÈ¨ÓÐÒìÒ飬ÇëÁªÏµÓÊÏ䣺xiaomuchong@tal.com
  • ¸½¼þ 1 : 2012SR.txt
  • 2012-12-31 17:40:22, 23.52 K
  • ¸½¼þ 2 : 2011SR.txt
  • 2012-12-31 17:40:33, 30.54 K

» ÊÕ¼±¾ÌûµÄÌÔÌûר¼­ÍƼö

matlab

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

fanfanjia

гæ (³õÈëÎÄ̳)

ÎÒ×Ô¼º¿´ÊéÒѾ­½â¾öÁË
2Â¥2013-01-10 21:32:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ÍÑÆ¤µÄÑó´Ð

ľ³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
2Â¥: Originally posted by fanfanjia at 2013-01-10 21:32:02
ÎÒ×Ô¼º¿´ÊéÒѾ­½â¾öÁË

Â¥Ö÷ ÄÜ·ÖÏíһϾ­ÑéÂð ×î½üÒ²ÔÚ½Ó´¥ bp Éñ¾­ÍøÂç¡£¡£¡£Ò²ÓÐÔ¤²â¾«¶ÈÕâ·½ÃæµÄÎÊÌâ¡£¡£¡£
3Â¥2013-01-10 23:22:02
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

wgq840720

гæ (³õÈëÎÄ̳)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

°àÖ÷ÄãºÃ ÎÒÏëд¹ØÓÚ´øÊ½±ºÉÕ»úÈȹ¤·½ÃæµÄ½¨Ä£  µÃÓõ½bpÉñ¾­ÍøÂçºÍMATLAB£¬ÇëÇóÖú£¬Èç¹ûÄܰïæд2ÕÅ ÎÒ»á¸øÓèÏà¹Ø±¨³ê
4Â¥2013-01-23 12:15:21
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zoro1101

½û³æ (СÓÐÃûÆø)

±¾ÌûÄÚÈݱ»ÆÁ±Î

5Â¥2013-09-27 16:02:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lanxinldw

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by fanfanjia at 2013-01-10 21:32:02
ÎÒ×Ô¼º¿´ÊéÒѾ­½â¾öÁË

Â¥Ö÷£¬ÎÒÏëÎÊÏÂÄãÊÇÔõô½â¾öµÄ°¡£¿ÎÒÏÖÔÚµÄÔ¤²â¾«¶ÈÒ²²»¸ß£¬ÄãÊÇÓøıä¹éÒ»»¯º¯Êý½â¾öµÄô£¿
6Â¥2014-10-30 10:52:46
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ning_fen

Òø³æ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by fanfanjia at 2013-01-10 21:32:02
ÎÒ×Ô¼º¿´ÊéÒѾ­½â¾öÁË

Â¥Ö÷£¬ÇëÖ¸µãÏÂÄúµÄ½â¾ö°ì·¨°É£¬ÎÒÊDzËÄñÒ»Ö»£¬¸Õ¸Õ½Ó´¥Õâ·½ÃæµÄ֪ʶ£¬ÇëÖ¸½Ì¡£
7Â¥2015-05-19 11:16:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ССºìÒ¶

гæ (³õÈëÎÄ̳)

Â¥Ö÷£¬ÇóÏàÖú  ÈçºÎ×öµ½ÁË
8Â¥2015-07-24 15:11:41
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ fanfanjia µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 284Çóµ÷¼Á +5 Zhao anqi 2026-03-22 5/250 2026-03-22 17:38 by barlinike
[¿¼ÑÐ] »·¾³Ñ§Ë¶288Çóµ÷¼Á +6 ƤƤƤ123456 2026-03-22 6/300 2026-03-22 16:52 by i_cooler
[¿¼ÑÐ] Çóµ÷¼ÁԺУÐÅÏ¢ +6 CX 330 2026-03-21 6/300 2026-03-22 15:25 by ÎÞи¿É»÷111
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ´óѧ»¯Ñ§Ñ§Ë¶0703×Ü·Ö337Çóµ÷¼Á +3 niko- 2026-03-22 3/150 2026-03-22 15:15 by ÑîÑîÑî×Ï
[¿¼ÑÐ] 070300»¯Ñ§Çóµ÷¼Á +3 Ô·¶¹¶¹ 2026-03-20 3/150 2026-03-22 14:48 by ColorlessPI
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á +5 Surekei 2026-03-21 5/250 2026-03-22 14:39 by tcx007
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÖпƼ¼´óѧ071000£¬Çóµ÷¼Á +4 ÑØ°¶Óб´¿Ç6 2026-03-21 4/200 2026-03-22 07:21 by ilovexiaobin
[¿¼ÑÐ] 328Çóµ÷¼Á£¬Ó¢ÓïÁù¼¶551£¬ÓпÆÑо­Àú +5 ÉúÎ﹤³Ìµ÷¼Á 2026-03-17 9/450 2026-03-21 23:32 by zhujy1982
[¿¼ÑÐ] Çóµ÷¼Á +3 13341 2026-03-20 3/150 2026-03-21 18:28 by ѧԱ8dgXkO
[¿¼ÑÐ] 279Çóµ÷¼Á +5 ºìÒÂÒþ¹Ù 2026-03-21 5/250 2026-03-21 14:59 by lature00
[¿¼ÑÐ] 303Çóµ÷¼Á +5 î£08 2026-03-17 7/350 2026-03-21 03:11 by JourneyLucky
[¿¼ÑÐ] 304Çóµ÷¼Á +6 ÂüÊâ2266 2026-03-18 6/300 2026-03-21 00:32 by JourneyLucky
[¿¼ÑÐ] ÖÐÄÏ´óѧ»¯Ñ§Ñ§Ë¶337Çóµ÷¼Á +3 niko- 2026-03-19 6/300 2026-03-20 21:58 by luoyongfeng
[¿¼ÑÐ] 290Çóµ÷¼Á +7 ^O^Ø¿ 2026-03-19 7/350 2026-03-20 21:43 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏѧÇóµ÷¼Á +4 Stella_Yao 2026-03-20 4/200 2026-03-20 20:28 by ms629
[¿¼ÑÐ] 312Çóµ÷¼Á +8 İå·Ï£ 2026-03-16 9/450 2026-03-18 12:39 by Linda Hu
[¿¼ÑÐ] 334Çóµ÷¼Á +3 Ö¾´æ¸ßÔ¶ÒâÔÚ»úÐ 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[¿¼ÑÐ] 308Çóµ÷¼Á +4 ÊÇLupa°¡ 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[¿¼ÑÐ] 275Çóµ÷¼Á +4 Ì«Ñô»¨ÌìÌ쿪ÐÄ 2026-03-16 4/200 2026-03-17 10:53 by ¹¦·ò·è¿ñ
[¿¼ÑÐ] 070303 ×Ü·Ö349Çóµ÷¼Á +3 LJY9966 2026-03-15 5/250 2026-03-16 14:24 by xwxstudy
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û