三视图均为圆一定为球吗？

风云剑

往里面吹气，不知道能不能把这线抹平？
也许抹平后就是球体了。

hujunhua

吹气不可控。直接将棱边磨圆滑就行了，Y形顶磨掉，X形顶保留。可得一个光滑的凸体，三视图皆为圆。

在实际的工程图中，不规则曲面（比如船体和机翼的曲面）的视图都会画上等高线，仅画轮廓线是不能完整地表达其形状的。

wayne

http://mathworld.wolfram.com/SteinmetzSolid.html

wayne

10# sheng_jianguo
动起来：http://demonstrations.wolfram.com/IntersectingCylinders/

wayne

哈哈，找到一个网站了，讨论的问题正是楼主考虑的问题！！！
http://local.wasp.uwa.edu.au/~pbourke/fun/planelev/

mathematica

哈哈，找到一个网站了，讨论的问题正是楼主考虑的问题！！！
http://local.wasp.uwa.edu.au/~pbourke/fun/planelev/
wayne 发表于 2011-2-15 11:58

晕,你居然比我先找到,我是用google找到的,估计你也是用google找到的

mathematica

搜索到的办法!

mathematica

我喜欢英文的google,google比百度好,百度在我看来就是垃圾!

mathematica

结果当中应该含有根号2的,五年级的学生怎么可能学到根号2呢?这个好像要学到勾股定理的时候才能学到无理数!

hujunhua

装了Mathematica的可以输入以下代码，输入结果可以用mouse操作旋转起来看。

1. 
   
2. G1 = ContourPlot3D[x^2 + y^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},RegionFunction ->Function[{x, y, z}, Abs[z] <= Abs[x] && Abs[z]<= Abs[y]],    Mesh -> None];
   
3. G2 = ContourPlot3D[y^2 + z^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},RegionFunction -> Function[{x, y, z}, Abs[x] <= Abs[y] && Abs[x]<= Abs[z]],    Mesh -> None];
   
4. G3 = ContourPlot3D[z^2 + x^2 == 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1},RegionFunction -> Function[{x, y, z}, Abs[y] <= Abs[z] && Abs[y]<= Abs[x]],Mesh -> None];
   
5. Show[G1, G2, G3]
   

复制代码