想给一个变形圆柱壳上色,最好是彩虹色。
圆柱壳坐标(X,Y,R),假设其半径为 r=1,长度L=10,变形为dw,是X和Y的函数。
r=1;
L=10;
dw=0.005` Re[
E^(I Y) (1 - (0.51 +
0.82 I) E^((-2.016*^-13 + 0.111 I) X) - (5.19 -
2.39 I) E^((-9.763*^-15 - 13.42 I) X) + (5.20 +
2.63 I) E^((-3.44*^-15 + 12.15 I) X) + (5.20 -
2.63 I) E^((3.44*^-15 - 12.15 I) X) - (5.19 +
2.39 I) E^((9.76*^-15 + 13.42 I) X) - (0.51 -
0.82 I) E^((2.01*^-13 - 0.11 I) X) - (0.19 +
2.56*^-13 I) X)];
变形后的圆柱壳绘图:
Wr = ParametricPlot3D[{(dw + r) Cos[Y], (dw + r) Sin[Y], X}, {X, 0,
L}, {Y, 0, 2 Pi}, Axes -> False, Boxed -> False, Mesh -> None,
ColorFunction -> Function[{x, y, z, X, Y}, Hue[dw]],
ColorFunctionScaling -> False, ViewPoint -> {0, -Infinity, 0},
PlotRange -> All, PlotPoints -> 90]
得到图像如下:

这个图里就三种颜色,太难看了。能不能用彩虹色表示变形量dw的大小?就像有限元软件里显示的云图那样?