Vizualizacija prostora Lobacevskog - Alas

ParametricPlot3D[ c + r Cos[t] u + r Sin[t] e, {t, tA, t0},PlotStyle -> Opacity[0.3]]] (* If *)] (* Module *)(* crta sliku u poluprostornom modelu *)ModelHS[\[Omega]_, k_, temenaK_, ivice_, d_: 5, h_: 5] :=Module [{sfera, orisfera, apsoluta, zraci, lukovi, temenaHS},temenaHS = Klein2HS[#] & /@ temenaK;sfera = Graphics3D[{Opacity[0.3], Sphere[{0, 0, 0}, \[Omega]]}];orisfera =Graphics3D[{Opacity -> 0.5,Polygon[{{-d, -d, k}, {d, -d, k}, {d, d, k}, {-d, d, k}}]}];apsoluta =Graphics3D[Polygon[{{-d, -d, 0}, {d, -d, 0}, {d, d, 0}, {-d, d, 0}}]];zraci = ZrakHS[{0, 0, \[Omega]}, #] & /@ temenaHS;lukovi = LukHS[temenaHS[[#[[1]]]], temenaHS[[#[[2]]]]] & /@ ivice;Show[Graphics3D[{Point[#], Red, Point[{0, 0, \[Omega]}]} & /@ temenaHS ],ProjekcijaPoliedraHS[\[Omega], k, temenaK, ivice],sfera, orisfera, apsoluta, zraci, lukovi, Boxed -> False,PlotRange -> {{-d, d}, {-d, d}, {0, h}}]] (*Module*)ProjekcijaPoliedraHS[\[Omega]_, k_, temenaK_, ivice_] :=Module[{tem, krugvidljivosti, lukovi}, (*temena u projekciji*)tem = N[Projekcija[\[Omega], k][Klein2HS[#]]] & /@ temenaK;(* za svaku ivicu crtamo luk *)lukovi = ProjekcijaLukaHS[\[Omega], k][tem[[#[[1]]]],tem[[#[[2]]]],Projekcija[\[Omega], k][Klein2HS[m[temenaK[[#[[1]]]], temenaK[[#[[2]]]]]]]]& /@ ivice;(*temena su data u Klajnovom modelu, i tu trazim srediste m[...].Zatim prebacim u poluprostorni model (HS), projektujem na orisferu,i to mi je 3. argument f-je LukAB*)Show[lukovi]]RayHS[a_, b_, k_] := Module[{ahs, bhs},ahs = Append[a, k];72