Sections
Author: Daniel Mentrard

Przesuń przekrój

B = (-1, 0)
O = (-0.836608623641363, -0.6386572597420445)
Zoom = 1 (slider from 0.1 to 5, step 0.1)
VUES = (0.42995391458295973, 0.2834910849814785)
ya: y(VUES)
costheta: cos(ya)
sintheta: sin(ya)
xa: x(VUES)
cosphi: cos(xa)
xy: -(Zoom) * cosphi * sintheta
sinphi: sin(xa)
B_1 = (-3.7882615893390184, -2.105066090182152)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v_1 = Vector(B_1, Y)
N = Translate(O, v_1)
w = Vector(O, N)
Z: (x(B_1) + 0.0, y(B_1) + Zoom * costheta)
w_1 = Vector(B_1, Z)
G = Translate(O, w_1)
v = Vector(O, G)
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u_1 = Vector(B_1, X)
K = Translate(O, u_1)
u = Vector(O, K)
g = 1 (slider from -5 to 5, step 0.1)
k = 1 (slider from -5 to 5, step 0.1)
a = OrthogonalLine(VUES, yAxis)
b = OrthogonalLine(VUES, xAxis)
c: cos(ya)
e = Line(O, G)
Z1 = Translate(N, u)
A2: B - sqrt(3.0) / 6.0 * 3.0 * w + 1.5 * u - 2.0 * v
A1: B + sqrt(3.0) / 3.0 * 3.0 * w - 2.0 * v
A3: B - sqrt(3.0) / 6.0 * 3.0 * w - 1.5 * u - 2.0 * v
S: B + sqrt(2.0) / 2.0 * v
d = Segment(A3, S)
f = Segment(S, A1)
h = Segment(A1, A3)
i = Segment(A3, A2)
j = Segment(A2, S)
l = Segment(A2, A1)
plano = 0.86 (slider from 0 to 1, step 0.01)
B1: (1.0 - plano) * A1 + plano * A2
B2: (1.0 - plano) * A1 + plano * A3
n: plano - 2.0 / 3.0
B3 = If(plano < 2.0 / 3.0, (1.0 - 1.5 * plano) * A1 + 1.5 * plano * S, (1.0 - 3.0 * n) * S + 3.0 * n * A3)
B4 = If(plano < 2.0 / 3.0, (1.0 - 1.5 * plano) * A1 + 1.5 * plano * S, (1.0 - 3.0 * n) * S + 3.0 * n * A2)
poly1, b2, b1, b4, b3 = Polygon(B2, B1, B4, B3)
C1: B + sqrt(3.0) * w + 2.0 * u + 2.5 * v
C2: B + sqrt(3.0) * w + 2.0 * u - 2.5 * v
C3: B + sqrt(3.0) * w - 2.0 * u - 2.5 * v
C4: B + sqrt(3.0) * w - 2.0 * u + 2.5 * v
D1: B - sqrt(3.0) / 2.0 * w + 2.0 * u + 2.5 * v
D4: B - sqrt(3.0) / 2.0 * w - 2.0 * u + 2.5 * v
D3: B - sqrt(3.0) / 2.0 * w - 2.0 * u - 2.5 * v
D2: B - sqrt(3.0) / 2.0 * w + 2.0 * u - 2.5 * v
E1: (1.0 - plano) * C1 + plano * D1
E2: (1.0 - plano) * C2 + plano * D2
E3: (1.0 - plano) * C3 + plano * D3
E4: (1.0 - plano) * C4 + plano * D4
poly2, e4, e1, e2, e3 = Polygon(E4, E1, E2, E3)
A = Midpoint(A2, A3)
p = Segment(A, A1)
poly3, a3, a2, a1 = Polygon(A2, A1, A3)
liste1 = Sequence(Polygon[Dilate[A2, i, S], Dilate[A1, i, S], Dilate[A3, i, S]], i, 0.0, 1.0, 0.01)