以下这个函数可以正常计算，但是为什么会没有图像呢？

Question

ReMantissa[x_,b_]:=RealDigits[Re[x],b][[1]]
ImMantissa[x_,b_]:=RealDigits[Im[x],b][[1]]
ReExp[x_,b_]:=RealDigits[Re[x],b][[2]]
ImExp[x_,b_]:=RealDigits[Im[x],b][[2]]
FromComplexDigits[Refn_, Imfn_, xn_, b_] :=
 FromDigits[{IntegerDigits[Refn[FromDigits[ReMantissa[xn, b]]], b], 
    ReExp[xn, b]}] +
  FromDigits[{IntegerDigits[Imfn[FromDigits[ImMantissa[xn, b]]], b], 
     ImExp[xn, b]}]*I
FromComplexDigits[fn_, xn_, b_] := FromComplexDigits[fn, fn, xn, b]
(*函数定义*)

In[67]:= FromComplexDigits[IntegerReverse,9876.54321+12345.6789I,10]
Out[67]= 123456789/100000+(987654321 I)/10000
(*计算测试*)

Debug`PlotC`Core[fn_, xmin_, xmax_, ymin_, ymax_, step_] := 
 ParallelTable[
  Hue[(Arg[fn] + \[Pi])/(2 \[Pi]), 1/(1 + 0.3 Log[Abs[fn] + 1]), 
   1 - 1/(1.1 + 5 Log[Abs[fn] + 1]), 1], {y, ymin + 0.0012, ymax, 
   step}, {x, xmin + 0.0012, xmax, step}]
(*绘图函数*)

Debug`PlotC`Core[
 FromComplexDigits[IntegerReverse, x + I y, 10], -5, 5, -5, 5, 0.1]
(*绘图测试，报错失败*)

 

Comments

函数FromComplexDigits，定义的有问题哦。检查检查。

---

确实是有问题，但是不知道问题在哪里。本来不是用plot3d测试而是用RasterArray的= =

Answer 1

因为Plot3D不能画复数，改成这样就可以

Plot3D[ReIm@FromComplexDigits[IntegerReverse, x + I y, 10], {x, -5, 
  5}, {y, -5, 5}]

 

Comments

好吧我错了......................

---

非常感谢，但是抱歉我换了绘图方法...先多谢抽空解答

---

哈哈，那个图看起来就不像对的

---

是啊，莫名鬼畜- -，应该是函数定义有问题