Pravilna četverostrana piramida
Author: A.M.Vuković
Date: 2011.

V'

V

a

a

a

b

b

b

b

ρ = \frac{a}{2}

Triangulo con la apotema (ρ)

P

v

b

\frac{a}{2}

Triángulo de la cara

r = \frac{d}{2}

Triángulo con el radio

Triángulo con la diagonal del cuadrado

O = Intersect(xAxis, yAxis)
U = Point(xAxis)
V = Point(yAxis)
u = Vector(O, U)
v_1 = Vector(O, V)
α = 5.707226654021458 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
β = 0.45378560551852565 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
Aumentar = 1.6 (slider from 1 to 2, step 0.1)
K: cos(β) * v_1
J: cos(α) * u + sin(α) * sin(β) * v_1
I: sin(α) * u - cos(α) * sin(β) * v_1
j = Vector(O, J)
k = Vector(O, K)
i = Vector(O, I)
A: Aumentar / 2 * i - Aumentar / 2 * j - Aumentar / 2 * k
B: Aumentar / 2 * i + Aumentar / 2 * j - Aumentar / 2 * k
Vista = 1.17 (slider from 0.25 to 1.3, step 0.01)
C: (-Aumentar) / 2 * i + Aumentar / 2 * j - Aumentar / 2 * k
D: (-Aumentar) / 2 * i - Aumentar / 2 * j - Aumentar / 2 * k
V'': (-Aumentar) / 2 * k
V': Aumentar / 2 * Vista * k
baza, a, b, c, d = Polygon(A, B, C, D)
h = Segment(V', V'')
e = Segment(A, V')
f = Segment(D, V')
g = Segment(C, V')
l = Segment(B, V')
P = Midpoint(b)
prostTrok1, v', v, p = Polygon(V'', P, V')
E = Point(v')
m = false
P_1 = Midpoint(b)
plošniTrokut, c_1, v'_1, p_1 = Polygon(V', P_1, C)
F = Point(v'_1)
n = false
q = Segment(V'', C)
G = Point(q)
r = Segment(C, V')
prostTrok2, v'_2, v'', c_2 = Polygon(V'', C, V')
o = false
d_B = Segment(A, C)
dijagPresj, v'_3, a_1, c_3 = Polygon(A, C, V')
s = false