Vizualizacija prostora Lobacevskog - Alas

Vizualizacija prostora Lobacevskog - Alas Vizualizacija prostora Lobacevskog - Alas

alas.matf.bg.ac.rs
from alas.matf.bg.ac.rs More from this publisher
13.07.2015 Views

translate[{0, 0, 0, 1}, {1/2, 0, -1/4, 1}].# & /@ TemenaDodekaedraK;mat = 1/3 {{1, 2, 2}, {2, 1, -2}, {2, -2, 1}}.{{Cos[3], Sin[3], 0}, {-Sin[3],Cos[3], 0}, {0, 0, 1}} // N;RotTemDodekaedraPS = (mat.#) & /@ TemenaDodekaedraPS;RotTemDodekaedraK = PSphere2Klein[#] & /@ RotTemDodekaedraPS;TransTemDodekaedraK2 =translate[{0, 0, 0, 1}, {1/2, 0, -1/4, 1}].# & /@ RotTemDodekaedraK;RotTemKockePS = (mat.#) & /@ TemenaKockePS;RotTemKockeK = PSphere2Klein[#] & /@ RotTemKockePS;RotTemOktaedraPS = (mat.#) & /@ TemenaOktaedraPS;RotTemOktaedraK = PSphere2Klein[#] & /@ RotTemOktaedraPS;RotTemIkosaedraPS = (mat.#) & /@ TemenaIkosaedraPS;RotTemIkosaedraK = PSphere2Klein[#] & /@ RotTemIkosaedraPS;RotTemTetraedraPS = (mat.#) & /@ TemenaTetraedraPS;RotTemTetraedraK = PSphere2Klein[#] & /@ RotTemTetraedraPS;(*funkcija koja orisferu z=h poluprostornog modelaprebcuje u orisferu Klajnovog modelaodnosno, crta odgovarajuci elipsoid*)OrisferaK[h_] := Module[{Ak, Bk, M, hk, mk, bk, m, b},Ak = hs2Klein[{0, 0, h}];hk = Ak[[3]]/Ak[[4]];mk = (1 + hk)/2;M = Klein2HS[{0, 0, mk, 1}];m = M[[3]] // N;b = Sqrt[m^2 - h^2];Bk = hs2Klein[{0, b, h}];bk = Bk[[2]]/Bk[[4]];Graphics3D[{Scale[Sphere[{0, 0, mk}, mk - hk], {bk, bk, 1}], Opacity[0.2],Sphere[{0, 0, 0}, 1]}, Boxed -> False]]75

Literatura[1] M. Babić, S. Vukmirović, Visualisation of hyperbolic space by central projection ontohorosphere, Mathematica paketu pripremi[2] S. Vukmirović, Modeli geometrije Lobačevskog, skriptahttp://alas.matf.bg.ac.rs/~vsrdjan/files/geomlob.pdf[3] D. V. Aleksieevski, O. Vinberg, O. Soldovnikov, Xvarcman, Serisovremenne problem matematiki, Tom 29, Moskva 1988.[4] The Geometry Center, University of Minnesota Science and Technology Centerhttp://www.geom.uiuc.edu/~crobles/hyperbolic/hypr/isom/kb/eq.html[5] S. Vukmirović, N. Bokan, Projektivna geometrija, Matematički fakultet, Beograd,2004.[6] Z. Lučić, Euklidska i hiperbolička geometrija, Total design i Matematički fakultet,Beograd 1997.[7] M. Božić, Pregled istorije i filozofije matematike, Zavod za udžbenike i nastavnasredstva, Beograd 2002.[8] M. Phillips, C. Gunn. Visualizing hyperbolic space: Unusual uses of 4 × 4 matrices,Symposium on Interactive 3D Graphics (SIGGRAPH), New York, 1992.[9] G. K. Francis, C. M. A. Goudeseune, H. J. Kaczmarski, B. J. Schaeffer, J. M. SullivanAlice on the Eightfold Way: Exploring Curved Spaces in an Enclosed Virtual RealityTheatre, 2003.http://torus.math.uiuc.edu/jms/Papers/alice8way.pdf[10] T. Munzner, H3: Laying Out Large Directed Graphs in 3D Hyperbolic Space, IEEESymp. Information Visualization, IEEE CS Press, 1997.http://graphics.stanford.edu/papers/h3/html.nosplit/h3.html#relworksec[11] J. Weeks Real-time rendering in curved spaces, IEEE Computer Graphics andApplications, Nov-Dec 2002.[12] J. Weeks, Curved Spaces softwarehttp://www.geometrygames.org/CurvedSpaces/[13] C. Gunn, Visualizing Hyperbolic Space, Proceeedings of Bolyai BicentennialConference, edited by Prekopa, Budapest, 2004, pp. 121-141.http://www.math.tu-berlin.de/~gunn/Documents/Papers/bolyai-visneg.pdf[14] B. Ajdin, J. Novičić, R. Stamencǐć, P. Janičić, Rejtrejsing u Poenkareovom sfernommodelu hiperboličkog prostorahttp://www.mpi-inf.mpg.de/~bajdin/HRayTracing-ser.pdf76

translate[{0, 0, 0, 1}, {1/2, 0, -1/4, 1}].# & /@ TemenaDodekaedraK;mat = 1/3 {{1, 2, 2}, {2, 1, -2}, {2, -2, 1}}.{{Cos[3], Sin[3], 0}, {-Sin[3],Cos[3], 0}, {0, 0, 1}} // N;RotTemDodekaedraPS = (mat.#) & /@ TemenaDodekaedraPS;RotTemDodekaedraK = PSphere2Klein[#] & /@ RotTemDodekaedraPS;TransTemDodekaedraK2 =translate[{0, 0, 0, 1}, {1/2, 0, -1/4, 1}].# & /@ RotTemDodekaedraK;RotTemKockePS = (mat.#) & /@ TemenaKockePS;RotTemKockeK = PSphere2Klein[#] & /@ RotTemKockePS;RotTemOktaedraPS = (mat.#) & /@ TemenaOktaedraPS;RotTemOktaedraK = PSphere2Klein[#] & /@ RotTemOktaedraPS;RotTemIkosaedraPS = (mat.#) & /@ TemenaIkosaedraPS;RotTemIkosaedraK = PSphere2Klein[#] & /@ RotTemIkosaedraPS;RotTemTetraedraPS = (mat.#) & /@ TemenaTetraedraPS;RotTemTetraedraK = PSphere2Klein[#] & /@ RotTemTetraedraPS;(*funkcija koja orisferu z=h poluprostornog modelaprebcuje u orisferu Klajnovog modelaodnosno, crta odgovarajuci elipsoid*)OrisferaK[h_] := Module[{Ak, Bk, M, hk, mk, bk, m, b},Ak = hs2Klein[{0, 0, h}];hk = Ak[[3]]/Ak[[4]];mk = (1 + hk)/2;M = Klein2HS[{0, 0, mk, 1}];m = M[[3]] // N;b = Sqrt[m^2 - h^2];Bk = hs2Klein[{0, b, h}];bk = Bk[[2]]/Bk[[4]];Graphics3D[{Scale[Sphere[{0, 0, mk}, mk - hk], {bk, bk, 1}], Opacity[0.2],Sphere[{0, 0, 0}, 1]}, Boxed -> False]]75

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!