Mathematica中的3D几何图
|
在平面几何图形问题中，我问如何绘制平面几何结构。现在，我想将其扩展到3D。不仅那些几何软件包效果不佳，而且在Mathematica中我也面临许多障碍。
据我所知，
Locator
Manipulate
h
2 theta
d
没有找到相关结果
已邀请:
1 个回复
财沟项胶
Circle3D[{x_, y_, z_}, {v1 : {_, _, _}, v2 : {_, _, _}}, r_] := Line[Table[{x, y, z} + {r Cos[2 Pi t], r Sin[2 Pi t]}.{v1, v2}, {t, 0, 1, 1/120}]]{0,0,h}{x,y,z}{x,y,z-h}{-y,x,0}ConeQuestion[h_, theta_, pt : {x_, y_, z_}, d_] /; (x^2 + y^2) Cos[theta]^2 == Sin[theta]^2 (z - h)^2 := Module[{tangents}, tangents = {Normalize[{0, 0, h} - pt], Normalize[{-y, x, 0}]}; {{Opacity[0.8, Yellow], Cone[{{0, 0, 0}, {0, 0, h}}, h*Tan[theta]]}, {Thick, Dashed, Circle3D[pt, tangents, d]}, {Red, Sphere[pt, 1/10]}, {Orange, Line[{pt - d Normalize[{-y, x, 0}], pt + d Normalize[{-y, x, 0}]}]}} ]