E.L.E. - 即将撞击的陨石 - 球面帽的面积

GeoGebra 命令及参数

1. Sequence(Random[-1000, 1000] / 1000, i, 1, N) → T_Z
2. Sequence(Random[-1000, 1000] / 1000, i, 1, N) → T_Y
3. Sequence(Random[-1000, 1000] / 1000, i, 1, N) → T_X
4. Sequence(sqrt(Element[T_X, i]^(2) + Element[T_Y, i]^(2) + Element[T_Z, i]^(2)), i, 1, N) → Modulo
5. Vector(A, E_2) → u
6. Vector(A, D) → v
7. Vector(A, E_1) → w
8. If(x_P ≟ 0, w, Vector[((z_P * w) - (x_P * v)) / sqrt(z_P^(2) + x_P^(2))]) → b_2
9. Sequence(Element[T_X, i] / Element[Modulo, i], i, 1, N) → X
10. If(x_P ≟ 0, Vector[((z_P * u) - (y_P * v)) / sqrt(z_P^(2) + y_P^(2))], Vector[(((x_P * y_P) * w) - ((x_P^(2) + z_P^(2)) * u) + ((y_P * z_P) * v)) / sqrt(x_P^(4) + z_P^(4) + ((2 * x_P^(2)) * z_P^(2)) + (x_P^(2) * y_P^(2)) + (y_P^(2) * z_P^(2)))]) → b_1
11. Sequence(sqrt(1 - Element[X, i]^(2)), i, 1, N) → Lim_Y
12. Sequence(Element[T_Y, i] / Element[Modulo, i], i, 1, N) → Y
13. Sequence(Element[T_Z, i] / Element[Modulo, i], i, 1, N) → Z
14. Intersect(xAxis, yAxis) → O
15. Circle(O, 1) → c
16. Sequence(If[(Element[X, i] * x_P) + (Element[Y, i] * y_P) + (Element[Z, i] * z_P) > 1 - h, 1, 0], i, 1, N) → C
17. Sequence(Translate[A, Vector[(w * Element[X, i]) + (u * Element[Y, i]) + (v * Element[Z, i])]], i, 1, N) → S
18. Translate(A, Vector[(-w)]) → E_3
19. Translate(A, Vector[(-u)]) → E_4
20. Translate(A, Vector[(w * 3 / 5) + (u * 4 / 5)]) → E_5
21. Conic(E_1, E_5, E_2, E_3, E_4) → d
22. Translate(A, Vector[(b * (1 - h)) - (b_2 * r)]) → B_4
23. Translate(A, Vector[(b * (1 - h)) + ((b_1 * r) * 3 / 5) + ((b_2 * r) * 4 / 5)]) → B_5
24. Translate(A, Vector[(b * (1 - h)) + (b_1 * r)]) → B_1
25. Translate(A, Vector[(b * (1 - h)) + (b_2 * r)]) → B_2
26. Translate(A, b) → B
27. Translate(A, Vector[(b * (1 - h)) - (b_1 * r)]) → B_3
28. Conic(B_1, B_5, B_2, B_3, B_4) → e
29. Textfield(N) → campoInserimento1