2011-09-15 12 views
5

में एक ही साजिश में एकाधिक आंकड़े उदाहरण के लिए मैं एक प्लॉट और एक ही 3 डी प्लॉट में एक लाइन कैसे प्लॉट करूं?प्लॉट, विमान, बिंदु, रेखा, एक ही 3 डी साजिश में क्षेत्र। गणित

+2

Y हो सकता है कि http://reference.wolfram.com/mathematica/guide/SymbolicGraphicsLanguage.html और http://reference.wolfram.com/mathematica/tutorial/GraphicsAndSoundOverview.html –

उत्तर

8

Show और Plot3D इसे संभाल सकता है। शायद कई अन्य तरीके हैं।

l = Line[{{-2, -2, 41}, {6, 4, -10}}]; 

Show[{Plot3D[{2 x + 7 y}, {x, -2, 5}, {y, -2, 5}, AxesLabel -> {x, y, z}], 
     Graphics3D[{Thick, l}]}] 

Plot3D

8

बस यह दिखाने: enter image description here

Manipulate[ 

Show[ 
    {Plot3D[ {1}, {x, -1, 1}, {y, -1, 1}, PlotRange -> {-1, 1}, Mesh -> False], 
    Plot3D[{-1}, {x, -1, 1}, {y, -1, 1},      Mesh -> False], 
    ParametricPlot3D[{{[email protected], [email protected], 1}, {[email protected], [email protected], -1}}, {t, 0, 2 Pi}], 
    Graphics3D[ 
    {Table[{Hue[n/10], Thick, Line[{{Re[#], Im[#], 1}, {-z Re[#], -z Im[#], z}}&@ 
     Exp[n 2 I Pi/10]]}, {n, 10}], 
    Sphere[{0, 0, 0}, .3]}]}], 
    {z, 1, -1}] 
+0

डिस्को डिस्को :) भगवान में कुछ संदर्भ सामग्री का अध्ययन करना चाहें काम! – Joelmob

+0

शायद 'बॉक्सरेटोस' का स्पर्श कुछ अच्छा होगा। गोलाकार एक ताड़ फ्लैट है ... –

+0

@Sjoerd वह मेरे अंदर कलाकार है –

7

मैं या तो विरोध नहीं कर सकता है ...

enter image description here

GraphicsGrid[ 
{ 
    {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (White &), 
    Lighting -> "Neutral"], 
    Style["One plane", FontFamily -> "Comic Sans MS", 36, Bold]}, 
    {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0, 5}, Axes -> None, ColorFunction -> (Green &), 
    Lighting -> "Neutral"], 
    Style["Two plane", FontFamily -> "Comic Sans MS", 36, Bold]}, 
    {ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (Red &), 
    Lighting -> "Neutral"], 
    Style["Red plane", FontFamily -> "Comic Sans MS", 36, Bold]}, 
    {Show[ 
    ContourPlot3D[x + 2 y + 3 z , {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    Contours -> {0}, Axes -> None, ColorFunction -> (Blue &), 
    Lighting -> "Neutral"], 
    Graphics3D[{Orange, Thickness[0.01], 
     Line[{{-2, -2, -2}, {2, 2, 2}}]}] 
    ], Style["Blue plane", FontFamily -> "Comic Sans MS", 36, Bold]} 
    } 
] 
+3

@ डेविड आप टिप्पणी करने से पहले: मुझे 'विमान' का बहुवचन पता है ;-) –

+0

बेशक। बीटीडब्ल्यू, मैंने डॉ। ज़्यूस के संदर्भ की सराहना की। – DavidC

+0

@ डेविड उन लोगों के लिए डॉ। सीस-प्रबुद्ध नहीं, देखें http://en.wikipedia.org/wiki/One_Fish_Two_Fish_Red_Fish_Blue_Fish –

संबंधित मुद्दे