kreis:=plot::Polar( [2*4*cos(t),t],t=-2..10):
ps:=plot::Polar( [2*4*cos(t)+a,t],t=-2..10,a=1..12 ,LineColor=[1,0,0]):
plot(ps, kreis, LineWidth=1)
Pascalsche Schnecken
Prof. Dr. Dörte Haftendorn Mathematik mit MuPAD 4, Jun 08 Update Jun 08
http://haftendorn.uni-lueneburg.de www.mathematik-verstehen.de
####################################################################
kreis:=plot::Polar( [2*4*cos(t),t],t=-2..10):
ps:=plot::Polar( [2*4*cos(t)+a,t],t=-2..10,a=1..12 ,LineColor=[1,0,0]):
plot(ps, kreis, LineWidth=1)
ps:=plot::Polar( [2*4*cos(t)+a,t],t=-2..10 ,LineColor=[1-1/12*a,1/12*a,0]) $ a=1..12;
plot(ps, kreis, LineWidth=1)
