Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 22 Mai 2011, 14:21
Bonjour/bonsoir
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
Voici le programme
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
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 22 Mai 2011, 16:04
Celui-ci pourrait m'être très utile quand je me prends la tête avec les échelles
Le coté calcul des vitesses est très bien mais ce n'est pas ce qui m'intéresse le plus.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 23 Mai 2011, 9:44
fais-en ce que tu veut, tu peut même le modifier et/ou le redistribuer sous ton nom, ça me dérange pas, c'était juste pour gagner du temps en TP de physique sur le mouvemen (moi aussi je m'embrouillait avec les échelles.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
