disp('=============');
U = [1,2,3,4,1];
V = reshape(U, 1, []);
p=seqperiod(V);
disp(p);
disp(U);
U = []; S = 0.5; n=1;
for k = 1:1:10
disp 'ля-ля-ля';
disp (S);
S = (1/pi)*acos(cos(10^n)*S); U(k)=S;
end;
plot(U);
V = reshape(U, 1, []);
p=seqperiod(V);
disp(p);
disp(U);
hold on ;
U = []; S = 0.00001; n=4;
for k = 1:1:10
S = (1/pi)*acos(cos(10^n)*S); U(k)=S;
end; plot(U);
V = reshape(U, 1, []);
p=seqperiod(V);
disp(p);
disp(U);
a = ppscq(0.1, 4);
disp('Предпериод 111 =');
disp(a);
a = ppscq(0.00001, 32);