प्लेस मेथेमेटिका

Question

में एक 3 डी प्लॉट में XY विमान पर एक छवि कृपया निम्नलिखित, निम्न से

Can we generate "foveated Image" in Mathematica

Clear[acuity]; 

acuity[distance_, x_, y_, blindspotradius_] := 

With[{\[Theta] = ArcTan[distance, Sqrt[x^2 + y^2]]}, 
     Clip[(Chop@Exp[-Abs[\[Theta]]/(15. Degree)] - .05)/.95, 
        {0,1}] (1.-Boole[(x + 100.)^2 + y^2 <= blindspotradius^2])] 

Plot3D[acuity[250., x, y, 9], {x, -256, 256}, {y, -256, 256}, 
PlotRange -> All, Axes -> False, PlotPoints -> 40, 
ExclusionsStyle -> Automatic, Boxed -> False, Mesh -> None] 

से विचार करें मैं कैसे नीचे पर तस्वीर जोड़ सकते हैं एक्स & वाई विमान। फिर सतह पारदर्शी प्लॉट किया है। क्या यह संभव है? (ऊपर वर्णित प्रश्न में समाधान के साथ प्राप्त छवि)।

Answer 1

i = Import["http://i.stack.imgur.com/0EizO.png"]; 
p = {{0, 0}, {1, 0}, {1, 1}, {0, 1}}; 
Show@{ 
    Plot3D[ 
    acuity[250., x, y, 9], {x, -256, 256}, {y, -256, 256}, 
    PlotRange -> All, PlotPoints -> 40,ExclusionsStyle -> Automatic,Axes -> False, 
    Boxed -> False, Mesh -> None, PlotStyle -> Directive[Opacity[0.5]]], 
    Graphics3D[{Texture[i], 
    Polygon[Join[#, {0}] & /@ (2 p - 1) 256, VertexTextureCoordinates -> p]} 
    ]} 

संपादित

AspectRatio [] के साथ काम, अपनी टिप्पणी में अनुरोध के रूप में:

p = {{0, 0}, {1, 0}, {1, 1}, {0, 1}}; 
r = First@#/Last@# &@Dimensions@ImageData@i; 
a = 1.4; 
Show@{Plot3D[ 
     acuity[250., a x, a y, 9], {x, -256 , 256 }, {y, -256 r , 256 r }, 
      PlotRange -> All, PlotPoints -> 40, ExclusionsStyle -> Automatic, 
      Axes -> False, Boxed -> False, Mesh -> None, 
      PlotStyle -> Directive[Opacity[0.5]], AspectRatio -> r], 
    Graphics3D[{Texture[i], 
      Polygon[{{-256 , -256 r, 0}, { 256 , -256 r , 0}, 
         { 256 , 256 r, 0}, {-256 , 256 r, 0}}, 
      VertexTextureCoordinates -> p]}]}