公告:网站程序已升级到1.8.3,修复了提问时可能报错的问题,请清除浏览器缓存
2019-11-10

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

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

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

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

社区建议QQ群:365716997

分类

0 投票
68 浏览

Clear["`*"];

pts = {{{0, 0, 0}, {1, 0, 0}, {1, 0, 0}, {2, 0, 0}}, {{0,
     4/3, 0}, {2/3, 4/3, 2}, {4/3, 4/3, 2}, {2, 4/3, 0}}, {{0, 2/3,
    0}, {2/3, 2/3, 0}, {4/3, 2/3, 0}, {2, 2/3, 0}}, {{0, 2, 0}, {2/3,
    2, 0}, {4/3, 2, 0}, {2, 2, 0}}};
a = Graphics3D[BSplineSurface[pts], Boxed -> False];
b = ParametricPlot3D[BezierFunction[pts][u, v], {u, 0, 1}, {v, 0, 1},
   ColorFunction -> "Rainbow", Mesh -> False, Boxed -> False,
   Axes -> False];
{a, b}

能否对 a 直接用 VertexColors 着色,从而达到 b 的效果。

(浏览器有问题,暂时不支持用代码框)

分类:绘图 | 用户: cvgmt (276 分)
修改于 用户:cvgmt

登录 或者 注册 后回答这个问题。

...