Visibility: Unlisted (only visible to those who know the link)
Image: ubuntu2004
var('x y t')#r1=vector([(cos(t))^3,(sin(t))^3]) # Parameterdarstellung der Astroider1=vector([t-sin(t),1-cos(t)])# Parameterdarstellung der Zykloidec1=parametric_plot(r1,(t,0,2*pi),color='red')show(c1,gridlines=True,axes_labels=['$x/R$','$y/R$'])