%szinkronizálódó trajekt kirajzolása idõben (3D, 1D)

kezd1=[50 50 50]; % Master kezdõpontja
kezd2=[-50 -50 -50]; % Slave rsz kezdõpontja

kezd3=[50.1 50 50]; % Master kezdõpontja a 2. rendszerben
kezd4=[-50 -50 -50]; % Slave rsz kezdõpontja a 2. rendszerben

n=10;
xl=[-1 10];
yl=[-60 60];
figure;
for i=0.001:0.1:n
    
[t, x] = ode45('Lorenz',[0 i], [kezd1 kezd2]);
[t2, x2] = ode45('Lorenz',[0 i], [kezd3 kezd4]); %másik, független rendszer 

subplot(6,1,[1,2,3]);
%plot3(x(:,1),x(:,2),x(:,3),'r', x(:,4),x(:,5),x(:,6),'b');
plot3(x(:,1),x(:,2),x(:,3),'r', x2(:,1),x2(:,2),x2(:,3),'b'); %másik, független rendszer
xlabel('x1');
ylabel('y1');
zlabel('z1');
xlim(yl);
ylim(yl);
zlim(yl);

subplot(6,1,4);
%plot(t,x(:,1),'r', t,x(:,4),'b');
plot(t,x(:,1),'r', t2,x2(:,1),'b'); %másik, független rendszer
xlabel('t');
ylabel('x1');
xlim(xl);
ylim(yl);

subplot(6,1,5);
%plot(t,x(:,2),'r', t,x(:,5),'b');
plot(t,x(:,2),'r', t2,x2(:,2),'b'); %másik, független rendszer
xlabel('t');
ylabel('y1');
xlim(xl);
ylim(yl);

subplot(6,1,6);
%plot(t,x(:,3),'r', t,x(:,6),'b');
plot(t,x(:,3),'r', t2,x2(:,3),'b'); %másik, független rendszer
xlabel('t');
ylabel('z1');
xlim(xl);
ylim(yl);

%waitforbuttonpress;
pause(0.1);
end