请问大侠，mathematic中如何获得3D图形的横切面

zjxwkp

我在mathematic中画了一个3d图形，请问哪个函数，或者如何获得这个3d图形的横切面或者纵切面，谢谢了

FreddyMusic

easy, select your section function and use mathematics to find the cross.

changqing

3d图形是由函数定义的，当x、y或z为常数时，3d图形就变为平面，也即是剖切面。
还可以定义任意剖切平面、剖切曲面，设定一个剖切面函数即可。

zjxwkp

关键是我的3d是由隐函数画出的（见附件），我想让一个横切面从上到下（当然也可以是任意剖切面从任意角度）依次扫过这个3d图形，并且能看清截面的情况。如果做？谢谢。

zjxwkp

沉了好久了，请高手解决这个老问题！

FreddyMusic

<< Graphics`ImplicitPlot3D` 已经过时淘汰的函数了。

用下面的新函数。你设一个平面 z= 1 , z = 2，z=3 然后和你的3D图形相交或者可以求得曲线方程。

1. 
   
2. ContourPlot3D[Sqrt[Sin[\[CurlyPhi]]-Sqrt[a  Sin[\[Theta]]]]+Sqrt[Cos[\[CurlyPhi]]+Sqrt[a Cos[\[Theta]]]]==4Sqrt[Cos[\[Theta]]+Sqrt[2a Cos[\[CurlyPhi]]]],{\[Theta],0,Pi/2},{\[CurlyPhi],0,Pi/2},{a,0,2},Axes -> True,BoxRatios->{1,1,1}]
   

复制代码

FreddyMusic

here is a good example for you to learn.
http://demonstrations.wolfram.com/ContoursOfAlgebraicSurfaces/

zjxwkp

True,BoxRatios->{1,1,1}]

FreddyMusic 发表于 2009-7-22 14:02

理论上很简章，3D和2D相交即可，但如何实现？我用Show[g1,g2],但总是画不到一起(坐标范围完全相同)，即还是单独画出g1,g2来。
谢谢FreddyMusic 的回答，但您给的例子实在是太复杂了，如果能简章一点就好了。

zjxwkp

继续求解！期待高手出山。

smarten

请看notebook和相应的pdf文件，解释得应该很清楚了。

sp60

1. line = Cases[p, Line[a__], Infinity][[2 ;;]];

复制代码

敢问版主 您怎么知道那个相交的线信息就是 [[2 ;;]] 呢？？

sp60

确实第一跟Line信息表示的是所画面得边界~
后面的才是中间的线
是不是m@的图形信息排列都是这种规律》？？

不过利用Mesh来画曲面和曲面的截面还是很爽的

不过 要是立方体形状的物体和曲面的截面呢？？？

smarten

反正关键的部分和方法都已经有拉。别的小的细节问题，你们还是可以自己想的嘛。zjxwkp是不是休假去拉，开始的很烦，一直要问怎么做，告诉了之后，就没影子了。
12# sp60

zjxwkp

多谢各位！我曾看到过一个动画，就是让一个切面从上到下依次扫过这个3d图形，并且能看清截面的情况。原以为实现起来很简单的，根据各位的解释，看来用mathematica做比较复杂了。

smarten

这样都叫复杂，那你还是不要用数学的好。