Author: Rafael Losada Liste

Crust

Elige plano

%v°

%v°

%v°

%v°

%v°

Corteza terrestre

E

W

E

W

N

S

Loxodrome

Great Circle

Conecta

Point A

Point B

Latitude

Longitude

Time zone

Capital

SEE

Country

Label

0º

45º

90º

135º

180º

-45º

-90º

-135º

Octants

Meridians

Laser

C

Afganistán

Albania

Alemania

Andorra

Angola

Anguila

Antigua y Barbuda

Antillas Holandesas

Arabia Saudita

Argelia

Argentina

Armenia

Aruba

Australia

Austria

Azerbaiyán

Bangladés

Barbados

Baréin

Bélgica

Belice

Benín

Bermudas

Bielorrusia

Bolivia

Bosnia y Herzegovina

Botsuana

Brasil

Bulgaria

Burkina Faso

Burundi

Cabo Verde

Camboya

Camerún

Canadá

Catar

Centroafricana. Rep.

Chequia

Chile

China

China

Chipre

Colombia

Congo. Rep.

Congo. Rep. Dem.

Corea del Norte

Corea del Sur

Costa de Marfil

Costa Rica

Croacia

Cuba

Dinamarca

Dominica

Dominicana. Rep.

Ecuador

Egipto

El Salvador

Emiratos Árabes

Eritrea

Eslovaquia

Eslovenia

Kabul

UT + 4:30

Tirana

UT + 1

Berlín

UT + 1

Andorra La Vella

UT + 1

Luanda

UT + 1

El Valle

UT - 4

Saint John

UT - 4

Willemstad

UT - 4

Riad

UT + 3

Argel

UT + 1

Buenos Aires

UT - 3

Ereván

UT + 4

Oranjestad

UT - 4

Canberra

UT + 10

Viena

UT + 1

Bakú

UT + 3

Daca

UT + 6

Bridgetown

UT - 4

Manama

UT + 3

Bruselas

UT + 1

Belmopán

UT - 6

Porto-Novo

UT + 1

Hamilton

UT - 4

Minsk

UT + 2

La Paz

UT - 4

Sarajevo

UT + 1

Gaborone

UT + 2

Brasilia

UT - 3

Sofía

UT + 2

Uagadugú

UT

Buyumbura

UT + 2

Praia

UT - 1

Phnom Penh

UT + 7

Yaundé

UT + 1

Ottawa

UT - 5

Doha

UT + 3

Bangui

UT + 1

Praga

UT + 1

Santiago

UT - 4

Hong Kong

UT + 8

Pekín

UT + 8

Nicosia

UT + 2

Bogotá

UT - 5

Brazzaville

UT + 1

Kinshasa

UT + 1

Pionyang

UT + 9

Seúl

UT + 9

Yamusukro

UT

San José

UT - 6

Zagreb

UT + 1

La Habana

UT - 5

Copenhague

UT + 1

Roseau

UT - 4

Santo Domingo

UT - 4

Quito

UT - 5

El Cairo

UT + 1

San Salvador

UT - 6

Abu Dabi

UT + 4

Asmara

UT + 3

Bratislava

UT + 1

Liubliana

UT + 1

Capital

España

Madrid

UT + 1

Estados Unidos

Washington

UT - 5

Estonia

Tallin

UT + 2

Etiopía

Adís Abeba

UT + 3

Filipinas

Manila

UT + 8

Finlandia

Helsinki

UT + 2

Fiyi

Suva

UT + 12

Francia

París

UT + 1

Gabón

Libreville

UT + 1

Gambia

Banjul

UT

Georgia

Tiflis

UT + 4

Ghana

Acra

UT

Gibraltar

Gibraltar

UT + 1

Granada

Saint George

UT - 4

Grecia

Atenas

UT + 2

Groenlandia

Nuuk

UT - 3

Guam

Agaña

UT + 10

Guatemala

Guatemala

UT - 6

Guayana Francesa

Cayena

UT - 3

Guernsey

Saint Peter Port

UT

Guinea

Conakry

UT

Guyana

Georgetown

UT - 3

Haití

Puerto Príncipe

UT - 5

Honduras

Tegucigalpa

UT - 6

Hungría

Budapest

UT + 1

India

Nueva Delhi

UT + 5:30

Indonesia

Yakarta

UT + 8

Irak

Bagdad

UT + 3

Irán

Teherán

UT + 3:30

Irlanda

Dublín

UT

Isla de Man

Douglas

UT

Isla de Navidad

Flying Fish Cove

UT + 7

Isla Norfolk

Kingston

UT + 11:30

Islandia

Reikiavik

UT

Islas Caimán

George Town

UT - 5

Islas Cook

Avarua

UT - 10

Islas Feroe

Tórshavn

UT + 1

Islas Marianas

Saipán

UT + 10

Islas Marshall

Majuro

UT + 12

Islas Salomón

Honiara

UT + 11

Islas Vírgenes

Charlotte Amalie

UT - 4

Israel

Jerusalén

UT + 2

Italia

Roma

UT + 1

Jamaica

Kingston

UT - 5

Japón

Tokio

UT + 9

Jordania

Ammán

UT + 2

Kazajistán

Astaná

UT + 6

Kenia

Nairobi

UT + 3

Kirguistán

Bishkek

UT + 5

Kuwait

Kuwait

UT + 3

Laos

Vientián

UT + 7

Las Bahamas

Nassau

UT - 5

Lesoto

Maseru

UT + 2

Letonia

Riga

UT + 2

Líbano

Beirut

UT + 2

Liberia

Monrovia

UT

Libia

Trípoli

UT + 2

Liechtenstein

Vaduz

UT + 1

Lituania

Vilna

UT + 2

Luxemburgo

Luxemburgo

UT + 1

Macedonia

Skopie

UT + 1

Madagascar

Antananarivo

UT + 3

Malasia

Kuala Lumpur

UT + 8

Malaui

Lilongüe

UT + 2

Maldivas

Malé

UT + 5

Malí

Bamako

UT

Malta

La Valeta

UT + 1

Marruecos

Rabat

UT

Martinica

Fort-De-France

UT

Mauricio

Port Louis

UT + 4

Mauritania

Nuakchot

UT

México

Ciudad de México

UT - 6

Moldova

Chişinău

UT + 2

Mónaco

Mónaco

UT + 1

Mongolia

Ulán Bator

UT + 8

Mozambique

Maputo

UT + 2

Namibia

Windhoek

UT + 1

Nepal

Kathmandú

UT + 5:45

Nicaragua

Managua

UT - 6

Níger

Niamey

UT + 1

Nigeria

Abuya

UT + 1

Noruega

Oslo

UT + 1

Nueva Caledonia

Numea

UT + 11

Nueva Zelanda

Wellington

UT + 12

Omán

Mascate

UT + 4

Países Bajos

Ámsterdam

UT+1

Pakistán

Islamabad

UT + 5

Palestina. Territorio Ocupado

Gaza

UT + 2

Panamá

Panamá

UT - 5

Papúa Nueva Guinea

Port Moresby

UT + 10

Paraguay

Asunción

UT - 4

Perú

Lima

UT - 5

Polinesia Francesa

Papeete

UT + 12

Polonia

Varsovia

UT + 1

Portugal

Lisboa

UT

Puerto Rico

San Juan

UT - 4

Reino Unido

Londres

UT

Reunión

Saint-Denis

UT + 4

Ruanda

Kigali

UT + 2

Rumanía

Bucarest

UT + 2

Rusia

Moscú

UT + 3

Samoa

Apia

UT - 11

Samoa Americana

Pago Pago

UT - 11

San Cristóbal y Nieves

Basseterre

UT - 4

San Marino

San Marino

UT + 1

San Vicente y las Granadinas

Kingstown

UT - 4

Santa Lucía

Castries

UT - 4

Santo Tomé y Príncipe

Santo Tomé

UT

Senegal

Dakar

UT

Serbia

Belgrado

UT + 1

Seychelles

Victoria

UT + 4

Sierra Leona

Freetown

UT

Singapur

Singapur

UT + 8

Siria

Damasco

UT + 2

Somalia

Mogadiscio

UT + 3

Sri Lanka

Colombo

UT + 5:30

Suazilandia

Mbabane

UT + 2

Sudáfrica

Pretoria

UT + 2

Sudán

Jartum

UT + 2

Suecia

Estocolmo

UT + 1

Suiza

Berna

UT+1

Surinam

Paramaribo

UT - 3

Tailandia

Bangkok

UT + 7

Taiwán

Taipéi

UT + 8

Tanzania

Dodoma

UT + 3

Tayikistán

Dusambé

UT + 5

Togo

Lomé

UT

Tonga

Nukualofa

UT + 13

Trinidad y Tobago

Puerto España

UT - 4

Túnez

Túnez

UT + 1

Turkmenistán

Asjabad

UT + 5

Turquía

Ankara

UT + 2

Ucrania

Kiev

UT + 2

Uganda

Kampala

UT + 3

Uruguay

Montevideo

UT - 3

Uzbekistán

Taskent

UT + 5

Vanuatu

Port Vila

UT + 11

Venezuela

Caracas

UT - 4

Vietnam

Hanói

UT + 7

Yemen

Saná

UT + 3

Zambia

Kabul

UT + 4:30

Zimbabue

Tirana

UT + 1

OTHER

CITIES

Country

City

Latitude

Longitude

Time zone

Brasil

Río de Janeiro

UT - 3

Brasil

São Paulo

UT - 3

China

Cantón

UT + 8

China

Shenzhen

UT + 8

China

Wuhan

UT + 8

España

A Coruña

UT + 1

España

Albacete

UT + 1

España

Alicante

UT + 1

España

Almería

UT + 1

España

Ávila

UT + 1

España

Avilés

UT + 1

España

Badajoz

UT + 1

España

Barcelona

UT + 1

España

Bilbao

UT + 1

España

Burgos

UT + 1

España

Cádiz

UT + 1

España

Castellón

UT + 1

España

Córdoba

UT + 1

España

Cuenca

UT + 1

España

Gijón

UT + 1

España

Girona

UT + 1

España

Granada

UT + 1

España

Huelva

UT + 1

España

Huesca

UT + 1

España

Ibiza

UT + 1

España

Jaén

UT + 1

España

Las Palmas

UT + 1

España

León

UT + 1

España

Lleida

UT + 1

España

Logroño

UT + 1

España

Lugo

UT + 1

España

Málaga

UT + 1

España

Murcia

UT + 1

España

Ourense

UT + 1

España

Oviedo

UT + 1

España

Palma

UT + 1

España

Pamplona

UT + 1

España

Pontevedra

UT + 1

España

Sabadell

UT + 1

España

Salamanca

UT + 1

España

San Sebastián

UT + 1

España

Santa Cruz

UT + 1

España

Santander

UT + 1

España

Santiago de Compostela

UT + 1

España

Segovia

UT + 1

España

Sevilla

UT + 1

España

Teruel

UT + 1

España

Toledo

UT + 1

España

Valencia

UT + 1

España

Valladolid

UT + 1

España

Vitoria

UT + 1

España

Zaragoza

UT + 1

Estados Unidos

Boston

UT - 5

Estados Unidos

Chicago

UT - 6

Estados Unidos

Filadelfia

UT - 5

Estados Unidos

Kansas

UT - 6

Estados Unidos

Las Vegas

UT - 8

Estados Unidos

Los Ángeles

UT - 8

Estados Unidos

Miami

UT - 5

Estados Unidos

Mineápolis

UT - 6

Estados Unidos

Nueva Orleans

UT - 6

Estados Unidos

Nueva York

UT - 5

Estados Unidos

Oklahoma

UT - 6

Estados Unidos

San Francisco

UT - 8

Estados Unidos

Seatle

UT - 8

India

Bombay

UT + 5:30

Reino Unido

Birmingham

UT

See

Other

Equator

Greenwich merid.

Axis

Tropic of Cancer

Tropic of Capricornio

Arctic Circle

Elige plano

Parallels

Point C

Cities

Laser

Laser

Laser

A

B

C

yy3 = 40.7 (slider from -90 to 90, step 0.1)
yy3a: round(10.0 * yy3) / 10.0
yy2 = 14.7 (slider from -90 to 90, step 0.1)
yy2a: round(10.0 * yy2) / 10.0
yy1 = 52.5 (slider from -90 to 90, step 0.1)
yy1a: round(10.0 * yy1) / 10.0
verCorteza = true
menú = 1 (slider from 1 to 5, step 1)
menu: round(menú)
verElige = false
E274 = -1.91
D274 = 52.48
E273 = 72.83
D273 = 18.96
E272 = -122.32
D272 = 47.6
E271 = -122.42
D271 = 37.78
E270 = -97.54
D270 = 35.48
E269 = -74
D269 = 40.72
E268 = -90.07
D268 = 29.96
E267 = -93.27
D267 = 44.98
E266 = -80.22
D266 = 25.79
E265 = -118.25
D265 = 34.05
E264 = -115.14
D264 = 36.18
E263 = -94.59
D263 = 39.11
E262 = -75.17
D262 = 39.95
E261 = -87.63
D261 = 41.88
E260 = -71.06
D260 = 42.36
E259 = -0.88
D259 = 41.63
E258 = -2.67
D258 = 42.85
E257 = -4.72
D257 = 41.65
E256 = -0.4
D256 = 39.48
E255 = -4.02
D255 = 39.87
E254 = -1.1
D254 = 40.35
E253 = -5.99
D253 = 37.38
E252 = -4.17
D252 = 40.95
E251 = -8.55
D251 = 42.88
E250 = -3.8
D250 = 43.47
E249 = -16.23
D249 = 28.45
E248 = -1.98
D248 = 43.32
E247 = -5.65
D247 = 40.97
E246 = 2.1
D246 = 41.55
E245 = -8.63
D245 = 42.43
E244 = -1.63
D244 = 42.82
E243 = 2.65
D243 = 39.57
E242 = -5.83
D242 = 43.37
E241 = -7.87
D241 = 42.33
E240 = -1.12
D240 = 37.98
E239 = -4.42
D239 = 36.72
E238 = -7.57
D238 = 43
E237 = -2.45
D237 = 42.47
E236 = 0.63
D236 = 41.61
E235 = -5.57
D235 = 42.6
E234 = -15.42
D234 = 28.1
E233 = -3.78
D233 = 37.77
E232 = 1.43
D232 = 38.9
E231 = -0.41
D231 = 42.14
E230 = -6.95
D230 = 37.26
E229 = -3.6
D229 = 37.18
E228 = 2.82
D228 = 41.98
E227 = -5.66
D227 = 43.54
E226 = -2.13
D226 = 40.07
E225 = -4.77
D225 = 37.88
E224 = -0.03
D224 = 39.98
E223 = -6.3
D223 = 36.53
E222 = -3.7
D222 = 42.35
E221 = -2.97
D221 = 43.25
E220 = 2.18
D220 = 41.38
E219 = -6.97
D219 = 38.88
E218 = -5.93
D218 = 43.56
E217 = -4.7
D217 = 40.65
E216 = -2.45
D216 = 36.83
E215 = -0.48
D215 = 38.35
E214 = -1.85
D214 = 38.98
E213 = -8.38
D213 = 43.37
E212 = 114.28
D212 = 30.58
E211 = 114.1
D211 = 22.55
E210 = 113.26
D210 = 23.13
E209 = -46.63
D209 = -23.55
E208 = -43.23
ciudadesLongitud: E208:E274
D208 = -22.9
ciudadesLatitud: D208:D274
B274 = 2
B273 = 0
B272 = 0
B271 = 0
B270 = 0
B269 = 1
B268 = 0
B267 = 0
B266 = 0
B265 = 2
B264 = 0
B263 = 0
B262 = 0
B261 = 0
B260 = 0
B259 = 0
B258 = 0
B257 = 0
B256 = 0
B255 = 0
B254 = 0
B253 = 0
B252 = 0
B251 = 0
B250 = 0
B249 = 0
B248 = 0
B247 = 0
B246 = 0
B245 = 0
B244 = 0
B243 = 0
B242 = 0
B241 = 0
B240 = 0
B239 = 0
B238 = 0
B237 = 0
B236 = 0
B235 = 0
B234 = 0
B233 = 0
B232 = 0
B231 = 0
B230 = 0
B229 = 0
B228 = 0
B227 = 0
B226 = 0
B225 = 0
B224 = 0
B223 = 0
B222 = 0
B221 = 0
B220 = 2
B219 = 0
B218 = 0
B217 = 0
B216 = 0
B215 = 0
B214 = 0
B213 = 0
B212 = 0
B211 = 0
B210 = 0
B209 = 0
B208 = 2
ciudadesLista: B208:B274
ciudadesNum = Length(ciudadesLista)
ciudadesElegidas1 = Sequence(If[Element[ciudadesLista, k] > 0.0, k, 0.0], k, 1.0, ciudadesNum)
ciudadesElegidas2 = KeepIf(x > 0.0, ciudadesElegidas1)
ciudadesNumElegidas = Length(ciudadesElegidas2)
o = 15 (slider from -180 to 180, step 2.5)
ciudades1 = Sequence(Mod[360.0 + Element[ciudadesLongitud, Element[ciudadesElegidas2, k]] + o, 360.0] - 180.0, k, 1.0, ciudadesNumElegidas)
ciudades2 = Sequence(If[abs(Element[ciudades1, s]) > 90.0, Element[ciudades1, s], 0.0], s, 1.0, ciudadesNumElegidas)
ciudadesVisibles1 = Sequence(If[Element[ciudades2, s] ≠ 0.0, Element[ciudadesElegidas2, s], 0.0], s, 1.0, ciudadesNumElegidas)
ciudadesVisibles2 = KeepIf(x > 0.0, ciudadesVisibles1)
ciudades3 = KeepIf(x ≠ 0.0, ciudades2)
ciudadesNumVisibles = Length(ciudades3)
E204 = 19.83
D204 = 41.33
E203 = 69.18
D203 = 34.52
E202 = 44.21
D202 = 15.36
E201 = 105.85
D201 = 21.03
E200 = -66.92
D200 = 10.5
E199 = 168.32
D199 = -17.74
E198 = 69.25
D198 = 41.32
E197 = -56.18
D197 = -34.88
E196 = 32.58
D196 = 0.32
E195 = 30.52
D195 = 50.43
E194 = 32.87
D194 = 39.93
E193 = 58.38
D193 = 37.95
E192 = 10.18
D192 = 36.8
E191 = -61.52
D191 = 10.65
E190 = -175.2
D190 = -21.13
E189 = 1.22
D189 = 6.13
E188 = 70.01
D188 = 38.09
E187 = 35.75
D187 = -6.25
E186 = 121.45
D186 = 25.02
E185 = 100.52
D185 = 13.75
E184 = -55.17
D184 = 5.83
E183 = 7.47
D183 = 46.92
E182 = 18.05
D182 = 59.33
E181 = 32.53
D181 = 15.59
E180 = 28.22
D180 = -25.73
E179 = 31.13
D179 = -26.32
E178 = 79.85
D178 = 6.93
E177 = 45.35
D177 = 2.03
E176 = 36.3
D176 = 33.5
E175 = 103.86
D175 = 1.29
E174 = -13.23
D174 = 8.49
E173 = 55.45
D173 = -4.62
E172 = 20.5
D172 = 44.83
E171 = -17.43
D171 = 14.67
E170 = 6.73
D170 = 0.33
E169 = -61
D169 = 14
E168 = -61.22
D168 = 13.13
E167 = 12.45
D167 = 43.93
E166 = -62.72
D166 = 17.3
E165 = -170.7
D165 = 14.27
E164 = -171.73
D164 = -13.83
E163 = 37.58
D163 = 55.75
E162 = 26.1
D162 = 44.43
E161 = 30.07
D161 = -1.95
E160 = 55.44
D160 = -20.9
E159 = -0.11
D159 = 51.52
E158 = -66.11
D158 = 18.47
E157 = -9.13
D157 = 38.72
E156 = 21
D156 = 52.25
E155 = -149.57
D155 = -17.53
E154 = -77.05
D154 = -12.05
E153 = -57.67
D153 = -25.27
E152 = 147.18
D152 = -9.48
E151 = -79.53
D151 = 8.97
E150 = 34.47
D150 = 31.5
E149 = 73.17
D149 = 33.7
E148 = 4.92
D148 = 52.35
E147 = 58.6
D147 = 23.62
E146 = 174.78
D146 = -41.3
E145 = 166.45
D145 = -22.26
E144 = 10.75
D144 = 59.92
E143 = 7.48
D143 = 9.07
E142 = 2.12
D142 = 13.52
E141 = -86.28
D141 = 12.15
E140 = 85.32
D140 = 27.72
E139 = 17.08
D139 = -22.57
E138 = 32.59
D138 = -25.97
E137 = 106.92
D137 = 47.92
E136 = 7.42
D136 = 43.73
E135 = 28.86
D135 = 47
E134 = -99.15
D134 = 19.4
E133 = -15.95
D133 = 18.1
E132 = 57.51
D132 = -20.17
E131 = -61.05
D131 = 14.61
E130 = -6.83
D130 = 34.03
E129 = 14.52
D129 = 35.9
E128 = -8
D128 = 12.65
E127 = 73.5
D127 = 4.18
E126 = 33.78
D126 = -13.98
E125 = 101.7
D125 = 3.17
E124 = 47.52
D124 = -18.92
E123 = 21.43
D123 = 42
E122 = 6.13
D122 = 49.61
E121 = 25.32
D121 = 54.68
E120 = 9.52
D120 = 47.13
E119 = 13.18
D119 = 32.89
E118 = -10.81
D118 = 6.31
E117 = 35.51
D117 = 33.87
E116 = 24.1
D116 = 56.95
E115 = 27.48
D115 = -29.32
E114 = -77.35
D114 = 25.08
E113 = 102.6
D113 = 17.97
E112 = 47.98
D112 = 29.37
E111 = 74.6
D111 = 42.9
E110 = 36.82
D110 = -1.28
E109 = 71.5
D109 = 51.17
E108 = 35.93
D108 = 31.95
E107 = 139.77
D107 = 35.7
E106 = -76.8
D106 = 18
E105 = 12.48
D105 = 41.9
E104 = 35.23
D104 = 31.77
E103 = -64.93
D103 = 18.34
E102 = 159.95
D102 = -9.43
E101 = 171.38
D101 = 7.1
E100 = 145.5
D100 = 16
E99 = -6.77
D99 = 62.02
E98 = -159.77
D98 = -21.2
E97 = -81.38
D97 = 19.3
E96 = -21.95
D96 = 64.15
E95 = 167.95
D95 = -29.05
E94 = 105.72
D94 = -10.42
E93 = -4.47
D93 = 54.15
E92 = -6.25
D92 = 53.33
E91 = 51.42
D91 = 35.67
E90 = 44.39
D90 = 33.34
E89 = 106.8
D89 = -6.17
E88 = 77.22
D88 = 28.63
E87 = 19.08
D87 = 47.5
E86 = -87.22
D86 = 14.1
E85 = -72.33
D85 = 18.53
E84 = -58.17
D84 = 6.8
E83 = -13.71
D83 = 9.51
E82 = -2.53
D82 = 49.45
E81 = -52.33
D81 = 4.93
E80 = -90.52
D80 = 14.63
E79 = -144.75
D79 = 13.48
E78 = -51.72
D78 = 64.19
E77 = 23.73
D77 = 37.98
E76 = -61.75
D76 = 12.06
E75 = -5.35
D75 = 36.13
E74 = -0.22
D74 = 5.55
E73 = 44.81
D73 = 41.7
E72 = -16.58
D72 = 13.45
E71 = 9.45
D71 = 0.38
E70 = 2.34
D70 = 48.85
E69 = 178.42
D69 = -18.13
E68 = 24.93
D68 = 60.18
E67 = 121
D67 = 14.58
E66 = 38.7
D66 = 9.03
E65 = 24.73
D65 = 59.43
E64 = -77.04
D64 = 38.9
E63 = -3.68
D63 = 40.4
E62 = 14.51
E61 = 17.12
E60 = 38.93
E59 = 54.37
E58 = -89.2
E57 = 31.25
E56 = -78.5
E55 = -69.9
E54 = -61.4
E53 = 12.58
E52 = -82.36
E51 = 16
E50 = -84.08
E49 = -5.28
E48 = 127
E47 = 125.77
E46 = 14.78
E45 = 15.29
E44 = -74.08
E43 = 33.37
E42 = 116.41
E41 = 114.15
E40 = -70.67
E39 = 14.47
E38 = 17.45
E37 = 51.15
E36 = -75.7
E35 = 11.52
E34 = 104.92
E33 = -23.52
E32 = 29.36
E31 = -1.54
E30 = 23.32
E29 = -47.92
E28 = 25.92
E27 = 18.38
E26 = -67.02
E25 = 27.57
E24 = -64.78
E23 = 2.62
E22 = -88.77
E21 = 4.33
E20 = 50.58
E19 = -59.62
E18 = 90.41
E17 = 49.86
E16 = 16.37
E15 = 149.22
E14 = -70.03
E13 = 44.5
E12 = -58.47
E11 = 3.05
E10 = 46.71
E9 = -68.93
E8 = -61.85
E7 = -63.05
E6 = 13.23
E5 = 1.52
E4 = 13.4
E3 = 19.83
E2 = 69.18
capitalesLongitud: E2:E204
D62 = 46.06
D61 = 48.15
D60 = 15.33
D59 = 24.47
D58 = 13.7
D57 = 30.05
D56 = -0.22
D55 = 18.47
D54 = 15.3
D53 = 55.67
D52 = 23.13
D51 = 45.8
D50 = 9.93
D49 = 6.82
D48 = 37.57
D47 = 39.01
D46 = 1.98
D45 = -4.26
D44 = 4.63
D43 = 35.17
D42 = 39.9
D41 = 22.28
D40 = -33.45
D39 = 50.08
D38 = 4.3
D37 = 25.3
D36 = 45.42
D35 = 3.87
D34 = 11.55
D33 = 14.92
D32 = -3.38
D31 = 12.36
D30 = 42.68
D29 = -15.78
D28 = -24.67
D27 = 43.85
D26 = -12.97
D25 = 53.9
D24 = 32.29
D23 = 6.48
D22 = 17.25
D21 = 50.83
D20 = 26.24
D19 = 13.1
D18 = 23.72
D17 = 40.39
D16 = 48.2
D15 = -35.28
D14 = 12.52
D13 = 40.18
D12 = -34.61
D11 = 36.76
D10 = 24.67
D9 = 12.1
D8 = 17.12
D7 = 18.22
D6 = -8.84
D5 = 42.5
D4 = 52.52
D3 = 41.33
D2 = 34.52
capitalesLatitud: D2:D204
B2 = 0 (slider from -5 to 5, step 0.1)
B3 = 0
B4 = 0
B5 = 0
B6 = 0
B7 = 0
B8 = 0
B9 = 0
B10 = 0
B11 = 0
B12 = 0
B13 = 0
B14 = 0
B15 = 0
B16 = 0
B17 = 0
B18 = 0
B19 = 0
B20 = 0
B21 = 0
B22 = 0
B23 = 0
B24 = 0
B25 = 0
B26 = 0
B27 = 0
B28 = 0
B29 = 0
B30 = 0
B31 = 0
B32 = 0
B33 = 0
B34 = 0
B35 = 0
B36 = 0
B37 = 0
B39 = 0
B40 = 0
B41 = 0
B42 = 0
B43 = 0
B44 = 0
B45 = 0
B46 = 0
B47 = 0
B48 = 0
B49 = 0
B50 = 0
B51 = 0
B52 = 0
B53 = 0
B54 = 0
B55 = 0
B56 = 0
B57 = 0
B58 = 0
B59 = 0
B60 = 0
B61 = 0
B62 = 0
B38 = 0
B63 = 0
B64 = 0
B65 = 0
B66 = 0
B67 = 0
B68 = 0
B69 = 0
B70 = 2
B71 = 0
B72 = 0
B73 = 0
B74 = 0
B75 = 0
B76 = 0
B77 = 0
B78 = 0
B79 = 0
B80 = 0
B81 = 0
B82 = 0
B83 = 0
B84 = 0
B85 = 0
B86 = 0
B87 = 0
B88 = 0
B89 = 0
B90 = 0
B91 = 0
B92 = 0
B93 = 0
B94 = 0
B95 = 0
B96 = 0
B97 = 0
B98 = 0
B99 = 0
B100 = 0
B101 = 0
B102 = 0
B103 = 0
B104 = 0
B105 = 0
B106 = 0
B107 = 0
B108 = 0
B109 = 0
B110 = 0
B111 = 0
B112 = 0
B113 = 0
B114 = 0
B115 = 0
B116 = 0
B117 = 0
B118 = 0
B119 = 0
B120 = 0
B121 = 0
B122 = 0
B123 = 0
B124 = 0
B125 = 0
B126 = 0
B127 = 0
B128 = 0
B129 = 0
B130 = 0
B131 = 0
B132 = 0
B133 = 0
B134 = 0
B135 = 0
B136 = 0
B137 = 0
B138 = 0
B139 = 0
B140 = 0
B141 = 0
B142 = 0
B143 = 0
B144 = 1
B145 = 0
B146 = 0
B147 = 0
B148 = 0
B149 = 0
B150 = 0
B151 = 0
B152 = 0
B153 = 0
B154 = 0
B155 = 0
B156 = 0
B157 = 0
B158 = 0
B159 = 0
B160 = 0
B161 = 0
B162 = 0
B163 = 0
B164 = 0
B165 = 0
B166 = 0
B167 = 0
B168 = 0
B169 = 0
B170 = 0
B171 = 2
B172 = 0
B173 = 0
B174 = 0
B175 = 0
B176 = 0
B177 = 0
B178 = 0
B179 = 0
B180 = 0
B181 = 0
B182 = 0
B183 = 0
B184 = 0
B185 = 0
B186 = 0
B187 = 0
B188 = 0
B189 = 0
B190 = 0
B191 = 0
B192 = 0
B193 = 0
B194 = 0
B195 = 0
B196 = 0
B197 = 0
B198 = 0
B199 = 0
B200 = 0
B201 = 0
B202 = 0
B203 = 0
B204 = 0
capitalesLista: B2:B204
capitalesNum = Length(capitalesLista)
capitalesElegidas1 = Sequence(If[Element[capitalesLista, k] > 0.0, k, 0.0], k, 1.0, capitalesNum)
capitalesElegidas2 = KeepIf(x > 0.0, capitalesElegidas1)
capitalesNumElegidas = Length(capitalesElegidas2)
capitales1 = Sequence(Mod[360.0 + Element[capitalesLongitud, Element[capitalesElegidas2, k]] + o, 360.0] - 180.0, k, 1.0, capitalesNumElegidas)
capitales2 = Sequence(If[abs(Element[capitales1, s]) > 90.0, Element[capitales1, s], 0.0], s, 1.0, capitalesNumElegidas)
capitalesVisibles1 = Sequence(If[Element[capitales2, s] ≠ 0.0, Element[capitalesElegidas2, s], 0.0], s, 1.0, capitalesNumElegidas)
capitalesVisibles2 = KeepIf(x > 0.0, capitalesVisibles1)
capitales3 = KeepIf(x ≠ 0.0, capitales2)
capitalesNumVisibles = Length(capitales3)
φ = 5.517858430180072 rad (slider from 0 to 6.283185307179586)
sq3 = 1.7320508075688772
Escala = 3.25 (slider from 1 to 5, step 0.01)
r: sq3 * Escala
θ = 0.2617993877991494 rad (slider from 0 to 6.283185307179586)
i: (sin(φ), -cos(φ) * sin(θ))
j: (cos(φ), sin(φ) * sin(θ))
k: (0.0, cos(θ))
O = (4.66, 0.38)
f(x) = 90.0 - x
x2 = -17.39 (slider from -179.99 to 179.99, step 0.1)
αBr: Mod[360.0 + x2 + o, 360.0] - 180.0
x1 = -1.89 (slider from -179.99 to 179.99, step 0.1)
αAr: Mod[360.0 + x1 + o, 360.0] - 180.0
sθ: sin(θ)
cθ: cos(θ)
om = Mod(o + 180.0, 15.0)
p = Circle(O, 6.0)
PSp = Point(p)
y1 = If(yy1a ≟ 0.0, 0.01, yy1a)
c = Circle(O, r)
k1: sqrt(cos(y1°))
y2 = If(yy2a ≟ 0.0, 0.01, yy2a)
lox1 = 72 (slider from -90 to 90, step 1)
βB: (90.0 - y2)°
αB: Mod[αBr + 224.5, 360.0]°
yB: sin(αB) * sin(βB)
xB: cos(αB) * sin(βB)
zB: cos(βB)
βA: (90.0 - y1)°
αA: Mod[αAr + 224.5, 360.0]°
xA: cos(αA) * sin(βA)
yA: sin(αA) * sin(βA)
zA: cos(βA)
eje = Segment(O - (0.0, 0.99 * r), O + (0.0, 0.99 * r))
L = Point(eje)
z0: y(L - O) / r
b0: xB * (zA - z0) - xA * (zB - z0)
a0: yA * (zB - z0) - yB * (zA - z0)
oo: round(o / 2.5)
HH4: O + r * (sin(βA) * sin(8.0 * 3.141592653589793 / 5.0), -sin(βA) * cos(8.0 * 3.141592653589793 / 5.0) * sθ + cos(βA) * cθ)
HH3: O + r * (sin(βA) * sin(6.0 * 3.141592653589793 / 5.0), -sin(βA) * cos(6.0 * 3.141592653589793 / 5.0) * sθ + cos(βA) * cθ)
HH2: O + r * (sin(βA) * sin(4.0 * 3.141592653589793 / 5.0), -sin(βA) * cos(4.0 * 3.141592653589793 / 5.0) * sθ + cos(βA) * cθ)
HH1: O + r * (sin(βA) * sin(2.0 * 3.141592653589793 / 5.0), -sin(βA) * cos(2.0 * 3.141592653589793 / 5.0) * sθ + cos(βA) * cθ)
PN: O + r * k
PS: O - r * k
h = Ray(O, PN)
l = Ray(O, PS)
HH: O + r * (0.0, -sin(βA) * sθ + cos(βA) * cθ)
paralelo1 = Conic(HH, HH1, HH2, HH3, HH4)
Oo1 = Center(paralelo1)
corteza = true
Esq1: O - (6.04, 6.0)
circuloPolarArtico = Paralelo(O + (0.05, 0.0), Escala, θ, (f(66.56))°)
J = Center(circuloPolarArtico)
gg: (floor(om) + 0.5)°
GR1: O + r * (sin(3.141592653589793 / 2.0 + 2.0 * 3.141592653589793 / 5.0) * sin(gg), -sin(3.141592653589793 / 2.0 + 2.0 * 3.141592653589793 / 5.0) * cos(gg) * sin(θ) + cos(3.141592653589793 / 2.0 + 2.0 * 3.141592653589793 / 5.0) * cos(θ))
GR2: O + r * (sin(3.141592653589793 / 2.0 + 4.0 * 3.141592653589793 / 5.0) * sin(gg), -sin(3.141592653589793 / 2.0 + 4.0 * 3.141592653589793 / 5.0) * cos(gg) * sin(θ) + cos(3.141592653589793 / 2.0 + 4.0 * 3.141592653589793 / 5.0) * cos(θ))
GR3: O + r * (sin(3.141592653589793 / 2.0 + 6.0 * 3.141592653589793 / 5.0) * sin(gg), -sin(3.141592653589793 / 2.0 + 6.0 * 3.141592653589793 / 5.0) * cos(gg) * sin(θ) + cos(3.141592653589793 / 2.0 + 6.0 * 3.141592653589793 / 5.0) * cos(θ))
GR4: O + r * (sin(3.141592653589793 / 2.0 + 8.0 * 3.141592653589793 / 5.0) * sin(gg), -sin(3.141592653589793 / 2.0 + 8.0 * 3.141592653589793 / 5.0) * cos(gg) * sin(θ) + cos(3.141592653589793 / 2.0 + 8.0 * 3.141592653589793 / 5.0) * cos(θ))
GR: O + r * (sin(gg), -cos(gg) * sin(θ))
T = Point(p)
g_1 = Ray(O, O + (0.0, 1.0))
i_1 = Ray(O, O - (0.0, 1.0))
D_1 = Intersect(p, g_1, 1.0)
E_1 = Intersect(p, i_1)
p_1 = CircumcircleArc(E_1, T, D_1)
P_1 = Point(p_1)
q_1 = Ray(O, P_1)
A: O + r * (xA * i + yA * j + zA * k)
A'_1 = Mirror(A, O)
B: O + r * (xB * i + yB * j + zB * k)
B'_1 = Mirror(B, O)
βAB: (βA + βB) / 2.0
aAB: yA * zB - yB * zA
bAB: xB * zA - xA * zB
c_4: xA * yB - xB * yA
xAB1: -(bAB) * sqrt(1.0 / (aAB^(2.0) + bAB^(2.0)))
yAB1: aAB * sqrt(1.0 / (aAB^(2.0) + bAB^(2.0)))
coincideAB0: xAB1 ≟ xA ∧ yAB1 ≟ yA ∧ 0.0 ≟ zA ∨ xAB1 ≟ xB ∧ yAB1 ≟ yB ∧ 0.0 ≟ zB
xAB2 = If(coincideAB0, -(xAB1), xAB1)
yAB2 = If(coincideAB0, -(yAB1), yAB1)
AB_2: O + r * (xAB2 * i + yAB2 * j)
ortodromicaAB = Conic(B, A, B'_1, A'_1, AB_2)
yD: a0 * sqrt((1.0 - z0^(2.0)) / (a0^(2.0) + b0^(2.0)))
xD: -(b0) * sqrt((1.0 - z0^(2.0)) / (a0^(2.0) + b0^(2.0)))
D: O + r * (xD * i + yD * j + z0 * k)
F: O + r * (-(xD) * i - yD * j + z0 * k)
xE: (a0 * c_4 * z0 + b0 * sqrt(a0^(2.0) + b0^(2.0) - c_4^(2.0) * z0^(2.0))) / (a0^(2.0) + b0^(2.0))
yE: (c_4 * z0 - a0 * xE) / b0
E: O + r * (xE * i + yE * j)
LAB = Midpoint(B, A)
sAB = Ray(O, LAB)
dB = Ray(O, B)
dA = Ray(O, A)
RB = Intersect(p, dB)
SAB = Intersect(p, sAB)
RA = Intersect(p, dA)
eAB = CircumcircleArc(RB, SAB, RA)
VAB = Point(eAB)
hAB = Ray(O, VAB)
WAB = Intersect(ortodromicaAB, hAB)
ortodromiaAB = Locus(WAB, VAB)
q = Segment(A, B)
r1 = Ray(A, B)
r_1 = Ray(B, A)
Z = Intersect(c, r_1, 1.0)
S_1 = Intersect(c, r1, 1.0)
s_1 = Segment(Z, S_1)
zE': (c_4^(2.0) * z0 + b0 * sqrt(c_4^(2.0) + b0^(2.0) - c_4^(2.0) * z0^(2.0))) / (c_4^(2.0) + b0^(2.0))
yE': -(c_4) * (zE' - z0) / b0
E': O + r * (yE' * j + zE' * k)
EE = If(Defined[E], E, E')
pasaporC = Conic(A, B, D, F, EE)
t_1 = Ray(L, LAB)
T_1 = Intersect(p, t_1, 1.0)
b_3 = Ray(L, A)
d_3 = Ray(L, B)
U_1 = Intersect(p, d_3, 1.0)
V_1 = Intersect(p, b_3, 1.0)
e_3 = CircumcircleArc(U_1, T_1, V_1)
W_1 = Point(e_3)
f_3 = Ray(L, W_1)
Z_1 = Intersect(pasaporC, f_3, 1.0)
conecta = Locus(Z_1, W_1)
γ1: (round(lox1) + 90.0)°
texto2: "" + (round(lox1)) + "º"
t1: tan(γ1)
sφ: sin(φ)
cφ: cos(φ)
s1: αA + 4.0 / 3.0 * t1 * tan((3.141592653589793 / 2.0 - βA) * 3.0 / 4.0)
u1 = CurveCartesian(x(O) + r * (cos(s1 + t1 * log(tan(t / 2.0))) * sin(t) * sφ + sin(s1 + t1 * log(tan(t / 2.0))) * sin(t) * cφ), y(O) + r * (-cos(s1 + t1 * log(tan(t / 2.0))) * sin(t) * cφ * sθ + sin(s1 + t1 * log(tan(t / 2.0))) * sin(t) * sφ * sθ + cos(t) * cθ), t, 0.0, 6.28319)
verLox = true
verOrtodromia = false
verConecta = false
verA = true
verB = false
W_3: O - (5.56, 5.58)
g_3 = Ray(W_3, W_3 + (383.0 / 50.0, 0.0))
cβ1: cos(βA)
sβ1: sin(βA)
PNp = Point(p)
PEp: O + (6.0, 0.0)
POp: O - (6.0, 0.0)
gw: (o + 0.5)°
listaGreenwich0 = Sequence(O + r * (sin(3.141592653589793 / 2.0 + k * 2.0 * 3.141592653589793 / 5.0) * sin(gw), -sin(3.141592653589793 / 2.0 + k * 2.0 * 3.141592653589793 / 5.0) * cos(gw) * sθ + cos(3.141592653589793 / 2.0 + k * 2.0 * 3.141592653589793 / 5.0) * cθ), k, 0.0, 4.0)
listaGreenwich1 = Conic(Element[listaGreenwich0, 1.0], Element[listaGreenwich0, 2.0], Element[listaGreenwich0, 3.0], Element[listaGreenwich0, 4.0], Element[listaGreenwich0, 5.0])
listaGreenwich3a = Intersect(listaGreenwich1, c, 1.0)
listaGreenwich3b = Intersect(listaGreenwich1, c, 2.0)
listaGreenwich4a = Ray(O, listaGreenwich3a)
listaGreenwich4b = Ray(O, listaGreenwich3b)
listaGreenwich5a = Intersect(p, listaGreenwich4a)
listaGreenwich5b = Intersect(p, listaGreenwich4b)
listaGreenwich6Este = CircumcircleArc(listaGreenwich5a, PEp, listaGreenwich5b)
listaGreenwich7Este = Point(listaGreenwich6Este)
listaGreenwich8Este = Ray(O, listaGreenwich7Este)
listaGreenwich9Este = Intersect(listaGreenwich1, listaGreenwich8Este)
greenwichEste = Locus(listaGreenwich9Este, listaGreenwich7Este)
listaGreenwich6Oeste = CircumcircleArc(listaGreenwich5a, POp, listaGreenwich5b)
listaGreenwich7Oeste = Point(listaGreenwich6Oeste)
listaGreenwich8Oeste = Ray(O, listaGreenwich7Oeste)
listaGreenwich9Oeste = Intersect(listaGreenwich1, listaGreenwich8Oeste)
greenwichOeste = Locus(listaGreenwich9Oeste, listaGreenwich7Oeste)
verGEste: o ≥ 0.0 ∧ o < 90.0 ∨ o < -(90.0)
AA: A
verNombres = true
BB: B
verOctantes = true
αEcu0r: Mod[360.0 + o, 360.0] - 180.0
αEcu45r: Mod[405.0 + o, 360.0] - 180.0
αEcu90r: Mod[450.0 + o, 360.0] - 180.0
αEcu135r: Mod[495.0 + o, 360.0] - 180.0
αEcu180r: Mod[540.0 + o, 360.0] - 180.0
αEcu45Or: Mod[315.0 + o, 360.0] - 180.0
αEcu90Or: Mod[270.0 + o, 360.0] - 180.0
αEcu135Or: Mod[225.0 + o, 360.0] - 180.0
αEcu180: Mod[αEcu180r + 224.5, 360.0]°
αEcu135: Mod[αEcu135r + 224.5, 360.0]°
αEcu90: Mod[αEcu90r + 224.5, 360.0]°
αEcu45: Mod[αEcu45r + 224.5, 360.0]°
αEcu0: Mod[αEcu0r + 224.5, 360.0]°
αEcu45O: Mod[αEcu45Or + 224.5, 360.0]°
αEcu90O: Mod[αEcu90Or + 224.5, 360.0]°
αEcu135O: Mod[αEcu135Or + 224.5, 360.0]°
verMeridianos = true
verLaser = true
C_1 = Center(pasaporC)
f_2 = Segment(C_1, AA)
h_2 = Segment(C_1, BB)
estrellas: {(18.31916, 4.95492), (6.95038, -8.40443), (29.52365, 4.94829), (12.18839, 1.17505), (10.12146, -9.96834), (12.09856, 1.2122), (25.74781, 1.18063), (23.25177, -8.21555), (30.34123, -3.73349), (30.93218, -10.83867), (18.59866, -0.10675), (25.31981, 0.27169), (32.8899, -10.19897), (27.44522, 1.72702), (10.19116, -11.37309), (10.50085, -2.91174), (12.91523, -0.6922), (23.26941, -6.50538), (23.73955, 3.71495), (23.64924, -5.12727), (28.24307, -9.38398), (18.19348, -9.45047), (31.4983, -5.4855), (28.85314, 1.83654), (25.68147, -3.94227), (26.71226, -4.19683), (17.87907, -11.1597), (19.22949, -8.4446), (12.74549, 4.26187), (15.49574, 3.1015), (13.96356, -3.67599), (4.44655, -8.53042), (27.41326, -1.6291), (29.19417, 0.54642), (8.46379, -11.8257), (32.19193, 5.26581), (-0.7919, -10.48969), (15.61866, -7.46968), (19.05195, 0.35853), (23.34989, -1.19532), (12.24075, -4.64167), (30.56581, -11.86037), (21.58411, 3.53373), (14.34352, -6.55825), (4.27321, -7.47569), (32.75845, -4.7604), (13.69184, 2.29271), (19.65829, -1.67727), (10.60916, -5.29615), (25.81336, 4.00496), (31.85471, -7.86695), (22.64982, 1.93208), (26.55087, 3.78385), (27.47961, -6.66788), (24.05717, -4.41415), (9.21071, -8.0515), (16.81192, -11.07849), (10.73252, -11.84407), (9.3281, -10.57023), (17.83288, -3.53741), (0.72577, -4.54424), (32.61167, -7.11009), (8.05059, -4.68188), (17.82657, 0.84177), (17.47529, 0.09149), (24.91697, -7.53079), (14.75526, -8.21238), (22.39767, -7.98059), (28.54806, 3.12558), (14.83853, -9.57472), (32.73667, 4.75901), (6.02601, -11.00559), (15.72608, -11.33164), (26.98042, -5.92239), (17.56149, -9.50355), (15.71925, 4.74384), (15.83674, -5.14102), (10.37653, -11.15166), (19.78853, -10.72694), (24.21065, 4.56832), (-0.29066, -7.12537), (19.71115, -7.00103), (15.54398, -0.2494), (31.98658, -8.85596), (12.59817, 1.81453), (9.75385, -8.65245), (17.78527, 5.52736), (26.59334, -6.82531), (16.17795, 0.23428), (3.53376, -9.76663), (21.18968, -7.37421), (18.43145, -2.75377), (14.52326, -9.795), (32.3019, -11.7723), (27.13616, -2.04601), (24.43947, 4.36213), (16.06708, 2.10862), (31.75218, 0.77111), (24.30398, 2.98117), (21.17271, -11.05525), (13.76307, -9.05662), (20.37961, -7.17921), (1.13492, -8.3417), (15.80192, -5.48686), (12.79524, 4.44958), (26.10563, 1.80661), (4.44293, -6.32641), (8.5273, -9.37696), (15.09063, 3.89461), (31.74871, -2.76414), (14.49322, -9.43678), (23.74674, 1.37211), (16.56717, -10.45903), (24.14882, -9.48112), (3.06348, -6.8544), (15.02, -8.32476), (28.92596, -5.16562), (25.39485, 2.52069), (25.50511, -3.37554), (8.13445, -10.33726), (21.96064, -2.26261), (10.82675, -2.33595), (26.64958, -4.35944), (15.71434, -0.01758), (11.88163, -5.53324), (24.80416, -7.97188), (14.63923, 4.30581), (15.02027, -3.49421), (32.61079, -9.74183), (17.50439, -10.60144), (10.56808, -9.61719), (27.36342, -6.07033), (31.54244, -5.43919), (32.06893, -4.49653), (13.63189, -2.71381), (29.74499, -9.05529), (17.10292, -7.94192), (15.94014, -0.29657), (14.01272, -6.0901), (10.46815, -1.39412), (5.41078, -11.33892), (30.08953, 3.60349), (20.61723, 4.54801), (30.83789, -9.56166), (29.5023, -7.34894), (32.15566, -4.71909), (-0.07683, 4.76847), (6.17395, -11.27558), (29.56525, -5.38724), (1.16083, -7.80319), (12.14632, -7.2841), (7.05689, -11.18248), (27.92377, -9.77075), (23.05183, -0.34269), (11.83121, -8.13033), (11.1055, -8.93447), (28.31596, 4.93616), (18.28727, -8.94801), (18.84269, -1.08322), (13.13472, -9.95884), (1.45644, -9.6835), (21.38702, -3.29158), (21.30499, -7.48895), (31.43163, -10.93622), (24.60454, -11.33247), (13.19562, 5.07195), (11.69611, -4.17404), (22.07686, -1.43524), (6.72887, -9.08287), (28.62271, -6.79049), (23.37434, 5.38236), (21.08879, -10.19399), (32.86806, -4.16365), (21.9831, -6.59182), (13.23886, -0.7411), (17.43478, -1.38176), (32.19543, 4.78402), (3.82354, -7.89761), (11.19357, -6.06003), (22.13431, -4.58653), (22.85213, 5.77663), (26.85833, -3.34748), (26.58653, -4.52311), (7.17232, -10.77707), (26.00458, -0.42211), (28.35593, -5.82843), (19.68253, -8.9582), (27.6664, -9.37015), (25.1659, 5.23402), (11.72816, -0.07448), (19.74336, -9.65397), (15.62085, -9.57764), (30.47316, 4.31079), (18.22034, 3.82066), (9.62568, -3.18087), (21.53461, -6.50028), (27.77961, -4.63823), (18.87341, -2.59567), (18.67229, 1.94223), (10.50427, 2.29089), (18.74445, 3.91436), (8.3915, -6.9075), (2.17541, -7.34276), (25.25363, -11.69502), (-0.75109, -10.29802), (11.27419, 0.85336), (6.44734, -9.21065), (7.80574, -10.99394), (10.06489, 5.80518), (16.99936, -1.00726), (-1.22862, -7.66547), (14.81978, -6.19), (30.65122, -9.52653), (7.08904, -7.91148), (31.77551, -1.60778), (22.49378, 1.99077), (24.39823, 4.25688), (20.76955, -3.41051), (10.17752, -5.93779), (28.7075, -4.46381), (26.92392, -11.06805), (26.01761, -0.46028), (30.51786, -8.46219), (7.52276, -8.15518), (13.65803, 4.781), (11.56116, -6.66776), (1.22848, -6.62952), (31.37734, -1.38925), (27.83959, -10.89938), (21.42856, -2.26066), (3.50814, -8.81371), (28.38572, 4.34947), (2.15, -7.12535), (26.20982, -3.96032), (-1.33071, 3.78372), (25.17466, 1.30575), (1.00527, -11.16693), (15.29411, -3.55903), (18.68698, -5.46453), (30.23251, -7.97865), (11.09028, -9.163), (19.84311, -0.20512), (17.61329, 2.85566), (26.63612, -7.02284), (6.1856, -6.3372), (19.67177, -4.05603), (27.30689, 0.99469), (21.12927, 4.15772), (16.18812, -6.16833), (15.73776, 5.69995), (13.93398, 5.54034), (12.28211, 3.94011), (1.2614, -9.77065), (21.47908, 3.94822), (21.65335, -10.09956), (32.71804, -10.76963), (28.89227, 3.67604), (-0.28836, -8.26594), (18.40239, -8.38525), (25.30574, -11.61112), (15.73139, -4.0992), (30.50665, 0.1104), (10.50837, 3.92448), (16.46442, 1.93703), (29.25942, -4.05203), (9.78968, -10.11612), (21.50294, 0.74279), (31.48624, -8.97769), (-1.4883, 5.94737), (28.78104, -1.43153), (24.44266, 3.88679), (22.48135, -5.42891), (26.03051, 4.26743), (14.38457, -1.92787), (23.45561, -5.28543), (15.8345, -6.53753), (24.17825, 5.33535), (0.58785, -11.48367), (-1.31537, 1.56928), (23.53854, -10.45873), (27.77535, 4.59104), (13.52043, 0.5425), (25.47827, 5.1124), (30.50629, 3.76399), (26.38577, -5.7076), (5.1165, -10.74489), (12.57624, -2.30908), (11.99147, 3.59014), (12.01944, -8.47257), (26.51893, 1.79011), (-1.04073, -8.44877), (31.78758, -2.99122), (27.1734, 0.10476), (29.87674, -1.948), (10.31437, 5.84722), (15.31971, -0.13278), (7.37921, -6.94191), (32.71217, -1.29329), (21.97328, -3.41882), (11.73171, -1.63863), (3.03336, -9.12485), (11.6498, 4.26462), (19.72571, -4.60204), (3.58035, -8.26964), (13.59214, -6.5252), (30.99866, -9.57905), (27.65434, -1.63281), (22.98276, -9.98177), (25.44467, -1.2578), (4.57306, -11.05088), (21.73538, 4.5036), (3.42436, -9.0352), (14.4114, 5.48368), (-1.45033, -5.57718), (11.39193, -6.62418), (31.24737, 1.33584), (30.67067, -1.02192), (30.1376, -9.48854), (11.4052, 3.56123), (26.19757, -6.48783), (28.03452, -0.14857), (29.55991, -10.87524), (9.03459, -11.65938), (22.0005, 1.5843), (16.67958, -4.64893), (17.15568, 5.20686), (11.64316, 4.55852), (15.91589, -0.23159), (27.13432, -4.79089), (15.76201, 2.1944), (20.27667, 1.30295), (28.76523, 5.02731), (14.58888, -9.25177), (23.69291, -5.80115), (19.94493, 1.14828), (30.35738, -0.28499), (23.54241, -11.66732), (3.42842, -6.74855), (31.09887, 5.95168), (9.89182, -5.81121), (-1.39372, 2.95744), (24.38948, 2.57415), (8.05854, -7.74363), (20.32949, 3.34501), (11.97815, 5.93224), (30.31564, -11.4033), (4.32419, -11.67852), (26.07523, -6.16791), (16.28271, -7.5544), (15.39366, -4.62097), (18.31423, -9.24534), (12.97797, 3.29556), (0.25137, -9.51846), (-1.44107, -6.90123), (11.36071, -0.19732), (22.73322, -8.27838), (27.00369, -4.85213), (21.70413, 3.76953), (32.04348, 0.16034), (5.98162, -8.41473), (3.04722, -9.14169), (11.54385, -10.31626), (7.47652, -9.37952), (17.38642, 5.76417), (24.77886, -1.1677), (23.11527, -6.86121), (25.47182, -0.67528), (24.57858, -10.93401), (27.95021, -8.96664), (21.73473, -10.00884), (12.18075, -8.35551), (6.91786, -9.0385), (20.55811, -9.85995), (0.46788, -5.18602), (16.04912, 2.91581), (16.45281, 3.63327), (15.01608, -0.84314), (7.63568, -6.51607), (15.28418, 4.89254), (28.90914, -11.27632), (9.77364, -6.0074), (21.17234, -1.6363), (32.7907, -1.14377), (17.67364, -7.82756), (27.80254, 0.30114), (11.26012, -2.17324), (30.04264, -9.52393), (32.83535, -6.90051), (14.92555, -3.18805), (19.25962, -11.87878), (30.46927, 0.26146), (18.22206, 0.45527), (22.0932, -7.9723), (30.48322, -1.79508), (11.10128, -5.67673), (26.58284, -8.29842), (29.70952, -5.95873), (8.6161, -10.03), (32.41716, -2.75019), (16.23935, -4.73755), (15.99537, -9.42757), (11.81657, -11.14926), (22.37694, 1.05926), (9.97278, -7.94459), (27.23753, -3.65474), (14.42366, -1.71331), (31.43421, 4.4466), (9.47937, -7.76018), (16.96921, -2.53), (25.80584, -10.53356), (1.38236, -4.73526), (21.3389, 5.40594), (31.49215, 3.77366), (22.78097, -8.01362), (14.48318, -4.39066), (-1.42973, -11.85293), (23.50699, -10.93726), (15.60327, -10.95523), (1.60723, -6.52429), (28.47644, -3.70403), (17.8863, -9.75967), (10.4532, -6.63142), (31.71043, 5.48738), (29.8957, 1.27773), (23.62203, -3.40465), (-1.11177, -6.8282), (18.50095, 1.76897), (10.13969, -5.81745), (29.59449, -5.33913), (29.03692, -10.23674), (0.35445, -6.59535), (18.18069, -8.66771), (17.46791, 4.66168), (17.39508, -7.30724), (12.87436, 1.32879), (8.07985, -11.525), (28.49824, 2.0838), (12.89415, -6.12864), (12.02642, -2.09624), (30.38451, 3.33344), (29.28237, -0.32974), (25.3576, 5.83918), (0.53704, -8.81146), (0.399, 5.46254), (20.04469, 1.81568), (14.73072, -3.16297), (26.95329, 3.65229), (15.07269, -5.34255), (17.99492, -1.00135), (9.10053, -8.33048), (1.07635, -7.20908), (14.30618, 0.11402), (5.26775, -10.60351), (31.76651, -0.68107), (27.73587, 5.17097), (2.54719, -6.12541), (3.18819, -9.54103), (20.4155, 4.45367), (17.85654, -1.53836), (11.04003, 3.45627), (21.68873, 5.50684), (8.56068, -9.05657), (15.02923, -3.30422), (1.05406, -10.17999), (24.33448, -6.89367), (20.26535, -5.21228), (16.50237, -2.12658), (14.02588, 5.40685), (25.90423, -7.97917), (31.18791, -7.25553), (30.09975, -4.55671), (25.09808, -11.98083), (17.16565, 3.32251), (24.32876, -9.85426), (32.67892, -4.07175), (24.88497, -1.84586), (18.30019, -1.42965), (24.10954, -8.88257), (32.73151, -9.00764), (25.00396, 3.6022), (19.42623, -5.41932), (14.27045, -7.52317), (30.69669, -6.13048), (6.23436, -11.23906), (0.39842, -11.85871), (22.79132, -7.1353), (30.15122, 4.48101), (25.44734, 5.43118), (20.62885, -11.93256), (23.66005, 2.91734), (32.92509, 4.05184), (-0.94481, 4.76376), (31.52926, -11.98076), (29.45161, -10.21524), (20.30211, -0.55856), (23.68704, 1.61465), (7.32246, -11.67186), (14.75901, -9.61696), (30.27507, -5.96052), (19.79795, -2.70221), (29.06517, -6.98409), (32.995, -0.0247), (13.8252, 1.23418), (21.02492, -11.37033), (-1.13192, 4.97203), (11.67697, 4.13044), (24.73072, -5.45495), (2.19651, -11.401), (9.99201, -4.05154), (18.40992, -9.95211), (14.90795, -9.00532), (27.6435, -11.4981), (17.81515, 5.70162), (6.01715, -8.02181), (14.45205, -7.06771), (15.56872, -3.12638), (28.01406, -3.01695), (22.09704, 3.91599), (27.66578, -0.58801), (18.38613, -1.3975), (7.01931, -10.42799), (32.85115, -2.02682), (23.70068, 5.37951), (19.07395, -1.3411), (12.05505, 3.37415), (22.6523, 5.62835), (0.63069, -4.22954), (10.39933, 4.41465), (22.72731, -0.83186), (24.53963, 4.19582), (18.32698, -6.83243), (27.16992, -10.08881), (15.38804, 1.18383), (26.33653, -1.88539), (32.5736, -11.92057), (29.04827, 1.84195), (0.78416, -11.86849), (31.558, -4.03289), (25.37428, 1.26006), (20.15528, -10.35777), (12.02892, 3.24316), (8.35143, -10.86606), (3.26629, -9.30222), (14.5593, 1.43721), (16.04254, -4.22405), (29.76582, 3.67706), (23.01875, -1.4474), (24.83323, 0.43834), (10.60938, 2.98656), (24.37805, -10.9916), (27.86399, -6.37642), (26.14081, -6.9341), (25.13751, -2.04713), (29.83098, 3.17589), (10.55484, -10.74259), (9.20145, 5.92936), (23.59822, 5.93175), (23.91575, -0.56916), (6.45538, -11.53663), (15.94131, 2.23885), (6.19026, -8.15983), (22.37429, 5.0809), (12.77809, -9.89981), (1.57893, -7.08256), (30.99246, -7.44862), (-0.42151, -10.4357), (21.46118, -2.86347), (14.25572, -8.75428), (23.75239, -1.06748), (31.80709, 5.18162), (9.9491, -3.37585), (32.68867, 4.3386), (-1.00903, 4.54419), (-1.43688, 4.26997), (5.91149, -7.12642), (32.69356, -1.55935), (11.89561, -9.18577), (32.68017, 5.19555), (30.11459, 1.44869), (28.00574, -1.56703), (9.01523, -11.05011), (32.39645, -4.41991), (11.82355, -11.55285), (16.69365, -3.62909), (15.96761, -10.15266), (17.97539, -5.39026), (28.90022, -5.75692), (11.62325, 1.17857), (32.47326, -5.80598), (31.4143, -1.38692), (31.80085, -6.31769), (21.7253, -6.10844), (28.69329, -9.94047), (10.71324, -11.42146), (30.81304, -9.5143), (12.76009, 3.17411), (18.50845, -3.85334), (15.76275, 3.05223), (30.81225, -5.34462), (32.35753, 3.46412), (12.52412, -7.68677), (26.15887, 4.05309), (25.89506, -1.80505), (13.22132, -10.78405), (31.09342, -4.47638), (32.14199, -0.96586), (32.7401, 0.72388), (17.93799, 5.88784), (31.44388, -3.9888), (21.19775, -2.2638), (15.54907, -11.74719), (24.26876, -10.47723), (4.69019, -10.00922), (26.37658, 0.32855), (16.93058, 3.53301), (29.63064, -6.92157), (-1.18246, -2.22852), (29.71172, -9.11853), (11.79188, -2.44462), (12.29694, -9.81058), (16.88744, 4.73977), (11.73505, -5.36634), (11.46451, -8.91454), (14.83032, -10.87252), (23.23236, -4.14894), (27.72677, -7.32694), (20.44381, 0.49057), (15.79743, -3.52492), (10.04768, -8.40158), (25.08737, -0.51034), (23.47743, -5.22653), (7.93907, 5.726), (19.78401, 3.15942), (19.89235, -11.43071), (30.83193, 2.75448), (24.27915, -4.10451), (6.25023, -5.71628), (30.58717, -6.85661), (8.19433, -9.82878), (3.08516, -7.16044), (-0.33115, -5.71706), (22.80342, -7.91812), (9.95547, -7.16821), (22.62278, 2.62063), (16.79512, 0.29887), (25.65451, -2.26267), (32.57057, -2.87358), (24.0112, -0.48142), (-0.69146, -4.01877), (21.35323, 4.40964), (6.25994, -6.84354), (28.86175, -9.55472), (30.72579, 3.40326), (27.80003, -7.00827), (22.33136, -1.03743), (15.66336, -1.58542), (23.06299, -0.53258), (18.05883, -2.19442), (14.89397, -8.76238), (-0.09862, -11.90129), (11.30605, -5.89707), (28.39806, 2.07689), (8.50075, -8.83845), (11.91205, -2.69599), (14.8907, -6.45716), (14.76164, -4.73734), (-1.13884, 2.62851), (22.26718, -10.17488), (0.91397, -6.78312), (-0.12465, -7.24331), (13.81674, -10.77822), (12.48958, -7.03233), (24.21674, -11.91706), (11.87181, -8.61123), (14.61603, -11.6788), (10.8878, 5.77234), (26.85516, -4.47709), (6.33627, -10.40915), (0.97029, -4.95846), (13.43826, 0.72835), (30.02363, 4.51236), (24.09854, 3.98436), (25.28727, -0.90246), (11.1743, -6.54144), (16.23691, -5.20598), (27.65391, -10.40423), (21.28562, -2.98805), (17.05702, 0.89986), (31.58513, -4.00553), (-0.40201, 4.79927), (18.90424, -8.45597), (17.85152, -7.56147), (22.26083, 3.66718), (13.36551, -11.24039), (25.23935, 0.90348), (29.98508, 1.3498), (8.5922, -5.11645), (0.29705, -10.57015), (10.41198, 2.28495), (26.54837, -7.93748), (11.78316, -5.62747), (30.80447, 5.42643), (19.08876, -11.60818), (30.48186, 2.39129), (26.67805, 0.81841), (0.3649, -4.82003), (22.05309, -9.70355), (24.76956, 4.5138), (13.14844, 0.31159), (31.64077, -4.25099), (23.20266, -9.20774), (12.35878, 4.28383), (15.97643, -2.37745), (17.19862, -1.75725), (15.85874, -9.54118), (29.05509, -4.37446), (-1.05748, -6.9585), (16.91504, -6.05532), (12.7783, 2.19673), (2.82931, -8.74911), (26.44789, -1.85732), (29.93296, 5.0005), (-0.0729, -5.87289), (18.47349, -1.99193), (7.2469, -9.08789), (24.45884, -11.77396), (22.97917, -7.53716), (4.35987, -9.16813), (11.18555, -5.18034), (11.44681, -7.21501), (29.60123, 1.09065), (23.43893, -9.4617), (5.95118, -10.45506), (10.32842, -6.23943), (28.78141, 2.95624), (22.0454, 1.83899), (21.53231, -2.80683), (13.47888, -11.15593), (11.7333, -7.8867), (10.71282, 1.01319), (22.90651, 1.93285), (31.0736, -5.93456), (9.36508, 4.59123), (12.69298, -6.34276), (11.55374, -4.9152), (17.55015, 0.79556), (8.24904, -6.28897), (21.83256, 3.82997), (0.1321, -10.00422), (12.43285, 0.48764), (12.86297, -9.25993), (31.42127, -10.76519), (17.78768, 3.71399), (20.0166, -3.58509), (23.1499, 0.88641), (13.04593, -4.7437), (16.49793, -3.49705), (20.67899, -11.45252), (15.34629, 2.5452), (13.85428, 5.78119), (23.202, 3.51117), (20.03875, 1.77908), (22.77226, -9.83464), (32.26656, -2.1713), (25.13353, -2.19005), (11.53646, 4.89287), (-0.87998, -7.50465), (32.85764, -6.90494), (18.37235, 3.82679), (0.45528, -11.73559), (26.50215, -9.07045), (22.99737, 2.43831), (15.54257, 4.89274), (10.33807, -4.12903), (30.69305, -1.08822), (16.65368, -3.46963), (14.48971, -4.13638), (25.67789, -1.01891), (14.10501, -2.09278), (29.35286, 3.05518), (11.536, 2.50665), (30.61064, 5.5292), (17.97037, -4.57816), (-0.3978, -3.7504), (16.28842, -5.18391), (4.06014, -7.65106), (27.46514, -11.89615), (32.83286, 4.67343), (18.77405, -8.59622), (31.3999, 2.27421), (20.15435, -3.92721), (8.20874, -9.713), (24.77296, 3.50969), (23.4546, -0.22875), (31.44607, -11.25335), (11.51775, -5.67803), (10.02331, -8.77214), (19.44316, -8.70815), (7.08161, -9.52179), (23.7971, -7.91061), (18.10273, -10.24791), (11.93693, 5.32743), (31.52506, -8.09319), (31.45848, -3.61227), (2.28978, -5.56129), (16.16566, -9.22103), (26.17037, 1.62895), (26.71255, 1.71619), (14.10683, -2.35854), (17.76661, -9.7036), (30.69429, 3.67887), (17.73995, -9.80825), (22.86278, 3.89376), (27.60521, -9.88983), (27.92177, 3.11592), (19.17219, 3.87934), (23.99044, -11.86794), (7.2357, -5.61675), (21.17043, -3.91159), (24.37186, -9.70185), (29.80352, -7.67021), (20.19637, 0.68639), (20.37948, 0.23566), (21.27821, -4.01979), (0.25869, -11.69583), (22.73796, -10.14268), (7.62247, -5.99706), (-0.35869, -9.76495), (9.62535, -4.68583), (13.75526, 2.66182), (21.19426, 4.57839), (28.39062, -4.97046), (20.42674, 2.55629), (15.031, 5.0951), (29.61442, -11.35313), (28.48349, -8.93576), (8.86817, -10.41775), (32.44191, -8.37728), (29.64529, 4.11539), (11.20396, 5.04357), (13.03885, -7.63825), (12.11914, 0.20938), (23.42672, -7.54115), (28.03864, 1.44688), (26.59701, -7.46553), (16.92735, -2.16644), (29.75234, -10.82281), (31.84423, -6.92097), (0.40198, -3.95303), (9.02237, -7.60081), (16.84486, -1.95792), (6.03576, -7.25252), (31.17988, -4.39265), (2.34051, -8.05215), (19.14337, -3.77515), (5.53574, -10.96248), (1.87458, -7.05366), (15.07671, 5.64869), (18.7489, -1.03156), (18.74819, -5.83919), (1.74583, -10.13557), (26.32848, 5.45626), (16.24662, 5.72454), (21.1909, -0.95063), (-1.15928, -11.34339), (13.77647, 2.04379), (16.19895, 0.54657), (19.41195, -0.23042), (15.1263, 1.19281), (24.49565, -5.361), (15.26127, -7.89074), (3.03897, -7.50364), (10.92563, 4.03645), (15.13578, -9.5352), (22.17572, -6.03474), (31.06683, -0.85769), (7.48541, -9.24451), (20.43024, -10.79407), (32.6194, -6.28063), (26.32142, -6.04585), (18.24735, 2.51698), (10.77585, -0.19948), (30.26705, -1.84138), (32.79653, -1.50604), (19.5579, -8.25687), (28.34413, 2.95217), (-0.6907, -9.16077), (25.27292, 5.80656), (31.59274, -1.68976), (28.88762, -4.8795), (15.40351, -2.6108), (20.94856, -3.55497), (17.27324, 2.05222), (28.49716, -7.88875), (17.95245, -0.75308), (23.03355, -8.11629), (16.73149, 5.69892), (21.66894, 4.4372), (18.05494, -11.7251), (0.70338, -4.55087), (26.02187, 1.45353), (-0.29727, 4.43278), (19.11778, 1.41961), (22.97804, -11.58623), (11.73411, -8.02342), (28.75692, -3.6541), (14.01453, 2.50117), (9.91048, 5.82634), (17.53326, 1.78013), (17.29239, -1.03624), (29.66049, -0.85214), (4.48749, -9.367), (18.72484, -0.16851), (1.67265, -6.59129), (22.95401, -3.61954), (26.28752, -10.17298), (28.71978, -4.39104), (27.26947, -3.82549), (25.77437, -8.70368), (-0.89405, -10.50881), (17.65626, 1.57396), (25.60416, -9.57266), (20.78298, 2.33522), (30.02243, 0.98137), (17.53076, -2.65386), (32.4484, -9.78309), (25.38386, -4.77479), (26.00265, -9.12267), (27.90041, 1.37936), (16.9303, -11.47674), (22.311
(the line above was cut: it had 35908 characters; the first 20000 are kept)
estrellas2: estrellas
ooo = Mod(oo, 6.0)
d_2 = Segment(AA, O)
e_2 = Segment(O, BB)
verCapitales = false
capitales5 = Sequence((90.0 - Element[capitalesLatitud, Element[capitalesVisibles2, k]])°, k, 1.0, capitalesNumVisibles)
capitales4 = Sequence(Mod[Element[capitales3, k] + 224.5, 360.0]°, k, 1.0, capitalesNumVisibles)
capitales = Sequence(O + r * (cos(Element[capitales4, s]) * sin(Element[capitales5, s]) * i + sin(Element[capitales4, s]) * sin(Element[capitales5, s]) * j + cos(Element[capitales5, s]) * k), s, 1.0, capitalesNumVisibles)
capitales': capitales
laserCapitales = Sequence(Ray[Element[capitales, k], 2.0 * Element[capitales, k] - O], k, 1.0, capitalesNumVisibles)
ciudades5 = Sequence((90.0 - Element[ciudadesLatitud, Element[ciudadesVisibles2, k]])°, k, 1.0, ciudadesNumVisibles)
ciudades4 = Sequence(Mod[Element[ciudades3, k] + 224.5, 360.0]°, k, 1.0, ciudadesNumVisibles)
ciudades = Sequence(O + r * (cos(Element[ciudades4, s]) * sin(Element[ciudades5, s]) * i + sin(Element[ciudades4, s]) * sin(Element[ciudades5, s]) * j + cos(Element[ciudades5, s]) * k), s, 1.0, ciudadesNumVisibles)
ciudades': ciudades
verOtras = true
laserCiudades = Sequence(Ray[Element[ciudades, k], 2.0 * Element[ciudades, k] - O], k, 1.0, ciudadesNumVisibles)
ejeN = Segment(PN, PN + 0.075 * (PN - O))
ejeS = Segment(PS, PS + 0.075 * (PS - O))
ejeSc = Intersect(c, ejeS)
ejeSv = Segment(ejeSc + 0.01 * (PS - O), ejeSc + 0.04 * (PS - O))
verEcuador = true
verGreenwich = true
verEje = true
verCancer = true
verCapricornio = true
verPolar = true
menus: {"Geography", "References", "1 point", "2 points", "3 points"}
elegirL: verElige ∧ menu ≟ 4.0 ∨ ¬verCorteza
texMenu: "" + (Element[menus, menu])
verParalelos = true
verC = false
x3 = -73.99 (slider from -179.99 to 179.99, step 0.1)
αCr: Mod[360.0 + x3 + o, 360.0] - 180.0
αC: Mod[αCr + 224.5, 360.0]°
G = (-4.18, 5.1000000000000005)
H = (-2, 4.36)
texto10: "" + (2.5 * oo) + "º"
polígono1, d, e, g, m = Polygon((-6.0, 8.0), (-1.6, 8.0), (-1.6, -15.0), (-6.0, -15.0))
texto3 = If(menu ≟ 3.0, "" + (round(10.0 * x1) / 10.0) + "º", If[menu ≟ 4.0, "" + (round(10.0 * x2) / 10.0) + "º", "" + (round(10.0 * x3) / 10.0) + "º"])
capitalesNombres: C2:C204
ciudadesNombres: C208:C274
verCiudades = true
Ecu0: O + r * (cos(αEcu0) * i + sin(αEcu0) * j - 0.05 * k)
Ecu135: O + r * (cos(αEcu135) * i + sin(αEcu135) * j - 0.05 * k)
Ecu135O: O + r * (cos(αEcu135O) * i + sin(αEcu135O) * j - 0.05 * k)
Ecu180: O + r * (cos(αEcu180) * i + sin(αEcu180) * j - 0.05 * k)
Ecu45: O + r * (cos(αEcu45) * i + sin(αEcu45) * j - 0.05 * k)
Ecu45O: O + r * (cos(αEcu45O) * i + sin(αEcu45O) * j - 0.05 * k)
Ecu90: O + r * (cos(αEcu90) * i + sin(αEcu90) * j - 0.05 * k)
Ecu90O: O + r * (cos(αEcu90O) * i + sin(αEcu90O) * j - 0.05 * k)
verLaserA = true
verLaserB = false
verLaserC = false
laserA = Ray(A, 2.0 * A - O)
laserB = Ray(B, 2.0 * B - O)
y3 = If(yy3a ≟ 0.0, 0.01, yy3a)
βC: (90.0 - y3)°
xC: cos(αC) * sin(βC)
yC: sin(αC) * sin(βC)
zC: cos(βC)
C: O + r * (xC * i + yC * j + zC * k)
CC: C
laserC = Ray(C, 2.0 * C - O)
I = Intersect(c, laserA)
K = Intersect(c, laserB)
N = Intersect(c, laserC)
laserA' = Ray(I, 2.0 * I - O)
laserB' = Ray(K, 2.0 * K - O)
laserC' = Ray(N, 2.0 * N - O)
Z_3: O + (5.68, -(5.58))
paraCancer = ArcoParalelo(O + (0.05, 0.0), Escala, θ, f, sq3, 23.44)
paraCapricornio = ArcoParalelo(O + (0.05, 0.0), Escala, θ, f, sq3, -23.44)
atmosfera = Circle((4.71, 0.4), r - 0.07)
ecuador = ArcoParalelo(O + (0.05, 0.0), Escala, θ, f, sq3, 0.0)
paralelo0 = Paralelo(O + (0.05, 0.0), Escala - 0.03, θ, 90.0*°)
capitalesNombresVisibles1 = Sequence(If[Element[capitalesLista, Element[capitalesVisibles2, k]] > 1.0, Element[capitalesVisibles2, k], 0.0], k, 1.0, capitalesNumVisibles)
ciudadesNombresVisibles1 = Sequence(If[Element[ciudadesLista, Element[ciudadesVisibles2, k]] > 1.0, Element[ciudadesVisibles2, k], 0.0], k, 1.0, ciudadesNumVisibles)
capitalesNombresVisibles = Sequence(Text[Element[capitalesNombres, Element[capitalesNombresVisibles1, k]], Element[capitales, k] + (0.03, 0.03)], k, 1.0, capitalesNumVisibles)
ciudadesNombresVisibles = Sequence(Text[Element[ciudadesNombres, Element[ciudadesNombresVisibles1, k]], Element[ciudades, k] + (0.03, 0.03)], k, 1.0, ciudadesNumVisibles)
angAB: (acos(cos((90.0 - y1)°) * cos((90.0 - y2)°) + sin((90.0 - y1)°) * sin((90.0 - y2)°) * cos((x1 - x2)°)) * 360.0)° / (2.0 * 3.141592653589793)
angAC: (acos(cos((90.0 - y1)°) * cos((90.0 - y3)°) + sin((90.0 - y1)°) * sin((90.0 - y3)°) * cos((x1 - x3)°)) * 360.0)° / (2.0 * 3.141592653589793)
angBC: (acos(cos((90.0 - y2)°) * cos((90.0 - y3)°) + sin((90.0 - y2)°) * sin((90.0 - y3)°) * cos((x2 - x3)°)) * 360.0)° / (2.0 * 3.141592653589793)
C'_1 = Mirror(C, O)
aAC: yA * zC - yC * zA
aBC: yB * zC - yC * zB
bAC: xC * zA - xA * zC
bBC: xC * zB - xB * zC
xAC1: -(bAC) * sqrt(1.0 / (aAC^(2.0) + bAC^(2.0)))
xBC1: -(bBC) * sqrt(1.0 / (aBC^(2.0) + bBC^(2.0)))
yAC1: aAC * sqrt(1.0 / (aAC^(2.0) + bAC^(2.0)))
yBC1: aBC * sqrt(1.0 / (aBC^(2.0) + bBC^(2.0)))
coincideAC0: xAC1 ≟ xA ∧ yAC1 ≟ yA ∧ 0.0 ≟ zA ∨ xAC1 ≟ xC ∧ yAC1 ≟ yC ∧ 0.0 ≟ zC
coincideBC0: xBC1 ≟ xB ∧ yBC1 ≟ yB ∧ 0.0 ≟ zB ∨ xBC1 ≟ xC ∧ yBC1 ≟ yC ∧ 0.0 ≟ zC
xAC2 = If(coincideAC0, -(xAC1), xAC1)
xBC2 = If(coincideBC0, -(xBC1), xBC1)
yAC2 = If(coincideAC0, -(yAC1), yAC1)
yBC2 = If(coincideBC0, -(yBC1), yBC1)
AC_2: O + r * (xAC2 * i + yAC2 * j)
BC_2: O + r * (xBC2 * i + yBC2 * j)
ortodromicaAC = Conic(C, A, C'_1, A'_1, AC_2)
ortodromicaBC = Conic(C, B, C'_1, B'_1, BC_2)
dC = Ray(O, C)
LAC = Midpoint(C, A)
LBC = Midpoint(C, B)
sAC = Ray(O, LAC)
sBC = Ray(O, LBC)
RC = Intersect(p, dC)
SAC = Intersect(p, sAC)
SBC = Intersect(p, sBC)
eAC = CircumcircleArc(RC, SAC, RA)
eBC = CircumcircleArc(RC, SBC, RB)
VAC = Point(eAC)
VBC = Point(eBC)
hAC = Ray(O, VAC)
hBC = Ray(O, VBC)
WAC = Intersect(ortodromicaAC, hAC)
WBC = Intersect(ortodromicaBC, hBC)
ortodromiaAC = Locus(WAC, VAC)
ortodromiaBC = Locus(WBC, VBC)
AaA: A
BbB: B
CcC: C
a = Segment(O, CC)
texAngAB: "\widehat {AOB}\;=\;" + (round(100.0 * angAB) / 100.0)
texAngAC: "\widehat {AOC}\;=\;" + (round(100.0 * angAC) / 100.0)
texAngBC: "\widehat {BOC}\;=\;" + (round(100.0 * angBC) / 100.0)
α = Angle(AA, O, BB)
β = Angle(AA, O, CC)
γ = Angle(CC, O, BB)
texto4 = If(menu ≟ 3.0, "" + yy1 + "º", If[menu ≟ 4.0, "" + yy2 + "º", "" + yy3 + "º"])

Tool: Paralelo
Input: O, Escala, θ, β_1
Output: paralelo

HH4: O + sqrt(3.0) * Escala * (sin(β_1) * sin(8.0 * 3.141592653589793 / 5.0), -sin(β_1) * cos(8.0 * 3.141592653589793 / 5.0) * sin(θ) + cos(β_1) * cos(θ))
HH3: O + sqrt(3.0) * Escala * (sin(β_1) * sin(6.0 * 3.141592653589793 / 5.0), -sin(β_1) * cos(6.0 * 3.141592653589793 / 5.0) * sin(θ) + cos(β_1) * cos(θ))
HH2: O + sqrt(3.0) * Escala * (sin(β_1) * sin(4.0 * 3.141592653589793 / 5.0), -sin(β_1) * cos(4.0 * 3.141592653589793 / 5.0) * sin(θ) + cos(β_1) * cos(θ))
HH1: O + sqrt(3.0) * Escala * (sin(β_1) * sin(2.0 * 3.141592653589793 / 5.0), -sin(β_1) * cos(2.0 * 3.141592653589793 / 5.0) * sin(θ) + cos(β_1) * cos(θ))
HH: O + sqrt(3.0) * Escala * (sin(β_1) * sin(0.0 * 3.141592653589793 / 5.0), -sin(β_1) * cos(0.0 * 3.141592653589793 / 5.0) * sin(θ) + cos(β_1) * cos(θ))
paralelo = Conic(HH, HH1, HH2, HH3, HH4)

Tool: ArcoParalelo
Input: O, Escala, θ, f, sq3, angParalelo
Output: paraleloN0

f(x) = 90.0 - x
p = Circle(O, 6.0)
PSp = Point(p)
paralelos1 = Paralelo(O, Escala, θ, (f(angParalelo))°)
paralelos2 = Center(paralelos1)
r: sq3 * Escala
c = Circle(O, r)
paralelos3b = Intersect(paralelos1, c, 2.0)
paralelos4b = Ray(paralelos2, paralelos3b)
paralelos5b = Intersect(p, paralelos4b)
paralelos3a = Intersect(paralelos1, c, 1.0)
paralelos4a = Ray(paralelos2, paralelos3a)
paralelos5a = Intersect(p, paralelos4a)
paralelos6 = CircumcircleArc(paralelos5a, PSp, paralelos5b)
paraleloN0P = Point(paralelos6)
paralelos8 = Ray(paralelos2, paraleloN0P)
paraleloN0Q = Intersect(paralelos1, paralelos8)
paraleloN0 = Locus(paraleloN0Q, paraleloN0P)