图片中代码是错的怎么修改

笨笨

图片中代码是错的怎么修改

笨笨

求大佬帮忙，看怎么改

wayne

心形图把我带到了我刚玩Mathematica的那会，

公式没有问题，参考：　http://mathworld.wolfram.com/HeartSurface.html
http://mathworld.wolfram.com/HeartCurve.html

1. m=1.5;ContourPlot3D[(x^2+9/4y^2+z^2-1)^3-x^2z^3-9/80y^2z^3==0,{x,-m,m},{y,-m,m},{z,-m,m},Axes->False,Boxed->False,Lighting->"Neutral",ContourStyle->Red]

复制代码

星龙侠

欣赏。顶！

笨笨

wayne 发表于 2018-8-13 10:16
心形图把我带到了我刚玩Mathematica的那会，

公式没有问题，参考：　http://mathworld.wolfram.com/He ...

这个图片我花费了好长时间都没有达到主贴图片的效果，下面是我做的效果，同时改了先生的代码，很是感谢

笨笨

wayne 发表于 2018-8-13 10:16
心形图把我带到了我刚玩Mathematica的那会，

公式没有问题，参考：　http://mathworld.wolfram.com/He ...

敢问高手能不能把颜色代码改一下达到主题的效果，那么怎么修改颜色代码才能与主贴保持一致呢，对于一楼图片我真心喜欢，可问了好多人就是不会

zeroieme

1. ParallelTable[ContourPlot3D[(x^2+9/4y^2+z^2-1)^3-x^2z^3-9/80y^2z^3==0,{x,-1.5,1.5},{y,-1.5,1.5},{z,-1.5,1.5},Axes->False,Boxed->False,Lighting->"Neutral",ContourStyle->ColorType],{ColorType,{Red,Green,Blue,Black,White,Gray,Cyan,Magenta,Yellow,Brown,Orange,Pink,Purple,LightRed,LightGreen,LightBlue,LightGray,LightCyan,LightMagenta,LightYellow,LightBrown,LightOrange,LightPink,LightPurple,RGBColor[1,0.4,0.7]}}]

复制代码

笨笨

zeroieme 发表于 2018-8-14 22:39

谢谢大佬，关键是达不到一楼主贴图片颜色的效果，我情不独钟那个颜色，哎，凡事不能勉强，做不出来算了

chyanog

这个截图是Matrix67博客里的吧，http://www.matrix67.com/blog/archives/223
稍微模仿了一下，主要和光照有关

1. m = 1.5;
   
2. ContourPlot3D[(x^2 + 9/4 y^2 + z^2 - 1)^3 - x^2 z^3 - 9/80 y^2 z^3 == 0, {x, -m, m}, {y, -m, m}, {z, -m, m},
   
3. Axes -> False, Boxed -> False, Lighting -> {{"Ambient", White}},
   
4. ContourStyle -> RGBColor[1, 0.4, 0.7], PlotRange -> Automatic,
   
5. BoxRatios -> Automatic, Mesh -> 30,
   
6. BaseStyle -> Antialiasing -> False, ImageSize -> Large]

复制代码

笨笨

chyanog 发表于 2018-8-16 11:52
这个截图是Matrix67博客里的吧，http://www.matrix67.com/blog/archives/223
稍微模仿了一下，主要和光照 ...

居然被你猜中了，确实如此。就是这篇文章。据说原创作者是清华的一名工科生，我在浏览网页时看到的，第一眼看到觉得很飘亮。于是我把图片上代码输入到程序里居然是错的，原创程序的代码压根都出不来图片，我试了很多代码终于把图片搞出来了，结果颜色又是问题。我又花费了几个月的时间调颜色结果都以失败而告终，都没原创的颜色好，后来我又仔细地阅读了原文章，结果原创作者是先用程序生成心形图然后再在ps里调色才最终达到主题的效果图，层主果然厉害！！！你有色觉。没有色觉的人是很难做出来的，非常感谢