% CoinExp.m
% load 'B:\to\coin01.txt'
first_line=bc(2,:)
% firstchar=first_line(1)
% FirstGIF.m
clc;
close all;
x1=0;s=0.2;%????????
nframes=50;%???????
for k=1:nframes
x1=x1+s;%????????????x1
x=0:0.01:x1;
y=sin(x);
plot(x,y,'*');
axis([0 2*pi -1.2 1.2]) ;%??????
% grid on ;
% M(k)=getframe;%?????????m?
end
% movie(M,3)%??3?????
EulerCircle.m
% to draw Euler Circle in complex plane.
clear all,clc;close all;
j=sqrt(-1);
w=2*pi;
t0=0:0.01:1;
for t=0:0.01:1
H=exp(j*w*t);
figure(1)
% subplot(211)
plot(H);%plot(real(H),imag(H))??????
hold on
% plot(0,0)
end
xlabel('Real cos(w)'),ylabel('Imagine sin(w)'),title('exp(jw)'),grid on
% subplot(212)
% polar(angle(H),abs(H));