CFC

Tetraèdre

Pyramide

niveau1 (A)

niveau2 (B)

niveau3 (C)

niveau4 (A)

Couche C

Montons une pyramide !

Maille cubique

Couche A

opacité

Sphères aux centres des faces

Sphères aux sommets du cube

O: (0, 0, 0)
B = (0.8660254037844386, 0.5)
A = Point(yAxis)
poly2, l, m, n, p, q, r, G, H, I, J = Polygon(A, B, 6)
poly1, f, g, h, i, j, k, C, D, E, F = Polygon(B, A, 6)
poly4, e, f_1, g_1, h_1, i_1, j_1, S, P, Q, R = Polygon(F, E, 6)
tetraedre, Z, face1, face2, face3, face4, arête1, arête2, arête3, arête4, arête5, arête6 = Tetrahedron(O, R, G)
Z': Z + (0, 0, 8)
p_1 = Segment(Z, Z')
poly3, s, t, a, b, c, d, K, L, M, N = Polygon(D, C, 6)
o = Sphere(O, B)
u = Sphere(J, A)
d_1 = Circle(J, A)
Lc = Sequence(Rotate[d_1, (k * 60°)], k, 0, 5)
Ls1 = Sequence(Rotate[u, (k * 60°), zAxis], k, 0, 5)
T = (1.7320508075688772, 3)
v = Sphere(T, 1)
Ls2 = Sequence(Rotate[v, (k * 60°), zAxis], k, 0, 5)
poly5, k_1, l_1, m_1, U = Polygon(B, F, 3)
V = Centroid(poly5)
V' = Mirror(V, U)
n_5 = Line(V, zAxis)
W = Point(p_1)
Lstetra = Translate({Sphere[O, 1], Sphere[R, 1], Sphere[G, 1], Sphere[Z, 1]}, Vector[(0, 0, 0)])
a_1 = Sphere(W, 1)
Lstri = Translate({Sphere[O, 1], Sphere[R, 1], Sphere[G, 1]}, Vector[(0, 0, 0)])
Ls2Wmobile = Translate(Ls1, Vector[O, W])
A_1: (0, 4, 0)
Ls12 = Sequence(Rotate[Sphere[A_1, 1], (k * 60°), zAxis], k, 0, 5)
B_1: (0, 0, z(Z))
C_1 = Rotate(B_1, 120°, n_5)
D_1 = Rotate(B_1, (-(120°)), n_5)
L3bis = Translate(Lstri, Vector[(2 * Vector[V, Z])])
L3s = Rotate(L3bis, 60°, n_5)
L2sh = Translate(Ls1, Vector[O, Z])
L2sc = Translate(o, Vector[O, Z])
Z_1 = Mirror(V, Z)
q_1 = Segment(Z_1, Z')
W' = Point(q_1)
Ls3Wmobile = Translate(L3s, Vector[Z_1, W'])
L4s3 = Translate(Lstri, Vector[(3 * Vector[V, Z])])
poly6, r_1, s_1, t_1, E_1 = Polygon(M, L, 3)
b_1 = Sphere(E_1, 1)
Pyr2 = Translate({Sphere[O, 1], Sphere[S, 1], Sphere[J, 1], Sphere[K, 1], Sphere[N, 1], Sphere[E_1, 1]}, Vector[O, Z])
L3T = Rotate(Translate[Pyr2, Vector[V, Z]], 180°, zAxis)
Sph4 = Translate(o, Vector[(3 * Vector[V, Z])])
cfc = false
e_1 = false
L1T = Sequence(Rotate[v, (k * 60°), zAxis], k, 0, 5, 2)
Pyr3 = Translate({Sphere[O, 1], Sphere[R, 1], Sphere[G, 1]}, Vector[(2 * Z) - (3 * V)])
Pyr4 = Translate(o, Vector[(3 * Vector[V, Z])])
v_1 = false
n_1 = false
n_2 = false
n_3 = false
n_4 = false
n_3b = false
o_1 = false
w: z = -1
BaseTranspa = Translate({L1T, Ls1}, Vector[(0, 0, 0)])
u_1 = Vector(Z - (3 * V))
S_1 = Translate(O, u_1)
S_2 = Rotate(S_1, 120°, zAxis)
S_3 = Rotate(S_1, (-(120°)), zAxis)
CentreFace1 = Midpoint(S_2, S_3)
S_4 = Mirror(O, CentreFace1)
carrebasecfc, c_1, f_2, g_2, h_2 = Polygon(O, S_2, S_4, S_3)
cubext, G_1, H_1, I_1, J_1, face6, face5, face7, face8, face9, arête7, arête9, arête12, arête11, arête8, arête13, arête10, arête14 = Cube(carrebasecfc, false)
cubext' = Mirror(cubext, CentreFace1)
mc = false
u_3 = Vector(O, S_2)
u_2 = Vector(O, S_3)
α = Angle(S_3, O, S_2)
β = Angle(S_3, O, S_1)
γ = Angle(S_1, O, S_2)
BaseTranspa' = Translate(BaseTranspa, Vector[(3 * (Z - V))])
a_2 = false
opacite4 = 0.3 (slider from 0 to 1, step 0.1)
Lsphcub: {Translate[o, Vector[(0, 0, 0)]], Translate[o, u_1], Translate[o, u_2], Translate[o, u_3], Translate[o, Vector[u_1 + u_2]], Translate[o, Vector[u_1 + u_3]], Translate[o, Vector[u_3 + u_2]], Translate[o, Vector[u_1 + u_2 + u_3]]}
Lsommetscube' = Translate(Lsphcub, Vector[(0, 0, 0)])
Sphcface1 = Sequence(Rotate[Sphere[Z, 1], (k * 120°), zAxis], k, 0, 2)
Sphcface2 = Translate(Pyr3, Vector[(0, 0, 0)])
mc3 = false
mc2 = false
F_1 = (-4, 18)
K_1 = (-4, 13)
L_1 = (5, 13)
M_1 = (5, 18)
q1, i_2, j_2, k_2, l_2 = Polygon(F_1, K_1, L_1, M_1)
N_1 = (-4, 24)
O_1 = Intersect(i_2, l_2)
P_1 = Intersect(k_2, l_2)
Q_1 = (5, 24)
q2, m_2, p_2, q_2, r_2 = Polygon(N_1, O_1, P_1, Q_1)