|
Calendario perpetuo: |
|
Notación/ Notation:
| -> | Flecha blanca (white arrow) |
| => | Flecha amarilla: [SHIFT] + [7] |
| >= | Mayor o igual: [SHIFT] + [5] |
| <= | Menor o igual: [SHIFT] + [6] |
| =^ | No igual: [SHIFT] + [9] |
| ^ | Triangulo rojo: [ALPHA] + [Graph] (the little red triangle). |
| 2 | Elevado al cuadrado (square (YxY=Y2=Y^2 or Y2). |
| V | Raiz cuadrada (square root). |
Titulo:
Calendario Perpetuo.
Autor:
Miguel
Jáuregui Aravena
Descripcion:
El programa
preguntará "A" que es el año, "M" es el mes (3 al 14) y "D" es el día (1 al
31). Para preguntar por los meses de Enero y Febrero se debe ingresar como el
mes 13 (Enero) y 14 (Febrero) del año anterior, Ej: 5 de Enero del 2000, se
debe ingresar de la siguiente manera 1999 EXE 13 EXE 5 EXE, otro ejemplo: 16 de
Diciembre de 1986, se debe ingresar 1986 EXE 12 EXE 16 EXE.
"A"?->Y:"M"?->M:"D"?->D:1+D+2M+Int(3(M+1)/5)+Y+Int(Y/4)-Int(Y/100)+Int(Y/400)->S:Frac(S/7)*7->S:Frac S->P:
P>.5=>Int(S)+1->S:S
La calculadora respondera un número y se deberá guiar por la siguiente guía.
0 domingo, 1 lunes, 2 martes, 3 miércoles, 4 jueves, 5 viernes, 6 sábado
Nota: ¡El calendario perpetuo no tiene problema con los años bisiestos!
En el calendario gregoriano son bisiestos todos los años múltiplos de 4. Los años seculares (los que acaban en 00), solamente son bisiestos cuando son múltiplos de 400. Por ejemplo, 1900 no fue bisiesto, a pesar de ser múltiplo de 4, ya que es un año secular no múltiplo de 400, en cambio si lo ha sido 2000. Para saber cuando un número es múltiplo de 4 basta fijarse en sus dos últimas cifras, si son múltiplo de 4 (dos veces divisibles por 2), también lo es el número.
Calcular Fecha de Pascua
"A"?->N:N-1900->N:Frac(N/19)*19->A:Int((7A+1)/19)->B:Frac((11A+4-B)/29)*29->M:
Int(N/4)->Q:Frac((N+Q+31-M)/7)*7->W:Int(25-W-M)->D:D<=0=>3->L:D<=0=>31+D->R:D>=1=>4->L:
D>=1=>D->R:L^R
Se debe ingresar el año y listo, comprende de 1900 al 2099, da el mes y el día en que caerá el día con este dato podemos sacar lo siguiente:
|
Miércoles de Ceniza (Inicio cuaresma) |
46 días antes del domingo de Pascua |
|
Domingo de Ramos |
7 días antes del domingo de Pascua |
|
Domingo de Ascensión (antes jueves) |
42 días después del domingo de Pascua. |
|
Domingo de Pascua de Pentecostés |
49 días después del domingo de Pascua |
|
Domingo de Corpus Christi (antes jueves) |
63 días después del domingo de Pascua |
Calcular Edad Lunar (Fases Lunares)
"A"?->A:"M"?->M:"D"?->D:A-Int(A/100)*100->Y:Frac(Y/19)*19->Y:Y>9=>Y-19->Y:Frac(11Y/30)*30->Y:Y+D+M->Y:
M<3=>Y+2->Y:Y-4->Y:A>1999=>Y-4.3->Y:Int(Frac((Y+30)/30)*30)->L
En este programa se debe preguntar por una fecha especifica, ingresando mes, día y año, con esto el programa respondera un número comprendido entre el 0 y 29, luego se deberá ver la siguiente tabla:
|
|
|
|
Nota: La precisión del programa es de +/- 2 días.
Programados por Miguel Jáuregui Aravena . - Chile, Molina
