DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T ┃

⟦fbd0c428b⟧ TextFile

    Length: 3265 (0xcc1)
    Types: TextFile
    Names: »TESTCOUNT_STAT«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

pour fleche prendre { avec X:x Y:y Direction:d. [Est-Ouest-Nord-Sud] 
Tortue TonX:x TonY:y.
Tortue baisseTaPlume.
Tortue moyen.
d="Est"SiVrai:{
                Tortue tonAngle:210. 
                Tortue avance:10.    
                Tortue TonX:x TonY:y.
                Tortue tonAngle:150. 
                Tortue avance:10.}.  
d="Ouest"SiVrai:{ 
                Tortue tonAngle:30.   
                Tortue avance:10.     
                Tortue TonX:x TonY:y. 
                Tortue tonAngle:330.  
                Tortue avance:10. }.  
 d="Nord" SiVrai:{ 
                Tortue tonAngle:60.    
                Tortue avance:10.      
                Tortue TonX:x TonY:y.  
                Tortue tonAngle:120.   
                Tortue avance:10. }.   
d="Sud"SiVrai:{ 
               Tortue tonAngle:240.   
               Tortue avance:10.      
               Tortue TonX:x TonY:y.  
               Tortue tonAngle:300.   
               Tortue avance:10.  }.  
Tortue leveTaPlume.        
Tortue petit. }.  
pour axes prendre {        
      Tortue TonY:500 TonX:20.   
      Tortue baisseTaPlume.      
      Tortue avance:750.         
      Tortue leveTaPlume.        
      Tortue TonY:500 TonX:20.   
      Tortue aGauche:90.         
      Tortue baisseTaPlume.      
      Tortue avance:450.         
      Stylo TonX:5 TonY:40.      
Stylo Ecris:"Messages".
Stylo TonX:730 TonY:515.   
Stylo Ecris:"Secondes". }.
pour barre prendre {        
     avec position:p hauteur:h hauteurMax:hm temps:t classe:c.   
     pour p prendre p-1.                
     pour s prendre (450*h)/hm.         
         Tortue TonX:20+(p*100) TonY:500.   
         Tortue baisseTaPlume.              
         Tortue moyen.             
         Tortue TonAngle:270.               
         Tortue Avance:s.                   
         Tortue TonAngle:0.                 
         Tortue Avance:100.                 
         Tortue TonAngle:90.                
         Tortue Avance:s.                   
         Tortue leveTaPlume.                
         Tortue petit.             
         Stylo TonX:30+(p*100) TonY:500-s-10.
         Stylo Ecris: h EnTexte.            
         Stylo TonY:512.                    
         Stylo Ecris: (t EnTexte)&" s.".
 Stylo TonX:20+(p*100) TonY:530. 
Stylo Ecris: c. }. 
axes valeur.
fleche X:770 Y:500 Direction:"Est".
fleche X:20 Y:50 Direction:"Nord".
barre position:  1 hauteur:  1 hauteurMax:  3 temps:  0 classe: "ENTIER".
barre position:  2 hauteur:  0 hauteurMax:  3 temps:  0 classe: "BOOLEEN".
barre position:  3 hauteur:  1 hauteurMax:  3 temps:  0 classe: "CHAINE".
barre position:  4 hauteur:  3 hauteurMax:  3 temps:  0 classe: "TORTUE".
barre position:  5 hauteur:  0 hauteurMax:  3 temps:  0 classe: "STYLO".
barre position:  6 hauteur:  0 hauteurMax:  3 temps:  0 classe: "BLOC".
pour duree prendre  1.
pour nbMessages prendre  5.
Stylo TonY:600 TonX:20. 
pour txt prendre duree EnTexte.
Stylo Ecris: "Duree reelle d'execution: "&(txt)&" Secondes.".
Stylo TonY:630. 
pour txt prendre nbMessages EnTexte. 
Stylo Ecris: "Nombre total de messages:"&txt.
Stylo TonY: 660.
pour moyenne prendre (nbMessages/duree).
pour txt prendre moyenne EnTexte. 
    Stylo Ecris:"Moyenne  messages/secondes:"&txt.