2Lapp_obere_Fläche

g(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1, 0]
d(x, y) = If[sqrt(x^(2) + y^(2)) ≤ 1, (-2 * y^(2)) + 2]
c = Surface(cos(t), sin(t), ((h * 2) * (cos(t))^(2)), t, 0, (2 * pi), h, 0, 1)