Programme Mécanique

[invite2fb6afbb]

Bonjour à tous !

Alors voilà je ne sais pas ce que ça donne mais j'ai fais un petit programme (mon 1er) sur une texas instrument. Il consiste à calculer les projections sur un plan X; Y pour une force orientée (xF, yF). En utilisant l'angle orientée.

Un dessin à l'arrache mais l'angle orientée serai de 150°, donc avec cette angle on aura toujours xF avec Cos et yF avec Sin, avec toujours la force positive.

Donc voilà la chose :

Lbl 0
Disp "Force :"
Prompt F
If F>0
Goto 1
If F=0
Goto 2
Lbl1
Disp "Angle:"
Prompt A
Disp "XF="
F*cos(A)->X
Disp X
Pause
Disp "YF="
F*sin(A)->Y
Disp Y
Pause
Disp "END"
Pause
Goto 0
Lbl 2
Disp "XF:"
Prompt X
If X=0
Goto 3
If X>0
Goto 4
Lbl 4
Disp "Angle:"
Prompt A
Disp "F="
X/cos(A)->F
Disp F
Pause
Disp "YF="
F*sin(A)->Y
Disp Y
Pause
Disp "END"
Pause
Goto 0
Lbl 3
Disp "YF:"
Prompt Y
Disp "Angle:"
Prompt A
Disp "F="
y/sin(A)->F
Disp F
Pause
Disp "YF="
F*cos(A)->Y
Disp Y
Disp "END"
Pause
Goto 0

Bon c'est mon tout 1er programme jamais programmé avant donc si c'est surchargé ou quoi, je ne demande qu'a apprendre ^^

Ensuite je ne suis pas une flèche en mécanique et je voulais savoir si mon programme marche dans tous les cas. Je l'ai testé avec mes connaissances en mécanique mais au délà je ne peux pas, pour moi il me parait bon ... sauf que je n'ai pas testé tous les cas de figure

Voilà si quelqu'un de plus doué que moi peux tester ce programme ce serait bien sympathique ^^
-----

[cedbont]

Bonjour,
j'ai regardé rapidement, mais tu étudies aussi le cas où F=0. Pourquoi, alors, ne dis-tu pas que X=Y=0, d'emblée ?

[mamono666]

salut,

je trouve que tu décomposes un peu trop. Je ne sais pas s'il est vraiment nécessaire de faire autant de cas. Je n'ai pas testé, mais le début à l'air correcte (sauf peut etre pour les angles s'ils sont donnés en degré).

Perso, j'aurrais fait comme ca:

Disp "Norme de la Force :"
Prompt F
Disp "Angle avec l'axe X:"
Prompt A
F*cos(A /180)->x
F*sin(A /180)->y
Disp "Xf="
Disp x
Disp "Yf="
Disp y

si tu voulais les valeurs positives tu met un abs(F*sin(A /180))

j'aurrais mis seulement ca, ca devrait fonctionner dans tous les cas.

[invite2fb6afbb]

J'ai mis F=0 c'est pour dans les cas ou F n'est pas connu, donc ça nous renvois à donner xF ou yF, pareil pour xF=0, donc partant de ce principe, si on a pas xF et F on doit avoir yF et bien entendu l'angle.

Donc si on mets F=0 ça nous demande xF et si on rentre une valeur pour xF, ça nous calcul F et yF pareil pour yF (calcul de F et xF).

Je n'ai pas compris ton (Pi/180)->x

[A voir en vidéo sur Futura]

[mamono666]

J'ai mis F=0 c'est pour dans les cas ou F n'est pas connu, donc ça nous renvois à donner xF ou yF, pareil pour xF=0, donc partant de ce principe, si on a pas xF et F on doit avoir yF et bien entendu l'angle.

Donc si on mets F=0 ça nous demande xF et si on rentre une valeur pour xF, ça nous calcul F et yF pareil pour yF (calcul de F et xF).

Je n'ai pas compris ton (Pi/180)->x

ah ok, je n'avais pas compris que ca voulais dire F inconnu.

je passe l'angle en radian donc je multiplie par pi et divise par 180, ca c'est juste dans le cas où on entre un angle en degré. Si tu rentres les angles directement en radian, alors on peut l'enlever.

donc en sachant que F=0 veut dire F inconnu, j'aurrais mis comme ca:

Disp "Norme de la Force :"
Prompt F
if F=0
Goto 1
Disp "Angle avec l'axe X:"
Prompt A
F*cos(A /180)->x // si l'angle est donné en degré
F*sin(A /180)->y
Disp "Xf="
Disp x
Disp "Yf="
Disp y
Lbl 1
Disp "Composante X:"
Prompt X
Disp "Composante Y:"
Prompt Y
sqrt(X^2+Y^2)->Z
Disp "Norme de la force:"
Disp Z

dans le cas F inconnu on peut aussi lui faire calculer l'angle
cos^-1(X/Z)*180/ donnera l'angle par rapport à l'axe x en degré.

[invite2fb6afbb]

Je vais tester tout ça merci beaucoup ^^