cf[x_] := Hue[2/3 x] Plot3D[{3.5 Log[1.7*x^3 + 0.8*Sin[y] + 3]}, {x, 1, 100}, {y, 10^-5, 1}, ColorFunction -> cf, PlotLegends -> Automatic] 
azerbajdzan
- 32.6k
- 2
- 28
- 76
cf[x_] := Hue[2/3 x] Plot3D[{3.5 Log[1.7*x^3 + 0.8*Sin[y] + 3]}, {x, 1, 100}, {y, 10^-5, 1}, ColorFunction -> cf, PlotLegends -> Automatic]