गणित प्लॉट

Question

में वाई अक्ष के साथ एक्स अक्ष को संरेखित करने के लिए मजबूर करना मैथमैटिका में, जब मैं कभी-कभी चीजों को साजिश करता हूं तो मुझे हमेशा एक्स-अक्ष को साजिश के सटीक तल के साथ लाइन करने के लिए नहीं मिलता है। क्या ऐसा कोई तरीका है जिससे मैं इसे हर समय करने के लिए मजबूर कर सकता हूं? मैं http://i.imgur.com/3lcWd.png

x- अक्ष तल पर शून्य टिक मार्क रास्ता साथ पूरी तरह से पंक्तिबद्ध करने के लिए, के रूप में y- अक्ष के बीच में नहीं हैं:

यहाँ मैं के बारे में बात कर रहा हूँ का एक उदाहरण है यह उस छवि में है।

कोई भी तरीका मैं इसे पूरा कर सकता हूं?

Answer 1

विकल्प AxesOrigin -> {0,0}

Answer 2

तुम भी तरह कुछ इस्तेमाल कर सकते हैं का उपयोग करें: Frame -> {{Automatic, None}, {Automatic, None}}

(इसके अलावा मुझे लगता है कि इस तथ्य यह चुनने नहीं कर रहा है कि {0,0} डिफ़ॉल्ट रूप से इसका मतलब है कि y=0PlotRangePadding द्वारा सीमा में लाया जा रहा है कि ताकि। नजर रखने के लिए एक और विकल्प हो सकता है।)

Answer 3

निर्देशांक मानों के बावजूद निम्नलिखित आपके अक्षरों को बाएं और नीचे खींचेंगे:

aPlot[f_, var_, opts : OptionsPattern[]] := 
Plot[f, var, 
    AxesOrigin -> 
    First /@ (# /. AbsoluteOptions[Plot[f, var, opts], #] &@PlotRange), opts] 

aPlot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, Filling -> Axis] 

aPlot[Sin[x], {x, 0, 2 Pi}] 

Answer 4

यहाँ बेलिसारियस के कोड के आधार पर (IMO) और अधिक सुरुचिपूर्ण विधि है जो DisplayFunction विकल्प का उपयोग करता (इस विकल्प पर here दिलचस्प चर्चा को देखें):

Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
Filling -> Axis, 
DisplayFunction -> 
    Function[{plot}, 
    Show[plot, 
    AxesOrigin -> 
    First /@ (PlotRange /. AbsoluteOptions[plot, PlotRange]), 
    DisplayFunction -> Identity]]] 

दोनों विधियों का एकमात्र दोष यह है कि AbsoluteOptions does not always give correct value of PlotRange। समाधान the Ticks hack (जो PlotRangePadding की स्पष्ट मूल्यवर्धित के साथ पूरा PlotRange देता है) का उपयोग करने के लिए है:

pl1 = Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
    Filling -> Axis, 
    DisplayFunction -> 
    Function[{plot}, 
    Show[plot, AxesOrigin -> First /@ completePlotRange[plot], 
     DisplayFunction -> Identity]]]; 
pl2 = Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
    Filling -> Axis, Frame -> {{Automatic, None}, {Automatic, None}}, 
    Axes -> False]; 
Rasterize[pl1] == Rasterize[pl1] 

=> True 

:

completePlotRange[plot_] := 
Last@Last@ 
    Reap[Rasterize[ 
    Show[plot, Ticks -> (Sow[{##}] &), DisplayFunction -> Identity], 
    ImageResolution -> 1]] 
Plot[Evaluate[Table[BesselJ[n, x], {n, 4}]], {x, 0, 10}, 
Filling -> Axis, 
DisplayFunction -> 
    Function[{plot}, 
    Show[plot, AxesOrigin -> First /@ completePlotRange[plot], 
    DisplayFunction -> Identity]]] 

ऐसा नहीं है कि इस कोड को वास्तव में बस Frame -> {{Automatic, None}, {Automatic, None}}, Axes -> False निर्दिष्ट करने के रूप में ही प्रतिपादन देता है नोट करने के लिए दिलचस्प है