Wolfram mathematica 按照Mathematica 5中的样式设置3D绘图

我喜欢Mathematica 5中安静、不受干扰的色域和3D绘图的照明

是否有可能在Mathematica 7中设计出与Mathematica 5完全相同的3D绘图样式

---

这距离您的要求是否足够近，或者距离您的要求还有很长的距离

new = {{"Ambient", RGBColor[{0.356, 0.294, 0.4}]}, {"Directional", 
  RGBColor[{0.56, 0., 0.}], ImageScaled[{2, 0, 2}]}, {"Directional", 
  RGBColor[{0., 0.56, 0.}], ImageScaled[{2, 2, 2}]}, {"Directional", 
  RGBColor[{0., 0., 0.56}], ImageScaled[{0, 2, 2}]}};

Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, Lighting -> new, Mesh -> 20]

---

我想W先生已经很好地回答了你的问题。这里有一个玩具可以玩一些可能性，包括其他调色板。它从W先生使用的值开始

Manipulate[
  Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, PlotLabel -> cf, 
  ImageSize -> 360, ColorFunction -> cf, Mesh -> mesh,
  Lighting -> {{"Ambient", cs},
    {"Directional", RGBColor[{s, 0., 0.}], 
     ImageScaled[{2, 0, 2}]}, {"Directional", RGBColor[{0., s, 0.}], 
     ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[{0., 0., s}], 
     ImageScaled[{0, 2, 2}]}}],
{{cf, None, "color function"}, Prepend[ColorData["Gradients"], None]},
{{cs, RGBColor[{0.356, 0.294, 0.4}]}, ColorSlider},
{{s, .5, "brightness"}, 0, 1, Appearance -> "Labeled"},
{{mesh, 15}, 0, 30, 1, Appearance -> "Labeled"}]

---

@Mr.Wizard Close，意思是我希望顶点着色工作正常。但总的来说尽可能的接近，好的。我会考虑的。另一个好问题是Alexey。我已经很长时间没有使用v5了，我必须试着记住它是如何工作的。谢谢。我会尽快考虑你对

照明

和

色彩功能

的评论。（由于某种原因，我的回复区域中的评论被关闭；这就是我在这里回答您的原因。）我只是对

照明

选项的颜色选择有点困惑。在屏幕上，所有颜色都很简单：对于v.5选项，默认值是

{{{1,0,1}，RGBColor[1,0,0]}，{1,1,1}，RGBColor[0,1,0]}，{0,1,1}，RGBColor[0,0,1]}

，对于选项，默认值是

灰度[0]

。和

光源

被描述为点光源。但当然，简单地将这些设置替换为

照明

并不能提供所需的照明。设置

网格->23

或

绘图点->25，网格->完整

会生成与第5版相同的网格。@Alexey我也尝试过“点”，光的方向似乎是错误的（而不是强度）。也许有了正确的坐标旋转，它会很接近，但我现在没有时间尝试。+1显示得很好。我的英语不足以理解这里“不受干扰”的意思。你能解释一下吗？@belisarius我刚刚用Operate更新了它。降低亮度以获得较少干扰（即“较暗”）的渲染。喝彩。因此，仅通过指定不同的

ColorFunction

@David No无法解决此问题。如果上次加载时更改了页面，则只加载相同的页面。这个网站的问题更微妙：它的界面基于JavaScript文件，这些文件不是页面本身的一部分，而是根据请求从加载页面的整个代码加载的（如果浏览器认为这些文件已更改）。如果没有这些文件，此网站的所有交互功能都无法工作。这些文件可能由于某种原因在浏览器缓存中损坏或在服务器上更改，并且不兼容（如果它们未在浏览器缓存中更新）。解决方案是清除缓存并重新加载页面。@David Hard reload（FireFox中的Ctrl+F5）强制浏览器加载页面（但不加载其他所需文件），即使此页面“在服务器上未更改”（如浏览器“思考”）。缓存清理强制浏览器加载显示页面所需的所有内容，而不仅仅是页面本身。因此，通用的解决方案总是清理缓存，然后重新加载页面（在这种情况下不需要硬重新加载）。唯一的问题是Microsoft Internet Explorer：如果您按下相应的按钮，它不会总是清除所有缓存内容。这是所有版本的Internet Explorer中众所周知的错误。

new = {{"Ambient", RGBColor[{0.356, 0.294, 0.4}]}, {"Directional", 
  RGBColor[{0.56, 0., 0.}], ImageScaled[{2, 0, 2}]}, {"Directional", 
  RGBColor[{0., 0.56, 0.}], ImageScaled[{2, 2, 2}]}, {"Directional", 
  RGBColor[{0., 0., 0.56}], ImageScaled[{0, 2, 2}]}};

Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, Lighting -> new, Mesh -> 20]

Manipulate[
  Plot3D[Sin[x y], {x, 0, Pi}, {y, 0, Pi}, PlotLabel -> cf, 
  ImageSize -> 360, ColorFunction -> cf, Mesh -> mesh,
  Lighting -> {{"Ambient", cs},
    {"Directional", RGBColor[{s, 0., 0.}], 
     ImageScaled[{2, 0, 2}]}, {"Directional", RGBColor[{0., s, 0.}], 
     ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[{0., 0., s}], 
     ImageScaled[{0, 2, 2}]}}],
{{cf, None, "color function"}, Prepend[ColorData["Gradients"], None]},
{{cs, RGBColor[{0.356, 0.294, 0.4}]}, ColorSlider},
{{s, .5, "brightness"}, 0, 1, Appearance -> "Labeled"},
{{mesh, 15}, 0, 30, 1, Appearance -> "Labeled"}]