過三點的平面
Author: 藍邦偉  老師

x

y

z

顯示xy平面

顯示單位向量

P

Q

R

顯示座標軸

P(

,

p

,

p

)

Q(

,

p

,

p

)

R(

,

p

,

c

)

Reset

x

y

z

P(

Q(

R(

A: (x((Corner[3] + 39 * Corner[4]) / 40), y((Corner[1] + 9 * Corner[4]) / 10))
B: (x((4 * Corner[3] + 16 * Corner[4]) / 20), y((Corner[1] + 9 * Corner[4]) / 10))
a = Segment(A, B)
C: (3 * A + B) / 4
D: (3 * B + A) / 4
E = Point(a)
c = Circle(C, E)
c' = Translate(c, Vector[C, D])
A' = Rotate(A, 270*°, C)
B' = Rotate(B, 270*°, C)
a' = Segment(A', B')
c'' = Rotate(c', 270*°, C)
D' = Rotate(D, 270*°, C)
E' = Rotate(Translate[E, Vector[C, D]], 90*°, D)
E'' = Rotate(E', 270*°, C)
F = Point(c'')
G = Point(c')
α = Angle(E'', D', F)
b = Segment(D', F)
d = Segment(D, G)
β = Angle(G, D, E')
I: C + (b * cos(α), b * sin(α) * sin(β))
J: C + (b * cos(α + 90°), b * sin(α + 90°) * sin(β))
K: C + (0, b * cos(β))
e = Segment(C, K)
f = Segment(C, I)
g = Segment(C, J)
O = (1.1376822976503327, -0.8569883649044926)
I' = Translate(I, Vector[C, O])
J' = Translate(J, Vector[C, O])
K' = Translate(K, Vector[C, O])
L = 7 (slider from 1 to 10, step 1)
I'' = Dilate(I', L, O)
J'' = Dilate(J', L, O)
K'' = Dilate(K', L, O)
I''' = Dilate(I'', -1, O)
J''' = Dilate(J'', -1, O)
K''' = Dilate(K'', -1, O)
u' = Vector(I''', I'')
v' = Vector(J''', J'')
w' = Vector(K''', K'')
h = Segment(D', E'')
i = Segment(D, E')
軌跡1 = Locus(I, F)
L_{axis}: L
j = false
w = Vector(O, K')
u = Vector(O, I')
v = Vector(O, J')
k = false
list1 = Sequence(CurveCartesian[x(O + t * u + s * v), y(O + t * u + s * v), t, -L, L], s, -L, L, 1)
list2 = Sequence(CurveCartesian[x(O + t * u + s * v), y(O + t * u + s * v), s, -L, L], t, -L, L, 1)
x_1 = 0 (slider from -5 to 5, step 1)
x_2 = 0 (slider from -5 to 5, step 1)
x_3 = 0 (slider from -5 to 5, step 1)
y_1 = 0 (slider from -5 to 5, step 1)
y_2 = 0 (slider from -5 to 5, step 1)
y_3 = 0 (slider from -5 to 5, step 1)
z_1 = 0 (slider from -5 to 5, step 1)
z_2 = 0 (slider from -5 to 5, step 1)
z_3 = 0 (slider from -5 to 5, step 1)
A_{1}: O + x_1 * u + y_1 * v + z_1 * w
A_{2}: O + x_2 * u + y_2 * v + z_2 * w
A_{3}: O + x_3 * u + y_3 * v + z_3 * w
H = Mirror(A_{1}, A_{3})
M = Mirror(A_{3}, A_{1})
N = Mirror(A_{2}, A_{1})
P = Mirror(A_{1}, A_{2})
A_4: A_{2} + A_{3} - A_{1}
Q = Mirror(A_{2}, A_4)
R = Mirror(A_4, A_{2})
M' = Mirror(M, R)
R' = Mirror(R, M)
S = Mirror(A_4, A_{3})
N' = Mirror(N, S)
T = Mirror(A_{3}, A_4)
P' = Mirror(P, T)
多邊形1, m', r', n', p' = Polygon(M', R', N', P')
l = true
inputBox1 = Textfield(x_1)
inputBox2 = Textfield(y_1)
inputBox3 = Textfield(z_1)
inputBox4 = Textfield(x_2)
inputBox5 = Textfield(y_2)
inputBox6 = Textfield(z_2)
inputBox7 = Textfield(x_3)
inputBox8 = Textfield(y_3)
inputBox9 = Textfield(z_3)