3d 圖ㄧ
Author: Jui-Tang chen
Date: 2015,3,26

L：正多邊形頂點的個數
Translate(O,height k) 把A點送到繪圖區A'點

height : 圖形離xy平面的高度
ss：圖形放大倍數

Scal：3D軸的長度
View3d：3D軸的旋轉
平面轉3D請用i,j,k為單位向量

O = (-17.23641477107138, -1.9873106123198288)
View3d = (-14.550829694761878, -2.524427627581726)
ss = 2.3 (slider from 1 to 10, step 0.1)
height = 4.4 (slider from 0 to 10, step 0.1)
B = (-2.258183105988586, -1.5727665268723472)
L = 9 (slider from 0 to 49, step 1)
A = Intersect(xAxis, yAxis)
list1 = Sequence(Rotate[B, s * 2 * π / L, A], s, 0, L - 1, 1)
b: y(View3d - O) / 2
a: x(View3d - O) / 2
i: (cos(a), sin(a) * sin(b))
j: -(-sin(a), cos(a) * sin(b))
k: (0, cos(b))
Scal = 7.4 (slider from 0 to 10, step 0.1)
U_x: O + Scal * i
u = Vector(O, U_x)
U_z: O + Scal * k
v = Vector(O, U_z)
U_y: O + Scal * j
list2 = Sequence(Translate[O, ss * (x(Element[list1, s]) * i + y(Element[list1, s]) * j) + height * k], s, 1, L)
w = Vector(O, U_y)
list3 = Sequence(Sequence[Segment[Element[list2, s], Element[list2, t]], s, 1, L], t, 1, L)
A' = Translate(O, Vector[height * k])