A

B

C

D

Net4

Ax = 3 (slider from -5 to 15, step 0.5)
Ay = 1 (slider from -5 to 15, step 0.5)
Az = 1 (slider from -5 to 15, step 0.5)
Bx = 7 (slider from -5 to 15, step 0.5)
By = -1 (slider from -5 to 15, step 0.5)
Bz = 1 (slider from -5 to 15, step 0.5)
Cx = 6 (slider from -5 to 15, step 0.5)
Cy = 9 (slider from -5 to 15, step 0.5)
Cz = 5 (slider from -5 to 15, step 0.5)
Dx = 10 (slider from -5 to 15, step 0.5)
Dy = 11 (slider from -5 to 15, step 0.5)
Dz = 1 (slider from -5 to 15, step 0.5)
lenAB: sqrt((Bx - Ax)^(2) + (By - Ay)^(2) + (Bz - Az)^(2))
lenAC: sqrt((Cx - Ax)^(2) + (Cy - Ay)^(2) + (Cz - Az)^(2))
lenAD: sqrt((Dx - Ax)^(2) + (Dy - Ay)^(2) + (Dz - Az)^(2))
lenBC: sqrt((Cx - Bx)^(2) + (Cy - By)^(2) + (Cz - Bz)^(2))
lenBD: sqrt((Dx - Bx)^(2) + (Dy - By)^(2) + (Dz - Bz)^(2))
lenCD: sqrt((Dx - Cx)^(2) + (Dy - Cy)^(2) + (Dz - Cz)^(2))
A = (9, 1)
c = Circle(A, lenAB)
B = Point(c)
d = Circle(A, lenAC)
e = Circle(B, lenBC)
C = Intersect(d, e, 2)
f = Circle(A, lenAD)
g = Circle(B, lenBD)
D = Intersect(f, g, 1)
a = Segment(A, B)
b = Segment(B, D)
h = Segment(D, A)
i = Segment(A, C)
j = Segment(B, C)
k = Circle(C, lenCD)
E = Intersect(g, k, 1)
l = Segment(C, E)
m = Segment(E, B)
F = Intersect(f, k, 2)
n = Segment(A, F)
p = Segment(F, C)