जब माउस का उपयोग कर एक छवि को घुमाने के लिए

Question

कैसे 3 डी में निर्दिष्ट किया ImageSize उपयोग करने के लिए मजबूर करने के लिए प्लॉट (मेथेमेटिका संस्करण: 8.0.4, विंडोज 7 पर)

कोई मुझे याद दिलाना कृपया सकते हैं एम नहीं बताने के लिए कैसे निम्नलिखित मामले में ImageSize को बदलने के लिए:

मेरे पास एक मैनिपुलेट है, जहां मैं ग्रिड बनाता हूं, और ग्रिड के अंदर, मैं या तो नियंत्रण विकल्प के आधार पर एक प्लॉट या 2 प्लॉट दिखाता हूं।

समग्र रूप से प्रदर्शित छवि को समान रखने के लिए, यदि मैं एक साजिश प्रदर्शित कर रहा हूं तो मैं एक आकार का उपयोग करता हूं, और यदि मैं 2 प्लॉट प्रदर्शित कर रहा हूं, तो मैं प्रत्येक प्लॉट के लिए आधे लंबाई का उपयोग करता हूं। अभी तक काफी आसान है।

अजीब बात यह है कि जब मैं एक साजिश के मामले को घुमाने के लिए माउस का उपयोग करता हूं, और फिर 2 प्लॉट पर वापस स्विच करता हूं, तो साजिश का आकार अब निर्दिष्ट छवि आकार का उपयोग नहीं करता है।

ऐसा लगता है कि एक साजिश को घुमाने के लिए माउस का उपयोग करके, यह उसी स्क्रीन स्थान पर दिखाए गए अगली साजिश को प्रभावित करता है।

SphericalRegion -> True का उपयोग या नहीं, इसका कोई प्रभाव नहीं पड़ता है। RotationAction -> "Fit" का उपयोग करने से कोई प्रभाव नहीं पड़ता है।

मेरा मतलब क्या है इसका एक छोटा उदाहरण है, और फिर मैं दिखाता हूं कि मैं वर्तमान में इस समस्या को कैसे हल करता हूं। लेकिन मैं ग्रिड के स्थान पर ग्राफिक्स ग्रिड का उपयोग करके इसे हल करता हूं। यदि संभव हो तो मैं ग्रिड का उपयोग करना चाहता था।

Manipulate[ 
Module[{opt = {Spacings -> {0, 0}, Frame -> All}, p, 
    size, data = Table[RandomReal[], {10}, {10}], wid = 300, len = 300}, 

    size = If[choice == 1, {wid, len}, {wid, len/2}]; 
    Print[size]; 
    p = ListPlot3D[data,SphericalRegion->True,ImagePadding -> 10,ImageSize ->size]; 

    If[choice == 1, 
    Grid[{{p}}, Sequence@opt], Grid[{{p}, {p}}, Sequence@opt] 
    ] 
    ], 

Row[{SetterBar[Dynamic[choice], {1, 2}]}], 
{{choice, 2}, None} 
] 

समस्या को पुन: उत्पन्न करने के लिए, सरल है: पहले मैं आकार को नोट करता हूं, इस तरह मैं इसे रखना चाहता हूं। अब मैं पसंद 1 पर क्लिक करता हूं, अब माउस का उपयोग करके मैं एक साजिश घुमाता हूं। अब मैं वापस जाने के लिए पसंद 2 पर क्लिक करता हूं, फिर मुझे लगता है कि साजिश का आकार ऐसा नहीं है जिसे मैं उम्मीद करता हूं।

मैं इसे एक विकल्प मैं उपयोग करने की आवश्यकता है यकीन है। बस इसे अभी तक नहीं मिला है।

ps। दरअसल, ऐसा लगता है कि, समान साजिश जो घुमाया गया था, सामग्री क्षेत्र पर रहता है, और दूसरे मामले में 2 भूखंडों में से एक के स्थान पर उपयोग किया जाता था। बहुत अजीब। मुझे कहीं मूर्खतापूर्ण कुछ करना होगा, क्योंकि यह बहुत अजीब है।

अद्यतन 2:48 बजे यह हेरफेर अभिव्यक्ति में Dynamic का उपयोग कर के रूप में MrWizard से नीचे दिखाया गया है के जवाब में है। वी 8.04 पर, यह काम नहीं करता है। यहाँ कोड है:

Manipulate[ 
Module[{p, size, data = Table[RandomReal[], {10}, {10}], wid = 300, 
    len = 300}, 

    size = If[choice == 1, {wid, len}, {wid, len/2}]; 
    p = ListPlot3D[data, SphericalRegion -> True, ImagePadding -> 10, 
    ImageSize -> size]; 

    If[choice == 1, 
    Grid[{{p}}], 
    Dynamic@Grid[{{p}, {p}}] 
    ] 
    ], 

Row[{SetterBar[Dynamic[choice], {1, 2}]}], 
{{choice, 2}, None} 
] 

अद्यतन 03:03

यह नीचे ग्रिड रखकर काम करता है। ग्रिड के चारों ओर एक फ्रेम जोड़ना यह काम करता है। (माइक उत्तर के लिए धन्यवाद कि यह दिखाता है कि ग्रिड के बजाय फ़्रेम का उपयोग करके यह काम करता है, मुझे लगा कि मुझे ग्रिड के चारों ओर फ़्रेम जोड़ने का प्रयास करने दें)

लंबे समय तक मैथमैटिका का उपयोग करके मैंने देखा है कि सबसे अजीब चीज़ों में से एक :)

Manipulate[ 
Module[{p, size, data = Table[RandomReal[], {10}, {10}], wid = 300, 
    len = 300}, 

    size = If[choice == 1, {wid, len}, {wid, len/2}]; 
    p = ListPlot3D[data, SphericalRegion -> True, ImagePadding -> 10, 
    ImageSize -> size]; 

    If[choice == 1, 
    Framed@Grid[{{p}}], 
    Grid[{{p}, {p}}] 
    ] 
    ], 

Row[{SetterBar[Dynamic[choice], {1, 2}]}], 
{{choice, 2}, None} 
] 

धन्यवाद

Answer 1

यह कैसे // क्यों Plot3D छवि विकल्प why does Plot3D remember... याद है फिर से एक और पहेली से संबंधित है। समाधान इस मामले में भी में एक ही होता है: जो है, Plot3D के लिए एक विकल्प के रूप में PreserveImageOptions -> False जोड़ें। किसी भी तरह, श्रीमान और माइक फोर्स प्लॉट 3 डी द्वारा सुझाए गए हैंक की तरह हैक "भूल जाएं"।

Answer 2

मैं लंबे समय से नहीं मिला है लेकिन Grid का उपयोग करते हैं, यह अप खिलवाड़ मुख्य बात प्रतीत हो रहा है कि मैं कैसे/क्यों की पहचान करने के लिए समय नहीं पड़ा है। यदि आप If कथन को इसके साथ प्रतिस्थापित करते हैं:

If[choice == 1, Framed@p, Grid[{{p}, {p}}, Sequence@opt]] 

तो यह ठीक काम करता है। वहाँ कुछ अन्य बातों के कोड में चल रही है कि पहली नजर में इष्टतम प्रतीत नहीं हैं, लेकिन मैं सिर्फ ग्राफिक्स समय की कमी की वजह से आकार देने पर ध्यान केंद्रित किया है। यह एक स्पष्टीकरण के रूप में नहीं है, लेकिन आपकी मदद कर सकता है या किसी और को यह पता चल सकता है कि यह ऐसा क्यों व्यवहार कर रहा है। क्षमा करें लेकिन समय पर कम लेकिन सोचा कि यह Grid के अवलोकन को पोस्ट करने लायक था।

Answer 3

किसी भी वास्तविक विश्लेषण कर के बिना, यहाँ मेरी अनुमान है।

मेरा मानना ​​है कि यह जो मानना ​​है कि दिखाया गया है ग्राफिक के स्पष्ट सामग्री परिवर्तन नहीं किया एक अनुकूलन तकनीक का परिणाम हो सकता है। मुझे लगता है कि कुंजी इसलिए ग्रिड की प्रत्येक स्थिति में प्रदर्शित प्रत्येक ग्राफिक के बीच स्पष्ट सामग्री को अलग करने के लिए है। Identity जैसे कुछ का उपयोग करना काम नहीं करेगा क्योंकि यह अभिव्यक्ति से गायब हो जाता है। हालांकि अगर यह अनुमान सही है तो मुझे उम्मीद है कि किसी भी अद्यतन परिवर्तन को अद्यतन ग्राफिक में परिणाम मिलेगा।

मैं पहली बार Grid अभिव्यक्ति के लिए इनमें से प्रत्येक का उपयोग कर सफलता मिली है:

Grid[{{ Framed@p }}, opt]

Grid[{{ Panel@p }}, opt]

Grid[{{ Pane@p }}, opt]

Grid[{{ {p} }}, opt]

Grid[{{ Item@p }}, opt]

Grid[{{ Style@p }}, opt]