
load lorentz_full;

x = lorentz_full(:,1);
y = lorentz_full(:,2);
z = lorentz_full(:,3);

subplot(3,1,1);
plot3(x,y,z);

subplot(3,1,2);
plot(x);

[Y]=rpsTDembed(x,3,5)
subplot(3,1,3);
plot3(Y(:,1),Y(:,2),Y(:,3))

