Newsgroup: it.scienza.astronomia.amatoriale
Titolo: Calcolo della Pasqua

C'č qualcuno che conosce un software per il calcolo della Pasqua?
Mi interesserebbe anche il procedimento matematico.
Grazie
Riccardo 

 Mi interesserebbe anche il procedimento matematico.
Lo trovi su qualsiasi libro che parli di programmazione astronomica
(Astronomia con il computer ed. Hoepli, per esempio).
IL procedimento è abbastanza semplice, a grandi linee.
Si tratta di calcolare il primo plenilunio dopo l'equinozio di primavera.
La prima domenica successiva è la Pasqua.
Se poi hai bisogno di un anno preciso con qualsiasi planetario rilevi il
primo plenilunio di primavera e da lì il giorno di Pasqua.
--
Cieli sereni
Renzo Del Rosso
-------------------------
http://www.renzodelrosso.com
"La fortuna di essere astrofilo"
moderatore 
http://it.groups.yahoo.com/group/fotodeepsky
ML dedicata alla fotografia astronomica su pellicola!!

Se ne capisci qcosina di VisualBasic io ho fatto questo programma:
DefInt A-Z
Private Sub Command1_Click()
'On Error GoTo ERRORE
Dim Mm As Integer
Dim Dd As Integer
Dim Mese(12) As String
Dim anno As Double
Mese(1) = "Gennaio"
Mese(2) = "Febbraio"
Mese(3) = "Marzo"
Mese(4) = "Aprile"
Mese(5) = "Maggio"
Mese(6) = "Giugno"
Mese(7) = "Luglio"
Mese(8) = "Agosto"
Mese(9) = "Settembre"
Mese(10) = "Ottobre"
Mese(11) = "Novembre"
Mese(12) = "Dicembre"
anno = CDbl(Text1.Text)
If anno < 0 Then
    GoTo ERRORE
Else
    If anno < 1583 Then
        GoTo CalendarioGiuliano
    Else
        GoTo CalendarioGregoriano
    End If
End If
'----------------------------------------'
ERRORE:
    MsgBox "Impossibile calcolare la Pasqua per l'anno indicato",
vbCritical, "ERRORE"
    Exit Sub
'----------------------------------------'
CalendarioGregoriano:
    A = anno Mod 19
    B = anno \ 100
    C = anno Mod 100
    D = B \ 4
    E = B Mod 4
    F = (B + 8) \ 25
    G = (B - F + 1) \ 3
    H = (19 * A + B - D - G + 15) Mod 30
    I = C \ 4
    K = C Mod 4
    L = (32 + 2 * E + 2 * I - H - K) Mod 7
    M = (A + 11 * H + 22 * L) \ 451
    Mm = (H + L - 7 * M + 114) \ 31
    Dd = 1 + (H + L - 7 * M + 114) Mod 31
    GoTo Risultato
'----------------------------------------'
CalendarioGiuliano:
    A = anno Mod 4
    B = anno Mod 7
    C = anno Mod 19
    D = (19 * C + 15) Mod 30
    E = (2 * A + 4 * B - D + 34) Mod 7
    Mm = (D + E + 114) \ 31
    Dd = 1 + (D + E + 114) Mod 31
    GoTo Risultato
'----------------------------------------'
Risultato:
    MsgBox "La Pasqua cade il          " & Dd & " " & Mese(Mm) & " " & anno,
vbInformation, "DATA CALCOLATA"
    Exit Sub
'----------------------------------------'
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
ciao
Danilo

 Renzo Del Rosso
Grazie Renzo,
volevo però conoscere le basi del metodo di Gauss.
Esiste qualche riferimento sul web?
PS
Complimenti per il tuo splendido sito!!!
Lo visito di tanto in tanto!
Riccardo

 Se ne capisci qcosina di VisualBasic io ho fatto questo programma:
Grazie Danilo,
non ne capisco molto, ma proverò a imparare un po' di Visual 
Basic.............:(:(:(
Riccardo 

 Riccardo
Formulr di Bronzin per ricavare la Pasqua:
A=  Anno (es.1993);S= n° di secoli (es. 19 ), D= decenni(es. 99( relativo al
1999))
1° e=30+[(A/19-int)*19]*11-[(S/30-int)*30]+(int
S/4)+{[(S-15)/25]int}+{int[(S-15)/25-int)*25]/3}
2° E= [(e/30-int)*30]
3° r = D+ (int D/4)+ [(S/4-int)*4 ]*5+E*6
4° R= [(r/7)-int) *7]
5°P (Pasqua) = 68 -E - R (di marzo) se > 31 si contano in aprile.
NB.se E < 11 si prende E+30
      se E = 11  si prende E =12
      se E = 12  e[(A/19-int)* 19] > 10 si prende E =13.
Esempio Pasqua per l'anno 2076:
A=2076;  S=20;  D= 76
e=30+55 - 20 + 5 +1 = 71
r= 76 +19 + 0 +72 = 167
E= 11 (da prendere 12) E = 12
R = 6
P = 68 -12 - 6 =50 (50 - 31(marzo) = 19 aprile.
Saluti, alcor


Grazie Alcor,
era proprio ciň che cercavo!!!
Cieli sereni
Riccardo