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条线?
上面的答案很好,但我想展示一些替代方案.
我表明它可以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)
