svmdata.m

神经网络支持向量机程序

function svmdata(sort)

% function data = svmdata(sort)
% sort = 'train' or 'test'.

clc

load finance

setn = 50;
[temp N] = size(pstock);

len = N - setn;

traindata = pstock(1:len);
testdata = pstock;



switch sort
    case 'train'
        trainset = 0;
        for i=1:len - delay
            trainset(i,1:1+delay) = traindata(i:i+delay);
        end
        save training trainset 
    case 'test'
        testset = 0;
        for i=1:N - delay + 1
            testset(i,1:delay) = testdata(i:i+delay-1);
        end               
        save testing testset testdata setn
end