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 ┃

⟦fc61ca042⟧ TextFile

    Length: 3391 (0xd3f)
    Types: TextFile
    Names: »TUBE_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*120) TonY:500.   
         Tortue baisseTaPlume.              
         Tortue moyen.             
         Tortue TonAngle:270.               
         Tortue Avance:s.                   
         Tortue TonAngle:0.                 
         Tortue Avance:120.                 
         Tortue TonAngle:90.                
         Tortue Avance:s.                   
         Tortue leveTaPlume.                
         Tortue petit.             
         Stylo TonX:30+(p*120) 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:  281 hauteurMax:  800 temps:  18 classe: "INTEGER_CLASSE".
barre position:  2 hauteur:  0 hauteurMax:  800 temps:  0 classe: "BOOLEAN_CLASSE".
barre position:  3 hauteur:  0 hauteurMax:  800 temps:  0 classe: "STRING_CLASSE".
barre position:  4 hauteur:  800 hauteurMax:  800 temps:  15 classe: "TURTLE_CLASSE".
barre position:  5 hauteur:  0 hauteurMax:  800 temps:  0 classe: "PEN_CLASSE".
barre position:  6 hauteur:  441 hauteurMax:  800 temps:  28 classe: "BLOC_CLASSE".
pour duree prendre  22.
pour nbMessages prendre  1522.
 pour minutes prendre (duree/60).
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.
( minutes >0) sivrai:{
 pour moyenne prendre (nbMessages/minutes).Stylo TonY: 660.
pour txt prendre moyenne EnTexte.
Stylo Ecris:"Moyenne de messages par minute:"&txt.}.