r

v

a = 6 (slider from 1 to 10, step 0.1)
S = Intersect(xAxis, yAxis)
r: (a * sqrt(3) / 3)
text1 = SurdText(r)
text2: "r = " + (LaTeX[text1]) + ""
c = Circle(S, r)
A = Point(c)
f = Segment(S, A)
d = Circle(A, a)
B = Intersect(c, d, 1)
C = Point(Circle[Midpoint[A, B], (Distance[A, B] * sqrt(3) / 2), Segment[A, B]])
t1, c_1, a_1, b_1 = Polygon(A, B, C)
b, D, stenaABC, stenaACD, stenaABD, stenaBCD, hranaAC, hranaAB, hranaBC, hranaAD, hranaCD, hranaBD = Tetrahedron(A, B, C)
g = Segment(S, D)
text3 = SurdText(g)
text4: "v = " + (LaTeX[text3]) + ""
K = PointIn(stenaACD)
L = Point(hranaBC)
M = Point(Segment[S, D])
h = Ray(D, K)
E = Intersect(b_1, h)
i = Ray(S, E)
j = Ray(M, K)
F = Intersect(j, i)
k = Line(F, L)
G = Intersect(k, b_1)
l = Ray(G, K)
H = Intersect(hranaAD, l)
m = Segment(G, H)
n = Ray(C, D)
I = Intersect(n, l)
p = Ray(L, I)
J = Intersect(p, hranaBD)
q = Segment(L, J)
s = Segment(J, H)
q1, g_1, l_1, j_1, h_1 = Polygon(G, L, J, H)