voici un programme qui permet à partir d'une chronophotographie("film à images superposées et où l'objet en question reste en 1er plan") en sachant le temps entre chaque image, la longueur réelle et sur l'image d'une barre d'étalonage, la distance sur l'image entre les différents points, de trouver la vitesse en chaque point
Code
:Disp "LONGUEUR DE BARR","E D'ETALONNAGE","EN METRES
:Input "(ENREGISTREMENT)",A
:Input "(REEL)",B
:B/A -> Y
:Disp "ECHELLE *",Y
:Input "TAUX (EN SEC):",Z
:Disp "DIST T(X)-T(X')"
:INPUT "NOMBRE DE POINTS:",P
:P -> dim(Liste1
:P-1 -> dim(Liste2
:For(C,1,P-1
:ClrHome
:Output(1,1,"DISTANCE ENTRE P ET P EN ME-
:Output(2,2,C
:Output(2,8,C+1
:Input "TRES:",D
:D -> Liste1(C
:End
:YListe1 -> Liste1
:For(C,1,P-1
:.5Z [^-1] (Liste1(C)+Liste1(C+1 -> Liste2(C
:For(C,1,dim(Liste2)
:If C/7=ent(C/7
:pause
:ClrHome
:Output(1,1,"VITESSE EN M/S
:End
:Output(7ent(C/7+2),1,"EN P :
:Output(7ent(C/7+2),5,C+1
:Output(7ent(C/7+2),8,Liste2(C
:End