// Polygones réguliers dans un cercle
clf
orthonorme;
// Tracé du cercle
A=linspace(0,%pi,1001);
Xcer=cos(A)
Ycer=sin(A);
plot(Xcer,Ycer);
plot(Xcer,-Ycer);
// tracé des polygones réguliers
C=[3,4,7];// Nombres de côtés des polygones
for i=1:3
    Angles=linspace(0,2*%pi,C(1,i)+1);
    X=cos(Angles);
    Y=sin(Angles);
    plot(X,Y);
end