> x=b-c*(phi-sin(phi)); y:=h-c*(1-cos(phi));

                      x = b - c (phi - sin(phi))


                      y := h - c (1 - cos(phi))

# Die Werte b und h geben die Lage des Startpunktes Q an. Der Wert c
# wird aus der transzendenten Gleichung
> b/c=arccos(1-h/c)-sqrt(h*(2-h/c)/c);

                                       /h (2 - h/c)\1/2
               b/c = arccos(1 - h/c) - |-----------|
                                       \     c     /

# ermittelt. Beispielweise sei b = h = 1, dann wird:
> eqn:=1/c=arccos(1-1/c)-sqrt((2-1/c)/c);

                                            /2 - 1/c\1/2
             eqn := 1/c = arccos(1 - 1/c) - |-------|
                                            \   c   /

> c:=fsolve(eqn,c,0..1);

                          c := 0.5729170375

# Mit diesem c-Wert wird die Zykloide gerechnet und grafisch
# dargestellt.
> plot([1-c*(phi-sin(phi)),1-c*(1-cos(phi)),phi=0..2.412]);

> 
