Author: 藍邦偉　老師

單位向量

座標軸

Start

x

y

z

$ O $

$ 圓錐的體積 $

O = (4.725421883640292, 4.227194123008547)
β = 1.5707963267948966 rad (slider from 0 to 6.283185307179586, step 0.1*°)
Z_{unit}: O + (0, sin(β))
w = Vector(O, Z_{unit})
α = 0 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 = 15 (slider from 1 to 15, step 1)
yy = Vector(O - L * v, O + L * v)
xx = Vector(O - L * u, O + L * u)
c = false
d = true
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])
m = 0 (slider from 0 to 96, step 1)
n = 0 (slider from 0 to a - 0.5, step 0.5)
zz = Vector(O - 6.7 * w, O + 6.7 * w)
a = 12 (slider from 0.5 to 12, step 0.5)
b = 0.5 (slider from 0.2 to 1, step 0.1)
List1 = Sequence(CurveCartesian[x(O + t * u + t * cos(s) * v + b * t * sin(s) * w), y(O + t * u + t * cos(s) * v + b * t * sin(s) * w), t, 0, a], s, 1.5708, π / 2 + π / 48 * m, 0.1309)
List2 = Sequence(CurveCartesian[x(O + t * u + t * cos(s) * v + b * t * sin(s) * w), y(O + t * u + t * cos(s) * v + b * t * sin(s) * w), s, 1.5708, π / 2 + π / 48 * m], t, 0, a, 0.5)
List3 = Sequence(CurveCartesian[x(O + t * u + t * cos(s) * v + b * t * sin(s) * w), y(O + t * u + t * cos(s) * v + b * t * sin(s) * w), t, n, n + 0.5], s, 1.5708, π / 2 + π / 48 * m, 0.1309)
c_2 = CurveCartesian(x(O + (n + 0.5) * u + (n + 0.5) * cos(s) * v + b * (n + 0.5) * sin(s) * w), y(O + (n + 0.5) * u + (n + 0.5) * cos(s) * v + b * (n + 0.5) * sin(s) * w), s, 0, 6.28)
c_1 = CurveCartesian(x(O + n * u + n * cos(s) * v + b * n * sin(s) * w), y(O + n * u + n * cos(s) * v + b * n * sin(s) * w), s, 0, 6.28)