Taller de Electiva

Proyección Estereográfica
Coordenadas Horizontales
Se trata de proyectar en el plano XY la trayectoria que sigue el sol sobre la esféra celeste, cono-
ciendo
su elevación y acimuth.Datos de la hora, elevación y azimut del sol para una latitud desconocida
(TOMADOS DE LA TABLA 14 DEL TALLER)
datos = 884, 0.71 °, 46.47 °<, 85, 7.39 °, 58.53 °<, 86, 14.99 °, 70.22 °<,
87, 23.17 °, 81.94 °<, 88, 31.59 °, 94.22 °<, 89, 39.85 °, 107.79 °<,
810, 47.45 °, 123.71 °<, 811, 53.58 °, 143.18 °<, 812, 57.17 °, 166.69 °<,
813, 57.25 °, 192.23 °<, 814, 53.79 °, 215.89 °<, 815, 47.75 °, 235.53 °<,
816, 40.2 °, 251.58 °<, 817, 31.95 °, 265.24 °<, 818, 23.53 °, 277.55 °<,
819, 15.33 °, 289.28 °<, 820, 7.7 °, 300.97 °<, 821, 0.97 °, 313 °<<;
datos •• MatrixForm
2 taller de electiva.nb
n = Length@datosD;
Inicialmente vamos a dibujar la trayectoria del Sol sobre la esfera celeste
x@q_, j_D := r Cos@j + 90 °D Sin@90 ° - qD;
y@q_, j_D := r Sin@j + 90 °D Sin@90 ° - qD; z@q_D := r Cos@90 ° - qD; r = 0.9;
datos3D = Table@Point@8x@datos@@i, 2DD, datos@@i, 3DDD,

y@datos@@i, 2DD, datos@@i, 3DDD, z@datos@@i, 2DDD<D, 8i, 1, n<D;
puntos3D = Graphics3D@8 Yellow, [email protected], datos3D<D
esfera = ParametricPlot3DB
8x@q, jD, y@q, jD, z@qD<, :q, 0, >, 8j, 0, 2 p<, PlotStyle ® BlueF;
p
2
•
Show@puntos3D, esferaD
Proyectando en el plano
datos2D = Table@Point@
8x@datos@@i, 2DD, datos@@i, 3DDD, y@datos@@i, 2DD, datos@@i, 3DDD<D, 8i, 1, n<D;
taller de electiva.nb 3
puntos2D = Graphics@8Yellow, [email protected], datos2D<D
grilla = GraphicsA8Table@Circle@80, 0<, iD, 8i, 0, 0.9, 0.1<D,

Table@Line@88- 0.9 Cos@qD, - 0.9 Sin@qD<, 80.9 Cos@qD, 0.9 Sin@qD<<D,
8q, 0, 180 °, 15 °<D, Inset@"N", 80, 1.1<D,
Inset@"S", 80, - 1.1<D, Inset@"E", 81.1, 0<D, Inset@"O", 8- 1.1, 0<D,
Inset@"360°", 8Cos@90 °D, Sin@90 °D<D, Inset@"15°", 8Cos@75 °D, Sin@75 °D<D,
Inset@"90°", 8Cos@0 °D, Sin@0 °D<D, Inset@"105°", 8Cos@- 15 °D, Sin@- 15 °D<D,
Inset@"120°", 8Cos@- 30 °D, Sin@- 30 °D<D, Inset@"135°",
8Cos@- 45 °D, Sin@- 45 °D<D, Inset@"150°", 8Cos@- 60 °D, Sin@- 60 °D<D,
8Cos@- 180 °D, Sin@180 °D<D, Inset@"285°", 8Cos@165 °D, Sin@165 °D<D,
Inset@"300°", 8Cos@150 °D, Sin@150 °D<D, Inset@"315°",
8Cos@135 °D, Sin@135 °D<D, Inset@"330°", 8Cos@120 °D, Sin@120 °D<D,
Inset@"345°", 8Cos@105 °D, Sin@105 °D<D, Inset@"0°", 8- 0.05, 0.9<D,
Inset@"10°", 8- 0.05, 0.8<D, Inset@"20°", 8- 0.05, 0.7<D,
Inset@"30°", 8- 0.05, 0.6<D, Inset@"40°", 8- 0.05, 0.5<D,
Inset@"50°", 8- 0.05, 0.4<D, Inset@"60°", 8- 0.05, 0.3<D,
Inset@"70°", 8- 0.05, 0.2<D, Inset@"80°", 8- 0.05, 0.1<D,
Inset@"0°", 80.05, - 0.9<D, Inset@"10°", 80.05, - 0.8<D,
Inset@"20°", 80.05, - 0.7<D, Inset@"30°", 80.05, - 0.6<D,
Inset@"40°", 80.05, - 0.5<D, Inset@"50°", 80.05, - 0.4<D,
Inset@"60°", 80.05, - 0.3<D, Inset@"70°", 80.05, - 0.2<D,
Inset@"80°", 80.05, - 0.1<D<, PlotLabel ® "PROYECCION ESTEREOGRÁFICA
DEL MOVIMIENTO SOLAR"E;
4 taller de electiva.nb
Show@grilla, puntos2DD
PROYECCION ESTEREOGRÁFICA
DEL MOVIMIENTO SOLAR
N
360 °
345 ° 15 °
0°
330 ° 30 °
10 °
315 ° 20 ° 45 °
30 °
300 ° 40 ° 60 °
50 °
60 °
285 ° 75 °
70 °
80 °
O 270 ° 90 ° E
80 °
70 °
255 ° 105 °
60 °
50 °
240 ° 40 ° 120 °
30 °
225 ° 20 ° 135 °
10 °
210 ° 150 °
0°
195 ° 165 °
180 °
S
grilla2 = 8882, Dotted<, 84, Dotted<, 86, Dotted<, 88, Dotted<,

810, Dotted<, 812, Dotted<, 814, Dotted<, 816, Dotted<, 818, Dotted<,
820, Dotted<, 822, Dotted<, 824, Dotted<<, 885, Dotted<, 810, Dotted<,
815, Dotted<, 820, Dotted<, 825, Dotted<, 830, Dotted<, 835, Dotted<,
840, Dotted<, 845, Dotted<, 850, Dotted<, 855, Dotted<, 860, Dotted<<<;
taller de electiva.nb 5
>, 8i, 1, n<F,

180
ListPlotBTableB:datos@@i, 1DD, datos@@i, 2DD *
p
PlotStyle ® [email protected], Yellow<, GridLines ® grilla2,
Frame ® False, PlotRange ® 880, 25<, 80, 60<<,
PlotLabel ® "GRÁFICA DEL MOVIMIENTO SOLAR EN EL CIELO",
AxesLabel ® 8"TiempoHHorasL", "ElevaciónHGradosL"<F
GRÁFICA DEL MOVIMIENTO SOLAR EN EL CIELO

ElevaciónHGradosL
60
50
40
30
20
10
0 TiempoHHorasL
0 5 10 15 20 25

Taller de Electiva

Cargado por

Copyright:

Formatos disponibles

Taller de Electiva

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Taller de Electiva

Cargado por

Copyright:

Formatos disponibles

Proyección Estereográfica

datos3D = Table@Point@8x@datos@@i, 2DD, datos@@i, 3DDD,

puntos3D = Graphics3D@8 Yellow, [email protected], datos3D<D

puntos2D = Graphics@8Yellow, [email protected], datos2D<D

grilla = GraphicsA8Table@Circle@80, 0<, iD, 8i, 0, 0.9, 0.1<D,

grilla2 = 8882, Dotted<, 84, Dotted<, 86, Dotted<, 88, Dotted<,

>, 8i, 1, n<F,

GRÁFICA DEL MOVIMIENTO SOLAR EN EL CIELO

También podría gustarte