एक क्षेत्र बनाम आदिम

Question

मैं गणित 8 का उपयोग कर रहा हूं और मैं बनावट के साथ संघर्ष कर रहा हूं। हालांकि पॉलीहेड्रल ऑब्जेक्ट्स का टेक्सचरिंग अपेक्षाकृत सरल साबित हुआ है, लेकिन मैंने एक क्षेत्र बनाने की कोशिश में एक समस्या को मारा। प्रलेखन में, दिखाए गए क्षेत्र को बनावट का एकमात्र तरीका SphericalPlot3D का उपयोग कर रहा है, जो, आईएमएचओ, एक क्लुजी समाधान है, खासकर जब से मैं क्षेत्र पर संचालन (उदाहरण: अनुवाद) करने की कोशिश कर रहा हूं। में, मेरा प्रश्न है: क्या क्षेत्रफल आदिम बनावट करने का कोई तरीका है?

Answer 1

आप सीधे Sphere बनावट नहीं बना सकते हैं, लेकिन आप एक बनावट बनाकर बना सकते हैं उदा। SphericalPlot3D और एक प्राथमिक प्राप्त करने के लिए पहले भाग निकालें जिसे आप Translate के साथ जोड़ सकते हैं। उदाहरण

लिए

sphere = SphericalPlot3D[1, th, phi, Mesh -> False, PlotPoints -> 25, 
    PlotStyle -> {Opacity[1], Texture[ExampleData[{"ColorTexture", "GiraffeFur"}]]}, 
    TextureCoordinateFunction -> ({#4, #5} &)][[1]]; 

Graphics3D[Translate[sphere, {{0, 0, 0}, {2, 2, 2}}]] 

Answer 2

कुछ इस तरह उपयोगी होगा:

sphere = SphericalPlot3D[1, {u, 0, Pi}, {v, 0, 2 Pi}, 
          TextureCoordinateFunction -> ({2 #5, 1 - 2 #4} &), 
          PlotStyle -> { Lighting -> "Neutral", Axes -> False, 
          Boxed -> False, Texture[texture]},  Mesh -> None][[1]]; 

F[k_] := Graphics3D[ Rotate[ sphere, k, {2, 1, 6}, {0, 0, 0}], Boxed -> False] 

अब, हम (वेक्टर {2, 1, 6} बिंदु {0,0,0} पर लंगर डाले चारों ओर) एक बनावट क्षेत्र घूर्णन चेतन कर सकते हैं:

Animate[F[k], {k, 0, 2 Pi}] 

Answer 3

बस पूर्णता के लिए, आप भी ParametricPlot3D का उपयोग कर बनावट के साथ क्षेत्रों उत्पन्न कर सकते हैं।

map = ExampleData[{"TestImage", "Lena"}]; 
sphere = ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {u, 
    0, 2 Pi}, {v, 0, Pi}, Mesh -> None, 
TextureCoordinateFunction -> ({#4, 1 - #5} &), 
Lighting -> "Neutral", Axes -> False, Boxed -> False, 
PlotStyle -> Texture[Show[map]]] 

अगर मैं सही ढंग से समझ, हीके के जवाब से पता चलता है कि परिणाम के पहले भाग एक GraphicsComplex है, जो एक ग्राफिक्स आदिम है।