Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
vitesse en un point (physique 2nde)
Auteur Message
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Dim 22 Mai 2011, 14:21   Citer 

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
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Dim 22 Mai 2011, 16:04   Citer 

Celui-ci pourrait m'être très utile quand je me prends la tête avec les échelles bigmouth.gif

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)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Lun 23 Mai 2011, 9:44   Citer 

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
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
sandro
Avatar

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 28 Mai 2011, 22:30   Citer 

Voici le .83p

VITESSE.83p

Sandro

PS: il vous faudra peut-être remetre VITESSE.83p comme nom (avec extetion)

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa