fermer / ouvrir

sensibilité point de vue

S (Sommet)

Sommet

vue par dessus

Vue par dessus ( 2D )

opacité

Vue en perspective  ( 3D )

hauteur de
la pyramide

Nombre de sommets du polygone de base

vue de
ce côté
 (clic)

vu de
ce côté
 (clic)

vue de face
    (clic)

d = 1 (slider from 0 to 1, step 0.01)
h = 8 (slider from 0 to 12, step 0.1)
V = (-4.234350032349059, -3.4500474943649633)
kv = 6 (slider from 1 to 8, step 0.1)
kzy: cos((y(V) * π / ((2 * kv))))
kyy: ((-cos((x(V) * π / ((2 * kv))))) * sin((y(V) * π / ((2 * kv)))))
kyx: (-sin((x(V) * π / ((2 * kv)))))
kxy: ((-sin((x(V) * π / ((2 * kv))))) * sin((y(V) * π / ((2 * kv)))))
kxx: cos((x(V) * π / ((2 * kv))))
L = (0.9270509831248387, 2.853169548885462)
K = (3, 0)
J = (0.927050983124841, -2.8531695488854614)
I = (-2.4270509831248432, -1.7633557568774183)
H = (-2.4270509831248415, 1.76335575687742)
G = (0.9270509831248432, 2.8531695488854605)
F = (3, 0)
E = (0.9270509831248417, -2.853169548885461)
D = (-2.4270509831248424, -1.7633557568774192)
C = (-2.427050983124842, 1.7633557568774196)
B = (0.9270509831248424, 2.8531695488854605)
A = (3, 0)
PT: {A, B, C, D, E, F, G, H, I, J, K, L}
n = 5 (slider from 3 to 12, step 1)
P_0 = Sequence(Element[PT, i], i, 1, n)
P = Append(P_0, A)
db = Sequence(Line[Element[P, i], Element[P, i + 1]], i, 1, n)
S: (0, 0)
c = Circle(S, h)
pars = Sequence(Line[S, Element[db, i]], i, 1, n)
pdeb = Sequence(Intersect[c, Element[pars, i]], i, 1, n)
pers = Sequence(OrthogonalLine[S, Element[db, i]], i, 1, n)
pint = Sequence(Intersect[Element[db, i], Element[pers, i]], i, 1, n)
c' = Circle(S, 30)
pfin = Sequence(Intersect[c', Element[pers, i]], i, 1, n)
ars = Sequence(CircleArc[Element[pint, i], Element[pdeb, i], Element[pfin, i]], i, 1, n)
pS_0 = Sequence(Point[Element[ars, i], d], i, 1, n)
perp = Sequence(OrthogonalLine[Element[pS_0, i], Element[pers, i]], i, 1, n)
pS = Sequence(Intersect[Element[perp, i], Element[pers, i]], i, 1, n)
pS_1 = Append(pS, Element[pS, 1])
dh = Sequence(Distance[Element[pS_0, i], Element[pers, i]], i, 1, n)
Pp = Sequence(((kxx * x(Element[P, i])) + (kyx * y(Element[P, i])), (kxy * x(Element[P, i])) + (kyy * y(Element[P, i]))), i, 1, n + 1)
Sp: ((kxx * x(S)) + (kyx * y(S)), (kxy * x(S)) + (kyy * y(S)) + (kzy * h))
r = 3 (slider from 1 to 5, step 1)
polB = Polygon(P_0)
polBp = Polygon(Pp)
pSp' = Sequence(((kxx * x(Element[pS_1, i])) + (kyx * y(Element[pS_1, i])), (kxy * x(Element[pS_1, i])) + (kyy * y(Element[pS_1, i])) + (kzy * Element[dh, i])), i, 1, n)
pSp = Append(pSp', Element[pSp', 1])
polpp = Sequence(Polygon[Element[Pp, i], Element[Pp, i + 1], Element[pSp, i]], i, 1, n)
polCp = Sequence(Polygon[Element[Pp, i], Element[Pp, i + 1], Sp], i, 1, n)
op = 0.36 (slider from 0 to 0.5, step 0.01)
VG = (-4, 0)
VD = (4, 0)
VF = (0, -5)
HS: ((kxx * x(S)) + (kyx * y(S)), (kxy * x(S)) + (kyy * y(S)))
a = Segment(Sp, HS)
liste1 = Sequence(Segment[Element[P_0, i], S], i, 1, n)