x

y

A = Intersect(xAxis, yAxis)
c = Circle(A, 1)
a, d, b = Cylinder(c, 2)
e, f, g = Cone(c, 2)
tilavuusa = Volume(a)
Tekstia: "Kappaleen " + (Name[a]) + " tilavuus = " + tilavuusa
Pisted = PointIn(d)
h = Volume(Cylinder[c, 1.0E-4])
teksti1: "Kappaleen " + (Name[Cylinder[c, 1.0E-4]]) + " tilavuus = " + h
Pistec = Point(c)