Google Earth'de Çember

[politen]

.

1. Olması gerekenleri nasıl buluyorsunuz?

2. Olması gerekenlerle bir grafik çizerseniz çember değil neredeyse bir doğru elde edersiniz.


Onun için soruyu pek anlamış değilim.

.

Olması gerekenleri Google Earth te belirli yarıçapta çember çizip, kml dosyası olarak indiriyorum ve editplus ile açıp koordinatları alıyorum. Ancak bu süreç uzun. Ayrıca yapmaya çalıştığım şey G. Earth üzerinde koordinatlarını belirlediğim bir noktaya Türk bayrağı çizdirmek. Bayrağın Dikdörtgen kısmını oluşturmak kolay ama ay ve yıldız oluşturmak için çember üzerindeki noktalara ihtiyacım var. Ayın büyük çemberi, küçük çemberi ve yıldızın merkez koordidatlarını excel de hesaplayıp çember oluşturmam gerekliydi. Ve siz olayı zaten çözdünüz. Tekrar teşekkür ediyorum, çalışma bitince bir örneğini burada yayınlarım.

 

[Asri]

Merhaba;

İdris Beyin vermiş olduğu son dosya, soruyu soran arkadaşın işine yaradığı kendisi tarafından belirtilmiş olmakla birlikte, ben de İdris Bey gibi konuyu kafama taktığım için mrgreen kendime göre bir dosya hazırladım.

Dosyada sadece formüller kullanılmakta olup, koordinatları belli olan bir merkezden (X, Y) ve 0-360° arasında değişen 5° derece artışlarla belirlenen istikamet açılarına (θ) göre, istenilen bir mesafedeki (r) koordinatlar hesaplanmakta ve hesaplanan yeni koordinatların merkeze uzaklığı kontrol edilmektedir.

Selamlar,

Haluk ustam, izniniz olmadan çalışmanız üzerine ekleme yaptım.
Çalışmanızı kullanarak, ikinci sayfada çember içi koordinatları parametrik olarak hesaplatıp grafik olarak gösteriyor. km, derece ve iki cember arası mesafe değiştirilebilir.

İleride bu çalışmayı belli bir dairesel alandaki tüm adresleri koordinat ile tespit etmek için kullanabilirim. Daha farklı şeyler için de olabilir.

Sayın İdris ve Haluk üstadlar emeğinize sağlık.

Sub ciz()
 'Application.ScreenUpdating = False
   cap = [E2]
   derece = [F2]
   mesafe = [G2] * -1
   Set shcember = Sheets("çember")
   Set shtumu = Sheets("Çember İçi Koordinatlar")
   
   sonsatir = shcember.Cells(Rows.Count, "B").End(3).Row
   For i = 10 To sonsatir
       If shcember.Cells(i, "B").Value = 360 Then
         Exit For
       End If
   Next i
   sonsecim = i
   tumusonsatir = shtumu.Cells(Rows.Count, "A").End(3).Row + 1
   If tumusonsatir = 1 Then tumusonsatir = 2
   shtumu.Range("A2:C" & tumusonsatir).Clear
   shcember.[B10] = derece
   
   say = 0
   For i = cap To 1 Step mesafe
      shcember.[C5] = i
      sonsatir = shcember.Cells(Rows.Count, "B").End(3).Row
      For j = 10 To sonsatir
       If shcember.Cells(j, "B").Value = 360 Then
         Exit For
       End If
      Next j
      sonsecim = j
      shcember.Range("C8:D" & sonsecim).Copy
      tumusonsatir = shtumu.Cells(Rows.Count, "A").End(3).Row + 1
      shtumu.Range("A" & tumusonsatir).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      shtumu.Range("A8").Select
      say = say + 1
      shtumu.Range("C" & tumusonsatir).Value = say
      sonno = tumusonsatir + (sonsecim - 8)
      shtumu.Range("C" & tumusonsatir).AutoFill Destination:=Range("C" & tumusonsatir & ":C" & sonno)
    
   Next i
    'Application.ScreenUpdating = True
End Sub

 

[Haluk]

@asri:
Rica ederim izin ne demek, olur mu öyle şey. Yaptığınız çalışma mutlaka yararlı olacaktır.

@politen:
Sorununuzun çözülmüş olduğunu bildirmişiniz ancak; ben yine de İdris Beyin 16. mesajda verdiği dosya ile, benim 20. mesajda verdiğim dosya arasındaki farkı belirtmek isterim. Zira, her iki dosyadaki aynı istikamet açısı ve aynı uzaklıkta tespit edilen sonuçlar, harita üzerinde bir birinden değişik yerlere tekabül ediyor.

Esasında konu, göründüğünden birazcık karmaşık. Benim izlediğim yöntem, dünyanın eliptik olmasını göz önüne alarak küresel trigonometri içerir. Dosyadaki sonuçlar, bu sitedeki hesaplama sonuçları ile yakın olarak örtüşmektedir.

Sonra bayrağı yanlış bir yere çizmeyin diye uyarmak istedim ;-)

Herkese selam ve sevgiler,

 

[politen]

Sevgili Haluk Hocam, ilginize ve bilginize hayran kaldım. Her iki çalışmada aynı sonucu veriyor. Sizin çalışmanıza bakma fırsatım olmamıştı, şimdi bakabildim. Muhteşem! Sadece başlangıç noktaları farklı siz x=0, y=12.5 ile başlamışsınız, Sayın İdris SERDAR ise, x=12.5,y=0 ile başlamış. fark bundan ibaret. Bayrak aynı yerde)

 

[politen]

Merhaba;

İdris Beyin vermiş olduğu son dosya, soruyu soran arkadaşın işine yaradığı kendisi tarafından belirtilmiş olmakla birlikte, ben de İdris Bey gibi konuyu kafama taktığım için mrgreen kendime göre bir dosya hazırladım.

Dosyada sadece formüller kullanılmakta olup, koordinatları belli olan bir merkezden (X, Y) ve 0-360° arasında değişen 5° derece artışlarla belirlenen istikamet açılarına (θ) göre, istenilen bir mesafedeki (r) koordinatlar hesaplanmakta ve hesaplanan yeni koordinatların merkeze uzaklığı kontrol edilmektedir.

Selamlar,

Hazırladığınız çalışma çok işime yaradı. İdrris beyle sizin çalışmanız arasındaki farkı çözemedim! Önemli Not: bu aramızda kalsın, İdris bey duymasın lütfen, "sizin çalışmanız daha iyi"

 

[Haluk]

İdris Beyin çalışması için, ben kendisini tebrik ediyorum.

İki dosya arasındaki fark ise; örnek olarak ekli görüntülerde belirtildiği gibi 70 derecelik istikamet açısında 12,5 km'lik bir mesafenin koordinatları birbirinden değişiktir.

.

 

[politen]

Bayrak

Ekli dosyayı görüntüle Bayrak.rar

Ekli dosyayı görüntüle Bayrak.xlsmVe çalışma bitti, umarım yüzüm kara çıkmaz. Dosyalar ekte.

 

[Asri]

Ekli dosyayı görüntüle 189147

Ekli dosyayı görüntüle 189148Ve çalışma bitti, umarım yüzüm kara çıkmaz. Dosyalar ekte.

Güzel bir çalışma elinize sağlık.
Uzaydan bile görünüyor

 

[Merhum İdris SERDAR]

Ekli dosyayı görüntüle 189147

Ekli dosyayı görüntüle 189148Ve çalışma bitti, umarım yüzüm kara çıkmaz. Dosyalar ekte.

.

Elinize sağlık, güzel bir çalışma.

.

 

[Haluk]

Elinize sağlık, çok güzel olmuş.:hey:


.

 

[politen]

Sorun

Elinize sağlık, çok güzel olmuş.:hey:


.

Aslında küçük ama benim için önemli bir sorun kaldı, bunuda siz çözersiniz. Yıldızın kollarına takıldım ben. Bunu nasıl çözerim?

 

[Haluk]

Ben de yıldız için bir şey yaptım ama, herhalde sizinkinden farklı değildir.

R(iç) = R(dış) / 3 alıp, açıların arasında 36° derece artış olduğunu kabul ederek çizdim.




.

 

[Asri]

Ben de yıldız için bir şey yaptım ama, herhalde sizinkinden farklı değildir.

R(iç) = R(dış) / 3 alıp, açıların arasında 36° derece artış olduğunu kabul ederek çizdim.
.

20. mesaj da dosyayı güncelleyebilir misiniz?

 

[Haluk]

32. mesaj ekine dosya konuldu.

 

[Asri]

32. mesaj ekine dosya konuldu.

Teşekkür ederim.

 

[politen]

Afrin de Bayrağımız.

Bu çalışmayı sadece hobi amaçlı yapmıştım ve nerede kullanacağımı bilmiyordum. Ve sanırım zamanı geldi. Mehmetçiğimiz bu gün Afrin'de Bayrağımızı dalgalandırınca bu çalışmayı tekrar paylaşmak istedim. Zeytin Dalı Harekatında emeği geçen Mehmetçiğimiz başta olmak üzere herkese ithaf olunur. Afrin de Türk Bayrağı.....

 

[Haluk]

Başta Ulu Önder Atatürk ve Çanakkale Şehitlerimiz olmak üzere, vatan ve milletin bekâsı uğruna hem geçmişte hem içinde bulunduğumuz günlerde varını yoğunu ortaya koyan, bu uğurda can veren tüm şehitlerimizin ruhu şâd olsun.

.

 

[1Al2Ver]

Sayın politen merhaba,

Paylaşım için teşekkürler.