Forum de Mathématiques: Maths-Forum

j'essaye mais je ne vous réécris pas tout. Mon algorithme est juste le fait de mettre la date en jour d'y additionner le saros et après essayer avec les quotients et reste de retrouver date, jour, mois.. mais j'avoue que je peine.. eclipse:=proc(j,m,a,h) local e; e:=a*365.25+m*24+j+h/24 + 6585.3: A:...

eclipse:=proc(j,m,a,h)
local e;
e:=a*365.25+m*24+j+h/24 + 6585.3:
A:=iquo(e,365.25);
N:=irem(e,365.25):
M:=iquo(N,24);
J:=irem(N,24);

end proc;

oui je sais mais je comptais faire une procédure simple, donc juste faire avec 11 jours pour avoir une approximation. Je crois que c'est trop compliqué à mon niveau avec les mois de 30, 31 jours.. ou encore je met la date en jour année *365.25 + M*24+jour+heure j'ajoute 6585.3 (saros) et après j'uti...

sinon je pourrais rester en date grégorienne, et travailler avec des modulo mais avec les mois à 30 ou 31 jours ce serait compliqué non ?
(saros=18ans,11jours8heures)

eclipse:= proc (J, M, A, H ,MI) local JJ; JJ=367 * A - floor(1,75 * (floor((M + 9) / 12) + A )) + floor(275 * M / 9) - floor(0,75 * (1 + floor(0,01 * (floor((M - 9) / 7) + A)))) + J + 1721028,5 + H/24 + MI/1400; for k from 1 to 3 do E[k]=JJ+6582.32k then greg(E[k]); end do; end for; end proc; Pourri...

Bonjour, je voudrais faire une petite procédure maple (or cadre école) pour donner la date d'une éclipse à l'aide du cycle du Saros. Je rentrerais une date d'une éclipse,(par exemple 21/ 01/2000 à 4H46), la procédure pourrait convertir la date sélectionnée en date julienne puis y additionner la duré...