公告:本站正式转型为非交互式静态网站!
转型:本站将通过笔记和博客的形式继续为大家服务,关于 Mathematica 问答服务请移步至QQ群:365716997
联系:如有问题请联系QQ群管理员,或发送邮件至:lixuan.xyz@qq.com。
感谢:最后非常感谢大家多年来的支持与帮助!
参考《互联网跟帖评论服务管理规定》《中华人民共和国网络安全法》《网络信息内容生态治理规定》《互联网用户账号信息管理规定》

—— 2022-11-27

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
3.3k 浏览

写一个DensityPlot3D用的ColoFunction:

DensityPlot3D[
 Abs[Log[x + I*y, z*E^I\[Pi]]], {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
   PerformanceGoal -> "Quality", 
 ColorFunction -> (Function[{x, y, z, f}, #1] & )[
       Hue[Arg[Log[x + I*y, z*E^(I*Pi)]]/(2*Pi) + 0.5, 1, 1, 1]], 
   AxesLabel -> {Re[x], Im[x], Abs[y]}]

结果并不能得到预期结果,而且严重的报错。这又出什么幺蛾子了?

分类:绘图 | 用户: EmberEdison (806 分)

1个回答

+1 投票
 
已采纳

绘图参数中,I和Pi之间少了一个空格。

帮助中的 Details And Options 部分说:DensityPlot3D中的ColorFunction只支持一个参数,即函数值。所以应该只按一个参数写ColorFunction,比如下面这样:

DensityPlot3D[
 Abs[Log[x + I*y, z*E^I \[Pi]]], {x, -5, 5}, {y, -5, 5}, {z, -5, 5}, 
 PerformanceGoal -> "Quality", AxesLabel -> {Re[x], Im[x], Abs[y]}, 
 ColorFunction -> (Hue[#, 1, 1, 1] &), ColorFunctionScaling -> True]

 

用户: 野鹤 (5.1k 分)
采纳于 用户:EmberEdison
但是函数值Abs[Log[-%-]]]本身没有用啊,要用的是Arg[Log[-%-]]....mma好像可以给图像后期再上色对吧?在这里能做到么?
原有每一个点的不透明度都保持,而用Abs[Log[-%-]]的色相,饱和度,亮度覆盖复写....我是不是应该换ListDensityPlot3D?
DensityPlot3D是绘制三维密度图的,颜色取决于该点的密度,所以颜色函数只有密度值这一个参数,如果有多个参数就不能准确地表达密度了。ListDensityPlot3D也是一样的。

要绘制出空间中每点的颜色,可以使用ListPointPlot3D,详见该函数的颜色函数ColorFunction。
ListPointPlot3D....会不会太离散了.....我看样例都超级离散啊.....点集可是很多的
- -不能读取图像重新上色么?
太离散了啊,那用这个吧Raster3D。

也可以考虑可以使用替换规则修改原图,但不如果使用现成的函数直接。
Raster3D看起来还不错,就是不知道速度如何。我都试试吧,主要是可能规则会快些?
DensityPlot3D也是通过Raster3D来绘图的,所以只要你离散化得当,速度上应该比使用替换快些。
...系统默认是多少采样点的.....得到图像的时候.....要我写控制算法好像挺困难啊T T
...