Geo-Mathematica

Si creiste haber experimentado todas las bondades que Mathematica te puede ofrecer, pues aquí te presento una que quizá nunca pensaste encontrar. Así es, explorando el sitio web de Mathematica puedes hallar herramientas tan útiles como tu propio mapa-mundi interactivo, el cual podemos manipular ampliamente gracias a nuestro software.

Varias visualizaciones de nuestro planeta y selectivamente de cada uno de sus países son posibles gracias a este magnífico aporte, el cual sencillamente "desdobla" la superficie aproximadamente esférica de nuestro planeta de acuerdo a modelos estándar centrados en un punto manipulable por el usuario.

Código

Manipulate[
 Show[CountryData[
  cy, {"Shape", {p, 
  If[p === "LambertConic", {(5 (90 + c[[1]]))/6 - 90, c[[2]]}, 
  c]}}], ImageSize -> {500, 350}], {{p, "Robinson", 
  "projection"}, {"Albers", 
  "Bonne", {"CylindricalEqualArea", 0}, {"CylindricalEquidistant", 
  0}, "EckertIV", "EckertVI", "Equirectangular", "LambertAzimuthal",
  "LambertConic", "LambertCylindrical", "Mercator", 
  "MillerCylindrical", "Mollweide", "Orthographic", "Polyconic", 
  "Robinson", "Sinusoidal", "VanDerGrinten", "WinkelTripel"}},
 {{c, {0, 0}, "center"}, {-90, -90}, {90, 90}, 
  ImageSize -> Small}, {{cy, "World", "country"}, 
  Join[{"World", Delimiter}, CountryData[]]}, 
 Initialization :> CountryData[All, "Preload"], 
 SynchronousInitialization -> False]

El código emplea contenido preestablecido que Mathematica obtendrá automáticamente de la red.

Espero resulte de utilidad para nuestros lectores.

Diego V.