İki Koordinat Arası Mesafe Hesaplama

  • Konuyu başlatan Konuyu başlatan selamt
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

selamt

Katılım
20 Mar 2022
Mesajlar
113
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Çözüm
Ömer BARAN
Merhaba.
Paylaşım için teşekkürler.
Arkadaşlarımızın arşivlerinde bulunan dosyaları paylaşmaları elbette yararlıdır.
"Amerika'yı yeniden keşfetmek" gibi düşünmezseniz benim tercihim;
her konuya, öğrenme/öğretme, bilgiyi paylaşarak çoğaltma şeklinde yaklaşarak, sorulan sorulara herkesin kendi çözümlerini üretmesi,
çözümü verirken de mümkün olduğunca hangi hesaplamanın ne amaçla yapıldığının/yapılması gerektiğinin açıklanmasıdır.
Hatta hedeflenen nihai çözüme ulaşılamasa dahi,
çözüm için harcanan emeğin çok kıymetli olduğunu, tecrübe denilen şeyin bu şekilde artacağını düşünenlerdenim.

İlgi alanı matematik/trigonometri olan arkadaşlarımız daha iyi açıklayacaklardır elbette.
Yanlış bilmiyorsam forum mensuplarından Sayın...
Tarihe göre sırala Oylamaya göre sırala
Tekrar merhaba düşeyara fonksiyonunun bu tarz bir soru karşısında çok aciz kalacağını düşünyorum keza enlem ve boylam degerlerinin bilinmesi bunların birim mesafelerinin ölçülmesi gibi degerlere ihtiyaç vardır dosya verilerinizi oluşturabilirseniz yardımcı olmaya çalışırım selamlar...
 
Oyla 0 Olumsuz oyla
Merhaba.
Paylaşım için teşekkürler.
Arkadaşlarımızın arşivlerinde bulunan dosyaları paylaşmaları elbette yararlıdır.
"Amerika'yı yeniden keşfetmek" gibi düşünmezseniz benim tercihim;
her konuya, öğrenme/öğretme, bilgiyi paylaşarak çoğaltma şeklinde yaklaşarak, sorulan sorulara herkesin kendi çözümlerini üretmesi,
çözümü verirken de mümkün olduğunca hangi hesaplamanın ne amaçla yapıldığının/yapılması gerektiğinin açıklanmasıdır.
Hatta hedeflenen nihai çözüme ulaşılamasa dahi,
çözüm için harcanan emeğin çok kıymetli olduğunu, tecrübe denilen şeyin bu şekilde artacağını düşünenlerdenim.

İlgi alanı matematik/trigonometri olan arkadaşlarımız daha iyi açıklayacaklardır elbette.
Yanlış bilmiyorsam forum mensuplarından Sayın @52779 un daha da açıklayıcı cevap yazabileceğini düşünüyorum.

Ben şöyle bir baktığımda konunun; trigonometri işlemlerinin kullanıldığı ve HAVERSINE diye adlandırılan bir formül ile çözüldüğünü ve
işlemin makematiksel ifadesinin de
1558978739170.webp
olduğunu gördüm.


Trigonometrik fonksiyonlar (SİN, COS) Ms.Excel'de RADYAN üzerinden çalıştığından formül ve kodda,
doğrudan hücreden alınacak değerler üzerinden SİN ve COS hesaplanması yanlış olacağından, =RADYAN((DERECE*3600+DAKİKA*60+SANİYE)/3600) şeklinde yani hücre değeri x 24 ile bulunan değerleri üzerinden hesaplama yaptırılması gerekecektir.
1558981077625.webp
İlgili hücrelerin biçimi, İSTEĞE UYARLANMIŞ kısmı kullanılarak [ss]:dd:nn şeklinde ayarlanıp; aşağıdaki kod veya formül ile istenilen sonuç kilometre cinsinden alınabilir.
Kod ve formüldeki 6371,1 değeri km cinsinden dünyanın ekvatoral yarıçapı oluyor.
1558979717276.webp
Kod: 
=6371,1*((2*ASİN(((SİN((RADYAN(B2*24)-RADYAN(B3*24))/2)^2)+COS(RADYAN(B2*24))*COS(RADYAN(B3*24))*(SİN((RADYAN(C2*24)-RADYAN(C3*24))/2)^2))^(1/2))))

VBA: 
Sub KOORDINAT_MESAFE()
MsgBox Format(Evaluate("=6371.1 *((2*ASIN(((SIN((RADIANS(B2*24)-RADIANS(B3*24))/2)^2)+COS(RADIANS(B2*24))" & _
            " *COS(RADIANS(B3*24))*(SIN((RADIANS(C2*24)-RADIANS(C3*24))/2)^2))^(1/2))))"), "#,##0.000") & " km."
End Sub
.
 
Oyla 1 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt