Wolfram
Mathematica
8의 신기능: 새롭게 향상된 과학 및 정보 시각화 기능
◄
이전
|
다음
►
그래픽 및 시각화
3D 이산 점과 영역 연결
다양하게 명명된 확장 크기 및 매개 변수화된 확장 크기를 사용하여 영역을
DiscretePlot3D
사항과 관련시킵니다.
In[1]:=
X
sizes = {#, #} & /@ {{0, 0}, {0, Scaled[0.5]}, {0, Scaled[0.75]}, {Scaled[0.5], 0}, {Scaled[0.5], Scaled[0.5]}, Left, {Scaled[0.75], 0}, Right, Full};
In[2]:=
X
SeedRandom[1]; Grid[ Partition[ Table[DiscretePlot3D[Sin[x] + Sqrt[x y], {x, 5}, {y, 5}, ExtentSize -> size, PlotLabel -> size, PlotMarkers -> {"Sphere", 0.03}, PlotStyle -> ColorData["Rainbow", RandomReal[]]], {size, sizes}], 3]]
Out[2]=