CreateLSSVMeta(tradata,Z)

function model = CreateLSSVMeta(tradata,Z)

%CreateLSSVMeta(data,Z)
%CreateLSSVMeta(data,Z) creates a LSSVM model for the efficiency from given
%tradataZA
%[speed(km/h) torque(Nm) force(N)]


xtra=tradata(:,1);
ytra=tradata(:,2);
ztra=tradata(:,3);

Xtra_v=[xtra,ytra];
ETAtra_v=Z*ztra./ytra;


%Dit levert maar goeie resultaten vanaf koppels boven de 12 Nm! en ETA's
%die eindig zijn, vandaar:
%Aanpassen van de benadering met weglaten van deze gegevens

k=1;
for i=1:length(Xtra_v)
    if and(ETAtra_v(i)<1.10,Xtra_v(i,2)>12)
        ETAtra(k)=ETAtra_v(i);
        Xtra(k,:)=Xtra_v(i,:);
        k=k+1;
    end
end

ETAtra=ETAtra';


%training
%startwaardes
gam = 10;
sig = .4;
modelETA = trainlssvm({Xtra,ETAtra,'f',gam,sig});


%tunelssvm met crossvalidation
model = tunelssvm(modelETA);