Szerkesztés

Palást

Síkmetszet

Kontroll?

A csúcs pályája

Create space curves using the buttons and the viewpoints.

n: 180
s1 = -3 (slider from -5 to 5, step 1)
β: (2 * π / n)
dd = 1.11 (slider from 1 to 1.5, step 0.01)
t = Line((0, 0, 0), (0, 0, 1))
φ = 0.3141592653589793 rad (slider from 5° to 85°, step 1°)
dr = 0.11 (slider from 0.01 to 0.7, step 0.01)
r: 3
YB(x) = (r * sin(x))
d: (r * dr)
ZB(x) = ((-((r * cos(x)) + d)) * sin(φ))
XB(x) = (((r * cos(x)) + d) * cos(φ))
PontB = Sequence((XB((i * β)), YB((i * β)), ZB((i * β))), i, 0, n)
Lap1 = Polygon(PontB)
c: ((-(r + d)) * sin(φ))
b: ((r + d) * cos(φ))
B2: ((-b), 0, c)
ac: ((r - d) * cos(φ))
as: ((r - d) * sin(φ))
A1: ((-ac), 0, as)
Mt = Intersect(t, Line[A1, B2])
ma = Distance(Mt, A1)
mb = Distance(Mt, B2)
nm: ma / ((mb * dd))
YC(x) = ((((-nm) * r) * sin(x)) * (d^(2) - r^(2)) / ((d + (r * cos(x)))^(2) + ((r * sin(x)))^(2)))
XC(x) = ((((-nm) * cos(φ)) * ((r * cos(x)) + d)) * (d^(2) - r^(2)) / ((d + (r * cos(x)))^(2) + ((r * sin(x)))^(2)))
m: z(Mt)
ZC(x) = ((((-nm) * sin(φ)) * ((r * cos(x)) + d)) * (d^(2) - r^(2)) / ((d + (r * cos(x)))^(2) + ((r * sin(x)))^(2))) + (m * (1 - nm))
PontC = Sequence((XC((i * β)), YC((i * β)), ZC((i * β))), i, 0, n)
sz = false
SA = true
S1 = true
S2 = true
S3 = true
S4 = true
SC = true
Pa = true
Me = true
psh = 0.9 (slider from 0 to 1, step 0.1)
ksh = 0.4 (slider from 0 to 1, step 0.1)
ko: false
s2 = 2 (slider from -5 to 5, step 1)
s3 = 2 (slider from -5 to 5, step 1)
s4 = 1 (slider from -5 to 5, step 1)
s5 = -2 (slider from -5 to 5, step 1)
k0 = Circle((d, 0, 0), r, xOyPlane)
ty = Line((0, 0, 0), (0, 1, 0))
ae: (sqrt(r^(2) - d^(2)) * (m - c) / m)
fe: sqrt(ae^(2) - b^(2))
e0 = Ellipse((0, fe), (0, (-fe)), ae)
alaplap = Dilate(Translate[e0, Vector[(0, 0, c)]], dd, Mt)
kör1 = Rotate(k0, φ, ty)
k1 = Rotate(kör1, 180°, t)
kör2 = Dilate(k1, nm, Mt)
kör3 = Dilate(kör1, nm^(2), Mt)
kör4 = Dilate(kör2, nm^(2), Mt)
kör5 = Dilate(kör3, nm^(2), Mt)
PontD = Dilate(PontB, nm^(2), Mt)
K1 = Center(kör1)
f1 = OrthogonalLine(K1, kör1)
PontE = Dilate(PontC, nm^(2), Mt)
Lap2 = Polygon(PontC)
PontF = Dilate(PontD, nm^(2), Mt)
Lap3 = Polygon(PontD)
Lap4 = Polygon(PontE)
XA(x) = (((dd * ((r * cos(x)) + d)) * cos(φ)) * (m - c) / (m + (((r * cos(x)) + d) * sin(φ))))
Lap5 = Polygon(PontF)
YA(x) = (((dd * r) * sin(x)) * (m - c) / (m + (((r * cos(x)) + d) * sin(φ))))
ZA(x) = (dd * c) + ((1 - dd) * m)
α = 5.1487212933832724 rad (slider from 0 to 6.283185307179586, step If[12 ≤ n, (360°) / n, 5°])
A: (XA(α), YA(α), ZA(α))
B: (XB(α), YB(α), ZB(α))
C: (XC(α), YC(α), ZC(α))
alkotó = Segment(A, Mt)
PontA = Sequence((XA((i * β)), YA((i * β)), ZA((i * β))), i, 0, n)
LapA = Polygon(PontA)
QA = Sequence(Polygon[Element[PontB, i], Element[PontA, i], Element[PontA, i + 1], Element[PontB, i + 1]], i, 1, n)
Q1 = Sequence(Polygon[Element[PontC, i], Element[PontB, i], Element[PontB, i + 1], Element[PontC, i + 1]], i, 1, n)
Q2 = Sequence(Polygon[Element[PontD, i], Element[PontC, i], Element[PontC, i + 1], Element[PontD, i + 1]], i, 1, n)
Q4 = Sequence(Polygon[Element[PontF, i], Element[PontE, i], Element[PontE, i + 1], Element[PontF, i + 1]], i, 1, n)
QC = Sequence(Polygon[Element[PontF, i], Element[PontF, i + 1], Mt], i, 1, n)
K2 = Center(kör2)
K3 = Center(kör3)
K4 = Center(kör4)
K5 = Center(kör5)
f2 = OrthogonalLine(K2, kör2)
f3 = OrthogonalLine(K3, kör3)
f4 = OrthogonalLine(K4, kör4)
f5 = OrthogonalLine(K5, kör5)
M = Rotate(Rotate[Rotate[Rotate[Rotate[Mt, (s5 * α), f5], (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
Fkör5 = Rotate(Rotate[Rotate[Rotate[Rotate[kör5, (s5 * α), f5], (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
Fkör4 = Rotate(Rotate[Rotate[Rotate[kör4, (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
Fkör3 = Rotate(Rotate[Rotate[kör3, (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
Fkör2 = Rotate(Rotate[kör2, (s2 * α), f2], (s1 * α), f1)
FQA: QA
FQ1 = Rotate(Q1, (s1 * α), f1)
FQC = Rotate(Rotate[Rotate[Rotate[Rotate[QC, (s5 * α), f5], (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
FQ4 = Rotate(Rotate[Rotate[Rotate[Q4, (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
FQ2 = Rotate(Rotate[Q2, (s2 * α), f2], (s1 * α), f1)
FLAP5 = Rotate(Rotate[Rotate[Rotate[Rotate[Lap5, (s5 * α), f5], (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
FLAP4 = Rotate(Rotate[Rotate[Rotate[Lap4, (s4 * α), f4], (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
FLAP3 = Rotate(Rotate[Rotate[Lap3, (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
FLAP2 = Rotate(Rotate[Lap2, (s2 * α), f2], (s1 * α), f1)
Cs = false
vm = If(Cs, Locus[M, α], NaN)
Q3 = Sequence(Polygon[Element[PontE, i], Element[PontD, i], Element[PontD, i + 1], Element[PontE, i + 1]], i, 1, n)
FQ3 = Rotate(Rotate[Rotate[Q3, (s3 * α), f3], (s2 * α), f2], (s1 * α), f1)
F = (-27.498, 0.076)
G = (-30.564, 0.897)
H = (-29.21141539866094, 4.9162532626020745)
t1, h, g, f = Polygon(G, F, H)
I = (-27.082, -1.139)
J = (-31.733, -2.608)
K = (-30.645, 0.724)
L = (-27.429, -0.121)
q1, k, j, i, l = Polygon(K, J, I, L)
N = (-31.811, -2.843)
O = (-32.124, -3.769)
P = (-25.458, -5.791)
Q = (-27.024, -1.303)
R = (-32.176, -3.938)
S = (-25.367, -6.026)
T = (-24.871, -7.435)
U = (-34.29, -10.226)
V = (-34.371, -10.474)
q2, n_1, o, p, q = Polygon(N, O, P, Q)
q3, r_1, s_1, t_1, u = Polygon(R, S, T, U)
W = (-37.11, -18.751)
Z = (-20.935, -18.751)
A_1 = (-21.72, -16.46)
B_1 = (-34.959, -12.238)
C_1 = (-34.902, -12.059)
D_1 = (-21.812, -16.222)
E_1 = (-24.793, -7.604)
q4, v, e_1, d_1, c_1 = Polygon(V, E_1, D_1, C_1)
q5, b_1, a_1, z_1, w = Polygon(B_1, A_1, Z, W)
D = (-20.082563710836432, -18.750162818260648)
E = (-14.8057708277009, -18.750162818260648)
F_1: (-27.41785, -12.96846)
G_1: (-25.39508, -12.96846)
J_1 = (-17.092381077059635, 4.511699141561684)
K_1 = (-15.245503567962192, 4.511699141561684)
L_1 = (-19.90667061473193, 4.467725867535555)
M_1 = (-17.97184655758223, 4.467725867535555)
moving = false
H_1 = (-37.3200871290792, -23.71914278321324)
I_1 = (-34.15401139919788, -23.71914278321324)
N_1 = (-32.2631606160743, -23.71914278321324)
O_1 = (-29.448871078402004, -23.71914278321324)
P_1 = (-27.338153925147807, -23.851062605291627)
Q_1 = (-24.523864387475513, -23.851062605291627)
R_1 = (-22.193280864090656, -23.675169509187114)
S_1 = (-16.212915596537044, -23.675169509187114)
speedN = 0
T_1 = (-20.091358365641675, 4.476520522340788)
U_1 = (-18.091358967517703, 4.476523985712579)
V_1: (-20.09136, 4.47652)
W_1: (-18.09136, 4.47652)
Z_1 = (-17.189122279917125, 4.476520522340784)
A_2 = (-15.189122881793157, 4.47651971559388)
dα: (360°) / n