Archivo: terremotos de magnitud 8 del USGS desde 1900.svg

Resumen

DescripciónTerremotos de magnitud 8 del USGS desde 1900.svg	Inglés: Terremotos de magnitud de momento 8.0 y mayores desde 1900 a 2018. Los volúmenes 3D aparentes de las burbujas son linealmente proporcionales a sus respectivas muertes, es decir, sus radios son linealmente proporcionales a la raíz cúbica de las muertes. Los datos provienen de https://earthquake.usgs.gov/earthquakes/eqarchives/year/mag8/magnitude8_1900_date.php  ; El color indica el continente y la leyenda cuenta el número de terremotos de cada uno. Nótese la ausencia de África y la escasa presencia de la Antártida y Europa.
Fuente	Propio trabajo
Autor	Cmglee
Desarrollo de SVG	El código fuente de este SVG es válido . Esta imagen vectorial fue creada con perl . Perl prueba el script Perl para crear arriba ; por favor no lo quite . #! / usr / bin / perl $ data_string = qq` as | 1902/06/11 05: | 50.00 | 148.00 | 8.0 || Mar de Okhotsk | -8 oc | 1903/01/04 05: 07 | -20.00 | -175,00 | 8,0 || Tonga | 8 eu | 1903/08/11 04:32 | 36,36 | 22,97 | 8,3 || sur de Grecia | -10 como | 1905/07/09 09:40 | 49,0 | 99,0 | 8,4 || Mongolia | -10 as | 1905/07/23 02: 46 | 49.0 | 98.0 | 8.4 || Mongolia central | 8 sa | 1906/01/31 15: 36 | 1.0 | -81.5 | 8.8 | 1000 | Colombia-Ecuador | | Ecuador-Colombia sa | 1906/08/17 00: 40 | -33.0 | -72.0 | 8.2 | 3882 | Valparaíso, Chile | 5 | Valparaíso, Chile como | 1907/10/21 04: 23 | 38.00 | 69.00 | 8.0 || Afganistán sa | 1908/12/12 12: 08 | -14.0 | -78.0 | 8.2 || frente a la costa del centro de Perú | 5 | frente a la costa del centro de Perú como | 1911/06/15 14: 26 | 28.0 | 130.0 | 8.1 | 12 | Islas Ryukyu, Japón como | 1914/05/26 14: 22 | -2. | 137. | 8.0 || West Nueva Guinea | -10 como | 1915/05/01 05: 00 | 47. | 155. | 8.0 || Islas Kuriles | -4 oc | 1917/05/01 18:26 | -29.0 | -177.0 | 8.0 || Islas Kermadec, Nueva Zelanda | -8 oc | 1917/06/26 05: 49 | -15.0 | -173.0 | 8.4 || Tonga como | 1918/08/15 12:18 | 5.653 | 123.563 | 8.0 | 50 | Mar de Célebes | -5 como | 1918/09/07 17: 16 | 45.5 | 151.5 | 8.2 || Islas Kuriles | -4 oc | 1919/04/30 07: 17 | -19.823 | -172.215 | 8.2 || Región de Tonga | 5 as | 1920/06/05 04: 21 | 23.5 | 122.0 | 8.0 || Región de Taiwán | -5 oc | 1920/09/20 14: 39 | -20.0 | 168.0 | 8.0 || Islas de la Lealtad | 10sa | 1922/11/11 04: 32 | -28.553 | -70.755 | 8.5 || Frontera Chile-Argentina | -12 | Vallenar, frontera Chile-Argentina como | 1923/02/03 16: 01 | 54.0 | 161.0 | 8.5 || Kamchatka | 10 | Kamchatka, Rusia, URSS como | 1924/04/14 16:20 | 7.023 | 125.954 | 8.3 || Mindanao, Filipinas || Mindanao, ~ Filipinas na | 1928/06/17 03: 19 | 16.33 | -96.7 | 8.0 || Oaxaca, México como | 1931/08/10 21:18 | 47.1 | 89.8 | 8.0 | 5 | norte de Xinjiang, China | -8 na | 1932/06/03 10:36 | 19.84 | - 103.99 | 8.1 || Jalisco, México | 5 como | 1933/03/02 17: 31 | 39.22 | 144.62 | 8.4 | 2990 | Sanriku, Japón como | 1934/01/15 08: 43 | 27.55 | 87.09 | 8.1 | 10700 | Bihar, India | 10 as | 1938/02/01 19: 04 | -5.05 | 131.62 | 8.5 || Banda Sea || Banda Sea, Indias Orientales Holandesas (Indonesia) na | 1938/11/10 20: 18 | 55.33 | -158,37 | 8,2 || Islas Shumagin, Alaska | -12oc | 1939/04/30 02: 55 | -10.5 | 158.5 | 8.0 || Islas Salomón | -15 sa | 1940/05/24 16: 33 | -10.5 | -77.0 | 8.2 || cerca de la costa del centro de Perú | -12 | cerca de la costa del centro de Perú ue | 1941/11/25 18: 03 | 37.171 | -18.960 | 8.2 || Azores-Cape St. Vincent Ridge | -10 sa | 1942/08/24 22:50 | - 15.0 | -76.0 | 8.2 | 30 | Frente a la costa del centro de Perú | -3 | frente a la costa del centro de Perú sa | 1943/04/06 16: 07 | -30.75 | -72.0 | 8.2 | 18 | frente a la costa de Coquimbo , Chile | 5 | frente a la costa de Coquimbo, Chile como | 1944/12/07 04: 35 | 33,75 | 136,00 | 8,1 | 1223 | Tonankai, Japón | -15 | Japón como | 1945/11/27 21:57 | 24,5 | 63.0 | 8.0 | 4000 | frente a la costa de Pakistán | -50 | frente a la costa de ~ Paki- ~ stan na | 1946/04/01 12:28 | 52.75 | -163.50 | 8.1 | 165 | Islas Unimak, Alaska | - 10 | Islas Unimak, Alaska, EE. UU.na | 04/08/1946 17:51 | 19,25 | -69,00 | 8,0 | 100 | República Dominicana | 10 | República ~ dominicana ~ como | 20/12/1946 19: 19 | 32,5 | 134,5 | 8,1 | 1330 | Nankaido, Japón | -2 como | 1948/01/24 17:46 | 10.5 | 122.0 | 8.2 | 72 | Panay, Filipinas | 5 na | 1949/08/22 04: 01 | 53.62 | -133.27 | 8.1 || Queen Charlotte Island, BC, Canadá | 10 | Queen Charlotte Island, Canadá como | 1950/08/15 14: 09 | 28.5 | 96.5 | 8.6 | 1526 | Assam-Tibet || Assam-Tibet, China como | 1952 / 03/04 01: 22 | 42.5 | 143.0 | 8.1 | 31 | Hokkaido, región de Japón | 10 as | 1952/11/04 16: 58 | 52.76 | 160.06 | 9.0 || Kamchatka, Rusia || Kamchatka, Rusia, URSS na | 1957/03/09 14: 22 | 51.56 | -175.39 | 8.6 || Andreanof Islands, Alaska || Andreanof Islands, Alaska, USA as | 1957/12/04 03: 37 | 45.15 | 99.21 | 8.1 || Gobi Altai, Mongolia | -10como | 1958/11/06 22: 58 | 44.329 | 148.623 | 8.3 || Islas Kuriles | -3 | Islas Kuriles, URSS como | 1959/05/04 07: 15 | 53.351 | 159.645 | 8.2 | 1 | cerca del este costa de Kamchatka | 8 | cerca de la costa este de ~ Kamchatka, URSS sa | 1960/05/22 19:11 | -38.29 | -73.05 | 9.5 | 1655 | Chile como | 1963/10/13 05: 17 | 44.9 | 149.6 | 8.5 || Islas Kuriles | -5 | Islas Kuriles, Rusia, URSS na | 1964/03/28 03: 36 | 61.02 | -147.65 | 9.2 | 125 | Prince William Sound, Alaska || Prince William Sound, ~ Alaska, EE . UU. Na | 04/02/1965 05: 01 | 51,21 | -178,50 | 8,7 | 5 | Islas Rat, Alaska | 10 | Islas Rat, Alaska, EE. UU. Sa | 17/10/1966 21:41 | -10,807 | -78,684 | 8.1 | 125 | cerca de la costa del centro de Perú | -5 | cerca de la costa del centro de Perú como | 1968/05/16 00: 49 | 40.903 | 143.346 | 8.2 | 47 | frente a la costa este de Honshu, Japón | -4 | frente a la costa este de Honshu, Japóncomo | 1969/08/11 21: 27 | 43.478 | 147.815 | 8.2 || Islas Kuriles | 2 | Islas Kuriles, Rusia, URSS sa | 1970/07/31 17: 08 | -1.49 | -72.56 | 8.0 || Colombia | -8 como | 1971/01/10 07:17 | -3.132 | 139.697 | 8.1 || Papua, Indonesia | 5 sa | 1974/10/03 14: 21 | -12.254 | -77.524 | 8.1 | 78 | cerca del costa del centro de Perú | -7 | cerca de la costa del centro de Perú como | 1976/08/16 16:11 | 6.292 | 124.090 | 8.0 | 8000 | Mindanao, Filipinas | -5 oc | 1977/06/22 12: 08 | - 22.878 | -175.900 | 8.1 || Región de Tonga | 8 as | 1977/08/19 06: 08 | -11.085 | 118.464 | 8.3 | 100 | al sur de Sumbawa, Indonesia sa | 1979/12/12 07: 59 | 1.598 | -79.358 | 8.1 | 600 | cerca de la costa de Ecuador | 10 | cerca de la costa de Ecuador sa | 1985/03/03 22: 47 | -33.135 | -71.871 | 8.0 | 177 | costa afuera de Valparaíso, Chile | -20 na | 1985 / 09/19 13: 17 | 18.190 | -102.533 | 8.0 | 9500 | Michoacán, Méxicona | 07/05/1986 22: 47 | 51.520 | -174.776 | 8.0 || Islas Andreanof, Islas Aleutianas, Alaska | 15 | Islas Andreanof, Islas Aleutianas, Alaska, EE. UU. oc | 23/05/1989 10:54 | - 52.341 | 160.568 | 8.1 || Región de la isla Macquarie | 10 sa | 1994/06/09 00: 33 | -13.841 | -67.553 | 8.2 | 5 | La Paz, Bolivia | -20 | La Paz, ~ Bolivia as | 1994 / 10/04 13:22 | 43.773 | 147.321 | 8.3 | 11 | Islas Kuriles | -5 | Islas Kuriles, Rusia sa | 1995/07/30 05: 11 | -23.340 | -70.294 | 8.0 | 3 | Cerca de la costa del norte Chile | -32 | cerca de la costa de ~ norte de Chile na | 1995/10/09 15:35 | 19.055 | -104.205 | 8.0 | 49 | Cerca de la costa de Jalisco, México | 2 | cerca de la costa de ~ México como | 1996/02 / 17 05: 59 | -0.891 | 136.952 | 8.2 | 166 | Región de Irian Jaya, Indonesia y | 1998/03/25 03: 12 | -62.877 | 149.527 | 8.1 || Región de las Islas Balleny | -2oc | 2000/11/16 04: 54 | -3.980 | 152.169 | 8.0 | 2 | Región de Nueva Irlanda, Papua Nueva Guinea | -8 sa | 2001/06/23 20: 33 | -16.264 | -73.641 | 8.4 | 75 | cerca de la costa del sur de Perú | -20 | cerca de la costa del ~ sur de Perú como | 2003/09/25 19:50 | 41.815 | 143.910 | 8.3 || Hokkaido, región de Japón || Hokkaido, Japón oc | 2004/12 / 23 14: 59 | -49.312 | 161.345 | 8.1 || al norte de la isla Macquarie | -28 | al norte de la isla Macquarie ~, Australia como | 2004/12/26 00: 58 | 3.295 | 95.982 | 9.1 | 227898 | frente al oeste costa del norte de Sumatra | -50 | Océano Índico, frente a ~ costa oeste del norte de ~ Sumatra, Indonesia como | 2005/03/28 16:09 | 2.074 | 97.013 | 8.6 | 1313 | Norte de Sumatra, Indonesia | -5 | Norte de Sumatra oc | 2006/05/03 15:26 | -20.187 | -174.123 | 8.0 || Tonga | -5 como | 2006/11/15 11:14 | 46.592 | 153.226 | 8.3 || Islas Kuriles | 5como | 2007/01/13 04: 23: 21 | 46.243 | 154.524 | 8.1 || Este de las Islas Kuriles | -13 | Este de las Islas Kuriles oc | 2007/04/01 20: 39: 58 | -8.466 | 157.043 | 8.1 | 34 | Islas Salomón | 5 sa | 2007/08/15 23: 40: 57 | -13.386 | -76.603 | 8.0 | 650 | Cerca de la costa del centro de Perú || cerca de la ~ costa ~ de Perú como | 2007 / 09/12 11: 10: 26 | -4.438 | 101.367 | 8.5 | 25 | Sur de Sumatra, Indonesia | 5 | Sur de Sumatra oc | 2009/09/29 17: 48: 10 | -15.489 | -172.095 | 8.1 | 192 | Región de las Islas Samoa | 0 sa | 2010/02/27 06: 34: 14 | -35.846 | -72.719 | 8.8 | 577 | Offshore Maule, Chile | -25 | Maule, ~ Chile as | 2011/03/11 05:46 : 23 | 38.322 | 142.369 | 9.0 | 28050 | Cerca de la costa este de Honshu, Japón | 15 | T & # 333; hoku, frente a la costa este ~ de Honshu, Japóncomo | 2012/04/11 08: 38: 37 | 2.311 | 93.063 | 8.6 || frente a la costa occidental del norte de Sumatra | 5 | Océano Índico, frente a la costa occidental ~ del norte de Sumatra como | 2012/04/11 10:43 : 09 | 0.773 | 92.452 | 8.2 || frente a la costa oeste del norte de Sumatra | -7 | Océano Índico, frente a la costa de Sumatra oc | 2013/02/06 01: 12: 27 | -10.738 | 165.138 | 8.0 | 13 | Lata , ~ Islas Salomón | 7 | como | 2013/05/24 06: 44: 49 | 54.874 | 153.281 | 8.3 || Mar de Okhotsk | 7 | sa | 2014/04/01 23: 46: 47 | -19.642 | -70.817 | 8.2 | 6 | costa afuera ~ N.Chile | -7 | sa | 2015/09/16 22:54 | -31.570 | -71.654 | 8.3 | 14 | costa afuera Coquimbo, Chile na | 2017/09/08 04: 49 | 15.022 | -93.899 | 8.2 | 98 | costa afuera Chiapas, México | -3 oc | 2018/08/19 00: 19 | -18.178 | -178.111 | 8.2 | 0 | Región de Fiji | 4 ` ; % continentes = ( "na" => { "color" => "# 0000ff" , "count" => 0 , "name" => "North America" }, "sa" => { "color" => "# 009900" , "count" => 0 , "name" => "South America" }, "eu" => { "color" => "# 9900cc" , "count" => 0 , "name" => "Europe" }, "af" => { "color" => "# 996600" , "contar" => 0 , "name" => "Africa" }, "as" => { "color" => "# ff0000" , "count" => 0 , "name" => "Asia" }, "oc" => { "color" => "# 006699" , "count" => 0 , "name" => "Australia / Oceania" }, "an" => { "color" => "# 000000" , "cuenta" => 0 , "nombre" => "Antártida" }, undef ); @continent_order = ( "como" , "sa" , "oc" , "na" , "eu" , "an" , "af" ); # @continent_order = ("na", "sa", "eu", "af", "as", "oc", "an");$ mag_min = 8 ; $ mag_max = 9,6 ; $ fecha_min = 1900 ; $ fecha_máx = 2020 ; $ x_min = 0 ; $ x_max = & x ( $ mag_max ); $ y_min = 0 ; $ y_max = & y ( $ fecha_máx ); $ x_legend = 790 ; $ y_legend = 40 ; $ w_legend = 310 ; $ h_legend = 320; $ x_viewbox = - 60 ; $ y_viewbox = - 28 ; $ width_viewbox = 1230 ; $ cuadro de vista de altura = 1230 ; $ out_graph = $ out_legend = $ out_grid = $ out_grad = "" ; $ x_margin = & x ( $ mag_min );sub year_fraction { ( $ y , $ m , $ d ) = división ( / \ // , $ _ [ 0 ]); # $ y = $ _ [0]; # $ m = $ _ [1] || 1; # $ d = $ _ [2] || 1; $ is_leap_year = $ y % 100 ? ( $ y % 4 == 0 ) : ( $ y % 400 == 0 ); $ día_de_año = int ( $ d - ( $ m < 3 ? 30 : $ is_leap_year ? 31 : 32 ) + 30,56 * $ m ); return $ y + ( $ day_of_year - 1 ) / ( $ is_leap_year ? 366 : 365 ); } sub x { return sprintf ( "% .3f" , 700 * ( $ _ [ 0 ] - $ mag_min )); } sub y { volver sprintf ( "% d" , 10 * ( $ _ [ 0 ] - $ fecha_min )); }$ double_dash = "-" . "-" ; $ file_out = $ 0 ; $ file_out = ~ s /[^\.]*$/ svg / ;@data = split ( / \ n / , $ cadena_datos ); foreach ( @data ) { if ( $ _ && substr ( $ _ , 0 , 1 ) ne "#" ) { ( $ continente , $ datetime , $ latitude , $ longitude , $ magnitude , $ fatalities , $ region , $ label_offset , $ etiqueta ) = dividir ( / \ | /, $ _ ); if ( $ magnitud > = $ mag_min ) { print "$ continente \ t $ fecha y hora \ t $ latitud \ t $ longitud \ t $ magnitud \ t $ fatalidades \ t $ región \ t $ etiqueta_desplazamiento \ t $ etiqueta \ n" ; ( $ fecha , $ hora ) = dividir ( / \ s / , $ fecha y hora ); $ x = & x ( $ magnitud ); $ y = & y ( & year_fraction ( $ fecha )); $ r = $ muertes ** (1 / 3 ); $ x_etiqueta = $ x + $ r + 4 ; $ y_label = $ y + $ label_offset + 8 ; $ color = $ continents { $ continente } { "color" }; ++ $ continents { $ continente } { "count" }; if ( $ etiqueta eq "" ) { $ etiqueta = $ región ; } si ( $ etiqueta = ~ m / ~ /) { $ label = ~ s `~` </tspan> < tspan x = "0" dy = "0.9em" > `g; $ etiqueta = qq` <tspan> $ { etiqueta } </tspan> `; } $ tamaño_fuente = $ magnitud <8,5? qq` fuente - tamaño = "20" `: ($ magnitud> = 9? qq` fuente - tamaño = " 36 " `: qq``); $ out_graph. = qq` < g trazo = "$ {color} " fill = "$ {color}" > < text transform = "translate ($ {x_label}, $ {y_label}) scale (0.8,1)" x = "0" y = "0" $ { font_size } stroke = " none " > $ { label } </text> < circle cx = " $ {x} " cy = " $ {y} " r = " $ {r} " fill = " url (#grad _ $ {continente}) " /> <círculo cx = "$ {x}" cy= "$ {y}" r = "2" relleno - opacidad = "0.5" /> < ruta d = "M $ {x} $ {y} H $ {x_margin}" trazo - ancho = "0.5" trazo - opacidad = "0.5" /> </g> `; } } }$ y = 35; foreach (@continent_order) { $ count = $ continents {$ _} {"count"}; if ($ count> 0) { $ color = $ continents {$ _} {"color"}; $ nombre = $ continentes {$ _} {"nombre"}; $ out_grad. = qq` < radialGradient id = "grad _ $ {_}" cx = "50%" cy = "50%" r = "50%" fx = "25%" fy = "25%" > < stop offset = "50%" stop - color = "$ {color}" detener - opacidad ="0" /> < stop offset = "100%" stop - color = "$ {color}" stop - opacity = "0.5" /> </radialGradient> `; $ out_legend. = qq` < text transform = "translate (70, $ {y}) scale (0.8,1)" x = "0" y = "10" fill = "$ {color}" > <tspan> $ { nombre } </tspan> <tspan x = "280" texto -anchor = "end" > ( $ { count }) </tspan> </text> < circle cx = "40" cy = "$ {y}" r = "20" trazo = "$ {color}" fill = "url (#grad _ $ {_})" /> < circle cx = "40" cy = "$ {y}" r = "2" stroke = "$ {color}" /> `; $ y + = 50; } }para ($ mag = $ mag_max; $ mag> = $ mag_min; $ mag - = 0.1) { $ x = & x ($ mag); $ mag = sprintf ("% 0.1f", $ mag); $ out_grid. = qq` < use xlink : href = "#grid_x" transform = "translate ($ {x}, 0)" /> `; if ($ mag <$ mag_max) { $ out_grid. = qq` < text transform = "translate ($ {x}, - 5) scale (0.8,1)" x = "0" y = "0" text - anchor = "medio" >$ { mag } </text> `; }} para ($ fecha = $ fecha_máx; $ fecha> = $ fecha_min; $ fecha - = 5) { $ y = & y ($ fecha); if ($ fecha> $ fecha_min) { $ out_grid. = qq` < use xlink : href = "# grid_y_5" transform = "translate (0, $ {y})" /> `; if ($ date <$ date_max) { $ out_grid. = qq` < text transform = "translate (-5, $ {y}) scale (0.8,1)" x = "0" y = "10" text - anchor = "fin" >$ { fecha } </text> `; } } else { $ out_grid. = qq` < text transform = "translate (-5, $ {y}) scale (0.8,1)" x = "0" y = "15" text - anchor = "end" > $ { fecha } </text> `; } }open (FILE_OUT, "> $ file_out"); imprimir FILE_OUT qq` < ? xml versión = "1.0" encoding = "utf-8" ? > < svg xmlns = "http://www.w3.org/2000/svg" xmlns: xlink = "http://www.w3.org/1999/xlink" width = "100%" height = "100% " viewBox = " $ {x_viewbox} $ {y_viewbox} $ {width_viewbox} $ {height_viewbox} " > <título> Magnitud 8.0 y terremotos mayores desde 1900 </title> <desc> Terremotos de magnitud de momento 8.0 y mayores desde 1900 , trazados por CMG Lee . Las aparentes 3 D volúmenes de las burbujas son linealmente proporcionales a sus respectivas muertes , i . e . sus radios son linealmente proporcionales a la raíz cúbica de las víctimas . Datos es de https: // terremoto . usgs . gov / terremotos / eqarchives / año / m ag8 /magnitude8_1900_date.php, http://comcat.cr.usgs.gov/ terremotos / eventpage / usc000f1s0 y http: // comc en . cr . usgs . gov / terremotos / eventpage / usb000h4jh. </ desc > <defs> $ { out_grad } < path id = "grid_x" d = "M 0 $ {y_min} V $ {y_max}" /> < path id = "grid_y" d = "M $ {x_min} 0 h -1 H $ {x_max}" / > < path id = "grid_y_tick" d = "M $ {x_min} 0 h -2 H $ {x_max}" trazo - ancho = "2" /> < g id = "grid_y_5" > < use xlink : href = " #grid_y_tick "/> < usar xlink: href = "#grid_y" transform = "translate (0, -10)" /> < use xlink : href = "#grid_y" transform = "translate (0, -20)" /> < use xlink : href = " #grid_y " transform = " translate (0, -30) " /> < use xlink : href = " #grid_y " transform = " translate (0, -40) " /> </g> </defs> < rect x = "$ {x_viewbox}" y = "$ {y_viewbox}" width = "$ {width_viewbox}" height = "$ {height_viewbox}" fill = "#ffffff" /> < g font - family = "sans -serif " letra - spacing = " -2 " fuente - tamaño = " 28 " texto - ancla = " inicio " > < g trazo = " #cccccc " fill = "# 000000" > $ { out_grid } < ruta d = "M 0 $ {y_max} V 0 H $ {x_max}" stroke = "# 000000" fill = "none" /> </g> < g transform = "scale (0.8, 1) " fill = " # 666666 " > < text x = " -55 " y = " 1195 " > Año </text> < text x = " 1340 " y = " -5 " >Magnitud </text> </g> <g transform = "translate ($ {x_legend}, $ {y_legend})" > < rect x = "0" y = "0" width = "$ {w_legend}" height = "$ {h_legend}" rx = "20 " ry = " 20 " stroke = " # 000000 " fill = " #ffffff " /> $ { out_legend } </g> $ { out_graph } </g> </svg><! $ { double_dash } script de Perl para crear arriba ; por favor no lo quite . ` ; open ( FILE_IN , $ 0 ); while ( <FILE_IN> ) { print FILE_OUT $ _ ; } cerrar FILE_IN ; imprimir FILE_OUT "# $ {double_dash}>" ; cerrar FILE_OUT ; #    Este archivo SVG utiliza texto incrustado que se puede traducir fácilmente con un editor de texto.

i El código fuente de este SVG es válido .

 Esta imagen vectorial fue creada con perl .

Código Python

 Script de  Perl para  crear  arriba ;  por favor  no  lo  quite . #! / usr / bin / perl $ data_string  =  qq` as | 1902/06/11 05: | 50.00 | 148.00 | 8.0 || Mar de Okhotsk | -8 oc | 1903/01/04 05: 07 | -20.00 | -175,00 | 8,0 || Tonga | 8 eu | 1903/08/11 04:32 | 36,36 | 22,97 | 8,3 || sur de Grecia | -10 como | 1905/07/09 09:40 | 49,0 | 99,0 | 8,4 || Mongolia | -10 as | 1905/07/23 02: 46 | 49.0 | 98.0 | 8.4 || Mongolia central | 8 sa | 1906/01/31 15: 36 | 1.0 | -81.5 | 8.8 | 1000 | Colombia-Ecuador | | Ecuador-Colombia sa | 1906/08/17 00: 40 | -33.0 | -72.0 | 8.2 | 3882 | Valparaíso, Chile | 5 | Valparaíso, Chile como | 1907/10/21 04: 23 | 38.00 | 69.00 | 8.0 || Afganistánsa | 1908/12/12 12: 08 | -14.0 | -78.0 | 8.2 || frente a la costa del centro de Perú | 5 | frente a la costa del centro de Perú como | 1911/06/15 14: 26 | 28.0 | 130.0 | 8.1 | 12 | Islas Ryukyu, Japón como | 1914/05/26 14: 22 | -2. | 137. | 8.0 || West Nueva Guinea | -10 como | 1915/05/01 05: 00 | 47. | 155. | 8.0 || Islas Kuriles | -4 oc | 1917/05/01 18:26 | -29.0 | -177.0 | 8.0 || Islas Kermadec, Nueva Zelanda | -8 oc | 1917/06/26 05: 49 | -15.0 | -173.0 | 8.4 || Tonga como | 1918/08/15 12:18 | 5.653 | 123.563 | 8.0 | 50 | Mar de Célebes | -5 como | 1918/09/07 17: 16 | 45.5 | 151.5 | 8.2 || Islas Kuriles | -4 oc | 1919/04/30 07: 17 | -19.823 | -172.215 | 8.2 || Región de Tonga | 5 as | 1920/06/05 04: 21 | 23.5 | 122.0 | 8.0 || Región de Taiwán | -5 oc | 1920/09/20 14: 39 | -20.0 | 168.0 | 8.0 || Islas de la Lealtad | 10sa | 1922/11/11 04: 32 | -28.553 | -70.755 | 8.5 || Frontera Chile-Argentina | -12 | Vallenar, frontera Chile-Argentina como | 1923/02/03 16: 01 | 54.0 | 161.0 | 8.5 || Kamchatka | 10 | Kamchatka, Rusia, URSS como | 1924/04/14 16:20 | 7.023 | 125.954 | 8.3 || Mindanao, Filipinas || Mindanao, ~ Filipinas na | 1928/06/17 03: 19 | 16.33 | -96.7 | 8.0 || Oaxaca, México como | 1931/08/10 21:18 | 47.1 | 89.8 | 8.0 | 5 | norte de Xinjiang, China | -8 na | 1932/06/03 10:36 | 19.84 | - 103.99 | 8.1 || Jalisco, México | 5 como | 1933/03/02 17: 31 | 39.22 | 144.62 | 8.4 | 2990 | Sanriku, Japón como | 1934/01/15 08: 43 | 27.55 | 87.09 | 8.1 | 10700 | Bihar, India | 10 as | 1938/02/01 19: 04 | -5.05 | 131.62 | 8.5 || Banda Sea || Banda Sea, Indias Orientales Holandesas (Indonesia) na | 1938/11/10 20: 18 | 55.33 | -158,37 | 8,2 || Islas Shumagin, Alaska | -12oc | 1939/04/30 02: 55 | -10.5 | 158.5 | 8.0 || Islas Salomón | -15 sa | 1940/05/24 16: 33 | -10.5 | -77.0 | 8.2 || cerca de la costa del centro de Perú | -12 | cerca de la costa del centro de Perú ue | 1941/11/25 18: 03 | 37.171 | -18.960 | 8.2 || Azores-Cape St. Vincent Ridge | -10 sa | 1942/08/24 22:50 | - 15.0 | -76.0 | 8.2 | 30 | Frente a la costa del centro de Perú | -3 | frente a la costa del centro de Perú sa | 1943/04/06 16: 07 | -30.75 | -72.0 | 8.2 | 18 | frente a la costa de Coquimbo , Chile | 5 | frente a la costa de Coquimbo, Chile como | 1944/12/07 04: 35 | 33,75 | 136,00 | 8,1 | 1223 | Tonankai, Japón | -15 | Japón como | 1945/11/27 21:57 | 24,5 | 63.0 | 8.0 | 4000 | frente a la costa de Pakistán | -50 | frente a la costa de ~ Paki- ~ stan na | 1946/04/01 12:28 | 52.75 | -163.50 | 8.1 | 165 | Islas Unimak, Alaska | - 10 | Islas Unimak, Alaska, EE. UU.na | 04/08/1946 17:51 | 19,25 | -69,00 | 8,0 | 100 | República Dominicana | 10 | República ~ dominicana ~ como | 20/12/1946 19: 19 | 32,5 | 134,5 | 8,1 | 1330 | Nankaido, Japón | -2 como | 1948/01/24 17:46 | 10.5 | 122.0 | 8.2 | 72 | Panay, Filipinas | 5 na | 1949/08/22 04: 01 | 53.62 | -133.27 | 8.1 || Queen Charlotte Island, BC, Canadá | 10 | Queen Charlotte Island, Canadá como | 1950/08/15 14: 09 | 28.5 | 96.5 | 8.6 | 1526 | Assam-Tibet || Assam-Tibet, China como | 1952 / 03/04 01: 22 | 42.5 | 143.0 | 8.1 | 31 | Hokkaido, región de Japón | 10 as | 1952/11/04 16: 58 | 52.76 | 160.06 | 9.0 || Kamchatka, Rusia || Kamchatka, Rusia, URSS na | 1957/03/09 14: 22 | 51.56 | -175.39 | 8.6 || Andreanof Islands, Alaska || Andreanof Islands, Alaska, USA as | 1957/12/04 03: 37 | 45.15 | 99.21 | 8.1 || Gobi Altai, Mongolia | -10como | 1958/11/06 22: 58 | 44.329 | 148.623 | 8.3 || Islas Kuriles | -3 | Islas Kuriles, URSS como | 1959/05/04 07: 15 | 53.351 | 159.645 | 8.2 | 1 | cerca del este costa de Kamchatka | 8 | cerca de la costa este de ~ Kamchatka, URSS sa | 1960/05/22 19:11 | -38.29 | -73.05 | 9.5 | 1655 | Chile como | 1963/10/13 05: 17 | 44.9 | 149.6 | 8.5 || Islas Kuriles | -5 | Islas Kuriles, Rusia, URSS na | 1964/03/28 03: 36 | 61.02 | -147.65 | 9.2 | 125 | Prince William Sound, Alaska || Prince William Sound, ~ Alaska, EE . UU. Na | 04/02/1965 05: 01 | 51,21 | -178,50 | 8,7 | 5 | Islas Rat, Alaska | 10 | Islas Rat, Alaska, EE. UU. Sa | 17/10/1966 21:41 | -10,807 | -78,684 | 8.1 | 125 | cerca de la costa del centro de Perú | -5 | cerca de la costa del centro de Perú como | 1968/05/16 00: 49 | 40.903 | 143.346 | 8.2 | 47 | frente a la costa este de Honshu, Japón | -4 | frente a la costa este de Honshu, Japóncomo | 1969/08/11 21: 27 | 43.478 | 147.815 | 8.2 || Islas Kuriles | 2 | Islas Kuriles, Rusia, URSS sa | 1970/07/31 17: 08 | -1.49 | -72.56 | 8.0 || Colombia | -8 como | 1971/01/10 07:17 | -3.132 | 139.697 | 8.1 || Papua, Indonesia | 5 sa | 1974/10/03 14: 21 | -12.254 | -77.524 | 8.1 | 78 | cerca del costa del centro de Perú | -7 | cerca de la costa del centro de Perú como | 1976/08/16 16:11 | 6.292 | 124.090 | 8.0 | 8000 | Mindanao, Filipinas | -5 oc | 1977/06/22 12: 08 | - 22.878 | -175.900 | 8.1 || Región de Tonga | 8 as | 1977/08/19 06: 08 | -11.085 | 118.464 | 8.3 | 100 | al sur de Sumbawa, Indonesia sa | 1979/12/12 07: 59 | 1.598 | -79.358 | 8.1 | 600 | cerca de la costa de Ecuador | 10 | cerca de la costa de Ecuador sa | 1985/03/03 22: 47 | -33.135 | -71.871 | 8.0 | 177 | costa afuera de Valparaíso, Chile | -20 na | 1985 / 09/19 13: 17 | 18.190 | -102.533 | 8.0 | 9500 | Michoacán, Méxicona | 07/05/1986 22: 47 | 51.520 | -174.776 | 8.0 || Islas Andreanof, Islas Aleutianas, Alaska | 15 | Islas Andreanof, Islas Aleutianas, Alaska, EE. UU. oc | 23/05/1989 10:54 | - 52.341 | 160.568 | 8.1 || Región de la isla Macquarie | 10 sa | 1994/06/09 00: 33 | -13.841 | -67.553 | 8.2 | 5 | La Paz, Bolivia | -20 | La Paz, ~ Bolivia as | 1994 / 10/04 13:22 | 43.773 | 147.321 | 8.3 | 11 | Islas Kuriles | -5 | Islas Kuriles, Rusia sa | 1995/07/30 05: 11 | -23.340 | -70.294 | 8.0 | 3 | Cerca de la costa del norte Chile | -32 | cerca de la costa de ~ norte de Chile na | 1995/10/09 15:35 | 19.055 | -104.205 | 8.0 | 49 | Cerca de la costa de Jalisco, México | 2 | cerca de la costa de ~ México como | 1996/02 / 17 05: 59 | -0.891 | 136.952 | 8.2 | 166 | Región de Irian Jaya, Indonesia y | 1998/03/25 03: 12 | -62.877 | 149.527 | 8.1 || Región de las Islas Balleny | -2oc | 2000/11/16 04: 54 | -3.980 | 152.169 | 8.0 | 2 | Región de Nueva Irlanda, Papua Nueva Guinea | -8 sa | 2001/06/23 20: 33 | -16.264 | -73.641 | 8.4 | 75 | cerca de la costa del sur de Perú | -20 | cerca de la costa del ~ sur de Perú como | 2003/09/25 19:50 | 41.815 | 143.910 | 8.3 || Hokkaido, región de Japón || Hokkaido, Japón oc | 2004/12 / 23 14: 59 | -49.312 | 161.345 | 8.1 || al norte de la isla Macquarie | -28 | al norte de la isla Macquarie ~, Australia como | 2004/12/26 00: 58 | 3.295 | 95.982 | 9.1 | 227898 | frente al oeste costa del norte de Sumatra | -50 | Océano Índico, frente a ~ costa oeste del norte de ~ Sumatra, Indonesia como | 2005/03/28 16:09 | 2.074 | 97.013 | 8.6 | 1313 | Norte de Sumatra, Indonesia | -5 | Norte de Sumatra oc | 2006/05/03 15:26 | -20.187 | -174.123 | 8.0 || Tonga | -5 como | 2006/11/15 11:14 | 46.592 | 153.226 | 8.3 || Islas Kuriles | 5como | 2007/01/13 04: 23: 21 | 46.243 | 154.524 | 8.1 || Este de las Islas Kuriles | -13 | Este de las Islas Kuriles oc | 2007/04/01 20: 39: 58 | -8.466 | 157.043 | 8.1 | 34 | Islas Salomón | 5 sa | 2007/08/15 23: 40: 57 | -13.386 | -76.603 | 8.0 | 650 | Cerca de la costa del centro de Perú || cerca de la ~ costa ~ de Perú como | 2007 / 09/12 11: 10: 26 | -4.438 | 101.367 | 8.5 | 25 | Sur de Sumatra, Indonesia | 5 | Sur de Sumatra oc | 2009/09/29 17: 48: 10 | -15.489 | -172.095 | 8.1 | 192 | Región de las Islas Samoa | 0 sa | 2010/02/27 06: 34: 14 | -35.846 | -72.719 | 8.8 | 577 | Offshore Maule, Chile | -25 | Maule, ~ Chile as | 2011/03/11 05:46 : 23 | 38.322 | 142.369 | 9.0 | 28050 | Cerca de la costa este de Honshu, Japón | 15 | T & # 333; hoku, frente a la costa este ~ de Honshu, Japóncomo | 2012/04/11 08: 38: 37 | 2.311 | 93.063 | 8.6 || frente a la costa occidental del norte de Sumatra | 5 | Océano Índico, frente a la costa occidental ~ del norte de Sumatra como | 2012/04/11 10:43 : 09 | 0.773 | 92.452 | 8.2 || frente a la costa oeste del norte de Sumatra | -7 | Océano Índico, frente a la costa de Sumatra oc | 2013/02/06 01: 12: 27 | -10.738 | 165.138 | 8.0 | 13 | Lata , ~ Islas Salomón | 7 | como | 2013/05/24 06: 44: 49 | 54.874 | 153.281 | 8.3 || Mar de Okhotsk | 7 | sa | 2014/04/01 23: 46: 47 | -19.642 | -70.817 | 8.2 | 6 | costa afuera ~ N.Chile | -7 | sa | 2015/09/16 22:54 | -31.570 | -71.654 | 8.3 | 14 | costa afuera Coquimbo, Chile na | 2017/09/08 04: 49 | 15.022 | -93.899 | 8.2 | 98 | costa afuera Chiapas, México | -3 oc | 2018/08/19 00: 19 | -18.178 | -178.111 | 8.2 | 0 | Región de Fiji | 4 ` ; % continentes  =  (  "na"  =>  { "color"  =>  "# 0000ff" ,  "count"  =>  0 ,  "name"  =>  "North America"  },  "sa"  =>  {  "color"  =>  "# 009900" ,  "count"  =>  0 ,  "nombre"  =>  "América del Sur"  },  "eu"  =>  {  => 0 , "nombre" => "África" }, "as" => { "color" =>"# ff0000" , "cuenta" => 0 , "nombre" => "color"  =>  "# 9900cc" ,  "count"  =>  0 ,  "name"  =>  "Europe" },  "af"  =>  {  "color"  =>  "# 996600" ,  "contar"                  "Asia"  },  "oc"  =>  {  "color"  =>  "# 006699" ,  "count"  "Antártida" }, undef=>  0 ,  "name"  =>  "Australia / Oceania"  },  "an"  =>  {  "color"  => "# 000000" ,  "cuenta"  =>  0 ,  "nombre"  =>   ); @continent_order  =  ( "como" ,  "sa" ,  "oc" ,  "na" ,  "eu" ,  "an" ,  "af" ); # @continent_order = ("na", "sa", "eu", "af", "as", "oc", "an");$ mag_min  =  8 ;  $ mag_max  =  9,6 ;  $ fecha_min  =  1900 ;  $ fecha_máx  =  2020 ; $ x_min  =  0 ;  $ x_max  =  & x ( $ mag_max );  $ y_min  =  0 ;  $ y_max  =  ; $ x_viewbox = - 60 ; $ y_viewbox = - 28 ; $ width_viewbox = 1230 ; $ cuadro de vista de altura = 1230 ;& y ( $ fecha_máx ); $ x_legend  =  790 ;  $ y_legend  =  40 ;  $ w_legend  =  310 ;  $ h_legend  =  320           $ out_graph  =  $ out_legend  =  $ out_grid  =  $ out_grad  =  "" ; $ x_margin  =  & x ( $ mag_min );sub  year_fraction  {  ( $ y ,  $ m ,  $ d )  =  división ( / \ // ,  $ _ [ 0 ]);  # $ y = $ _ [0];  # $ m = $ _ [1] || 1;  # $ d = $ _ [2] || 1;  $ is_leap_year  =  $ y  %  100  ?  ( $ y  %  4  ==  0 )  :  ( $ y  %  400  ==  0 );  $ día_de_año  =  int ( $ d  -  ( $ m  <  3 ?  30  :  $ is_leap_year  ?  31  :  32 )  +  30,56  *  $ m );  return  $ y  +  ( $ day_of_year  -  1 )  /  ( $ is_leap_year  ?  366  :  365 ); } sub  x  {  return  sprintf ( "% .3f" ,  700  *  ( $ _ [ 0 ]  -  $ mag_min ));  } sub  y  {  volver sprintf ( "% d" ,  10  *  ( $ _ [ 0 ]  -  $ fecha_min ));  }$ double_dash  =  "-"  .  "-" ; $ file_out  =  $ 0 ;  $ file_out  = ~  s /[^\.]*$/ svg / ;@data  =  split ( / \ n / ,  $ cadena_datos ); foreach  ( @data )  {  if  ( $ _  &&  substr ( $ _ ,  0 ,  1 )  ne  "#" )  {  ( $ continente ,  $ datetime ,  $ latitude ,  $ longitude ,  $ magnitude ,  $ fatalities ,  $ region ,  $ label_offset ,  $ etiqueta )  =  dividir ( / \ | /,  $ _ );  if  ( $ magnitud  > =  $ mag_min )  {  print  "$ continente \ t $ fecha y hora \ t $ latitud \ t $ longitud \ t $ magnitud \ t $ fatalidades \ t $ región \ t $ etiqueta_desplazamiento \ t $ etiqueta \ n" ;  ( $ magnitud ); $ y = & y ( & year_fraction ( $ fecha )); $ r = $ muertes ** (( $ fecha ,  $ hora )  =  dividir ( / \ s / ,  $ fecha y hora );  $ x  =  y x )        1  /  3 );  $ x_etiqueta  =  $ x  +  $ r  +  4 ;  $ y_label  =  $ y  +  $ label_offset  +  8 ;  $ color  =  $ continents { $ continente } { "color" };  ++ $ continents { $ continente } { "count" };  if  ( $ etiqueta  eq  "" )  {  $ etiqueta  =  $ región ;  }  si  ( $ etiqueta  = ~  m / ~ / {  $ label  = ~  s `~` </tspan> < tspan  x = "0"  dy = "0.9em" > `g;  $ etiqueta = qq` <tspan> $ { etiqueta } </tspan> `;  }  $ tamaño_fuente = $ magnitud <8,5? qq`  font - fill = "$ {color}" > < text transform = "translate ($ {x_label}, $ {y_label}) scale (0.8,1)" x = "0" y = "0"$ { font_size }tamaño = "20" `:  ($ magnitud> = 9? qq`  fuente - tamaño = " 36 " `: qq``);  $ out_graph. = qq`  < g  trazo = "$ {color} "       stroke = " none " > $ { label } </text>  < circle  cx = " $ {x} "  cy = " $ {y} "  r = " $ {r} "  fill = " url (#grad _ $ {continente}) " />  <círculo  cx = "$ {x}"  cy= "$ {y}"  r = "2"  relleno - opacidad = "0.5" />  < ruta  d = "M $ {x} $ {y} H $ {x_margin}"  trazo - ancho = "0.5"  trazo - opacidad = "0.5" />  </g> `;  } } }$ y = 35; foreach (@continent_order) { $ count = $ continents {$ _} {"count"}; if ($ count> 0) {  $ color = $ continents {$ _} {"color"};  $ nombre = $ continentes {$ _} {"nombre"};  $ out_grad. = qq`  < radialGradient  id = "grad _ $ {_}"  cx = "50%"  cy = "50%"  r = "50%"  fx = "25%"  fy "0" /> < stop offset = "100%" detener - color = "$ {color}"stop - opacity = "0.5" = "25%" >  < stop  offset = "50%"  stop - color = "$ {color}" detener - opacidad =    />  </radialGradient> `;  $ out_legend. = qq`  < text  transform = "translate (70, $ {y}) scale (0.8,1)"  x = "0"  y = "10"  fill = "$ {color}" > <tspan> $ { nombre } </tspan> <tspan  x = "280"  texto -anchor = "end" > ( $ { count }) </tspan> </text>  < circle  cx = "40"  cy = "$ {y}"  r = "20"  trazo = "$ {color}"  fill = "url (#grad _ $ {_})" />  < circle  cx = "40"  cy = "$ {y}"  r = "2"  stroke = "$ {color}" /> `;  $ y + = 50; } }para ($ mag = $ mag_max; $ mag> = $ mag_min; $ mag - = 0.1) { $ x = & x ($ mag); $ mag = sprintf ("% 0.1f", $ mag); $ out_grid. = qq`  < use  xlink : href = "#grid_x"  transform = "translate ($ {x}, 0)" /> `; if ($ mag <$ mag_max) {  $ out_grid. = qq`  < text  transform = "translate ($ {x}, - 5) scale (0.8,1)"  x = "0"  y = "0"  text - anchor = "medio" >$ { mag } </text> `; } } for ($ date = $ date_max; $ date > = $ fecha_min; $ fecha - = 5) { $ y = & y ($ fecha); if ($ fecha> $ fecha_min) {  $ out_grid. = qq`  < use  xlink :href= "# grid_y_5"  transform = "translate (0, $ {y})" /> `;  if ($ date <$ date_max) {  $ out_grid. = qq`  < text  transform = "translate (-5, $ {y}) scale (0.8,1)"  x  } } else {  $ out_grid. = qq` < text transform = "translate (-5, $ {y}) scale (0.8,1)" x = "0" y = "15"= "0"  y = "10"  text - anchor = "fin" >$ { fecha } </text> `;     text - anchor = "end" > $ { fecha } </text> `; } }open (FILE_OUT, "> $ file_out"); imprimir FILE_OUT qq` < ? xml  versión = "1.0"  encoding = "utf-8" ? > < svg  xmlns = "http://www.w3.org/2000/svg"  xmlns: xlink = "http://www.w3.org/1999/xlink"  width = "100%"  height = "100% "  Terremotos de magnitud de momento 8.0 y mayores desde 1900 , trazados por CMG Lee .El aparente 3viewBox = " $ {x_viewbox} $ {y_viewbox} $ {width_viewbox} $ {height_viewbox} " >  <título> Magnitud  8.0  y  terremotos mayores  desde 1900 </title> <desc>                  D  volúmenes  de  las  burbujas  son  linealmente  proporcionales  a  sus  respectivas  muertes ,  i . e .  sus  radios  son  linealmente  proporcionales  a  la  raíz cúbica  de las víctimas . Datos     es  de  https: // terremoto . usgs . gov / terremotos / eqarchives / año / m ag8 /magnitude8_1900_date.php, http://comcat.cr.usgs.gov/ terremotos / eventpage / usc000f1s0  y  http: // comc en . cr . usgs . gov / terremotos / eventpage / usb000h4jh. </ desc >  <defs> $ { out_grad } < path  id = "grid_x"  d = "M 0 $ {y_min} V $ {y_max}" />  < path  id = "grid_y"  d = "M $ {x_min} 0 h -1 H $ {x_max}" / >  < path  id = "grid_y_tick"  d = "M $ {x_min} 0 h -2 H $ {x_max}"  stroke - width = "2" />  < g  id : href = "#grid_y" transform = "translate ( 0, -10) " /> <usar xlink : href= "grid_y_5" >  < use  xlink : href = " #grid_y_tick "/>  < usar  xlink   = "#grid_y"  transform = "translate (0, -20)" />  < use  xlink : href = "#grid_y"  transform = "translate (0, -30)" />  <use  xlink : href = " #grid_y "  transform = " translate (0, -40) " />  </g>  </defs> < rect  x = "$ {x_viewbox}"  y = "$ {y_viewbox}"  width = "$ {width_viewbox}"  height = "$ {height_viewbox}"  fill = "#ffffff" />  < g  font - family = "sans -serif "  letter - spacing = " -2 "  font - size = " 28 " texto - ancla = " inicio " >  < g  trazo = " #cccccc " fill = "# 000000"> $ { out_grid }  < path  d = "M 0 $ {y_max} V 0 H $ {x_max}"  stroke = "# 000000"  fill = "none" />  </g>  < g  transform = "scale (0.8, 1) "  fill = " # 666666 " >  < text  x = " -55 "  y = " 1195 " > Año </text>  < text  x = " 1340 "  y = " -5 " >Magnitud </text>  </g>  <g  transform = "translate ($ {x_legend}, $ {y_legend})" >  < rect  x = "0"  y = "0"  width = "$ {w_legend}"  height = "$ {h_legend}"  rx = "20 "  ry = " 20 "  stroke = " # 000000 "  fill = " #ffffff " /> $ { out_legend }  </g> $ { out_graph }  </g> </svg><! $ { double_dash }  script de Perl  para crear arriba ; por favor no lo quite . ` ; open ( FILE_IN , $ 0 ); while ( <FILE_IN> ) { print FILE_OUT $ _ ; }               cerrar  FILE_IN ; imprimir  FILE_OUT  "# $ {double_dash}>" ; cerrar  FILE_OUT ; #

Licencia

Yo, el titular de los derechos de autor de este trabajo, lo publico bajo las siguientes licencias:

	Este archivo tiene la licencia Creative Commons Attribution-Share Alike 3.0 Unported .
	Estas libre: compartir - copiar, distribuir y transmitir el trabajo remezclar - adaptar el trabajo Bajo las siguientes condiciones: atribución : debe otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si se realizaron cambios. Puede hacerlo de cualquier manera razonable, pero no de ninguna manera que sugiera que el licenciante lo respalda a usted o su uso. compartir por igual : si remezcla, transforma o construye sobre el material, debe distribuir sus contribuciones bajo la misma licencia o una licencia compatible que la original. https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 ciertocierto

Se otorga permiso para copiar, distribuir y / o modificar este documento bajo los términos del Licencia de documentación libre GNU , Versión 1.2 o cualquier versión posterior publicada por la Free Software Foundation ; sin Secciones Invariantes, sin Textos de Portada y sin Textos de Contraportada. Se incluye una copia de la licencia en la sección titulada Licencia de documentación libre GNU .http://www.gnu.org/copyleft/fdl.htmlGFDLLicencia de documentación libre GNUciertocierto

Puede seleccionar la licencia de su elección.

Subtítulos

inglés

Agregue una explicación de una línea de lo que representa este archivo

Elementos representados en este archivo

representa

creador

algo de valor

cadena de nombre del autor : Cmglee

Nombre de usuario de Wikimedia : Cmglee

URL: http://commons.wikimedia.org/wiki/User:Cmglee

copyright status

copyrighted

copyright license

Creative Commons Attribution-ShareAlike 3.0 Unported

GNU Free Documentation License, version 1.2 or later

source of file

original creation by uploader