Heiluritasomenetelmä
Author: SKK

x

y

z

A = (1.2, -1.7)
B = (0.74, -2.12)
C = (2.42, -1.9000000000000001)
D = (1.16, -0.36)
list1, list2, list3, list4, list5, list6 = Pohlke(A, B, C, D, 10)
E = (-0.76, 0.62)
F = (-0.84, 3.3000000000000003)
G = (-1.7, -0.2)
H = (5.42, -4.38)
I = (4.1, -5.6000000000000005)
J = (1.82, -3.8000000000000003)
c = Rytz(E, F, G)
d = Rytz(H, I, J)
K = (0.14799999999999983, 6.039744680851065)
L = (13.1, -5.9)
a = Segment(K, L)
M = Point(a)
N = Point(a)
O = Point(c)
P = Point(c)
Q = Point(d)
R = Point(d)
h = Ray(A, B)
X = Point(h)
i = Segment(X, L)
j = Segment(K, X)
T, U = Intersect(c, j)
V, W = Intersect(d, i)
k = Segment(N, T)
l = Segment(N, U)
m = Segment(M, W)
n = Segment(M, V)
Z = Intersect(k, n)
A_1 = Intersect(k, m)
B_1 = Intersect(l, m)
C_1 = Intersect(n, l)
b, e = Tangent(M, d)
f, g = Tangent(N, c)
S = Intersect(c, f)
D_1 = Intersect(c, g)
E_1 = Intersect(d, b)
F_1 = Intersect(d, e)
p = Segment(M, E_1)
q = Segment(M, F_1)
r = Segment(N, S)
s = Segment(N, D_1)

Tool: Pohlke
O,E_x,E_y,E_z,number of lines
Input: O, E_x, E_y, E_z, n
Output: list1, list2, list3, list5, list6, list4

e_x = Vector(O, E_x)
e_y = Vector(O, E_y)
e_z = Vector(O, E_z)
list1 = Sequence(Ray[O + k * e_x, e_y], k, 0, n)
list2 = Sequence(Ray[O + k * e_x, e_z], k, 0, n)
list3 = Sequence(Ray[O + k * e_y, e_z], k, 0, n)
list4 = Sequence(Ray[O + k * e_y, e_x], k, 0, n)
list5 = Sequence(Ray[O + k * e_z, e_x], k, 0, n)
list6 = Sequence(Ray[O + k * e_z, e_y], k, 0, n)

Tool: Rytz
Center, end points of conjugate radii
Input: A, B, C
Output: q

B' = Rotate(B, 270*°, A)
d = Line(B', C)
D = Midpoint(B', C)
e = Circle(D, A)
E, F = Intersect(e, d)
f = Line(A, E)
g = Line(A, F)
h = Circle(A, Segment[B', E])
k = Circle(A, Segment[B', F])
G, H = Intersect(h, f)
I, J = Intersect(k, g)
p = Circle(H, Segment[A, J])
K, L = Intersect(p, g)
q = Ellipse(K, L, H)