Programme complet : ONDES

Salut à tous !

Tout d'abord, le programme que je vais présenter n'est pas terminé, je le compléterai au fur et à mesure en mettant à jour ce post...

Ce programme te permettra d'effectuer quelques calculs sur le chapitre des Caractéristiques Des Ondes (Terminale S) :
• Célérité ou Vitesse (célérité: sans transport de matière ≠ vitesse: avec transport d'énergie / formule: v=d/t)
          - Distance
          - Vitesse
• Retard (t'=t+τ et τ=d/v)
• Fréquence (f=1/T)
• Périodicité (λ=v*T et λ=v/f)
• Intensité sonore (I=P/S) NEW !
• Niveau sonore (L=10*log(I/I0) et I=I0*10^L/10) NEW !

Programme (~1200 octets):

Code:

  EffEcr
  Menu("CHOIX","CELERITE", 1,"RETARD",2,"FREQUENCE",3,"PERIODICITE",4,"INTENSITE",5
Lbl Q
  Pause
  Normal
  EffEcr
  Stop
Lbl 1
  Menu("CELERITE","DISTANCE",A,"VITESSE",B
Lbl A
  Disp "T:S
  Disp "T2-T1=T
  Input "T1=",A
  Input "T2=",B
  B-A->R
  Disp "T=
  Output(5,3,R
  Goto Q
Lbl B
  Disp "V:MS-1 D:M T:S
  Disp "V=D/T
  Menu("VITESSE","V",B1,"D",B2,"T",B3
Lbl B1
  Input "D=",A
  Input "T=",B
  A/B->R
  Disp "V=
  Output(5,3,R
  Goto Q
Lbl B2
  Input "V=",A
  Input "T=",B
  AB->R
  Disp "D=
  Output(5,3,R
  Goto Q
Lbl B3
  Input "V=",A
  Input "D=",B
  B/A->R
  Disp "T=
  Output(5,3,R
  Goto Q
Lbl 2
  Disp "T'=T+TAU
  Disp "TAU=D/V
  Input "D(AB)=",A
  Input "V=",B
  A/B->R
  Disp "TAU=
  Output(5,4,R
  Goto Q
Lbl 3
  Disp "F:HZ T:S
  Disp "F=1/T
  Menu("FREQUENCE","F",C,"T",D
Lbl C
  Input "T=",A
  1/A->R
  Disp "F=
  Output(5,3,R
  Goto Q
Lbl D
  Input "F=",A
  1/A->R
  Disp "T=
  Output(5,3,R
  Goto Q

Lbl 4
  Menu("PERIODICITE","LAMBDA:V*T",E,"LAMBDA:V/F",F
Lbl E
  Disp "L:M V:M.S-1 T:S
  Disp "LAMBDA=V*T"
  Menu("LAMBDA:V*T","LAMBDA",E1,"V",E2,"T",E3
Lbl E1
  Input "V=",A
  Input "T=",B
  AB->R
  Disp "LAMBDA=
  Output(5,8,R
  Goto Q
Lbl E2
  Input "LAMBDA=",A
  Input "T=",B
  A/B->R
  Disp "V=
  Output(5,3,R
  Goto Q
Lbl E3
  Input "LAMBDA=",A
  Input "V=",B
  A/B->R
  Disp "T=
  Output(5,3,R
  Goto Q
Lbl F
  Disp "L:M V:M.S-1 F:HZ
  Disp "LAMBDA=V/F"
  Menu("LAMBDA:V/F","LAMBDA",F1,"V",F2,"F",F3
Lbl F1
  Input "V=",A
  Input "F=",B
  A/B->R
  Disp "LAMBDA=
  Output(5,8,R
  Goto Q
Lbl F2
  Input "LAMBDA=",A
  Input "F=",B
  AB->R
  Disp "V=
  Output(5,3,R
  Goto Q
Lbl F3
  Input "LAMBDA=",A
  Input "V=",B
  B/A->R
  Disp "F=
  Output(5,3,R
  Goto Q
Lbl 5
  Disp "I:W/M² P:W S:M²
  Disp "I=P/S
  Menu("INTENSITE","I",G,"P",H,"S",I
Lbl G
  Input "P:",A
  Input "S:",B
  A/B->R
  Disp "I=
  Output(5,3,R
  Goto Q
Lbl H
  Input "I:",A
  Input "S:",B
  AB->R
  Disp "P=
  Output(5,3,R
  Goto Q
Lbl I
  Input "I:",A
  Input "P:",B
  B/A->R
  Disp "S=
  Output(5,3,R
  Goto Q
Lbl 6
  Disp "L:DB I:W/M²
  Disp "L=10log(I/I0)
  Disp "I=I0*10^L/10
  Menu("NIVEAU","I",J,"L",K
Lbl J
  Input "L:",A
  Input "I0:",B
  B10^(A/10)->R
  Disp "I=
  Sci
  Output(6,3,R
  Goto Q
Lbl K
  Input "I:",A
  Input "I0:",B
  10log(A/B)->R
  Disp "L=
  Output(6,3,R
  Goto Q

• lien du programme (A venir !)

Si une erreur figure, une optimisation à faire,... Merci de le signaler.

Si jamais tu as une question, n'hésites pas !

PITO2901.

Programme pratique. Surtout le rappel des unités qui est une bonne habitude à prendre.
Quelqu'un a vraiment besoin d'un programme pour ça ? Je vais plus vite sans programme.

Je crois que des Goto Q sont manquant en fin des sections de B1,B2,B3.
Tu peux placer la section Q à la fin et économiser Goto et Stop.

Linkakro a écrit:Programme pratique. Surtout le rappel des unités qui est une bonne habitude à prendre.
Quelqu'un a vraiment besoin d'un programme pour ça ? Je vais plus vite sans programme.

En effet, je vais moi aussi plus vite sans, mais comme tu l'as dit c'est pour les unités... Et parfois je mélange les formules...

Linkakro a écrit:Tu peux placer la section Q à la fin et économiser Goto et Stop.

C'est à dire ? Comment fais-tu ?

Je parlais de déplacer le Lbl Q et ce qui en dépend selon ce modèle pour pouvoir profiter des effets secondaires de la fin du programme.

exemple:

Oui, c'est vrai merci de ton astuce, mais je laisserai comme tel (sans vouloir te vexer !)
Bonne soirée !

Salut,

C'est sympa d'avoir quelqu'un d'autre en TS, j'ai pas encore commencer à "coder" des programmes cette année, mais bon, surement chaque vacances j'essayerais et je partagerais si un programme équivalent n'existe pas déjà.

En tout cas, merci !

Oui cette année, j'ai décidé de faire de programmes utiles et complets (càd avec formules et unités)...

J'ai vu que Ti Editor n'existe plus, quelqu'un connait quelque chose d'équivalent sur le net ?

De même, je recherche aussi quelque chose de ce style.

pito2901 a écrit:J'ai vu que Ti Editor n'existe plus, quelqu'un connait quelque chose d'équivalent sur le net ?

SourceCoder de Cemetech.
Son unique désavantage est son utilisation des modèles 83/83plus/84plus mais pas 82.
Mais je pense que les fonctionnalités de la version 3 valent bien plus que cette petite contrepartie.
Si sourcecoder 3 n'existait pas, je recommanderais TokenIDE par Merthsoft de Cemetech.

Ok je regarderai ça, merci Linka !