Author: 藍邦偉　老師

Start

x

y

z

$ O $

單位向量

O = (10.327898408773667, 3.931883831259982)
β = 1.4835298641951802 rad (slider from 0 to 6.283185307179586, step 0.1*°)
Z_{unit}: O + (0, sin(β))
w = Vector(O, Z_{unit})
α = 4.101523742186674 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 = 2 (slider from 1 to 10, step 1)
yy = Vector(O - L * v, O + L * v)
zz = Vector(O - L * w, O + L * w)
xx = Vector(O - L * u, O + L * u)
Q_2: 0.3 * Corner[2] + 0.7 * Corner[1]
Q_3: (x(Q_2), y(Corner[3]))
g = Segment(Q_2, Q_3)
poly1, h, q_1, q_4, i = Polygon(Corner[1], Q_2, Q_3, Corner[4])
A_1: O + u + v + w
A_2: O + u
A_3: O + u + v
A_4: O + v
A_5: O + u + w
A_6: O + w
A_7: O + v + w
list1: {{0, 0, 0}, {1, 0, 0}, {1, 1, 0}, {0, 1, 0}, {1, 0, 1}, {1, 1, 1}, {0, 1, 1}, {0, 0, 1}}
a = 0.51 (slider from 0 to 1, step 0.0010)
b = 0.24 (slider from 0 to 1, step 0.0010)
c = 0.36 (slider from 0 to 1, step 0.0010)
list2 = Sequence(sqrt((a - Element[Element[list1, t], 1])^(2) + (b - Element[Element[list1, t], 2])^(2) + (c - Element[Element[list1, t], 3])^(2)), t, 1, 8)
Sum = Sum(list2)
text1: "Sum=" + (LaTeX[Sum]) + ""
P: O + a * u + b * v + c * w