如何画出曲面的边界？
2010-08-14 11:49:57| 分类：
Mathematica
| 标签：
|举报
|字号大中小 订阅
在Mathematica中用
BoundaryStyle->Directive[ Red, Thickness[0.01] ]
可以画出曲面的边界（这里颜色为Red，粗细为0.01）
图1 无边界曲线：
以下四行分别是以上四个图形的Mathematica命令：
Plot3D[Sin[x+y^2],{x,-3,3},{y,-2,2},Mesh->0] （无边界曲线）
Plot3D[Sin[x+y^2],{x,-3,3},{y,-2,2},Mesh->0,BoundaryStyle->Directive[Red,Thin]] （细边界曲线）
Plot3D[Sin[x+y^2],{x,-3,3},{y,-2,2},Mesh->0,BoundaryStyle->Directive[Red,Thick] ] （粗边界曲线）
Plot3D[Sin[x+y^2],{x,-3,3},{y,-2,2},Mesh->0,BoundaryStyle->Directive[Blue,Thickness[0.01]]] （规定边界曲线的粗细）
其他带边界曲线的曲面举例
例1 莫比乌斯带
此图形的Mathematica命令：
ParametricPlot3D[{(1+v/2*Cos[1/2*u])*Cos[u],(1+v/2*Cos[1/2*u])*Sin[u],v/2*Sin[u/2]},{v,-1,1},{u,0,2Pi},
Boxed->False,Axes->None,Mesh->{3,1},MeshShading->{{Green,Yellow}},
BoundaryStyle->Directive[Red,AbsoluteThickness[4]] （利用BoundaryStyle画出曲面的边界）
例2 两张抛物面的交线
此图形的Mathematica命令：
Plot3D[{x^2+2y^2,3-2x^2-y^2},{x,-1,1},{y,-1,1},
PlotStyle->{{Opacity[0.8],Pink},{Opacity[0.6],Yellow}},
RegionFunction->Function[{x,y,z},x^2+y^2<=1],BoxRatios->{1,1,2},Boxed->False,Axes->None,Mesh->0,
BoundaryStyle->Directive[Blue,AbsoluteThickness[4]]] （利用BoundaryStyle画出曲面的交线）
评论这张
转发至微博
转发至微博
关闭
玩LOFTER，免费冲印20张照片，人人有奖！
我要抢>
<#--最新日志，群博日志-->
<#--推荐日志-->
<#--引用记录-->
<#--博主推荐-->
<#--随机阅读-->
<#--首页推荐-->
<#--历史上的今天-->
<#--被推荐日志-->
<#--上一篇，下一篇-->
<#-- 热度 -->
<#-- 网易新闻广告 -->
<#--右边模块结构-->
<#--评论模块结构-->
<#--引用模块结构-->
<#--博主发起的投票-->
评论