Revision history [back]

anz=10;

empty = Graphics()    
p = graphics_array([empty, empty, empty, empty, empty, empty, empty, empty, empty, empty])

for i in range(0,anz):
    Lambda=2*i/anz*pi;
    xm=R*Lambda;
    p[i]=parametric_plot((x(phi,1),y(phi,1)),(phi,0,2*pi));
    p[i]+=circle((x(Lambda,1),y(Lambda,1)),R/40,color='red');
    p[i]+=circle((xm,R),R,color='cyan');
    p[i]+=circle((xm,R),R/25,color='magenta');
    p[i]+=arc((xm,R), R, sector=(-Lambda-pi/2,-pi/2),color='red');
    #p[i]+=plot([(xm,R),(x(Lambda,1),y(Lambda,1))],color='black');
    #p[i]+=plot([(0,-0.02),(xm,-0.02)],color='brown');