| Éphéméride |
| Auteur |
Message |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 05 Nov 2012, 16:46
|
|
 |
Vous chercher sur quel jours de la semaine tombe une date ?
Le nombre de jours entre deux moments de l'année ?
Entrez la date du jours, puis celle que vous cherchez, et vous saurez 
Prgm Éphéméride 156 octets.
| Code | :For(N,1,2
:EffEcr
:Prompt J,M,A
:(M inférieur ou égale à 2 ->Z
:A-Z->A
:M+13Z+non(Z->M
:partEnt(1461A/4+153M/5+J->L4(N
:End
:Disp "","Un",sous-Chaîne("VENSAMDIMLUNMARMERJEU",1+3partEnt(7partDéc(L4(2)/7)),3),"IL Y A",L4(1)-L4(2),"JOURS |
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
 |
  |
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Lun 05 Nov 2012, 17:43
|
|
|
Ce programme prend-il en compte les années bissextiles?
Sangohan38
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 05 Nov 2012, 18:34
|
|
|
OOOOOUUUUUIIIII !!!! 
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
S.L
Autorisation : Membre
Nb de messages : 101
Inscrit le : Jeu 02 Jui 2011, 15:17
|
Posté le : Lun 05 Nov 2012, 18:43
|
|
|
Alors là: chapeau
----------------------
L'homme est né pour programmer.
Émulateur de TI en ligne! Chat de Tout82!
Mes jeux: Bouge!;WallJump;Mouche;Enter;UPMario;Mémoriz;Copter;Pong2P;Pokémon;MineCraft
Mes Prog: XCodeX;IMC;Matrix;Noël
SL-TIProg :site en cours de création. |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Lun 05 Nov 2012, 19:06
|
|
|
Merci merci
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
ti stats fr
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mar 30 Oct 2012, 20:13
|
Posté le : Lun 05 Nov 2012, 19:24
|
|
|
Super programme ( et court a recoper )
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 05 Nov 2012, 20:09
|
|
|
Très bien. 
Autre source moins paufinée en graphisme et moins complète (2 programmes) :
http://tout82.free.fr/forum/sujet.php?sujet=2657
(Mais j'en préfère la méthode)
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
jopervasco
Invité
|
Posté le : Mar 09 Avr 2013, 14:04
|
|
|
Bonjour,
j'ai recopié ce programme (peut-être mal recopié ?)
pour le 9 4 2013 ça m'affiche LUN (Lundi) alors que ça devrait être un mardi
vous pouvez tester de votre côté ?
|
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mar 09 Avr 2013, 17:08
|
|
|
Ce programme est fait pour calculer le jour de la semaine et la durée entre deux dates à plus de deux jours d'intervalle.
Moins il donnera un résultat faux.
Entre la date du jour en premier et la date que tu cherches en deuxième et çà fonctionne
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
jopervasco
Invité
|
Posté le : Mar 09 Avr 2013, 21:57
|
|
|
je n'arrive pas à le faire fonctionner ...
entre le 9/4/2013 et le 1/1/2000 ça me sort 4846 jours et DIM ...
avec la fonction Jed 4847
j'ai peut-être une faute de frappe quelque part. vous pouvez essayer de votre côté ? merci
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 10 Avr 2013, 10:47
|
|
|
Je ne vois pas de faute probable autre que L4 la liste saisie par 2nde+4.
On peut choisir la liste cependant.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
jopervasco
Invité
|
Posté le : Mer 10 Avr 2013, 14:21
|
|
|
Et comment expliquer l'écart d'un jour dans les calculs ?
merci
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 10 Avr 2013, 18:44
|
|
|
| Citer : jopervasco | Et comment expliquer l'écart d'un jour dans les calculs ?
merci |
1- Faute de copie de l'auteur ou du lecteur.
2- décalage de l'identité des jours par rapport au modulo 7.
3- calculs de mauvaise qualité à cause de l'usage de partDéc.
4- arrondit dans les constantes (par exemple 153/5)
5- méthode de calcul basée sur des moyennes alors que le calendrier grégorien n'est pas régulier
Si cas 2, je pense qu'il faut placer DIM en première place de la chaine de caractère. (et respecter l'ordre)
Si cas 3, remplacer partEnt(7partDéc(L4(2)/7))
par ent(L2(2)-7ent(L2(2)/7))
En effet ce sont les deux calculs qui donnent le reste par division euclidienne par 7, mais le second n'admet aucune erreur d'arrondit.
Si cas 4, remarquez les données suivantes.
1461/4=365.25
année d'après le calendrier grégorien = 365.2425 = 1460.097/4
153/5 = 30.6
moyenne de durée des mois = 365.2425/12 = 30.436875 = 486.99/16
365.25/12 = 30.4375 = 487/16
365/12 ~~ 30.41666666
Si cas 5, remarquez que :
- se trouver en mars ne signifie pas qu'on a un jour de plus passé dans l'année si on n'est pas une année bissextile
- le nombre de jours dans chaque mois n'est pas régulier
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mer 10 Avr 2013, 20:10
|
|
|
Lu et relu, aucune faute de ma part. Je confirme qu'il ne fonctionne parfaitement pour toutes les dates.
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
jopervasco
Invité
|
Posté le : Mer 10 Avr 2013, 20:42
|
|
|
Merci de ces éléments de calcul et des explications d'arrondis et de moyenne.
et vous, vous trouvez combien de jours avec ce programme entre le 01/01/2000 et le 09/04/2013 ?
|
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mer 10 Avr 2013, 20:54
|
|
|
Un dimanche, il y a 4846 jours.
Tu peux vérifier grâce à ce site :
http://www.ephemeride.com/calendrier/deux_dates/81/?day2=1&month2=0&year2=2000&day=9&month=3&year=2013&x=-848&y=-320
Je viens de faire plusieurs essais et le prgm semble en effet décaler d'un jour pour deux dates espacées d'une durée supérieur à dix ans. En revanche il est tout à fait juste pour des périodes inférieures. Si quelqu'un veux trouver des valeurs plus précises pour mon prgm
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 10 Avr 2013, 21:38
|
|
|
Ce programme me répond 4846 et qu le 1/1/2000 est un [[lundi]] dimanche.
EDIT : je me plante : 9/4/2013 lundi et 1/1/2000 dimanche
Je remarque d'ailleurs que le 9/4/2013 est en réalité un mardi.
Si j'utilise mon programme, je met en évidence que le 1/1/2000 est un dimanche.
jopervasco :
si tu désires absoluement augmenter la précision, soit tu ajustes les constantes/calculs de ce programme soit tu utilises un des programmes que j'ai déjà mentionné en lien.
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
ld
Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
|
Posté le : Mer 10 Avr 2013, 21:59
|
|
|
Je vois qu'on édite tous nos messages en allant XD
Linkakro tu as fait une petite erreur.
Tu as rentrer 01 01 2000 puis 09 04 2013 se qui te donne en effet un lundi il y a -4846 jours.
Or il faut rentrer la date du jour en premier, ce qui donne un dimanche il y a 4846 jours
----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie |
| |
|
| |
jopervasco
Invité
|
Posté le : Mer 10 Avr 2013, 22:11
|
|
|
ld :
ton site me dit
Entre le 01/01/2000 et le 09/04/2013, il s'est écoulé 4847 jours soit 13 ans, 3 mois et 8 jours.
là j'ai du mal à comprendre qu'on ne sorte pas les mêmes chiffres...
et la fonction jed(0101.00,090413) m'affiche aussi 4847.
Mon tableur me renvoie aussi 4847
donc je pense qu'il y a une coquille dans ton prog. peut-être un pb de précision comme le fait remarquer linkakro
|
| |
|
| |
jopervasco
Invité
|
Posté le : Mer 10 Avr 2013, 22:24
|
|
|
comme je suis invité je ne peux pas éditer
mais le 1/1/2000 est un samedi.
et entre 2 dates il y a le même nombre de jours que l'on soit dans un sens ou l'autre non ?
entre le 1 mars et le 31 mars il y 30 jours (31-1)
entre le 1 mars et le 2 mars il y a 1 jour
entre le 1 mars 12h à 2 mars à 12h cela fait 24 heures donc un jour ...
enfin c'est comme ça que je compte..
|
| |
|
| |
