Wiskundig probleem

[phobia]

Voor een klein app in een programma wat ik aan het maken ben moet ik een resultante uitrekenen en daar bij de richting.

Ik zal het ff uitleggen.
Op een cirkel (360graden) heb ik twee vectoren, bv 200 op 270graden en 175 op 45graden.

Nu wil ik dus de grootte en richting van de resultante berekenen.

maar het moet ook werken met 20 op 75graden en 175 op 165.

Voor mij is die wiskunde alweer 20+jaar geleden, zou iemand mij kunnen en willen helpen?

 

[Tardis]

Kijk eens of deze link je verder helpt

http://www.wetenschapsforum.nl/index.php?showtopic=41633

Tardis

 

[phobia]

Ik heb via het web deze functie in elkaar gedraaid,
Misschien dat iemand hem eens voor mij wilt na kijken, want ik heb heel erg het idee dat er ergens een foutje inzit

    Private Function Berekening(ByVal V1 As Double, ByVal V2 As Double, ByVal A1 As Integer, ByVal A2 As Integer) As Point
        'V1 is prisma 1
        'V2 is prisma 2
        'A1 is richting prisma 1 - kleinste hoek
        'A2 is richting prisma 2 - grootste hoek
        ' functie geeft een point terug, X is de prisma en Y is de richting
        Try
            Dim Haa As Integer 'is de hoek tussen de 2 prisma's
            Dim Ht As Double 'is een tijdelijke rekenhoek
            Dim Hr As Double 'hoek resultante tov A2
            Dim V1t, V2t As Double 'reken variabelen
            Dim V3 As Double 'resultante prisma
            Dim A3 As Double 'richting resultante

            Haa = A2 - A1 'moet altijd de grootste hoek min de kleinste zijn

            'berekenen rekenvariabelen
            Ht = (360 - (2 * Haa)) / 2
            V1t = V1 * V1
            V2t = V2 * V2

            V3 = (V1t + V2t) - ((2 * V1 * V2) * Math.Cos(Ht))
           
            V3 = Math.Sqrt(V3)

            Hr = (V1 * Math.Sin(Ht)) / V3
            MsgBox("Hr: " & Hr)
            Hr = Math.Asin(Hr)

            A3 = A2 - Hr 'Richting van de resultante

            Berekening.X = V3
            Berekening.Y = A3
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function

alvast thnx voor jullie hulp