Cornucopia in Geometry
Loading the math board and drawing, please wait…
This example demonstrates the Cornucopia shape in geometry. It involves key concepts such as geometry, surface, and differential equations. Using GeoGebra commands like Surface, Sequence, Cone, etc., complex geometric shapes can be constructed. Suitable for high school and above students or teachers.
GeoGebra Commands & Parameters
Surface(x(A) + ((a * (1 + sin(i) + (r(i) * cos(j)))) * cos(i)), y(A) + ((b + (r(i) * cos(j))) * sin(i)), z(A) + (r(i) * sin(j)), i, 0.5, 3.092, j, 0, t) → dSequence(CurveCartesian[x(A) + ((a * (1 + sin(i) + (r(i) * cos(j)))) * cos(i)), y(A) + ((b + (r(i) * cos(j))) * sin(i)), z(A) + (r(i) * sin(j)), j, 0, t], i, 0.5, h, h / 10) → liste3Sequence(CurveCartesian[x(A) + ((a * (1 + sin(i) + (r(i) * cos(j)))) * cos(i)), y(A) + ((b + (r(i) * cos(j))) * sin(i)), z(A) + (r(i) * sin(j)), i, 0.5, 3.092], j, 0, t, t / n) → liste1Cone(H, H + (-0.02, -0.21, 0), 0.055) → e, p, iVector(H, H + (0.07, -0.3, 0)) → uJoin(Sequence[Sequence[(x(A) + ((a * (1 + sin(i) + (r(i) * cos(j)))) * cos(i)), y(A) + ((b + (r(i) * cos(j))) * sin(i)), z(A) + (r(i) * sin(j))), i, 0.5, 0.5], j, 0, t, t / n]) → liste2Sequence(Segment[I, Element[liste2, i]], i, 1, Length[liste2]) → liste4Sphere(J, 0.3) → jPoint(Circle[P, Distance[O, P], Segment[O, P]]) → QCube(O, P, Q) → m, S, faceQSWV, faceTUVW, arêteOS, arêteOP, arêtePQ, arêteQS, arêteOT, arêteSW, arêteTW, arêteTU, T, arêtePU, arêteUV, arêteQV, arêteVW, U, V, W, faceOPQS, faceOSWT, faceOPUT, facePQVUPolygon(N, A_1, Z) → poly1, z_1, n_1, a_1Midpoint(n_1) → KMidpoint(N, K) → LPyramid(A_1, Z, N, M) → l, face1, arêteMN, face3, faceMNZ, face2, arête2, arêteNZ, arête1, arête3, arêteMZCylinder(D_1, C_1, 0.2) → o, q, s, vCone(E_1, F_1, 0.2) → w, c_1, b_1Plane(J_1, I_1, K_1) → p_1PointIn(p_1) → G_1PointIn(p_1) → H_1Conic(G_1, H_1, J_1, I_1, K_1) → d_1