Sismos en Colombia

Descargar como Notebook

Entre los datos que se pueden adquirir desde las bases de datos de WolframAlpha encontramos también datos de sismos y terremotos, aquí en particular trabajaremos con los datos para Colombia:

Descargamos los datos históricos de los sismos para Colombia, encontramos datos desde el año 1566 pero realmente datos continuos y completos desde el año 1900

tecol = EarthquakeData[Entity["Country", "Colombia"]];

filtramos los datos que queremos mostrar: año, ubicación (latitud, longitud) y magnitud en la escala de Richter.

tecoldatos = Table[{DateList[tecol[[n, 1]]][[1]], tecol[[n, 5]], tecol[[n, 9]]}, {n, Length[tecol]}]

Ahora generamos una presentación interactiva y dinámica con el uso del comando Manipulate[ ], que nos permite ubicar sobre el mapa de Colombia año por año los sismos de una intensidad mayor a un número determinado

Manipulate[
 Graphics[{EdgeForm[Black], LightBrown, 
   CountryData["Colombia", "FullPolygon"], Red, 
   Point[Select[tecoldatos, And[#[[1]] == anio, #1[[2]] >= mag] &][[
     All, 3]]]}, ImageSize -> {500, 500}], {{anio, 2000, "Año"}, 1900,
   2016, 1, Appearance -> "Labeled"}, {{mag, 3, "Magnitud mayor a"}, 
  3, 6.5, Appearance -> "Labeled"}, SaveDefinitions -> True]

Aquí hay que observarlo descargando el Notebook.