[82] Traject

Voir le sujet précédent Voir le sujet suivant Aller en bas

[82] Traject

Message par AlexRider38 le Ven 16 Juil - 8:50

Voici un programme de calcule des trajectoires balistiques:

Code:
:0→A:0→B
:Param
:0→Tmin
:3→Tmax
:.02→Tstep
:-2→Xmin
:25→Xmax
:5→Xscl
:-2→Ymin
:10→Ymax
:5→Yscl
:Lbl 0
:Menu("TRAJECT","TRAJECTOIRE",1,"CONVERSION",2,"QUITTER",3
:Lbl 1
:ClrHome
:Input "VITESSE (M/S)  ",A
:ClrHome
:Input "ANGLE (MAX.90°)  ",B
:ClrHome
:Disp "VITESSE",A,"ANGLE",B
:Pause
:ClrHome
:Output(1,1,"DESCRPTION:
:Output(3,3,"CALCUL DE
:Output(4,3,"TRAJECTOIRE
:Output(5,3,"BALISTIQUE
:Pause
:ClrHome
:Output(1,1,"T:TEMPS (SEC.)
:Output(2,1,"X:DISTANCE
:Output(3,1,"Y:HAUTEUR
:Pause
:ClrHome
:"ATcosB°"→X[sub]1T[/sub]
:"ATcosB-(9.8/2)T[sub]2[/sub]"→Y[sub]1T[/sub]
:Trace
:Goto 0
:Lbl 2
:ClrHome
:Menu("CONVERSION","KM/H:M/S",4,"M/S:KM/H",5,"RETOUR",0
:Lbl 4
:Input "KM/H:",A
:Disp "M/S:",A/3.6
:Pause
:0→A
:ClrHome
:Goto 2
:Lbl 5
:Input "M/S",B
:Disp "KM/H:",B*3.6Pause
:0→B
:Goto 2
:Lbl 3
:""→X[sub]1T[/sub]
:""→Y[sub]1T[/sub]
:ClrHome
:ClrDraw
:ZStandard
:Func
:Output(1,1,"
:

voila

AlexRider38
Or 4
Or 4

Sexe : Masculin
Age : 19
Messages : 579
Date d'inscription : 11/07/2010
Etudes : Lycéen
Points Forum : -10
Points Concours : 0
Langages :
  • - TI-Basic Z80
  • - Axe Parser
  • - TI-Basic Nspire
  • - Lua Nspire
  • - Ndless Nspire
Calculatrices :
  • - TI-Collège
  • - TI-80
  • - TI-82
  • - TI-82 Stats.fr
  • - TI-84 Pocket.fr
  • - TI-Nspire CAS
  • - TI-Nspire CX

TI-84 Pocket.fr


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum