Arctan Fonksiyonu

[nickella]

Arkadaşlar, bieşke kuvvet hesabı yaptırmak istiyorum. VB ile program yazıyorum. arctan(y/x) değerini hesaplatmak istiyorum ama bir türlü doğru sonucu alamıyorum. yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Örneğiniz ve almak istediğiniz sonuç nedir? Hangi değerlerle hangi sonuca ulaşmak istiyorsunuz?

.

 

[nickella]

örneğin; F1= 100 N, aci1=30 (derece)
F2=50 N, aci2= 60 (derece)

ben bu değerleri textbox'a giriyorum. başka bir textbox'da sonucunu görmek istiyorum.

bileşke formülü de F1x= F1* cos (aci1) , F1y= F1* sin (aci1)

bunun gibi birden fazla açı ve kuvvet giriyorum en sonunda Fx ler ve Fy ler kendi aralarında toplanıyor. (Fy/Fx) değerinin arctan değeri lazım.

 

[Ömer]

İstediğiniz bu mu? Dereceli ve derecesiz 2 mesaj yazdım. Sonuçları gözlemleyiniz. Sonuçlar bunlar değilse ne olması gerekiyor hesaplama hatası nedir?
Örnek olması açısından tek tek yazdım, veriler uzunsa döngü ile kısaltılabilir.

Sub Hesap()

    F1 = 100: aci1 = 30
    F2 = 50: aci2 = 60
    
    F1x = F1 * Cos(aci1)
    F1y = F1 * Sin(aci1)
    
    F2x = F2 * Cos(aci2)
    F2y = F2 * Sin(aci2)
    
    Fx = F1x + F2x
    Fy = F1y + F2y
    
    MsgBox Atn(Fy / Fx) ' örnek1
    MsgBox WorksheetFunction.Degrees(Atn(Fy / Fx)) 'örnek2

End Sub

.