Wolfram
Mathematica
8의 신기능: 새롭게 향상된 과학 및 정보 시각화 기능
◄
이전
|
다음
►
그래픽 및 시각화
Riemann 합의 3D 시각화
곡면 아래의 부피 근사를 위해 Riemann 합을 사용합니다.
In[1]:=
X
plot = Plot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1}, {y, -1, 1}, PlotStyle -> Directive[Opacity[0.5], Yellow], MeshStyle -> LightGray];
In[2]:=
X
Grid[Partition[ Table[Show[plot, DiscretePlot3D[Sqrt[1 - x^2 - y^2], {x, -1, 1, d}, {y, -1, 1, d}, ExtentSize -> Full, FillingStyle -> Opacity[1], PlotStyle -> Lighter[Blue]], Lighting -> "Neutral", ImageSize -> 275, Boxed -> False, PlotRangePadding -> 0, AxesEdge -> {{1, -1}, {-1, -1}, {-1, 1}}], {d, {1, 1/2, 1/4, 1/8}}], 2]]
Out[2]=