xy旋轉

z軸旋轉

座標範圍

座標刻度

3D座標

LB=

UB=

y=f(x)=

繞x軸旋轉

繞y軸旋轉

O = (0, 0)
O_1 = (-2.081767729522772, 4.831740750123791)
Fix = (-0.964247932417384, 4.8684404825910965)
c = Circle(O_1, Fix)
a = Segment(Fix, O_1)
A = Point(c)
B = Point(c)
C = Point(c)
θ = Angle(Fix, O_1, A)
α = Angle(Fix, O_1, B)
β: 3 * y(Angle[Fix, O_1, C] * (0, 1))
i: O + (cos(θ), sin(θ) * cos(α))
j: O + (-sin(θ), cos(θ) * cos(α))
k: O + (0, sin(α))
U_x: β * i
U_y: β * j
U_z: β * k
u = Vector(O, U_x)
v = Vector(O, U_y)
w = Vector(O, U_z)
D = Mirror(U_y, O)
E = Mirror(U_x, O)
F = Mirror(U_z, O)
d = Vector(O, E)
e = Vector(O, D)
g = true
list1 = Sequence(O + s * i, s, 1, floor(β), 1)
list2 = Sequence(O + s * j, s, 1, floor(β), 1)
list3 = Sequence(O + s * k, s, 1, floor(β), 1)
list5 = Sequence(O - s * k, s, 1, floor(β), 1)
list6 = Sequence(O - s * i, s, 1, floor(β), 1)
list4 = Sequence(O - s * j, s, 1, floor(β), 1)
b: floor(β)
list7 = Sequence(Sequence[Segment[O - b * i + s * j + t * k, O + b * i + s * j + t * k], s, -b, b, 1], t, -b, b, 1)
list8 = Sequence(Sequence[Segment[O - b * j + s * i + t * k, O + b * j + s * i + t * k], s, -b, b, 1], t, -b, b, 1)
list9 = Sequence(Sequence[Segment[O - b * k + s * i + t * j, O + b * k + s * i + t * j], s, -b, b, 1], t, -b, b, 1)
l = true
list10 = Sequence(Sequence[Segment[O - b * i + s * i + t * j + 0 * k, O + b * i + s * i + j * t + 0 * k], s, 0, 0], t, -b, b)
list11 = Sequence(Sequence[Segment[O - b * j + s * i + t * i + 0 * k, O + b * j + s * i + t * i + 0 * k], s, 0, 0], t, -b, b)
list12 = Sequence(Segment[O - b * k + s * i, O + b * k + s * i], s, -b, b)
list13 = Sequence(Segment[O - b * i + s * k, O + b * i + s * k], s, -b, b)
list14 = Sequence(Segment[O - b * j + s * k, O + b * j + s * k], s, -b, b)
list15 = Sequence(Segment[O - b * k + s * j, O + b * k + s * j], s, -b, b)
ub = 8
lb = 0
inputBox2 = Textfield(lb)
inputBox1 = Textfield(ub)
f(x) = 2 * sin(x)
inputBox3 = Textfield(f)
m = CurveCartesian(t, f(t), t, lb, ub)
n = CurveCartesian(x(O + t * i + f(t) * j), y(O + t * i + f(t) * j), t, lb, ub)
nn = 21.8 (slider from 5 to 60, step 0.1)
o = true
p = false
ss = 6.283185307179586 (slider from 0 to 6.283185307179586, step 0.1)
list19 = Sequence(CurveCartesian[x(O + t * cos(s) * i + f(t) * j + t * sin(s) * k), y(O + t * cos(s) * i + f(t) * j + t * sin(s) * k), s, 0, ss], t, lb, ub, (ub - lb) / nn)
list18 = Sequence(CurveCartesian[x(O + t * cos(s) * i + f(t) * j + t * sin(s) * k), y(O + t * cos(s) * i + f(t) * j + t * sin(s) * k), t, lb, ub], s, 0, ss, π / nn)
list17 = Sequence(CurveCartesian[x(O + t * i + f(t) * cos(s) * j + f(t) * sin(s) * k), y(O + t * i + f(t) * cos(s) * j + f(t) * sin(s) * k), s, 0, ss], t, lb, ub, (ub - lb) / nn)
list16 = Sequence(CurveCartesian[x(O + t * i + f(t) * cos(s) * j + f(t) * sin(s) * k), y(O + t * i + f(t) * cos(s) * j + f(t) * sin(s) * k), t, lb, ub], s, 0, ss, π / nn)