公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

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

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

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

社区建议QQ群:365716997

分类

0 投票
1.2k 浏览

写一个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.0k 分)
采纳于 用户:EmberEdison
- -不能读取图像重新上色么?
太离散了啊,那用这个吧Raster3D。

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