wrote:
> For those who want faster function adjusting
> http://library.wolfram.com/webMathematica/MSP/Explore/Graphics/Plot3D

And for those who are confused about mathematica syntax take a look at online
documentation at http://documents.wolfram.com/ . Below is complete equivalent
of default graph. I thought it could be better to present it as parametric
object but this produced some crash in my current beta (apriopriate report
after moment in p.b-t). I didn't want to use mesh to not complicate script.

#version 3.5;
#include "shapes"

#local Surface=isosurface{
  function{y-(
    (sin(x*z))^2  // fromula from Mathematica
  )}
  contained_by{box{
    <0,0,0>        // min range from Mathematica
    <2*pi,1,2*pi>  // max range from Mathematica
  }}
  max_gradient 4.5 // adjusted according to pov-warning
  pigment {rgb 1}
};

Center_Object(Surface,1)

camera {
  location <5,5,-5>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}

light_source{100*y,1}

ABX

Post a reply to this message