Vizualizacija prostora Lobacevskog - Alas

hs = Append[b, k];Graphics3D[Line[{ahs, ahs + maxx (bhs - ahs)}]]](* Funkcija za crtanje kruznog luka AB koji sadrzi srediste S u projekciji *)ProjekcijaLukaHS[\[Omega]_, k_][a_, b_, s_] :=Module[{c, v1, v2, vs, r, v1u, v2u, vsu, u1, u2} ,(*Prvo proverimo ako je neko od temena (ili oba) beskonacno daleka tacka*)(*1*)If[a == {\[Infinity], \[Infinity]},If[b == {\[Infinity], \[Infinity]},(*Ako su oba temena besk dal. tacka, ne crta se nista*){},(*Ako je a beskonacna , b konacna tacka,crta se zrak od b u pravcu sredista duzi*)RayHS[b, s, k]] (* If *),(*2*)If[b == {\[Infinity], \[Infinity]},(*Ako je sada a konacna, b beskonacna tacka,crta se zrak od a u pravcu sredista duzi*)RayHS[a, s, k],(* Ako su oba temena konacne tacke*)(*3*)If[ Abs[a[[1]] b[[2]] - a[[2]] b[[1]] ] < 0.001, (* proveravamo da li O,A,B pripadaju ravni normalnoj na apsolutu *)(*Ako pripadaju, ako je projekcija sredista izmedju a i b, onda crta duz.Ako nije izmedju, crta dve poluprave*)If[Norm[s - a] < Norm[b - a] \[And] (s - a)[[1]] (b - a)[[1]] > 0,Graphics3D[Line[{Append[a, k], Append[b, k]}]],{RayHS[a, 2 a - b, k], RayHS[b, 2 b - a, k]}],(* Kada ne pripadaju ravni normalnoj na apsloutu,projekcija duzi je kruzni luk koji racunamo: *)c = centarLukaAB[\[Omega], k][a, b];v1 = a - c; (* vektori od centra luka do tacaka A i B *)v2 = b - c;vs = s - c; (*vektor sredista h-duzi ab*)v1u = ugao[N[Arg[{1, I}.v1]]]; (*uglovi tih vektora u odnosu na x osu u rasponu [-Pi, Pi], tj.[0, 2 Pi] *)73