Рассмотрим следующий пример:Стиль линии с использованием Graphics3D в Mathematica
cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,0}, {1, 0, 0}}};
Graphics3D[{Line /@ cAxes}, Boxed -> False]
Как стиль по-разному на 3 линии?
Ответ выше хороши, но я хочу показать некоторые альтернативы.
Я показываю, что для этого можно использовать Style, и что Tube - интересная альтернатива Line.
cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,
0}, {1, 0, 0}}};
tubes = [email protected]# ~Style~ #2 & ~MapThread~ {cAxes, {Red, Green, Blue}};
Graphics3D[tubes, Boxed -> False]
Могу ли я отправить вам что-то маленькую демо-версию, которую я готовлю? Я борюсь с некоторыми графиками, но код долгий! – 500
@ 500 Да, вперед. Сегодня я смогу провести некоторое время. –
+1 для инфиксной записи ** ~ MapThread ~ **, что делает его «более похожим» на то, как он работает. –
непроверенная (я не имею доступа к Mathematica прямо сейчас):
Graphics3D[[email protected]{{Red, Green, Blue}, Line /@ cAxes}, Boxed -> False]
celtschk, поздравляю вас с новым пользователем в этом месяце на сегодняшний день! http://stackexchange.com/leagues/1/month/stackoverflow –
@ Mr.Wizard: Спасибо, что уведомил меня об этом. А также спасибо за исправление ошибки в моем коде. – celtschk
Вот пример:
colors = {Red, Green, Blue};
style = {Dashed, DotDashed, Dotted};
cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,
0}, {1, 0, 0}}};
Graphics3D[{#1, #2, [email protected]#3} & @@@ [email protected]{colors, style, cAxes},
Boxed -> False]
Кроме того, помните, что вы можете сделать то же самое с Plot3D, если вам это нужно:
colors = {Red, Green, Blue};
style = {Dashed, DotDashed, Dotted};
Plot3D[{}, {x, 0, 10}, {y, 0, 10},
AxesLabel -> {x, y, z},
AxesStyle -> Directive /@ [email protected]{colors, style},
Boxed -> False]
Я пытаюсь решить, является ли это хорошим ответом. Мне непонятно, хочет ли 500 стилизовать топоры или просто выбрал эти строки в качестве примера. –
@ Mr. Я не знаю, является ли это хорошим ответом или нет. Я думаю об этом как о напоминании о другой возможности. –
Хорошо, мне нравятся возможности. +1 ;-) –
Вы также можете использовать MapThread:
cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0, 0}, {1, 0, 0}}};
Graphics3D[{
MapThread[{#1, Line[#2]} &, {{Red, Blue, Green}, cAxes}]
}, Boxed -> False]
@Yoda, спасибо! – 500