Répondre à la discussion
Affichage des résultats 1 à 6 sur 6

Programme Mécanique



  1. #1
    Coriande

    Programme Mécanique

    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 ^^

    -----


  2. Publicité
  3. #2
    cedbont

    Re : Programme Mécanique

    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 ?
    Sauvons les traders !

  4. #3
    mamono666

    Re : Programme Mécanique

    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.
    Out! Out! You, Demons Of Stupidity!!

  5. #4
    Coriande

    Re : Programme Mécanique

    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

  6. #5
    mamono666

    Re : Programme Mécanique

    Citation Envoyé par Coriande Voir le message
    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é.
    Out! Out! You, Demons Of Stupidity!!

  7. A voir en vidéo sur Futura
  8. #6
    Coriande

    Re : Programme Mécanique

    Je vais tester tout ça merci beaucoup ^^

  9. Publicité

Sur le même thème :

Discussions similaires

  1. programme
    Par sound dans le forum Électronique
    Réponses: 3
    Dernier message: 06/12/2007, 18h50
  2. Programme Ti-84 Plus
    Par Tibérium dans le forum Mathématiques du collège et du lycée
    Réponses: 7
    Dernier message: 17/11/2007, 11h22
  3. programme en vb
    Par souma29 dans le forum Logiciel - Software - Open Source
    Réponses: 0
    Dernier message: 24/03/2007, 16h51
  4. Réponses: 9
    Dernier message: 28/10/2006, 13h23
  5. programme
    Par sifepolik dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 26/04/2006, 13h13