Pirámides de emisión

Pirámides de recepción

ControlCuadrilátero = (5.96, 7.56)
f = OrthogonalLine(ControlCuadrilátero, xAxis)
g = OrthogonalLine(ControlCuadrilátero, yAxis)
B = Intersect(g, yAxis)
C = Intersect(f, xAxis)
D = Intersect(xAxis, yAxis)
polígono1, Receptor, a, Agente, d = Polygon(B, ControlCuadrilátero, C, D)
lista1 = Sequence((x(B) + (i * Receptor / 6), y(B)), i, 0, 6)
lista2 = Sequence(Segment[D, Element[lista1, i]], i, 1, 7)
lista3 = Sequence(Segment[C, Element[lista1, i]], i, 1, 7)
A = Point(Agente)
Rayos = 50 (slider from -5 to 50, step 0.1)
lista4 = Sequence((x(B) + (i * Receptor / Rayos), y(B)), i, 0, Rayos)
lista5 = Sequence(Segment[A, Element[lista4, i]], i, 1, Rayos + 1)
E = Point(Receptor)
h: y = d / 2
lista6 = Sequence(Mirror[Element[lista4, i], h], i, 1, Rayos + 1)
lista7 = Sequence(Segment[E, Element[lista6, i]], i, 1, Rayos + 1)
b = true
c = true