Поместите изображение в плоскость XY на трехмерном графике в Mathematica

Пожалуйста, обратите внимание на следующее, из следующего из

Можно ли создать «ямчатое изображение» в системе 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]

enter image description here

Как я мог добавить фото ниже на плоскости X&Y. Затем сделайте поверхность прозрачной. Возможно ли это? (изображение получено с решением в упомянутом выше вопросе).

enter image description here

8
задан Community 23 May 2017 в 10:32
поделиться