Ada

Calcule de la durée d'un cycle de sommeil

Recherche :

Mot : Pseudo : Filtrer
Page : 1 2 Page Suivante Page Précédente Bas de page
Auteur	Sujet : Calcule de la durée d'un cycle de sommeil

µjoshua wopr

WOPR V 0.0.0

Bonjour.
Je souhaite calculer la durée d'un cycle de sommeil en fonction d'un total d'une période de sommeil sachant qu'un cycle à une durée variante d'un individu à un autre comprise entre une heure et demi et deux heures.

Quelle expression mathématique puis-je utiliser, en vue ďétablire un programme qui me donnera pour résultat la durée du cycle en fonction de l'heure à laquelle je m'endors et celle à laquelle je me réveille ?

Exemple : cycle de 1:30 à 2h
Je dors à 19:30 ;
Me réveille à 7:20 :

Le cycle ici est de 1heure et 58minutes environ.

Merci.

Message cité 1 fois
Message édité par µjoshua wopr le 07-11-2018 à 17:04:14

Publicité

TotalRecall

Jovalise c'est toi ?

---------------
Topic .Net - C# @ Prog

MaybeEijOrNot

but someone at least

Bonjour,

Tu peux établir la même expression mathématique que celle que tu as utilisé pour ton exemple.

a+. :hello:

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

TotalRecall

Je déconnais mais en fait c'est bien lui https://forum.hardware.fr/forum1.php?config=hfr.inc [:make install:1]

Message cité 1 fois

---------------
Topic .Net - C# @ Prog

gilou

Modérateur
Modzilla

µjoshua wopr a écrit :

Non.
C'est soit 6 cycles de 1h et 58', soit 7 cycles de 1h 41'.
A+,

Message cité 1 fois

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

µjoshua wopr

WOPR V 0.0.0

gilou a écrit :

Non.
C'est soit 6 cycles de 1h et 58', soit 7 cycles de 1h 41'.
A+,

En effet gilou.
Du coup je ne sais pas quoi faire.

Message édité par µjoshua wopr le 30-10-2018 à 14:42:31

µjoshua wopr

WOPR V 0.0.0

Peut-être y a t- il une erreur d'observation.
Cette nuit, J'ai dormis 11heures pile poil
Ce qui correspond à la durée de mon cycle habituel de 110minutes en divisant par 7 mais effectivement quand même, en divisant par 6 ça fait des cycle de 94 minutes.

Du coup je suis dubitatif.

Une soluce ?

Message cité 1 fois
Message édité par µjoshua wopr le 30-10-2018 à 14:53:56

Harkonnen

Modérateur
Un modo pour les bannir tous

TotalRecall a écrit :

Je déconnais mais en fait c'est bien lui https://forum.hardware.fr/forum1.php?config=hfr.inc [:make install:1]

Mais oui \o/
Par contre, je le félicite pour le goût dont il a fait preuve dans le choix de son nouveau pseudo. "Wargames" est un film que tout geek qui se respecte devrait voir une fois dans sa vie

---------------
J'ai un string dans l'array (Paris Hilton)

µjoshua wopr

WOPR V 0.0.0

Bonjour Harko :bounce:

Harkonnen

Modérateur
Un modo pour les bannir tous

\O/

---------------
J'ai un string dans l'array (Paris Hilton)

Publicité

MaybeEijOrNot

but someone at least

µjoshua wopr a écrit :

En même temps va savoir si en ce moment toute ta vie n'est pas qu'un rêve ? Quelle serait la notion de temps en dehors de ton rêve actuel ? Faut-il résoudre ce problème dans ton rêve ou en dehors ? Et surtout, qui suis-je si je ne suis que le fruit de ton imagination ? Serais-je ta conscience ? [:make install:1]

Message édité par MaybeEijOrNot le 30-10-2018 à 17:59:08

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Pour répondre de bonne foi, de bonne volonté et de bon sens, le temps est une abstraction de mesuré arbitraire.

Si vous êtes ma conscience, ne vous en faites pas, je suis le surconscient. [:dpenche] .

Message édité par µjoshua wopr le 30-10-2018 à 18:41:37

µjoshua wopr

WOPR V 0.0.0

Bonjour.

Je remet ça sur le tapis après lecture de ce qui pourrait émaner de nouvelles études.
Un cycle serait d'une durée allant de 90 à 100 minutes selon les individus.

Du coup d'après mes 11h de sommeil je devrait compter 7 cycles de 94 minutes environ.

Quelle question me poser formellement à défaut de votre réponse ?
Merci pour tout !

Harkonnen

Modérateur
Un modo pour les bannir tous

Tu installes une appli de tracking de sommeil sur ton téléphone, tu dors avec plusieurs jours, et tu pourras ainsi visualiser tes cycles et extrapoler leur durée

---------------
J'ai un string dans l'array (Paris Hilton)

µjoshua wopr

WOPR V 0.0.0

Si le médecin propose de suspendre le traitement je me retrouve avec une chaîne Ada autour du coup.

Message édité par µjoshua wopr le 31-10-2018 à 10:28:37

µjoshua wopr

WOPR V 0.0.0

À part ça c'est pour savoir quels sont les horaires ad'hoc pour dormir sur 24 à 48 heures.

Message cité 1 fois

Harkonnen

Modérateur
Un modo pour les bannir tous

µjoshua wopr a écrit :

À part ça c'est pour savoir quels sont les horaires ad'hoc pour dormir sur 24 à 48 heures.

Demande au capitaine

---------------
J'ai un string dans l'array (Paris Hilton)

µjoshua wopr

WOPR V 0.0.0

Bonsoir, bonjour.

J'ai mis au point un programme qui fait ce que je veux plus ou moins bien selon les contrainte accepté par moi même.

Je reviens quand même ici pour vous demander votre expertise en vue d'une éventuelle optimisation possible, si ce n'est des correction préalable.

Voici le code, d'abord un petit fichier de quelques description de constantes et de types utilisés ici dans le main.

le fichier sleepcycles est un petit fichier de specification Ada de bibliothèque qui reste sans corp.

Code :

package Sleepcycles is
   
   Min_Cycle : constant Integer := 90; -- in minutes.
   Max_Cycle : constant Integer := 115; -- in minutes.
   
   Total_Minutes_By_Day : constant Natural := 1440;
     
     
   subtype Cycle_Range is positive range Min_Cycle .. Max_Cycle;
   
   type Sleep_Clock is
      record
     Hour   : Natural := 0;
     Minute : Natural := 0;
      end record;
   
   Cycle_Num_Min : constant Positive := 12;
   Cycle_Num_Max : constant Positive := 16;
   
   subtype Cycle_Num_Range is Positive range Cycle_Num_Min .. Cycle_Num_Max;
   
   type Cycles_Array is array (Positive range 1 .. Cycle_Num_Max) of Sleep_Clock;
   
   Minutes_By_Day : constant Positive := 1440;
   
   subtype Clock_In_Minute_Range is Natural range 0..Minutes_By_Day; 
   
end Sleepcycles;

Le main qui calcule la période de sommeil en minutes en fonction de leur de sommail et de réveil saisies par l'utilisateur afin de déterminer le nombre de cycle et affiche de tableau de l'ensemble des heures de début/fin de cycle sur 24 heures.

Code :

with Ada.Calendar;
use Ada.Calendar;
 
with Sleepcycles;
use Sleepcycles;
 
with Ada.Text_Io;
use Ada.Text_Io;
  
with Ada.Integer_Text_Io;
use Ada.Integer_Text_Io;
 
with Ada.Strings.Fixed;
use Ada.Strings.Fixed;
 
use Ada;
use Ada.Strings;
  
procedure Main is
   
   Sleep_Down : Sleep_Clock;
   Sleep_Up   : Sleep_Clock;
   Char : constant String := ":";
   
begin      
   
   Cycle : loop
      New_Line;
      Put_Line("Sleep cycles : sleeping calcul and information..." );
      
      Clock_Error : loop
         
         New_Line;
         Put_line("Please, enter clock sleep down : (hour/23:minutes/59) and press enter" );
         Put("sleep down to : " );
         
         loop
        
        begin
           
           declare
              Sleep_Down_Line : String := Get_Line;
              Char_Index : Natural := 0;
           begin
              
              Char_Index := Fixed.Index(Sleep_Down_Line, Char);
              
              if Char_Index = 0 then
             Put_Line("uncknow separator for clock sleep down ! " );
             exit;                                                                    
              end if;
              
              Sleep_Down.Hour := Natural'Value(Sleep_Down_Line(Sleep_Down_Line'First..Char_Index - 1));
              Sleep_Down.Minute := Natural'Value(Sleep_Down_Line(Char_Index + 1 .. Sleep_Down_Line'last));
              
              
              begin
             loop
                
                New_Line;
                Put_line("Please, enter clock sleep up : (hour/23:minutes/59) and press enter. " );
                Put("sleep up to : " );
                
                loop
                   
                   begin
                  
                  declare
                     Sleep_Up_Line : String := Get_Line;
                     Char_Index : Natural := 0;
                  begin
                     
                     Char_Index := Fixed.Index(Sleep_Up_Line, Char);
                     
                     if Char_Index = 0 then
                    Put_Line("uncknow separator for clock sleep down ! " );
                    exit;
                     end if;
                     
                     Sleep_Up.Hour := Natural'Value(Sleep_Up_Line(Sleep_Up_Line'First..Char_Index - 1));
                     Sleep_Up.Minute := Natural'Value(Sleep_Up_Line(Char_Index + 1 .. Char_Index+2));
 
                     
                     
                  end;
                  
                  
                  
                  declare
                     
                     
                     Between_Hour : constant Natural := 24-Sleep_Down.Hour;
                     After_Hour   : constant Natural := Sleep_Up.Hour;
                     
                     Minutes_Sum_Period_Hours : Natural := 60 * (Between_Hour + After_Hour);
                     
                     Minutes_Sum_Period_Minutes : Natural := 0;
                     
                     Minutes_Sum_Period : Natural := 0;
                     
                     
                  begin
                     
                     if Sleep_Down.Minute > Sleep_Up.Minute then
                    
                    Minutes_Sum_Period_Minutes := (60 - Sleep_Down.Minute) + Sleep_Up.Minute;
                     else
                    
                    Minutes_Sum_Period_Minutes := Sleep_Down.Minute + Sleep_Up.Minute;
                  
                     end if;
                     
                     Minutes_Sum_Period := Minutes_Sum_Period_Minutes + Minutes_Sum_Period_Hours;
                     
                     New_Line;
                     
                     Put_Line("Sum minutes of all cycles in sleep period : " );
                     Integer_Text_Io.Put(Minutes_Sum_Period);
                     
                     New_Line;
                     
                     Put_Line("Cycle(s) duration between 90..115 minutes : " );
                     
                     declare 
                    
                       Div : Positive := 1;
                       Rest : Natural := 0;
                       Tmp : Natural := Minutes_Sum_Period;
                     begin
                    
                    loop                                                                  
                       --Put_Line("iter Num cycle : " );
                       --Integer_Text_Io.Put(Div);    
                       --New_Line;
                       --Put_Line("Total minutes : " );
                       --Integer_Text_Io.Put(Minutes_Sum_Period);
                       --New_Line;
                       --Put_Line("Minutes_Sum_Period / Div : " );
                       --Integer_Text_Io.Put(Minutes_Sum_Period /  Div);
                       --New_Line;
                       exit when (Minutes_Sum_Period / Div) < Min_Cycle;
                       Div := Div + 1;                                                                     
                    end loop;
                       
                    if Minutes_Sum_Period / Div < Min_Cycle then
                       Rest := Minutes_Sum_Period / (Div - 1);
                       Div := Div - 1;
                    else
                       Rest := Minutes_Sum_Period / Div;
                    end if;
                    
                    
                    
                    
                    Integer_Text_Io.Put(Integer(Minutes_Sum_Period/ Div));
                    
                    New_Line;
                    
                    Put_Line("Cycles number in period : " );
                    
                    Integer_Text_Io.Put(Div);
                    
                    New_Line;
                    
                    
                    -- print 24hours of N cycles.
                    
                    declare
                       
                       Day_Array : Cycles_Array := (others => (0, 0));
                       
                       O_Clock_In_Minute : Natural := Sleep_Down.Hour * 60 + Sleep_Down.Minute;
                       
                       Exhausted : Boolean := False;
                       
                       Count : Natural := 0;
                       
                    begin
                       loop                       
                          
                          Day_Array(Count + 1).Hour := O_Clock_In_Minute / 60;
                          Day_Array(Count + 1).Minute := O_Clock_In_Minute rem 60;
                          
                          
                          
                          
                          
                          if O_Clock_In_Minute / 60 >= 24 then
                         
                         
                         O_Clock_In_Minute := (O_Clock_In_Minute + Minutes_Sum_Period / Div) - Minutes_By_Day;
                         
                         if Exhausted then
                            exit;
                         else
                            
                            Exhausted := True;
                            
                         end if;
                         
                          else
                         
                         O_Clock_In_Minute := O_Clock_In_Minute + Minutes_Sum_Period / Div;
                         
                          end if;
 
                          
                          Count := Count + 1;
                          
                          
                       end loop;
                       Put_Line("Begin/End of Cycles by 24 hours : " );
                       Put_Line("hh:mn" );
                          
                       for Cycle_Num in 1..count loop
                          if Day_Array(Cycle_Num).Hour <= 9 then
                         Put('0');
                         Integer_Text_Io.Put(Day_Array(Cycle_Num).Hour, 0);
                          elsif Day_Array(Cycle_Num).Hour = 24 then
                         Put("00" );
                          else
                         Integer_Text_Io.Put(Day_Array(Cycle_Num).Hour, 0);
                          end if;
                          
                          Put(":" );
                          if Day_Array(Cycle_Num).Minute <= 9 then
                         Put('0');
                          end if;
                          Integer_Text_Io.Put(Day_Array(Cycle_Num).Minute, 0);
                          New_Line;
                       end loop;
                         
                         
                         
                    end;                                        
                       
                     end;
                     
                     exit Cycle;
                     
                  end;
                     
                   exception
                  when Text_Io.End_Error =>
                     New_Line;
                     Put_Line("End of line error : please try again ! " );
                     exit;
                   end;
                end loop;
             end loop;
              end;
           end;
            
        exception
           when Text_Io.End_Error =>
              New_Line;
              Put_Line("End of line error : please try again ! " );
              exit;
        end;
        
         end loop;
         
      end loop Clock_Error;
         
   end loop Cycle;
      
end Main;

Le resultat pour exemple :

Sleep cycles : sleeping calcul and information...

Please, enter clock sleep down : (hour/23:minutes/59) and press enter
sleep down to : 22:20
Please, enter clock sleep up : (hour/23:minutes/59) and press enter.
sleep up to : 06:10
Sum minutes of all cycles in sleep period :
530
Cycle(s) duration between 90..115 minutes :
106
Cycles number in period :
5
Begin/End of Cycles by 24 hours :
hh:mn
22:20
00:06
01:52
03:38
05:24
07:10
08:56
10:42
12:28
14:14
16:00
17:46
19:32
21:18
23:04

S'il vous plait !

Merci.

Message édité par µjoshua wopr le 06-11-2018 à 23:18:30

---------------
Strange game! jovalise on soureforge.net

antac

Tu es du genre à adorer les machines de Goldberg non ?

Message cité 1 fois

TotalRecall

antac a écrit :

Tu es du genre à adorer les machines de Goldberg non ?

[:tekways]

J'ai pas cherché à comprendre le code, mais ça parait sacrément long pour un truc qui cherche à calculer un truc fantaisiste.
A la limite si tu crois à ces histoires de cycles de sommeil calcule juste les heures possibles de réveil pour une heure de coucher.
Même si y a pas besoin d'écrire un programme pour ça, en 3 minutes de C# :

Code :

int pas = 90;
TimeSpan sleep = new TimeSpan(22, 00, 00);
var wake = sleep;
for(int jovalise = 2; jovalise < (14*60)/pas; jovalise++)
{
wake = wake.Add(TimeSpan.FromMinutes(pas));
wake.Dump();
}

---------------
Topic .Net - C# @ Prog

µjoshua wopr

WOPR V 0.0.0

Mouais.
Mais C c'est as been.

Message édité par µjoshua wopr le 08-11-2018 à 11:14:10

---------------
Strange game! jovalise on soureforge.net

µjoshua wopr

WOPR V 0.0.0

Le truc aussi simple de ton point de vue, ça dois pas être terrible en fait vus les contraintes de représentation du temps.

En plus mon plaisir c'est de programmer et avec Ada.

Vous vous êtes donc trompé de cat.

---------------
Strange game! jovalise on soureforge.net

TotalRecall

Oui mais comme t'es le dernier à faire de l'ADA faut s'adapter, tu demandais un algo, pas un programme entier. C'est pas moi qui me suis trompé de cat mais toi de planète je pense.

Et pour avoir un truc qui calcule la durée possible des cycles à partir de l'heure de réveil c'est toujours facile, solution très courte en brute force :

Code :

TimeSpan sleep = new TimeSpan(19, 30, 00);
var actualWake = new TimeSpan(1, 7, 20, 00);
for(int cycle = 5; cycle < 9; cycle++)
{
for(int pas = 90; pas <= 120; pas++)
{
var wake = sleep.Add(TimeSpan.FromMinutes(pas * cycle));
//wake.Dump();
if(Math.Abs(actualWake.Subtract(wake).TotalMinutes) < 4)
Console.WriteLine("Trouvé ! " + pas + " minutes en " + cycle + " cycles" );
}
}

Sachant que je n'aime pas écrire de l'algo, donc autant faire direct un truc qui fonctionne dans un langage qui me parle , facile à la lecture d'en déduire l'algo (naïf mais qui doit très bien fonctionner si je ne me suis pas gouré).

Pour une durée hypothétique de cycle entre 90 et 120, 5 à 8 cycles et avec une tolérance de 4 minutes ça donne :
Trouvé ! 118 minutes en 6 cycles
Trouvé ! 101 minutes en 7 cycles

Message édité par TotalRecall le 09-11-2018 à 14:55:54

---------------
Topic .Net - C# @ Prog

µjoshua wopr

WOPR V 0.0.0

C'est ça.
Aranger toi pour écrire que J'ai Thau(r) et que tu à posté dans la bonne cat et même que tu répond à la question mieux que je ne la pose. Et ce strictement vraissemblant d'une réponse.
C'est ça...

---------------
Strange game! jovalise on soureforge.net

µjoshua wopr

WOPR V 0.0.0

N'empêche ; le code que J'ai posté est buggé.

Si vous entrez 20:00-04:00, ça lève range check failed.

Message cité 1 fois

---------------
Strange game! jovalise on soureforge.net

antac

Tu ne voudrais pas plutôt faire une partie d'échec ?

Harkonnen

Modérateur
Un modo pour les bannir tous

Non, il préfère une guerre thermonucléaire globale.

---------------
J'ai un string dans l'array (Paris Hilton)

antac

D'où le fait de coder en Ada...

MaybeEijOrNot

but someone at least

Moi non plus je ne connais pas Ada, vois si ce pseudo-code peut t'aider :

Code :

// Déclaration des variables et constantes
// Élément Nom Type
Constante Durée_Minimale_Cycle Entier_Naturel_8_bits
Constante Durée_Maximale_Cycle Entier_Naturel_8_bits
Variable Date_Heure_Début_Sommeil Chaîne_de_caractères
Variable Date_Heure_Fin_Sommeil Chaîne_de_caractères
Variable Heures_Début_Sommeil Entier_Naturel_5_bits
Variable Minutes_Début_Sommeil Entier_Naturel_6_bits
Variable Heures_Fin_Sommeil Entier_Naturel_5_bits
Variable Minutes_Fin_Sommeil Entier_Naturel_6_bits
Variable Durée_Sommeil Entier_Naturel_10_bits
Variable Itération Entier_Naturel_4_bits
Variable Durée_Cycle Entier_Naturel_8_bits
Variable Cycles Tableau_Entier_Naturel_4_bits
// Déclaration des méthodes
// Élément Nom(Paramètre[type]) Type
Méthode Méthode_Demander_Affectation() Chaîne_de_caractères
Méthode Méthode_Vérifier_Format(Date_Heure_Sommeil[Chaîne_de_caractères]) Booléen
Méthode Méthode_Parser_Heures(Date_Heure_Sommeil[Chaîne_de_caractères]) Entier_Naturel_5_bits
Méthode Méthode_Parser_Minutes(Date_Heure_Sommeil[Chaîne_de_caractères]) Entier_Naturel_6_bits
// Définition des méthodes
Méthode_Demander_Affectation() :
ouvre une fenêtre de saisie à l'utilisateur
indique ce qu'il doit saisir
RETOURNE la valeur saisie
Méthode_Vérifier_Format(Date_Heure_Sommeil) :
RETOURNE VRAI SI la chaîne de caractères correspond au format attendu SINON FAUX
Méthode_Parser_Heures(Date_Heure_Sommeil) :
Parse Date_Heure_Sommeil pour récupérer le nombre d'heures
RETOURNE le nombre d'heures
Méthode_Parser_Minutes(Date_Heure_Sommeil) :
Parse Date_Heure_Sommeil pour récupérer le nombre de minutes
RETOURNE le nombre de minutes
// Affectation des constantes
AFFECTER 90 À Durée_Minimale_Cycle
AFFECTER 120 À Durée_Maximale_Cycle
// Affectation des variables par l'utilisateur
TANT QUE ((Date_Heure_Début_Sommeil NON Chaîne_de_caractères) OU (Méthode_Vérifier_Format(Date_Heure_Début_Sommeil))) FAIRE
AFFECTER Méthode_Demander_Affectation() À Date_Heure_Début_Sommeil
FIN TANT QUE
TANT QUE ((Date_Heure_Fin_Sommeil NON Chaîne_de_caractères) OU (Méthode_Vérifier_Format(Date_Heure_Fin_Sommeil))) FAIRE
AFFECTER Méthode_Demander_Affectation() Date_À Heure_Fin_Sommeil
FIN TANT QUE
// Calcul de la durée du sommeil en minutes
AFFECTER Méthode_Parser_Heures(Date_Heure_Début_Sommeil) À Heures_Début_Sommeil
AFFECTER Méthode_Parser_Minutes(Date_Heure_Début_Sommeil) À Minutes_Début_Sommeil
AFFECTER Méthode_Parser_Heures(Date_Heure_Fin_Sommeil) À Heures_Fin_Sommeil
AFFECTER Méthode_Parser_Minutes(Date_Heure_Fin_Sommeil) À Minutes_Fin_Sommeil
SI Heures_Début_Sommeil SUPÉRIEUR À 11 ALORS
AFFECTER Minutes_Début_Sommeil PLUS 60 FOIS (24 MOINS Heures_Début_Sommeil) À Durée_Sommeil
SI Heures_Fin_Sommeil SUPÉRIEUR OU ÉGALE À 0 ALORS
AFFECTER Durée_Sommeil PLUS Minutes_Fin_Sommeil PLUS 60 FOIS Heures_Fin_Sommeil À Durée_Sommeil
SINON
AFFECTER Durée_Sommeil PLUS Minutes_Fin_Sommeil PLUS 60 FOIS Heures_Fin_Sommeil MOINS 60 FOIS 24 À Durée_Sommeil
FIN SI
SINON
AFFECTER Minutes_Fin_Sommeil MOINS Minutes_Début_Sommeil PLUS 60 FOIS (Heures_Fin_Sommeil MOINS Heures_Début_Sommeil) À Durée_Sommeil
FIN SI
// Calcul du nombre de cycles et de leur durée
SI Durée_Sommeil SUPÉRIEUR À Durée_Minimale_Cycle MOINS 1 ALORS
AFFECTER (Durée_Sommeil DIVISÉ PAR Durée_Minimale_Cycle TRONQUÉ À L'ENTIER) À Itération
FAIRE
AFFECTER ARRONDI À L'ENTIER DE (Durée_Sommeil DIVISÉ PAR Itération) À Durée_cycle
AFFECTER Durée_cycle À Cycles d'indice Itération
AFFECTER Itération PLUS 1 À Itération
TANT QUE Durée_Sommeil DIVISÉ PAR Itération INFÉRIEUR OU ÉGALE À Durée_Maximale_Cycle
PARCOURIR TABLEAU Cycles
Méthode_Afficher_Message(CONCATENER indice de Cycles ET " cycle(s) de " ET Cycles d'indice ET " minutes." ET Saut de ligne)
FIN PARCOURIR
SINON
Méthode_Afficher_Message(CONCATENER "Un seul cycle incomplet de sommeil d'une durée de " ET Durée_Sommeil)
FIN SI
// Fin du programme

Il est plus économique en performances que le "brute force".

Message édité par MaybeEijOrNot le 10-11-2018 à 10:38:25

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Bonsoir,

J'expertiserai l'algo plus largement si je bute sur me debuggage de mon code trop longtemps.

En tout cas merci.

Néanmoins, je m'interroge déjà sur la signification de la ligne 62 qui semble multiplier 60 fois une heure.

A mon avis c'est une erreur du à l'embrouille que pourrait générer ce problème pour tout individu.

En tout cas bravo au moins pour l'intelligibilité de ce pseudo-code pour moi.

:jap:

Message cité 1 fois

---------------
Strange game! jovalise on soureforge.net

MaybeEijOrNot

but someone at least

µjoshua wopr a écrit :

Néanmoins, je m'interroge déjà sur la signification de la ligne 62 qui semble multiplier 60 fois une heure.

Je suis parti sur la base des unités internationales, dans laquelle les heures sont composées de 60 minutes, et j'exprime le résultat en minutes. Tu peux toujours améliorer le code pour ensuite reconvertir le résultat dans un autre format.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Merci.
Je viens d'y penser.
Oû avais-je l'esprit ?

---------------
Strange game! jovalise on soureforge.net

MaybeEijOrNot

but someone at least

Au passage je viens de changer la condition Faire ... Tant que qui n'était pas sur la bonne itération.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Bonjour MayBe.

Malgré le fait qu'il semble que j'ai trouvé au moins une première modification de mon code je jetterais un oeil sur le tiens/votre.

Alors je ne sais pas vraiment quelles pourraient être les distinctions faites d'un bout à l'autre ; Mais voici les deux boucles pour l'affichage du tableau de 24h de cycles.

Code :

-- print 24hours of N cycles.
 
declare
 
    Day_Array : Cycles_Array := (others => (0, 0));
 
    O_Clock_In_Minute : Natural := Sleep_Down.Hour * 60 + Sleep_Down.Minute;
 
    Max_O_Clock_In_Minute : Natural := O_Clock_In_Minute + Minutes_By_Day;
 
    Exhausted : Boolean := False;
 
    Count : Natural := 0;
 
begin
 
    Put_Line("Cycle num in write : " );
    loop                                           
 
        Put_Line(Integer'Image(Count + 1));
 
        if O_Clock_In_Minute >= Max_O_Clock_In_Minute then
 
 
            exit;
 
        else
 
            O_Clock_In_Minute := O_Clock_In_Minute + Minutes_Sum_Period / Div;
 
        end if;
 
 
        if O_Clock_In_Minute >= Minutes_By_Day then
 
            Day_Array(Count + 1).Hour := (O_Clock_In_Minute - Minutes_By_Day) / 60;
            Day_Array(Count + 1).Minute := (O_Clock_In_Minute - Minutes_By_Day) Rem 60;
        else
 
            Day_Array(Count + 1).Hour := O_Clock_In_Minute / 60;
            Day_Array(Count + 1).Minute := O_Clock_In_Minute rem 60;
        end if;
 
        Count := Count + 1;
 
 
    end loop;
 
 
    Put_Line("Begin/End of Cycles by 24 hours : " );
    Put_Line("hh:mn" );
 
    for Cycle_Num in 1..count loop
        if Day_Array(Cycle_Num).Hour <= 9 then
            Put('0');
            Integer_Text_Io.Put(Day_Array(Cycle_Num).Hour, 0);
        elsif Day_Array(Cycle_Num).Hour = 24 then
            Put("00" );
        else
            Integer_Text_Io.Put(Day_Array(Cycle_Num).Hour, 0);
        end if;
 
        Put(":" );
        if Day_Array(Cycle_Num).Minute <= 9 then
            Put('0');
        end if;
        Integer_Text_Io.Put(Day_Array(Cycle_Num).Minute, 0);
        New_Line;
    end loop;
 
end;

du coup j'ai vérifié si 20:00-04:00 fonctionnait ; Et pas autre chose.

---------------
Strange game! jovalise on soureforge.net

MaybeEijOrNot

but someone at least

Faudrait essayer le code sur un ordinateur.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Attends !

Je n'ai exécuté que 2 ou trois algo de tête dans ma vie don au moins le hello world. [:dpenche]

Message édité par µjoshua wopr le 10-11-2018 à 19:11:19

---------------
Strange game! jovalise on soureforge.net

MaybeEijOrNot

but someone at least

Faudrait voir si l’exécution est réversible si tu lances en adA comme c'est un palindrome.

---------------
C'est en écrivant n'importe quoi qu'on devient n'importe qui.

µjoshua wopr

WOPR V 0.0.0

Difficile.
Même en admettant qu'il fait jour en moyenne 1/2 partie d'un tour axial de l'astre originel.

12h de lumière il est midi à 6h et minuit à 18h mais de la à le voir comme l'inverse... Je plaisante.

---------------
Strange game! jovalise on soureforge.net

rufo

Pas me confondre avec Lycos!

µjoshua wopr a écrit :

N'empêche ; le code que J'ai posté est buggé.

Si vous entrez 20:00-04:00, ça lève range check failed.

Ah ben ça alors, ça m'étonne ! :sleep:

Quand je lis ce genre de topic, c'est tellement surréaliste les propos de Jovalise que j'en viens à me demander si on parlerait pas à un chatbot mal branlé ou qui aurait déraillé... :pt1cable:

---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta

TotalRecall

Tu crois que µjoshua wopr est comme le bot psychotique de twitter il y a quelques années qui voulait éradiquer l'humanité au bout de 24h :??:
:fouyaya:

Message cité 1 fois

---------------
Topic .Net - C# @ Prog

Publicité

Page : 1 2

Page Suivante

Page Précédente

Haut de page

FORUM HardWare.fr

Programmation

Ada

Calcule de la durée d'un cycle de sommeil

Sujets relatifs
Calcul durée entre 2 dates et heures	Java calcule moyen des heure
Comment afficher une image de durée limitée sous MATLAB ?	Durée de plages de présence
Decompter un chiffre sur un durée	Calcul d'un orthodromie et recouvrement d'une sphère.
Calcul de durée entre deux dates.	Calculer la durée d'un pas selon le tempo et la signature rythmique
ecrire un programme (pascal) qui calcule X puissance n ?!!!	[Gestion projet] Évaluation de la durée ?
Plus de sujets relatifs à : Calcule de la durée d'un cycle de sommeil

Page générée en 0.191 secondes