切片積分法示例(2)
Author: 藍邦偉　老師

單位向量

座標軸

Start

x

y

z

$ O $

$x=%v$

$ 切片積分法示例 $

O = (9.797545465621027, 0.8881903090966728)
β = 1.4835298641951802 rad (slider from 0 to 6.283185307179586, step 0.1*°)
Z_{unit}: O + (0, sin(β))
w = Vector(O, Z_{unit})
α = 3.665191429188092 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 = 23 (slider from 1 to 25, 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)
c = false
d = true
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, q_1, q_4, i = Polygon(Corner[1], Q_2, Q_3, Corner[4])
A_1: O + 15 * u + 5 * v
A_2: O + 20 * v
A_3: O - 15 * u + 5 * v
A_4: O - 15 * u - 5 * v
A_5: O - 20 * v
A_6: O + 15 * u - 5 * v
a = PolyLine(A_1, A_2, A_3, A_4, A_5, A_6, A_1)
k = -5 (slider from -15 to 15, step 1)
c_1 = CurveCartesian(x(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), y(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), θ, 0, 3.141592653589793)
List_2 = Sequence(CurveCartesian[x(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), y(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), θ, 0, 3.141592653589793], k, 0, 15)
List_1 = Sequence(CurveCartesian[x(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), y(O + k * u + (20 - abs(k)) * cos(θ) * v + (20 - abs(k)) * sin(θ) * w), θ, 0, 3.141592653589793], k, -15, 0)