Norte

Eje

Ecuador

Meridiano de Greenwich

Meridianos

Paralelos

Trópico de Cáncer

Trópico de Capricornio

Círculo polar ártico

O

E

Punto A

N

S

E

O

Posición de A

N

S

Velocidad de rotación

Ahora

Meridiano en A

Horizonte celeste

Círculo polar antártico

Superficie terrestre

Equinoccio de marzo

Solsticio de junio

Equinoccio de septiembre

Solsticio de diciembre

Vista desde el cénit de A

Trayectoria aparente del Sol

Analema

Punto Aries

Punto Aries

UT = 2 (slider from -11 to 13, step 0.5)
hora = 9.17 (slider from 0 to 24, step 0.01)
dia = 129 (slider from 1 to 366, step 1)
dias = If(dia > 287, dia - 287, dia + 78)
ecTiempo1: ((2 * π / 365) * (dias - 1 + (hora - UT - 12) / 24))
ecTiempo: ((229.18 * (7.5E-4 + (0.00187 * cos(ecTiempo1)) - (0.03208 * sin(ecTiempo1)) - (0.01462 * cos((2 * ecTiempo1))) - (0.04085 * sin((2 * ecTiempo1)))) / 4) * π / 180)
año = 2017 (slider from 2000 to 2099, step 1)
DJ: 2451544.5 + (365 * (año - 2000)) + floor((año - 2000) / 4) + dia + 78 + (hora - UT) / 24 - If[dia > 287, 365, 0]
n: DJ - 2451545
g: 357.528° + (0.9856003° * n)
L: 280.46° + (0.9856474° * n)
λ: L + (1.915° * sin(g)) + (0.02° * sin((2 * g)))
tJD: (DJ - 2451545) / 3652500
oblicuidad: ((84381.448 - (4680.93 * tJD) - (1.55 * tJD^(2)) + (1999.25 * tJD^(3)) - (51.38 * tJD^(4))) * ° / 3600)
AR: atan2((cos(oblicuidad) * sin(λ)),cos(λ))
declinacion: asin((sin(oblicuidad) * sin(λ)))
tiempo: {588, 19, 43, 12, 15, 8, 2017, "Agosto", "Martes", 3}
diaMes = If(dia < 13, dia + 19, If[dia < 43, dia - 12, If[dia < 74, dia - 42, If[dia < 104, dia - 73, If[dia < 135, dia - 103, If[dia < 166, dia - 134, If[dia < 196, dia - 165, If[dia < 227, dia - 195, If[dia < 257, dia - 226, If[dia < 288, dia - 256, If[dia < 319, dia - 287, If[dia < 347, dia - 318, dia - 346]]]]]]]]]]])
mes = If((dia < 13) ∨ (dia > 346), 3, If[dia < 43, 4, If[dia < 74, 5, If[dia < 104, 6, If[dia < 135, 7, If[dia < 166, 8, If[dia < 196, 9, If[dia < 227, 10, If[dia < 257, 11, If[dia < 288, 12, If[dia < 319, 1, 2]]]]]]]]]])
mes1 = If(mes < 3, mes + 12, mes)
Ec = Rotate((0, 5, 0), oblicuidad, (0, 0, 0), xAxis)
l = OrthogonalLine((0, 0, 0), Plane[(0, 0, 0), (5, 0, 0), Ec])
Sol: (7; AR + ecTiempo; declinacion)
ecliptica = Circle(l, (7, 0, 0))
tt4: floor(hora)
tt3: floor(((hora - tt4) * 60))
horaH: floor(hora)
PN: (5; 180°; 90°)
PS: (5; 180°; -90°)
eje = Segment(PS + (0.075 * PS), PN + (0.075 * PN))
ecuador = Circle((0, 0, 0), 5, eje)
f: ((hora - UT) * π / 12) - π + AR
lonA = -0.10471975511965978 rad (slider from -180° to 180°, step 0.1°)
latA = 0.7592182246175333 rad (slider from -90° to 90°, step 0.1°)
SolDirecto: Sol - (2 * UnitVector[Vector[Sol]])
A: (5; lonA + f; latA)
laserA = Ray((0, 0, 0), A)
horaActual: Element[tiempo, 4] + Element[tiempo, 3] / 60 + Element[tiempo, 2] / 3600
Costa: {PolyLine[(5; 3.142 + f; 1.204), (5; 3.117 + f; 1.211), (5; 3.067 + f; 1.22), (5; 3.031 + f; 1.219), (5; 2.975 + f; 1.223), (5; 2.967 + f; 1.216), (5; 2.981 + f; 1.204), (5; 2.96 + f; 1.199), (5; 2.93 + f; 1.214), (5; 2.896 + f; 1.212), (5; 2.863 + f; 1.216), (5; 2.832 + f; 1.215), (5; 2.809 + f; 1.212), (5; 2.787 + f; 1.217), (5; 2.79 + f; 1.23), (5; 2.775 + f; 1.237), (5; 2.74 + f; 1.24), (5; 2.67 + f; 1.236), (5; 2.624 + f; 1.25), (5; 2.609 + f; 1.26), (5; 2.452 + f; 1.271), (5; 2.429 + f; 1.264), (5; 2.441 + f; 1.248), (5; 2.413 + f; 1.25), (5; 2.4 + f; 1.245), (5; 2.366 + f; 1.251), (5; 2.336 + f; 1.246), (5; 2.308 + f; 1.254), (5; 2.291 + f; 1.236), (5; 2.264 + f; 1.242), (5; 2.242 + f; 1.256), (5; 2.252 + f; 1.264), (5; 2.244 + f; 1.275), (5; 2.216 + f; 1.284), (5; 2.188 + f; 1.284), (5; 2.151 + f; 1.287), (5; 2.15 + f; 1.274), (5; 2.077 + f; 1.276), (5; 2.073 + f; 1.284), (5; 2.017 + f; 1.287), (5; 1.989 + f; 1.284), (5; 1.981 + f; 1.28), (5; 1.973 + f; 1.291), (5; 1.957 + f; 1.288), (5; 1.931 + f; 1.292), (5; 1.909 + f; 1.295), (5; 1.922 + f; 1.3), (5; 1.968 + f; 1.31), (5; 1.988 + f; 1.315), (5; 1.992 + f; 1.324), (5; 1.978 + f; 1.33), (5; 1.939 + f; 1.339), (5; 1.888 + f; 1.339), (5; 1.872 + f; 1.335), (5; 1.867 + f; 1.343), (5; 1.828 + f; 1.346), (5; 1.851 + f; 1.35), (5; 1.821 + f; 1.356), (5; 1.78 + f; 1.349), (5; 1.763 + f; 1.341), (5; 1.759 + f; 1.334), (5; 1.726 + f; 1.334), (5; 1.687 + f; 1.325), (5; 1.673 + f; 1.329), (5; 1.627 + f; 1.327), (5; 1.621 + f; 1.322), (5; 1.575 + f; 1.32), (5; 1.541 + f; 1.311), (5; 1.521 + f; 1.311), (5; 1.501 + f; 1.3), (5; 1.515 + f; 1.29), (5; 1.478 + f; 1.288), (5; 1.436 + f; 1.289), (5; 1.405 + f; 1.285), (5; 1.407 + f; 1.267), (5; 1.422 + f; 1.252), (5; 1.39 + f; 1.262), (5; 1.354 + f; 1.261), (5; 1.325 + f; 1.254), (5; 1.333 + f; 1.242), (5; 1.314 + f; 1.245), (5; 1.321 + f; 1.262), (5; 1.312 + f; 1.271), (5; 1.303 + f; 1.271), (5; 1.307 + f; 1.259), (5; 1.276 + f; 1.247), (5; 1.299 + f; 1.233), (5; 1.285 + f; 1.215), (5; 1.289 + f; 1.205), (5; 1.308 + f; 1.204), (5; 1.3 + f; 1.193), (5; 1.31 + f; 1.183), (5; 1.295 + f; 1.174), (5; 1.29 + f; 1.166), (5; 1.271 + f; 1.161), (5; 1.264 + f; 1.155), (5; 1.244 + f; 1.158), (5; 1.278 + f; 1.182), (5; 1.286 + f; 1.194), (5; 1.266 + f; 1.205), (5; 1.27 + f; 1.229), (5; 1.265 + f; 1.241), (5; 1.254 + f; 1.246), (5; 1.271 + f; 1.26), (5; 1.267 + f; 1.27), (5; 1.221 + f; 1.275), (5; 1.208 + f; 1.271), (5; 1.196 + f; 1.255), (5; 1.164 + f; 1.24), (5; 1.164 + f; 1.234), (5; 1.174 + f; 1.221), (5; 1.168 + f; 1.212), (5; 1.189 + f; 1.211), (5; 1.19 + f; 1.207), (5; 1.207 + f; 1.198), (5; 1.196 + f; 1.188), (5; 1.133 + f; 1.208), (5; 1.108 + f; 1.214), (5; 1.057 + f; 1.219), (5; 1.048 + f; 1.213), (5; 1.066 + f; 1.203), (5; 1.046 + f; 1.192), (5; 1.026 + f; 1.202), (5; 1 + f; 1.195), (5; 0.968 + f; 1.195), (5; 0.956 + f; 1.188), (5; 0.934 + f; 1.19), (5; 0.951 + f; 1.201), (5; 0.938 + f; 1.202), (5; 0.84 + f; 1.178), (5; 0.836 + f; 1.167), (5; 0.809 + f; 1.164), (5; 0.795 + f; 1.17), (5; 0.795 + f; 1.179), (5; 0.817 + f; 1.181), (5; 0.807 + f; 1.191), (5; 0.758 + f; 1.197), (5; 0.771 + f; 1.186), (5; 0.763 + f; 1.175), (5; 0.777 + f; 1.165), (5; 0.767 + f; 1.153), (5; 0.751 + f; 1.159), (5; 0.735 + f; 1.16), (5; 0.694 + f; 1.143), (5; 0.706 + f; 1.13), (5; 0.691 + f; 1.126), (5; 0.649 + f; 1.137), (5; 0.638 + f; 1.13), (5; 0.648 + f; 1.123), (5; 0.646 + f; 1.114), (5; 0.632 + f; 1.119), (5; 0.61 + f; 1.124), (5; 0.609 + f; 1.142), (5; 0.608 + f; 1.15), (5; 0.579 + f; 1.163), (5; 0.592 + f; 1.165), (5; 0.67 + f; 1.152), (5; 0.698 + f; 1.157), (5; 0.718 + f; 1.166), (5; 0.717 + f; 1.177), (5; 0.703 + f; 1.186), (5; 0.637 + f; 1.205), (5; 0.59 + f; 1.21), (5; 0.561 + f; 1.22), (5; 0.543 + f; 1.214), (5; 0.524 + f; 1.225), (5; 0.546 + f; 1.23), (5; 0.492 + f; 1.242), (5; 0.46 + f; 1.239), (5; 0.428 + f; 1.24), (5; 0.402 + f; 1.225), (5; 0.373 + f; 1.226), (5; 0.335 + f; 1.219), (5; 0.287 + f; 1.197), (5; 0.258 + f; 1.184), (5; 0.216 + f; 1.15), (5; 0.184 + f; 1.126), (5; 0.149 + f; 1.107), (5; 0.103 + f; 1.093), (5; 0.087 + f; 1.082), (5; 0.093 + f; 1.041), (5; 0.099 + f; 1.023), (5; 0.123 + f; 1.014), (5; 0.146 + f; 1.018), (5; 0.181 + f; 1.038), (5; 0.193 + f; 1.027), (5; 0.206 + f; 1.003), (5; 0.22 + f; 0.983), (5; 0.226 + f; 0.966), (5; 0.246 + f; 0.967), (5; 0.256 + f; 0.981), (5; 0.277 + f; 0.979), (5; 0.287 + f; 0.996), (5; 0.294 + f; 1.025), (5; 0.312 + f; 1.029), (5; 0.328 + f; 1.049), (5; 0.311 + f; 1.058), (5; 0.299 + f; 1.071), (5; 0.312 + f; 1.095), (5; 0.345 + f; 1.11), (5; 0.373 + f; 1.124), (5; 0.37 + f; 1.135), (5; 0.387 + f; 1.147), (5; 0.417 + f; 1.152), (5; 0.441 + f; 1.144), (5; 0.443 + f; 1.136), (5; 0.432 + f; 1.133), (5; 0.392 + f; 1.114), (5; 0.376 + f; 1.103), (5; 0.368 + f; 1.093), (5; 0.376 + f; 1.077), (5; 0.372 + f; 1.06), (5; 0.389 + f; 1.054), (5; 0.399 + f; 1.045), (5; 0.428 + f; 1.048), (5; 0.458 + f; 1.055), (5; 0.49 + f; 1.056), (5; 0.508 + f; 1.048), (5; 0.488 + f; 1.038), (5; 0.47 + f; 1.038), (5; 0.451 + f; 1.04), (5; 0.429 + f; 1.038), (5; 0.407 + f; 1.033), (5; 0.409 + f; 1.023), (5; 0.42 + f; 1.017), (5; 0.426 + f; 1.019), (5; 0.424 + f; 1.009), (5; 0.421 + f; 0.995), (5; 0.407 + f; 0.995), (5; 0.393 + f; 1.008), (5; 0.377 + f; 1.002), (5; 0.368 + f; 0.991), (5; 0.368 + f; 0.978), (5; 0.371 + f; 0.963), (5; 0.347 + f; 0.958), (5; 0.343 + f; 0.95), (5; 0.326 + f; 0.95), (5; 0.325 + f; 0.954), (5; 0.308 + f; 0.957), (5; 0.286 + f; 0.951), (5; 0.258 + f; 0.943), (5; 0.246 + f; 0.938), (5; 0.238 + f; 0.944), (5; 0.219 + f; 0.951), (5; 0.209 + f; 0.946), (5; 0.191 + f; 0.943), (5; 0.191 + f; 0.949), (5; 0.173 + f; 0.953), (5; 0.173 + f; 0.96), (5; 0.168 + f; 0.968), (5; 0.181 + f; 0.981), (5; 0.186 + f; 0.979), (5; 0.19 + f; 0.985), (5; 0.181 + f; 0.988), (5; 0.179 + f; 0.993), (5; 0.184 + f; 0.999), (5; 0.185 + f; 1.008), (5; 0.171 + f; 1.003), (5; 0.164 + f; 0.998), (5; 0.149 + f; 0.997), (5; 0.144 + f; 0.992), (5; 0.141 + f; 0.987), (5; 0.142 + f; 0.969), (5; 0.149 + f; 0.959), (5; 0.15 + f; 0.949), (5; 0.154 + f; 0.943), (5; 0.142 + f; 0.934), (5; 0.139 + f; 0.938), (5; 0.124 + f; 0.937), (5; 0.121 + f; 0.933), (5; 0.106 + f; 0.934), (5; 0.082 + f; 0.927), (5; 0.067 + f; 0.901), (5; 0.058 + f; 0.896), (5; 0.044 + f; 0.893), (5; 0.029 + f; 0.889), (5; 0.023 + f; 0.875), (5; -0.017 + f; 0.861), (5; -0.034 + f; 0.869), (5; -0.028 + f; 0.849), (5; -0.058 + f; 0.853), (5; -0.08 + f; 0.85), (5; -0.078 + f; 0.837), (5; -0.052 + f; 0.83), (5; -0.039 + f; 0.821), (5; -0.021 + f; 0.803), (5; -0.024 + f; 0.768), (5; -0.033 + f; 0.758), (5; -0.061 + f; 0.759), (5; -0.076 + f; 0.757), (5; -0.094 + f; 0.76), (5; -0.118 + f; 0.76), (5; -0.139 + f; 0.764), (5; -0.164 + f; 0.751), (5; -0.157 + f; 0.743), (5; -0.158 + f; 0.731), (5; -0.157 + f; 0.725), (5; -0.153 + f; 0.719), (5; -0.153 + f; 0.711), (5; -0.157 + f; 0.701), (5; -0.158 + f; 0.694), (5; -0.165 + f; 0.687), (5; -0.166 + f; 0.676), (5; -0.162 + f; 0.67), (5; -0.154 + f; 0.668), (5; -0.153 + f; 0.657), (5; -0.155 + f; 0.644), (5; -0.146 + f; 0.645), (5; -0.137 + f; 0.643), (5; -0.13 + f; 0.648), (5; -0.114 + f; 0.645), (5; -0.109 + f; 0.635), (5; -0.102 + f; 0.629), (5; -0.094 + f; 0.627), (5; -0.087 + f; 0.634), (5; -0.076 + f; 0.64), (5; -0.06 + f; 0.64), (5; -0.038 + f; 0.64), (5; -0.025 + f; 0.653), (5; -0.012 + f; 0.657), (5; -0.008 + f; 0.668), (5; 0.002 + f; 0.676), (5; -0.005 + f; 0.686), (5; 0.002 + f; 0.7), (5; 0.013 + f; 0.71), (5; 0.014 + f; 0.716), (5; 0.036 + f; 0.72), (5; 0.053 + f; 0.731), (5; 0.052 + f; 0.741), (5; 0.054 + f; 0.752), (5; 0.08 + f; 0.757), (5; 0.114 + f; 0.753), (5; 0.13 + f; 0.763), (5; 0.137 + f; 0.764), (5; 0.147 + f; 0.772), (5; 0.155 + f; 0.774), (5; 0.169 + f; 0.769), (5; 0.178 + f; 0.767), (5; 0.183 + f; 0.749), (5; 0.195 + f; 0.739), (5; 0.211 + f; 0.728), (5; 0.225 + f; 0.72), (5; 0.238 + f; 0.719), (5; 0.245 + f; 0.712), (5; 0.257 + f; 0.709), (5; 0.262 + f; 0.701), (5; 0.269 + f; 0.699), (5; 0.274 + f; 0.69), (5; 0.281 + f; 0.68), (5; 0.277 + f; 0.676), (5; 0.274 + f; 0.667), (5; 0.274 + f; 0.662), (5; 0.281 + f; 0.663), (5; 0.29 + f; 0.678), (5; 0.298 + f; 0.679), (5; 0.3 + f; 0.688), (5; 0.287 + f; 0.695), (5; 0.294 + f; 0.706), (5; 0.31 + f; 0.703), (5; 0.319 + f; 0.695), (5; 0.323 + f; 0.701), (5; 0.321 + f; 0.704), (5; 0.306 + f; 0.713), (5; 0.293 + f; 0.719), (5; 0.277 + f; 0.725), (5; 0.282 + f; 0.729), (5; 0.278 + f; 0.732), (5; 0.264 + f; 0.732), (5; 0.245 + f; 0.746), (5; 0.236 + f; 0.761), (5; 0.22 + f; 0.77), (5; 0.214 + f; 0.778), (5; 0.216 + f; 0.783), (5; 0.215 + f; 0.792), (5; 0.229 + f; 0.798), (5; 0.243 + f; 0.796), (5; 0.239 + f; 0.794), (5; 0.238 + f; 0.788), (5; 0.243 + f; 0.782), (5; 0.249 + f; 0.789), (5; 0.26 + f; 0.787), (5; 0.26 + f; 0.781), (5; 0.268 + f; 0.774), (5; 0.265 + f; 0.772), (5; 0.28 + f; 0.759), (5; 0.295 + f; 0.754), (5; 0.306 + f; 0.748), (5; 0.322 + f; 0.741), (5; 0.33 + f; 0.738), (5; 0.334 + f; 0.732), (5; 0.338 + f; 0.731), (5; 0.341 + f; 0.728), (5; 0.339 + f; 0.723), (5; 0.337 + f; 0.711), (5; 0.339 + f; 0.702), (5; 0.348 + f; 0.697), (5; 0.349 + f; 0.693), (5; 0.352 + f; 0.691), (5; 0.353 + f; 0.687), (5; 0.362 + f; 0.677), (5; 0.369 + f; 0.669), (5; 0.372 + f; 0.657), (5; 0.378 + f; 0.643), (5; 0.393 + f; 0.635), (5; 0.404 + f; 0.636), (5; 0.397 + f; 0.651), (5; 0.409 + f; 0.653), (5; 0.404 + f; 0.662), (5; 0.42 + f; 0.657), (5; 0.419 + f; 0.667), (5; 0.411 + f; 0.672), (5; 0.401 + f; 0.68), (5; 0.408 + f; 0.684), (5; 0.399 + f; 0.692), (5; 0.395 + f; 0.703), (5; 0.398 + f; 0.707), (5; 0.407 + f; 0.697), (5; 0.417 + f; 0.697), (5; 0.426 + f; 0.7), (5; 0.414 + f; 0.71), (5; 0.435 + f; 0.715), (5; 0.444 + f; 0.713), (5; 0.455 + f; 0.712), (5; 0.454 + f; 0.709), (5; 0.46 + f; 0.701), (5; 0.475 + f; 0.71), (5; 0.482 + f; 0.716), (5; 0.503 + f; 0.716), (5; 0.506 + f; 0.721), (5; 0.491 + f; 0.726), (5; 0.489 + f; 0.733), (5; 0.483 + f; 0.743), (5; 0.489 + f; 0.756), (5; 0.498 + f; 0.763), (5; 0.503 + f; 0.784), (5; 0.509 + f; 0.782), (5; 0.517 + f; 0.786), (5; 0.517 + f; 0.79), (5; 0.53 + f; 0.803), (5; 0.537 + f; 0.813), (5; 0.553 + f; 0.815), (5; 0.554 + f; 0.809), (5; 0.581 + f; 0.804), (5; 0.586 + f; 0.8), (5; 0.57 + f; 0.794), (5; 0.566 + f; 0.791), (5; 0.586 + f; 0.786), (5; 0.582 + f; 0.778), (5; 0.591 + f; 0.774), (5; 0.615 + f; 0.784), (5; 0.634 + f; 0.787), (5; 0.638 + f; 0.794), (5; 0.62 + f; 0.793), (5; 0.611 + f; 0.797), (5; 0.61 + f; 0.808), (5; 0.625 + f; 0.814), (5; 0.642 + f; 0.815), (5; 0.653 + f; 0.821), (5; 0.667 + f; 0.822), (5; 0.683 + f; 0.825), (5; 0.683 + f; 0.821), (5; 0.657 + f; 0.814), (5; 0.667 + f; 0.807), (5; 0.653 + f; 0.792), (5; 0.64 + f; 0.79), (5; 0.655 + f; 0.779), (5; 0.675 + f; 0.773), (5; 0.697 + f; 0.758), (5; 0.704 + f; 0.753), (5; 0.713 + f; 0.751), (5; 0.723 + f; 0.744), (5; 0.728 + f; 0.732), (5; 0.725 + f; 0.725), (5; 0.705 + f; 0.716), (5; 0.69 + f; 0.717), (5; 0.669 + f; 0.715), (5; 0.644 + f; 0.722), (5; 0.614 + f; 0.734), (5; 0.585 + f; 0.733), (5; 0.565 + f; 0.729), (5; 0.544 + f; 0.717), (5; 0.51 + f; 0.719), (5; 0.503 + f; 0.706), (5; 0.476 + f; 0.705), (5; 0.457 + f; 0.689), (5; 0.468 + f; 0.681), (5; 0.459 + f; 0.667), (5; 0.472 + f; 0.657), (5; 0.482 + f; 0.64), (5; 0.501 + f; 0.64), (5; 0.518 + f; 0.631), (5; 0.53 + f; 0.633), (5; 0.534 + f; 0.64), (5; 0.553 + f; 0.639), (5; 0.567 + f; 0.63), (5; 0.594 + f; 0.632), (5; 0.606 + f; 0.642), (5; 0.62 + f; 0.638), (5; 0.631 + f; 0.64), (5; 0.624 + f; 0.633), (5; 0.631 + f; 0.625), (5; 0.627 + f; 0.618), (5; 0.628 + f; 0.605), (5; 0.628 + f; 0.604), (5; 0.619 + f; 0.592), (5; 0.613 + f; 0.578), (5; 0.613 + f; 0.577), (5; 0.61 + f; 0.573), (5; 0.607 + f; 0.56), (5; 0.602 + f; 0.552), (5; 0.603 + f; 0.551), (5; 0.598 + f; 0.545), (5; 0.589 + f; 0.541), (5; 0.576 + f; 0.541), (5; 0.562 + f; 0.546), (5; 0.558 + f; 0.54), (5; 0.553 + f; 0.549), (5; 0.541 + f; 0.551), (5; 0.525 + f; 0.549), (5; 0.518 + f; 0.544), (5; 0.505 + f; 0.539), (5; 0.497 + f; 0.542), (5; 0.479 + f; 0.547), (5; 0.463 + f; 0.551), (5; 0.439 + f; 0.551), (5; 0.435 + f; 0.557), (5; 0.418 + f; 0.559), (5; 0.412 + f; 0.562), (5; 0.406 + f; 0.562), (5; 0.4 + f; 0.57), (5; 0.376 + f; 0.573), (5; 0.364 + f; 0.571), (5; 0.351 + f; 0.563), (5; 0.346 + f; 0.554), (5; 0.35 + f; 0.541), (5; 0.342 + f; 0.533), (5; 0.333 + f; 0.528), (5; 0.315 + f; 0.537), (5; 0.29 + f; 0.544), (5; 0.274 + f; 0.548), (5; 0.266 + f; 0.563), (5; 0.243 + f; 0.571), (5; 0.228 + f; 0.574), (5; 0.221 + f; 0.572), (5; 0.201 + f; 0.578), (5; 0.194 + f; 0.581), (5; 0.19 + f; 0.589), (5; 0.18 + f; 0.59), (5; 0.177 + f; 0.599), (5; 0.189 + f; 0.608), (5; 0.191 + f; 0.623), (5; 0.185 + f; 0.627), (5; 0.185 + f; 0.635), (5; 0.194 + f; 0.644), (5; 0.193 + f; 0.647), (5; 0.178 + f; 0.641), (5; 0.178 + f; 0.65), (5; 0.166 + f; 0.652), (5; 0.147 + f; 0.645), (5; 0.135 + f; 0.644), (5; 0.128 + f; 0.648), (5; 0.109 + f; 0.648), (5; 0.093 + f; 0.641), (5; 0.084 + f; 0.644), (5; 0.055 + f; 0.642), (5; 0.026 + f; 0.639), (5; 0.009 + f; 0.634), (5; -0.002 + f; 0.626), (5; -0.021 + f; 0.623), (5; -0.038 + f; 0.614), (5; -0.045 + f; 0.614), (5; -0.064 + f; 0.618), (5; -0.08 + f; 0.617), (5; -0.091 + f; 0.624), (5; -0.103 + f; 0.624), (5; -0.109 + f; 0.613), (5; -0.121 + f; 0.595), (5; -0.134 + f; 0.588), (5; -0.151 + f; 0.58), (5; -0.162 + f; 0.568), (5; -0.165 + f; 0.559), (5; -0.171 + f; 0.544), (5; -0.167 + f; 0.522), (5; -0.182 + f; 0.508), (5; -0.19 + f; 0.503), (5; -0.204 + f; 0.491), (5; -0.22 + f; 0.489), (5; -0.229 + f; 0.482), (5; -0.24 + f; 0.465), (5; -0.252 + f; 0.458), (5; -0.258 + f; 0.448), (5; -0.259 + f; 0.438), (5; -0.263 + f; 0.428), (5; -0.269 + f; 0.425), (5; -0.279 + f; 0.414), (5; -0.285 + f; 0.402), (5; -0.284 + f; 0.396), (5; -0.29 + f; 0.387), (5; -0.296 + f; 0.382), (5; -0.297 + f; 0.374), (5; -0.298 + f; 0.367), (5; -0.289 + f; 0.359), (5; -0.284 + f; 0.351), (5; -0.286 + f; 0.342), (5; -0.284 + f; 0.333), (5; -0.282 + f; 0.316), (5; -0.284 + f; 0.3), (5; -0.289 + f; 0.291), (5; -0.287 + f; 0.282), (5; -0.291 + f; 0.273), (5; -0.3 + f; 0.26), (5; -0.308 + f; 0.257), (5; -0.299 + f; 0.251), (5; -0.292 + f; 0.237), (5; -0.294 + f; 0.23), (5; -0.291 + f; 0.216), (5; -0.29 + f; 0.212), (5; -0.285 + f; 0.209), (5; -0.285 + f; 0.206), (5; -0.281 + f; 0.201), (5; -0.273 + f; 0.2), (5; -0.264 + f; 0.193), (5; -0.259 + f; 0.19), (5; -0.256 + f; 0.186), (5; -0.254 + f; 0.178), (5; -0.25 + f; 0.175), (5; -0.246 + f; 0.173), (5; -0.239 + f; 0.166), (5; -0.231 + f; 0.155), (5; -0.229 + f; 0.142), (5; -0.226 + f; 0.136), (5; -0.217 + f; 0.127), (5; -0.204 + f; 0.12), (5; -0.2 + f; 0.119), (5; -0.188 + f; 0.107), (5; -0.173 + f; 0.098), (5; -0.157 + f; 0.084), (5; -0.139 + f; 0.076), (5; -0.135 + f; 0.076), (5; -0.131 + f; 0.076), (5; -0.114 + f; 0.082), (5; -0.102 + f; 0.087), (5; -0.081 + f; 0.09), (5; -0.07 + f; 0.09), (5; -0.058 + f; 0.087), (5; -0.05 + f; 0.087), (5; -0.034 + f; 0.082), (5; -0.019 + f; 0.087), (5; -0.009 + f; 0.093), (5; 0.019 + f; 0.103), (5; 0.033 + f; 0.107), (5; 0.047 + f; 0.109), (5; 0.062 + f; 0.109), (5; 0.076 + f; 0.109), (5; 0.088 + f; 0.098), (5; 0.094 + f; 0.085), (5; 0.103 + f; 0.074), (5; 0.117 + f; 0.074), (5; 0.124 + f; 0.078), (5; 0.13 + f; 0.077), (5; 0.148 + f; 0.083), (5; 0.148 + f; 0.079), (5; 0.153 + f; 0.076), (5; 0.156 + f; 0.068), (5; 0.164 + f; 0.065), (5; 0.171 + f; 0.054), (5; 0.168 + f; 0.04), (5; 0.162 + f; 0.02), (5; 0.166 + f; 0.018), (5; 0.162 + f; 0.005), (5; 0.158 + f; -0.008), (5; 0.154 + f; -0.014), (5; 0.154 + f; -0.019), (5; 0.164 + f; -0.037), (5; 0.176 + f; -0.052), (5; 0.194 + f; -0.069), (5; 0.208 + f; -0.088), (5; 0.213 + f; -0.101), (5; 0.215 + f; -0.106), (5; 0.213 + f; -0.11), (5; 0.222 + f; -0.121), (5; 0.226 + f; -0.133), (5; 0.231 + f; -0.149), (5; 0.226 + f; -0.156), (5; 0.225 + f; -0.16), (5; 0.229 + f; -0.171), (5; 0.234 + f; -0.181), (5; 0.239 + f; -0.187), (5; 0.24 + f; -0.197), (5; 0.238 + f; -0.21), (5; 0.232 + f; -0.218), (5; 0.222 + f; -0.229), (5; 0.218 + f; -0.236), (5; 0.213 + f; -0.252), (5; 0.212 + f; -0.26), (5; 0.206 + f; -0.276), (5; 0.203 + f; -0.291), (5; 0.205 + f; -0.302), (5; 0.206 + f; -0.315), (5; 0.22 + f; -0.332), (5; 0.224 + f; -0.343), (5; 0.233 + f; -0.364), (5; 0.242 + f; -0.379), (5; 0.249 + f; -0.386), (5; 0.251 + f; -0.395), (5; 0.252 + f; -0.416), (5; 0.257 + f; -0.443), (5; 0.262 + f; -0.456), (5; 0.265 + f; -0.473), (5; 0.272 + f; -0.486), (5; 0.285 + f; -0.499), (5; 0.298 + f; -0.522), (5; 0.307 + f; -0.536), (5; 0.318 + f; -0.553), (5; 0.319 + f; -0.566), (5; 0.313 + f; -0.569), (5; 0.319 + f; -0.581), (5; 0.318 + f; -0.591), (5; 0.321 + f; -0.596), (5; 0.321 + f; -0.593), (5; 0.329 + f; -0.601), (5; 0.335 + f; -0.601), (5; 0.342 + f; -0.608), (5; 0.35 + f; -0.607), (5; 0.361 + f; -0.601), (5; 0.376 + f; -0.598), (5; 0.394 + f; -0.591), (5; 0.401 + f; -0.592), (5; 0.412 + f; -0.59), (5; 0.431 + f; -0.593), (5; 0.439 + f; -0.59), (5; 0.45 + f; -0.592), (5; 0.452 + f; -0.588), (5; 0.461 + f; -0.587), (5; 0.479 + f; -0.58), (5; 0.493 + f; -0.572), (5; 0.505 + f; -0.561), (5; 0.525 + f; -0.543), (5; 0.534 + f; -0.531), (5; 0.539 + f; -0.522), (5; 0.547 + f; -0.513), (5; 0.55 + f; -0.511), (5; 0.562 + f; -0.502), (5; 0.567 + f; -0.494), (5; 0.569 + f; -0.479), (5; 0.573 + f; -0.467), (5; 0.575 + f; -0.458), (5; 0.57 + f; -0.456), (5; 0.568 + f; -0.449), (5; 0.576 + f; -0.443), (5; 0.597 + f; -0.433), (5; 0.612 + f; -0.427), (5; 0.619 + f; -0.421), (5; 0.622 + f; -0.414), (5; 0.617 + f; -0.411), (5; 0.62 + f; -0.403), (5; 0.621 + f; -0.386), (5; 0.618 + f; -0.386), (5; 0.617 + f; -0.381), (5; 0.614 + f; -0.371), (5; 0.606 + f; -0.358), (5; 0.607 + f; -0.345), (5; 0.614 + f; -0.341), (5; 0.627 + f; -0.329), (5; 0.633 + f; -0.326), (5; 0.653 + f; -0.307), (5; 0.673 + f; -0.298), (5; 0.689 + f; -0.292), (5; 0.7 + f; -0.281), (5; 0.707 + f; -0.269), (5; 0.712 + f; -0.256), (5; 0.709 + f; -0.248), (5; 0.708 + f; -0.221), (5; 0.706 + f; -0.205), (5; 0.707 + f; -0.188), (5; 0.704 + f; -0.18), (5; 0.697 + f; -0.176), (5; 0.69 + f; -0.159), (5; 0.684 + f; -0.148), (5; 0.685 + f; -0.14), (5; 0.684 + f; -0.134), (5; 0.689 + f; -0.124), (5; 0.688 + f; -0.119), (5; 0.677 + f; -0.113), (5; 0.676 + f; -0.103), (5; 0.684 + f; -0.082), (5; 0.691 + f; -0.076), (5; 0.695 + f; -0.064), (5; 0.7 + f; -0.057), (5; 0.703 + f; -0.045), (5; 0.709 + f; -0.044), (5; 0.713 + f; -0.036), (5; 0.726 + f; -0.029), (5; 0.73 + f; -0.025), (5; 0.734 + f; -0.016), (5; 0.753 + f; 0.005), (5; 0.769 + f; 0.018), (5; 0.795 + f; 0.036), (5; 0.813 + f; 0.05), (5; 0.833 + f; 0.074), (5; 0.848 + f; 0.093), (5; 0.863 + f; 0.119), (5; 0.874 + f; 0.141), (5; 0.882 + f; 0.161), (5; 0.887 + f; 0.179), (5; 0.891 + f; 0.186), (5; 0.891 + f; 0.195), (5; 0.892 + f; 0.205), (5; 0.892 + f; 0.21), (5; 0.885 + f; 0.21), (5; 0.877 + f; 0.204), (5; 0.868 + f; 0.202), (5; 0.86 + f; 0.199), (5; 0.854 + f; 0.199), (5; 0.844 + f; 0.199), (5; 0.838 + f; 0.195), (5; 0.83 + f; 0.194), (5; 0.814 + f; 0.189), (5; 0.795 + f; 0.187), (5; 0.779 + f; 0.182), (5; 0.77 + f; 0.182), (5; 0.762 + f; 0.19), (5; 0.759 + f; 0.197), (5; 0.753 + f; 0.2), (5; 0.746 + f; 0.205), (5; 0.756 + f; 0.209), (5; 0.756 + f; 0.216), (5; 0.752 + f; 0.222), (5; 0.743 + f; 0.227), (5; 0.738 + f; 0.233), (5; 0.728 + f; 0.243), (5; 0.719 + f; 0.253), (5; 0.695 + f; 0.269), (5; 0.685 + f; 0.278), (5; 0.681 + f; 0.294), (5; 0.67 + f; 0.314), (5; 0.661 + f; 0.321), (5; 0.654 + f; 0.325), (5; 0.648 + f; 0.346), (5; 0.645 + f; 0.364), (5; 0.649 + f; 0.367), (5; 0.644 + f; 0.384), (5; 0.64 + f; 0.387), (5; 0.62 + f; 0.403), (5; 0.619 + f; 0.415), (5; 0.623 + f; 0.418), (5; 0.607 + f; 0.437), (5; 0.602 + f; 0.447), (5; 0.595 + f; 0.456), (5; 0.582 + f; 0.483), (5; 0.571 + f; 0.501), (5; 0.564 + f; 0.519), (5; 0.566 + f; 0.521), (5; 0.578 + f; 0.496), (5; 0.586 + f; 0.488), (5; 0.592 + f; 0.483), (5; 0.596 + f; 0.486), (5; 0.601 + f; 0.495), (5; 0.605 + f; 0.508), (5; 0.609 + f; 0.515), (5; 0.61 + f; 0.512), (5; 0.608 + f; 0.505), (5; 0.607 + f; 0.499), (5; 0.604 + f; 0.49), (5; 0.613 + f; 0.49), (5; 0.622 + f; 0.478), (5; 0.633 + 
(the line above was cut: it had 132809 characters; the first 20000 are kept)
rot = 0 rad (slider from -180° to 180°, step °)
verEje = true
verEcuador = true
verGreenwich = true
menu = 1 (slider from 1 to 5, step 1)
menus: {"Referencias", "Tiempo", "Coordenadas celestes", "Coordenadas A", "Trayectoria aparente"}
verMeridianos = true
verParalelos = true
verCancer = true
verCapricornio = true
verArtico = true
verA = true
verPosiciónA = true
tierra = Sphere((0, 0, 0), (0.999 * 5))
anguloPolar: 90° - oblicuidad
inclinacion = 0.17453292519943295 rad (slider from -90° to 90°, step °)
dir = Vector((1; (-rot) + 180°; (-inclinacion)))
velocidad = 0 (slider from 0 to 5, step 1)
antartico = Circle((5; 0; (-anguloPolar)), (5; 90°; (-anguloPolar)), (5; 180°; (-anguloPolar)))
artico = Circle((5; 0; anguloPolar), (5; 90°; anguloPolar), (5; 180°; anguloPolar))
cancer = Circle((5; 0; oblicuidad), (5; 90°; oblicuidad), (5; 180°; oblicuidad))
capricornio = Circle((5; 0; (-oblicuidad)), (5; 90°; (-oblicuidad)), (5; 180°; (-oblicuidad)))
paralelosN = Sequence(Circle[(5; 0; (15° * k)), (5; 90°; (15° * k)), (5; 180°; (15° * k))], k, 1, 5)
paralelosS = Sequence(Circle[(5; 0; (-15° * k)), (5; 90°; (-15° * k)), (5; 180°; (-15° * k))], k, 1, 5)
menuTexto: "" + (Element[menus, menu]) + ""
meses: {"Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
solDirecto = Circle(SolDirecto, 0.25, Vector[SolDirecto, Sol])
mesTexto = Element(meses, mes)
fecha: "" + mesTexto + ", " + diaMes + ""
β: 90° - ((asin(z(SolDirecto) / 5) * 180) * ° / π)
v = Vector(SolDirecto)
xn: (5 * y(v) / sqrt(x(v)^(2) + y(v)^(2)))
yn: ((-xn) * x(v) / y(v))
EQ: (xn, yn, 0)
m = UnitVector(Vector[EQ])
x1: (x(m)^(2) * (1 - cos(β))) + cos(β)
x2: (y(m)^(2) * (1 - cos(β))) + cos(β)
x3: ((x(m) * y(m)) * (1 - cos(β)))
t4 = If(tt4 < 10, ("0" * tt4), ("" * tt4))
texto1: "" + (If[UT ≤ 0, "UTC ", "UTC + "]) + "" + UT + ""
segundos = Element(tiempo, 2)
greenwich = Circle(PN, (5; f; 0), PS)
meridianoA = CircumcircleArc(PN, (5; f + lonA; 0), PS)
verMeridianoA = true
t3 = If(tt3 < 10, ("0" * tt3), ("" * tt3))
h = Line(Sol, laserA)
verHorizonte = true
planoHorizonteA = OrthogonalPlane((0, 0, 0), laserA)
C = Intersect(h, planoHorizonteA)
verAntartico = true
j = OrthogonalLine(PN, planoHorizonteA)
PN' = Intersect(j, planoHorizonteA)
vectorPN = Vector(PN')
vectorSol = Vector(C)
p = Segment(Sol, C)
q = Segment(PN, PN')
Sol1: (0, 0, 0) + UnitVector[vectorSol]
PN1: (0, 0, 0) + UnitVector[vectorPN]
M: (0, 0, 0) + UnitVector[Vector[Midpoint[PN', C]]]
verCorteza = true
elevacion0 = Angle(C, (0, 0, 0), Sol)
i = Segment((0, 0, 0), Sol)
texto2: "" + t4 + ":" + t3 + ""
a = Surface((((5.03 * cos(u)) * sin(v)) * x1) + (((5.03 * sin(u)) * sin(v)) * x3) - (((5.03 * cos(v)) * y(m)) * sin(β)), (((5.03 * cos(u)) * sin(v)) * x3) + (((5.03 * sin(u)) * sin(v)) * x2) + (((5.03 * cos(v)) * x(m)) * sin(β)), ((((5.03 * cos(u)) * sin(v)) * y(m)) * sin(β)) - ((((5.03 * sin(u)) * sin(v)) * x(m)) * sin(β)) + ((5.03 * cos(v)) * cos(β)), u, 0, π, v, π / 2, (3 * π / 2))
circuloAparenteSol = Circle((0, 0, z(Sol)), Sol, Vector[(0, 0, 1)])
Ocaso, Orto = Intersect(planoHorizonteA, circuloAparenteSol)
trayectoriaAparenteSol = CircumcircleArc(Ocaso, Sol, Orto)
verTrayectoriaSol = true
T: (DJ - 2451545) / 36525
GST: ((Mod[(23925.836 + (8640184.524 * T) + (0.0929 * T^(2))) / 3600 + (1.00274 * (hora - UT)), 24] * 15))°
elevacion: ((asin(((cos(GST + lonA - AR) * cos(declinacion)) * cos(latA)) + (sin(declinacion) * sin(latA))) * 180) * ° / π)
arcoAcimut = CircumcircleArc(PN1, (((2 * (hora - UT ≤ 12)) - 1) * M), Sol1)
texto5: "" + año + ""
info: "Oblicuidad Eclíptica: " + oblicuidad + ""
medioDia: (acos(((-tan(latA)) * tan(declinacion))) * 12 / π)
ocaso: 12 + UT + medioDia - lonA / (15°) - (ecTiempo * 12 / π) + 0.067
orto: 12 + UT - medioDia - lonA / (15°) - (ecTiempo * 12 / π) - 0.067
DJ0: 2451544.5 + (365 * (año - 2000)) + floor((año - 2000) / 4) + 78 + (hora - UT) / 24
horizonteA = Circle((0, 0, 0), 7, laserA)
dias0 = 227
secN = Sequence(DJ0 - 2451545 + k - If[k > 287, 365, 0], k, 1, 365)
secT: secN / 36525
secL = Sequence(Mod[280.46 + (0.98565 * Element[secN, k]), 360]°, k, 1, 365)
secG = Sequence(Mod[357.528° + (0.9856° * Element[secN, k]), 360]°, k, 1, 365)
secLanda = Sequence(Element[secL, k] + (1.915° * sin(Element[secG, k])) + (0.02° * sin((2 * Element[secG, k]))), k, 1, 365)
secDeclinacion = Sequence(asin((sin(oblicuidad) * sin(Element[secLanda, k]))), k, 1, 365)
secAR = Sequence(atan2((cos(oblicuidad) * sin(Element[secLanda, k])),cos(Element[secLanda, k])), k, 1, 365)
secTiempo1 = Sequence(((2 * π / 365) * (If[k > 287, k - 287, k + 78] - 1 + (hora - UT - 12) / 24)), k, 1, 365)
secTiempo = Sequence(((229.18 * (7.5E-4 + (0.00187 * cos(Element[secTiempo1, k])) - (0.03208 * sin(Element[secTiempo1, k])) - (0.01462 * cos((2 * Element[secTiempo1, k]))) - (0.04085 * sin((2 * Element[secTiempo1, k])))) / 4) * π / 180), k, 1, 365)
secAnalema = Sequence((7; AR + Element[secTiempo, k]; Element[secDeclinacion, k]), k, 1, 365)
acimut: (((π + atan2(sin(GST + lonA - AR),(sin(latA) * cos(GST + lonA - AR)) - (cos(latA) * tan(declinacion)))) * 180) * ° / π)
lonA1: (-lonA) - ((f * 180) * ° / π)
lonA2 = If(lonA1 < -180°, lonA1 + 180°, If[lonA1 > 180°, lonA1 - 360°, lonA1])
duracion: ocaso - orto
texto7: "Orto: " + (floor(orto)) + ":" + (If[floor((60 * (orto - floor(orto)))) < 10, ("0" * floor((60 * (orto - floor(orto))))), ("" * floor((60 * (orto - floor(orto)))))]) + "         Ocaso: " + (floor(ocaso)) + ":" + (If[floor((60 * (ocaso - floor(ocaso)))) < 10, ("0" * floor((60 * (ocaso - floor(ocaso))))), ("" * floor((60 * (ocaso - floor(ocaso)))))]) + "
Duración del día: " + (floor(duracion)) + " h " + (If[floor((60 * (duracion - floor(duracion)))) < 10, ("0" * floor((60 * (duracion - floor(duracion))))), ("" * floor((60 * (duracion - floor(duracion)))))]) + " '"
verAnalema = false
meridianos = Sequence(Circle[PN, (5; f + (15° * k); 0), PS], k, 1, 11)
Aries: (7; -2°; 0)
verAries = true
texto8: "Posición  \; del \; Sol: \\
\fgcolor{#009900}{Ascensión  \; Recta: " + (LaTeX[((AR * 180) * ° / π)]) + " \\
\fgcolor{#FF6600}{Declinación:    " + (LaTeX[((declinacion * 180) * ° / π)]) + "}"
Sol2: (7; AR + ecTiempo; 0)
arcoAR = CircumcircleSector(Aries, (7; (AR + ecTiempo) / 2; 0), Sol2)
arcoDeclinacion = CircumcircleSector(Sol2, (7; AR + ecTiempo; declinacion / 2), Sol)
texto6: "Posición  \; del \;   Sol  \; respecto  \; a  \; A: \\
\fgcolor{#009900}{Acimut: " + (LaTeX[acimut]) + "}\\
\fgcolor{#FF6600}{Elevación:" + (LaTeX[elevacion]) + "}"