Traceur de courbes représentatives des fonctions y = f(x)

rem ============================================================================
rem                    Problème I : Le mouton
rem ============================================================================
rem Un lion, un chien et un renard dévorent ensemble un mouton.
rem Le lion seul mange le mouton en une heure,
rem le renard en quatre heures et le chien en six heures.
rem S ils le dévorent ensemble, combien de temps leur faudra-t-il ?
rem ============================================================================

dim t1 : t1 = 1/3600       : '  3600 s = 1 h pour le lion
dim t2 : t2 = 1/14400      : ' 14400 s = 4 h pour le renard
dim t3 : t3 = 1/21600      : ' 21600 s = 6 h pour le chien
dim t  :  t = t1 + t2 + t3 : ' t représente le temps total
dim i  :  i = 1            : ' compteur des secondes
dim reste : reste = 1
dim x,mn
Font_bold 0 : font_size 0,14 : print_y_locate 100
while i < 3600  : ' tant que le mouton n'est pas entièrment mangé
    reste = reste - t : ' il reste encore du temps
    if reste < 0  : ' s'il ne reste plus de temps, alors GAME OVER pour le mouton !
       x = i - 1 : mn = int(x/60) : reste = mod(x,60) : ' calcul minutes et secondes
       print " Le pauvre mouton sera mangé entre " ; mn ; " mn " ; reste ; " s et " ; mn ; " mn " ; reste+1 ; " s"
       exit_while : ' Le spectacle est terminé, on sort
    end_if
    i = i + 1  : ' on incrémente le temps et on reboucle
end_while
rem ============================================================================

rem ============================================================================
rem            Problème II : Le tonneau
rem ============================================================================
rem Un tonneau a trois bouchons.
rem Quand on retire le plus gros, le tonneau se vide en une heure.
rem Quand on retire le moyen, il se vide en deux heures.
rem Quand on retire le plus petit, il se vide en trois heures.
rem En combien de temps le tonneau se videra-t-il si l on retire les trois bouchons à la fois?
rem ============================================================================
dim c  : c  = 1        : ' c est la capacité du tonneau. La valeur 1 est arbitraire
dim f1 : f1 = c/60     : ' Les variables f1, f2, f3 représentent ...
dim f2 : f2 = c/120    : ' ... les fuites par minute ...
dim f3 : f3 = c/180    : ' ... par chaque bouchon
dim f  : f  = f1+f2+f3 : ' f représente la fuite totale par minute
dim reste              : ' Quantité de liquide qui reste dans le tonneau.
dim i                  : ' compteur
i = 1 : reste = c
font_bold 0 : font_size 0,14 : print_locate 10,100
while i < 60           : ' tant que le tonneau n'est pas vide
    reste = reste - f  : ' il reste encore du liquide
    if reste < 0       : ' s'il n'y a plus de liquide, c'est que le tonneau est entièrement vidé
       print "Le tonneau sera vide entre la " ; i-1 ; " ème et la " ; i ; " ème minute"
       exit_while      : ' bye bye !
    end_if
    i = i + 1          : ' au suivant !
end_while
rem ============================================================================