在Mathematica中使用Graphics3D的线条样式

500*_*500 3 3d graphics wolfram-mathematica mathematica-8

考虑以下 :

cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,0}, {1, 0, 0}}};

Graphics3D[{Line /@ cAxes}, Boxed -> False]
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

Style如何以不同的方式改变3条线?

Mr.*_*ard 6

上面的答案很好,但我想展示一些替代方案.

我表明它可以Style用于此,这Tube是一个有趣的替代品Line.

cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0, 
     0}, {1, 0, 0}}};

tubes = Tube@# ~Style~ #2 & ~MapThread~ {cAxes, {Red, Green, Blue}};

Graphics3D[tubes, Boxed -> False]
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述