v = Plane(yAxis, zAxis)
n: 4
ControlCuadrícula = Point(Ray[(0, -0.1), Vector[(0, -1)]])
A' = Mirror(ControlCuadrícula, xAxis)
lista1 = Sequence((x(ControlCuadrícula), y(ControlCuadrícula) + (w * Distance[ControlCuadrícula, A'] / n)), w, 0, n)
lista2 = Sequence(Rotate[Element[lista1, w], 270°, ControlCuadrícula], w, 1, n + 1)
lista3 = Sequence(Mirror[Element[lista2, w], LineBisector[ControlCuadrícula, A']], w, 1, n + 1)
lista4 = Sequence(Mirror[Element[lista1, w], LineBisector[Element[lista2, 1], Element[lista2, n + 1]]], w, 1, n + 1)
lista5 = Sequence(Segment[Element[lista1, w], Element[lista4, w]], w, 1, n + 1)
lista6 = Sequence(Segment[Element[lista2, w], Element[lista3, w]], w, 1, n + 1)
B = PointIn((x < 0) ∧ (y > y(ControlCuadrícula)) ∧ (y < y(A')))
f = OrthogonalLine(B, xOyPlane)
O = Point(Ray[B, Vector[(0, 0, 1)]])
b = OrthogonalPlane(B, Line[ControlCuadrícula, A'])
g = Segment(O, B)
lista7 = Sequence(Intersect[b, Element[lista6, w]], w, 2, n + 1)
lista8 = Sequence(Segment[O, Element[lista7, w]], w, 1, n)
h = Segment(B, Element[lista7, n])
p = Plane(xAxis, yAxis)