Mikhail_K, у меня периодически возникают те же проблемы. Причем, не только при использовании
plot3d, но и других команд, генерирующих 3d-графику. Борюсь, примерно, тем же шаманством, что и Вы.
Пожалуйста, приведите текст команды Мэйпл, создающей график с указанными вами свойствами. Нет смысла вести беспредметное обсуждение.
В данном случае проблема, очевидно, не в команде. Но, если Вы настаиваете, пожалуйста:
Код:
> with(geom3d):for i from 0 to 11 do s[i]:=sin(Pi*i/6):c[i]:=cos(Pi*i/6) od:
> point(A,c[0],s[0],0):point(B,c[4],s[4],0):point(C,c[8],s[8],0):
> point(A1,c[1],s[1],1):point(B1,c[5],s[5],1):point(C1,c[9],s[9],1):
> segment(ab,[A,B]):segment(bc,[C,B]):segment(ac,[A,C]):segment(a1b1,[A1,B1]):segment(b1c1,[C1,B1]):segment(a1c1,[A1,C1]):
> segment(aa1,[A,A1]):segment(bb1,[B1,B]):segment(cc1,[C1,C]):segment(ac1,[A,C1]):segment(ba1,[A1,B]):segment(cb1,[B1,C]):
> segment(ab1,[A,B1]):segment(bc1,[B,C1]):segment(ca1,[A1,C]):
> draw([ab(linestyle=dash),bc,ac(linestyle=dash),aa1(linestyle=dash),bb1,cc1,a1b1,b1c1,a1c1,ac1(linestyle=dash),ba1,cb1,ab1(color=green,linestyle=dash)],color=blue,axes=none,thickness=2,orientation=[159,78]);