tic;t0 = cputime;
global Lambda Omega0 Omega F Tdrive Nskip

Lambda = 0.25; Omega0 = 1.0; Omega = 2/3; 
Tdrive = 2*pi/Omega; F = 1.2; Nskip = 50; 
Nper = 80; X0 = 1; V0 = 0;
[Time,X,V,Te,Xe,Ve]=Poin(Nper,X0,V0);
toc
t_cpu = cputime-t0