probleme de geometrie

Backup · Message par **Backup** » dim. 31/juil./2005 17:57

j'ai la coordonée d'un point de depart x,y

j'ai un angle mettons 45 degré
j'ai une longueur mettons 50

je voudrai connaitre la coordonée x,y d'arrivé le plus proche
en fait je voudrai la formule magique a appliquer pour chaque angle
qui me retourne le X et Y d'arrivé

(un peu comme le dessin d'une aiguille d'une horloge voyez-vous !

)

je suis trop nul en Geometrie !!

allez les tronches de Matheux au boulot ! sortez moi de cette boue !!

............... SVP

comtois · Message par **comtois** » dim. 31/juil./2005 18:20

rien que pour le tronche de matheux j'avais pas envie de répondre

la nouvelle coordonnée en x' = x+cos(Angle)*Longueur
la nouvelle coordonnée en y' = y+sin(Angle)*Longueur

Code : Tout sélectionner

InitSprite()
InitKeyboard()
OpenScreen(800,600,32,"")
CreateSprite(0,800,600)
x=400
y=300
Longueur=50
Repeat
    FlipBuffers()
    DisplaySprite(0,0,0)
    
    Angle + 1
    If Angle>360
        Angle = 0
        Couleur=Random($FFFFFF)
        Longueur + 6
        If Longueur> 280
            Longueur = 50
        EndIf    
    EndIf
    
    StartDrawing(SpriteOutput(0))
        x1=x+Cos(Angle * 0.0174533)*Longueur
        y1=y+Sin(Angle * 0.0174533)*Longueur
        Circle(x1,y1,3,Couleur)
    StopDrawing()
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)

Backup · Message par **Backup** » dim. 31/juil./2005 18:25

rien que pour le tronche de matheux j'avais pas envie de répondre Smile

t'avais compris que c'etait humouristique au moins ??

Merci beaucoup pour la reponse je regarde ça tout de suite !!

Merci encore ....

lionel_om · Message par **lionel_om** » dim. 31/juil./2005 18:25

Code : Tout sélectionner

#PI = 3.14159


Procedure.f RotationX(x.f, angle.f, dist.f)
  
  ProcedureReturn x + Cos(angle*#PI/180)*dist
  
EndProcedure


Procedure.f RotationY(y.f, angle.f, dist.f)
  
  ProcedureReturn y + Sin(angle*#PI/180)*dist
  
EndProcedure


For i = 0 To 270 Step 90
  Debug "Rotation de "+Str(i)+"°"
  Debug RotationX(50, i, 50)
  Debug RotationY(50, i, 50)
Next i

Zut j'arrive un peu tard ...

comtois · Message par **comtois** » dim. 31/juil./2005 18:26

Dobro a écrit :
rien que pour le tronche de matheux j'avais pas envie de répondre Smile
t'avais compris que c'etait humouristique au moins ??

Bien sûr , je commence à te connaitre

Backup · Message par **Backup** » dim. 31/juil./2005 18:27

Merci a toi aussi lionel_om

Backup · Message par **Backup** » dim. 31/juil./2005 18:28

Bien sûr , je commence à te connaitre

ouf !!