Xah Talk Show 2024-05-14 Ep556 Wolfram Language Mathematica, Wave Surface, Plane Curves

• Sine Curve

Plot3D[Sin[x]*Sin[y], {x, Pi/2, 4 Pi}, {y, Pi/2, 4 Pi},
 BoxRatios -> Automatic,
 PlotStyle -> {Specularity[50], AmbientLight[Yellow],
   Lighting -> {PointLight[Red, {100, 100, 100}],
     PointLight[Blue, {100, -100, 100}]}}]

Plot3D[Sin[x]*Sin[y], {x, Pi/2, 4 Pi}, {y, Pi/2, 4 Pi}, BoxRatios -> Automatic,
 PlotStyle -> {
Specularity[50],
AmbientLight[Orange],
MaterialShading["Iron"],
Lighting ->
{PointLight[Red, {100,100,100}],
PointLight[Blue, {100,-100,100} ] }
}
]

Plot3D[Sin[x]*Sin[y], {x, Pi/2, 4 Pi}, {y, Pi/2, 4 Pi}, BoxRatios -> Automatic,
 PlotStyle -> {
Specularity[50],
AmbientLight[Orange],
MaterialShading["Iron"],
Lighting -> "ThreePoint" }
]