2012-10-03 26 views
7

साजिश मैं आर में निम्नलिखित अंतर्निहित सूत्र प्लॉट करने के लिए कोशिश कर रहा हूँ:निहित समारोह

1 = x^2 + 4 * (y^2) + x * y

जो एक अंडाकार होना चाहिए। मैं यादृच्छिक रूप से एक्स मानों का नमूना देना चाहता हूं और फिर उन पर आधारित ग्राफ उत्पन्न करना चाहता हूं।

Here's संबंधित धागा, लेकिन समाधान 3 डी मामले के लिए विशिष्ट प्रतीत होते हैं। यह सवाल गुगलिंग के लिए अधिक प्रतिरोधी रहा है जिसे मैं उम्मीद करता था, इसलिए शायद आर भाषा कुछ और सूत्रों को स्पष्ट रूप से कॉल करेगी।

अग्रिम धन्यवाद!

+0

@mnel। आपका संस्करण सही था। हटाना रद्द! –

उत्तर

11

दो चीजें जिन्हें आप समझ नहीं सकते हैं। जब कि तकनीक के साथ निहित कार्यों की साजिश रचने, आप समारोह के आरएचएस करने के लिए सभी शर्तों को स्थानांतरित करने की जरूरत है ताकि अपने निहित समारोह हो जाता है:

0 = -1+ x^2 + 4*(y^2) + x*y 

फिर शून्य की समोच्च मूल्य का उपयोग मतलब होगा:

x<-seq(-1.1,1.1,length=1000) 
y<-seq(-1,1,length=1000) 
z<-outer(x,y,function(x,y) 4*y^2+x^2+x*y -1) 
contour(x,y,z,levels=0) 

मुझे पहले संस्करण पर एक संकेत गलत मिला। @mnels 'सही था।

enter image description here

+0

हाँ, लेकिन "यादृच्छिक रूप से नमूना एक्स" के अनुरोध के बारे में क्या? मुझे आश्चर्य है कि क्या वह आपकी विधि का उपयोग करना चाहता है लेकिन 'x <-runif (1000, -1.1,1.1)' का उपयोग करना और 'y' के लिए हल करना, अंडाकार पर अंक उत्पन्न करना है। वैकल्पिक रूप से, 'sfsmisc :: ellipsePoints' के बारे में कैसे? –

+0

ईमानदार होने के लिए मैंने प्रश्न के "यादृच्छिक" एक्स भाग को नहीं देखा। "वाई के लिए हल करने" को वर्ग के "पक्ष" दोनों की आवश्यकता होगी। 'sfmisc :: ellipsePoints' मेरे लिए तत्काल (या यहां तक ​​कि देरी) समाधान प्रदान करने के लिए प्रतीत नहीं होता है। मुझे वापस जाने और अर्ध अक्षों, केंद्र और कोण की लंबाई को इसकी aparameters होने से पहले की आवश्यकता होगी और फिर भी मुझे मनमाने ढंग से x मान के लिए समाधान उत्पन्न करने के लिए इसका उपयोग करने का कोई तरीका नहीं दिखता है। –

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