Author: 藍邦偉　老師

單位向量

座標軸

Start

x

y

z

$ O $

O = (8.621535970545981, 2.110764234794377)
β = 1.3089969389957472 rad (slider from 0 to 6.283185307179586, step 0.1*°)
Z_{unit}: O + (0, sin(β))
w_1 = Vector(O, Z_{unit})
α = 4.014257279586958 rad (slider from 0 to 6.283185307179586, step 0.1*°)
X_{unit}: O + (cos(α), sin(α) * cos(β))
u = Vector(O, X_{unit})
Y_{unit}: O + (-1 * sin(α), cos(α) * cos(β))
v = Vector(O, Y_{unit})
L = 7 (slider from 1 to 10, step 1)
yy = Vector(O - L * v, O + L * v)
zz = Vector(O - L * w_1, O + L * w_1)
xx = Vector(O - L * u, O + L * u)
c = false
d = false
Q_2: 0.2 * Corner[2] + 0.8 * Corner[1]
Q_3: (x(Q_2), y(Corner[3]))
g = Segment(Q_2, Q_3)
poly1, h_1, q_1, q_4, i = Polygon(Corner[1], Q_2, Q_3, Corner[4])
l = 5 (slider from 1 to 5, step 1)
w = 1 (slider from 1 to 5, step 1)
h = 3 (slider from 1 to 5, step 1)
list1 = Sequence(Sequence[Sequence[Segment[O + i * u + l * w_1, O + i * u + j * v + l * w_1], i, 0, w], j, 0, l], l, 0, h)
list2 = Sequence(Sequence[Sequence[Segment[O + i * v + l * w_1, O + i * v + j * u + l * w_1], i, 0, l], j, 0, w], l, 0, h)
list3 = Sequence(Sequence[Sequence[Segment[O + i * u + l * v, O + i * u + j * w_1 + l * v], i, 0, w], j, 0, h], l, 0, l)
a = 1 (slider from 0 to 1, step 0.1)
k = 1 (slider from 0 to 100, step 1)