立體測量 (13)
Author: 藍邦偉  老師

O_1

O_3

x

y

z

顯示xy平面

顯示單位向量

顯示座標軸

立體測量(13)

A

B

O_2

γ = 0 rad (slider from 0 to 1.3788101090755203, step 0.0017453292519943296)
T = (-2.859117567850495, 0.28941792083671664)
c_2: x = x(T)
V = Point(c_2)
h = 13.5 (slider from 0 to 15, step 0.01)
O = (-2.4535352054190143, -4.1719880659095745)
A_1: (x((Corner[3.0] + 39.0 * Corner[4.0]) / 40.0), y((Corner[1.0] + 9.0 * Corner[4.0]) / 10.0))
B_1: (x((4.0 * Corner[3.0] + 16.0 * Corner[4.0]) / 20.0), y((Corner[1.0] + 9.0 * Corner[4.0]) / 10.0))
D: (3.0 * B_1 + A_1) / 4.0
C: (3.0 * A_1 + B_1) / 4.0
a = Segment(A_1, B_1)
E = Point(a)
E' = Rotate(Translate[E, Vector[C, D]], 90.0*°, D)
c = Circle(C, E)
c' = Translate(c, Vector[Vector[C, D]])
G = Point(c')
c'' = Rotate(c', 270.0*°, C)
F = Point(c'')
A' = Rotate(A_1, 270.0*°, C)
B' = Rotate(B_1, 270.0*°, C)
a' = Segment(A', B')
D' = Rotate(D, 270.0*°, C)
b = Segment(D', F)
E'' = Rotate(E', 270.0*°, C)
α = Angle(E'', D', F)
d = Segment(D, G)
β = Angle(G, D, E')
I: C + (b * cos(α), b * sin(α) * sin(β))
I' = Translate(I, Vector[Vector[C, O]])
u = Vector(O, I')
J: C + (b * cos(α + 90.0°), b * sin(α + 90.0°) * sin(β))
K: C + (0.0, b * cos(β))
e = Segment(C, K)
f = Segment(C, I)
g = Segment(C, J)
J' = Translate(J, Vector[Vector[C, O]])
K' = Translate(K, Vector[Vector[C, O]])
L = 25 (slider from 1 to 25, step 1)
I'' = Dilate(I', L, O)
J'' = Dilate(J', L, O)
K'' = Dilate(K', L, O)
I''' = Dilate(I'', -1.0, O)
J''' = Dilate(J'', -1.0, O)
K''' = Dilate(K'', -1.0, O)
u' = Vector(I''', I'')
v' = Vector(J''', J'')
h_3 = Segment(D', E'')
i = Segment(D, E')
軌跡1 = Locus(I, F)
L_{axis}: L
j = false
w = Vector(O, K')
v = Vector(O, J')
k = false
l = true
list1 = Sequence(CurveCartesian[x(O + t * u + s * v), y(O + t * u + s * v), t, -(L), L], s, -(L), L, 1.0)
list2 = Sequence(CurveCartesian[x(O + t * u + s * v), y(O + t * u + s * v), s, -(L), L], t, -(L), L, 1.0)
C_a: C + (b * cos(α + 10.0°), b * sin(α + 10.0°) * sin(β))
C_b: C + (b * cos(α + 20.0°), b * sin(α + 20.0°) * sin(β))
C_c: C + (b * cos(α + 30.0°), b * sin(α + 30.0°) * sin(β))
C_d: C + (b * cos(α + 40.0°), b * sin(α + 40.0°) * sin(β))
C_e: C + (b * cos(α + 50.0°), b * sin(α + 50.0°) * sin(β))
p = Conic(C_a, C_b, C_c, C_d, C_e)
n = 7 (slider from 0 to 8, step 1)
A = Point(v')
B = Point(u')
m = Segment(A, B)
H: O + h * w
q = Segment(B, H)
r = Segment(H, A)
s = Segment(H, O)
t = Segment(O, A)
a_1 = Segment(O, B)
TA1, a_2, h_1, o = Polygon(H, O, A)
TA2, b_1, h_2, o_1 = Polygon(H, O, B)
TA3, b_2, a_3, o_2 = Polygon(A, O, B)
c_1 = Circle(O, 0.4)
M = Intersect(c_1, s)
N = Intersect(c_1, t)
Q: M + N - O
d_1 = Segment(Q, N)
e_1 = Segment(Q, M)
x_1 = 0 (slider from -15 to 15, step 0.1)
y_1 = -10.5 (slider from -15 to 15, step 0.1)
x_2 = 15 (slider from -15 to 15, step 0.1)
y_2 = 0 (slider from -15 to 15, step 0.1)
Q_a: O + x_1 * u + y_1 * v
Q_b: O + x_2 * u + y_2 * v
k_1 = Segment(H, Q_a)
l_1 = Segment(Q_a, O)
m_1 = Segment(O, Q_b)
n_1 = Segment(Q_b, H)
p_1 = Segment(Q_b, Q_a)
多邊形1, q_1, r_1, s_1, t_1 = Polygon(Corner[1.0], Corner[2.0], Corner[3.0], Corner[4.0])
d_2: y = y(T)
T_1: T + (-(3.0), 0.0)
T_2: T + (0.0, 3.0)
U = Point(d_2)
U_2: U + (0.0, 3.0)
U_1: U + (3.0 * sqrt(3.0) * cos(γ), -sin(γ))
V_1: V - (3.0, 0.0)
e_2 = Segment(T_1, T)
f_2 = Segment(T, T_2)
g_2 = Segment(T_2, T_1)
i_2 = Segment(U_2, U)
j_2 = Segment(U, U_1)
k_2 = Segment(U_1, U_2)
l_2 = Segment(V_1, V)
V_2: V + (sin(γ), -(3.0) * sqrt(3.0) * cos(γ))
m_2 = Segment(V, V_2)
n_2 = Segment(V_2, V_1)
Tr4, t_2, t_3, t_4 = Polygon(T_1, T_2, T)
Tr5, u_1, u_2, u_3 = Polygon(U_1, U_2, U)
Tr6, v_1, v_2, v_3 = Polygon(V_1, V_2, V)
w' = Vector(O, K'')
P = Intersect(c_1, a_1)
R: P + M - O
t_a = Segment(M, R)
t_b = Segment(P, R)
S: N + P - O
t_d = Segment(N, S)
t_c = Segment(P, S)