Pyramide réduite

Coefficient  \space de \space  réduction : \frac{1}{  \space \space  \space }

Pyramides rouges

Pyramides bleues

Pyramides vertes

Pyramides jaunes

Pyramides violettes

Pyramides roses

A = (-3.332191778031582, -2.51372520644496)
B = (3.425038995245451, -3.302847428470711)
C = (3.473030823781322, 5.6585072890223245)
D = (1.3530196290883978, -0.48569499679355393, 4.489922657808904)
a, faceABC, faceACD, faceBCD, faceABD, arêteAC, arêteBC, arêteAB, arêteAD, arêteCD, arêteBD = Pyramid(A, C, B, D)
n = 3 (slider from 0 to 20, step 1)
liste1 = Sequence(Sequence[Sequence[(x(A) + (e / n * (x(B) - x(A))) + (r / n * (x(C) - x(A))) + (u / n * (x(D) - x(A))), y(A) + (e / n * (y(B) - y(A))) + (r / n * (y(C) - y(A))) + (u / n * (y(D) - y(A))), z(A) + (e / n * (z(B) - z(A))) + (r / n * (z(C) - z(A))) + (u / n * (z(D) - z(A)))), u, 0, n - e - r], r, 0, n - e], e, 0, n)
b, face1, face2, face4, face3, arête1, arête4, arête2, arête3, arête5, arête6 = Pyramid(Element[Element[Element[liste1, 1], 1], 1], Element[Element[Element[liste1, 1], 1], 2], Element[Element[Element[liste1, 2], 1], 1], Element[Element[Element[liste1, 1], 2], 1])
c = false
ChampTexte1 = Textfield(n)
d = false
e = false
f = false
g = false
h = false
i = false
liste3 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 1 + j], 2 + i], 1 + k], Element[Element[Element[liste1, 1 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 1 + k]], i, 0, n - j - k - 2], j, 0, n - k], k, 0, n - 2)
liste5 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 1 + j], 1 + i], 1 + k], Element[Element[Element[liste1, 1 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 1 + k], Element[Element[Element[liste1, 1 + j], 2 + i], 1 + k]], i, 0, n - 1 - j - k], j, 0, n - k], k, 0, n - 1)
liste4 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 2 + j], 1 + i], 1 + k], Element[Element[Element[liste1, 2 + j], 2 + i], 1 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 1 + j], 2 + i], 1 + k]], i, 0, n - 2 - j - k], j, 0, n - k], k, 0, n - 2)
liste2 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 1 + j], 2 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 2 + i], 1 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 1 + j], 2 + i], 1 + k]], i, 0, n - 2 - j - k], j, 0, n - k], k, 0, n - 2)
liste6 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 1 + j], 2 + i], 1 + k], Element[Element[Element[liste1, 1 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 1 + j], 2 + i], 2 + k]], i, 0, n - 2 - j - k], j, 0, n - k], k, 0, n - 2)
liste9 = Sequence(Sequence[Sequence[Pyramid[Element[Element[Element[liste1, 2 + j], 2 + i], 1 + k], Element[Element[Element[liste1, 1 + j], 2 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 1 + i], 2 + k], Element[Element[Element[liste1, 2 + j], 2 + i], 2 + k]], i, 0, n - 3 - j - k], j, 0, n - k], k, 0, n - 3)