clear;
X=[0:.04:1]';
Y=sin(10*X);
figure(1);
clf;
plot(X,Y,'b');

ker='rbf'
global p1;
p1=.1;
C=100;
loss='eInsensitvie'
e=0.1;
[nsv,beta,bias]=svr(ker,X,Y,C,loss,e);
Xtst=[0:.003:1]';
Ytst=svroutput(X,Xtst,ker,beta,bias);
figure(1);
hold on;
plot(Xtst,Ytst,'r');