圆锥内接圆柱

GeoGebra 命令及参数

1. Cone(A, B, 3) → a, c, b
2. Circle(A, 3, c) → d
3. Point(d) → C
4. Segment(C, B) → f
5. Point(f) → D
6. Cylinder(A, E, Distance[E, D]) → e, g, h, i
7. Line(C, A) → j
8. Intersect(j, d, 1) → F
9. Segment(F, B) → k
10. Intersect(k, h, 1) → G
11. Midpoint(D, G) → H
12. Polygon(B, F, C) → t1, c_1, b_1, f_1
13. Intersect(b_1, g, 2) → I
14. Intersect(b_1, g, 1) → J
15. Segment(A, B) → l
16. Text((("radius of the Cylinder: " * Length[Segment[A, J]]) * " units")) → text10
17. Text((Text[("C.S.A of the Cylinder: " * Product[{2, π, Length[Segment[A, J]], Length[Segment[D, J]]}, 4])] * " sq. units")) → text9
18. Text((("radius of the Cone: " * Length[Segment[A, C]]) * " units")) → text11