trigonometri fonksiyonları

[tamer42]

Merhabalar,

kod içinde aşağıdaki trigonometrik formülü yazarken hata alıyorum.

................
d = [B]ACOS[/B]([B]SIN[/B](t1)*[B]SIN[/B](t2)+[B]COS[/B](t1)*[B]COS[/B](t2)*[B]COS[/B](n2-n1))
....................

ACOS yazılımı ACOSINUS olabilir mi?


iyi çalışmalar.

 

[Merhum İdris SERDAR]

.

Dim d As Variant
d = Application.WorksheetFunction.ACOS(SIN(t1)*SIN(t2)+COS(t1)*COS(t2)*COS(n2-n1))


Veya

d=Evaluate("ACOS(SIN(t1)*SIN(t2)+COS(t1)*COS(t2)*COS(n2-n1)))")


şekilnde deneyin.
.

 

[tamer42]

.

Dim d As Variant
d = Application.WorksheetFunction.ACOS(SIN(t1)*SIN(t2)+COS(t1)*COS(t2)*COS(n2-n1))


Veya

d=Evaluate("ACOS(SIN(t1)*SIN(t2)+COS(t1)*COS(t2)*COS(n2-n1)))")


şekilnde deneyin.
.

Sn Yurttaş teşekkürler,

formülde verilen t1, t2, n1, n2 parametleri bir hücre adresi olmayıp,

farklı değerler alan değişken adlarıdır.

t1=39,972049
t2=32,659131
n1=39,971926
n2=32,658400


iyi çalışmalar.

 

[Merhum İdris SERDAR]

Sn Yurttaş teşekkürler,

formülde verilen t1, t2, n1, n2 parametleri bir hücre adresi olmayıp,

farklı değerler alan değişken adlarıdır.

t1=39,972049
t2=32,659131
n1=39,971926
n2=32,658400


iyi çalışmalar.

Bunlar anladığım kadarı ile derece cinsinden. Bunları radyan cinsinden yazamanız gerekir.

Yani;

COS(t1* PI()/180 )


gibi...

.

 

[tamer42]

Sn Yurttaş,


Can' find project or library

hata mesajını veriyor.

 

[Merhum İdris SERDAR]

.

........................