Mobius strip
Author: Jui-Tang Chen

xy旋轉

z軸旋轉

座標範圍

座標刻度

座標格線

3D座標

xy平面

xz平面

yz平面

n：圖形格數
a：t的範圍  0 ≤ t ≤ a
b：s的範圍 0 ≤ s ≤ b

\text{Enneper's surface：} \
( s-\frac{s^3}{2}+st^2, t-\frac{t^3}{2}+ts^2, s^2-t^2)

O = (0, 0)
O_1 = (-3.38, 4.34)
Fix = (-2.2, 4.42)
c = Circle(O_1, Fix)
a_1 = 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 = false
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_1: ceil(β)
list7 = Sequence(Sequence[Segment[O - (b_1 * i) + (s * j) + (t * k), O + (b_1 * i) + (s * j) + (t * k)], s, (-b_1), b_1, 1], t, (-b_1), b_1, 1)
list8 = Sequence(Sequence[Segment[O - (b_1 * j) + (s * i) + (t * k), O + (b_1 * j) + (s * i) + (t * k)], s, (-b_1), b_1, 1], t, (-b_1), b_1, 1)
list9 = Sequence(Sequence[Segment[O - (b_1 * k) + (s * i) + (t * j), O + (b_1 * k) + (s * i) + (t * j)], s, (-b_1), b_1, 1], t, (-b_1), b_1, 1)
h = false
f = Vector(O, F)
l = false
list10 = Sequence(Sequence[Segment[O - (b_1 * i) + (s * i) + (t * j) + (0 * k), O + (b_1 * i) + (s * i) + (j * t) + (0 * k)], s, 0, 0], t, (-b_1), b_1)
list11 = Sequence(Sequence[Segment[O - (b_1 * j) + (s * i) + (t * i) + (0 * k), O + (b_1 * j) + (s * i) + (t * i) + (0 * k)], s, 0, 0], t, (-b_1), b_1)
m = false
list12 = Sequence(Segment[O - (b_1 * k) + (s * i), O + (b_1 * k) + (s * i)], s, (-b_1), b_1)
list13 = Sequence(Segment[O - (b_1 * i) + (s * k), O + (b_1 * i) + (s * k)], s, (-b_1), b_1)
n_1 = false
list14 = Sequence(Segment[O - (b_1 * j) + (s * k), O + (b_1 * j) + (s * k)], s, (-b_1), b_1)
list15 = Sequence(Segment[O - (b_1 * k) + (s * j), O + (b_1 * k) + (s * j)], s, (-b_1), b_1)
o = false
a = 2.4802047265182576 (slider from 0 to 6.283185307179586, step π / n)
n = 38 (slider from 1 to 50, step 1)
b = 2.6455517082861415 (slider from 0 to 6.283185307179586, step π / n)
p = Circle(G, H)
list17 = Sequence(CurveCartesian[x(O + ((s - s^(3) / 2 + (s * t^(2))) * i) + ((t - t^(3) / 2 + (t * s^(2))) * j) + ((s^(2) - t^(2)) * k)), y(O + ((s - s^(3) / 2 + (s * t^(2))) * i) + ((t - t^(3) / 2 + (t * s^(2))) * j) + ((s^(2) - t^(2)) * k)), s, (-b), b], t, (-a), a, π / n)
list16 = Sequence(CurveCartesian[x(O + ((s - s^(3) / 2 + (s * t^(2))) * i) + ((t - t^(3) / 2 + (t * s^(2))) * j) + ((s^(2) - t^(2)) * k)), y(O + ((s - s^(3) / 2 + (s * t^(2))) * i) + ((t - t^(3) / 2 + (t * s^(2))) * j) + ((s^(2) - t^(2)) * k)), t, (-a), a], s, (-b), b, π / n)