代码贴上来了
function [tsp mint maxt net]=GABPNET(XX,YY,YJ,SCC)
%XX输入的训练样本与测试样本
%YY训练样本输出值
%YJ隐层节点数
%SCC输出层节点数
%tsp训练样本及测试样本输出值,列对应列
%反归一化参数mint,maxt(y=[x,mint,maxt])
%net训练好的神经网络
%--------------------------------------------------------------------------
% GABPNET.m
% 使用遗传算法对BP网络权值阈值进行优化,再用BP算法训练网络
%--------------------------------------------------------------------------
clear all
clc
global S1;
YJ=10;SCC=1;
%数据归一化预处理
day=subfv;
XX=day(:,1:5)';
[XX,minp,maxp] = premnmx(XX);
%****************其他使用者这里必须修改************
YY=day(:,6)';
[YY,mint,maxt] = premnmx(YY);
%创建网络
S1=YJ;
net=newff(minmax(XX),[S1,SCC],{'tansig','tansig','purelin'},'