Eşit Kenar Uzunluğunda İç İçe Çokgen

Bu dosya, kenar uzunlukları birbirine eşit olan iç içe düzgün çokgenleri formüllerle hesaplayıp grafik üzerinde çizer. Kenar uzunluğu, eksenlerin dönüşü ve çokgen sayısı kaydırma çubuklarıyla değiştirilir; şekil anında yeniden çizilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• S: Kontrol sayfasıdır. "Düzgün ÇOKGEN Kenar Uzunluğu", "KOMPLE Döndürme (Eksenlerin Döndürülmesi)" ve "En Son ÇOKGEN Kenar Adedi" değerleri burada yer alır. Kenar uzunluğu F4, döndürme açısı F6, kenar adedi F8 hücresindedir. Sayfada kaydırma çubukları ve çokgenlerin çizildiği grafik bulunur.
• H: Hesaplama sayfasıdır. Üçgen, Kare, Beşgen, Altıgen ve devamındaki çokgenler için köşe numaraları ile x ve y koordinatları ayrı bloklarda hesaplanır. Sayfada köşelerin nasıl türetildiğini anlatan notlar da vardır.

Kullanılan formüller​

• Her çokgen bloğu, seçilen kenar adedine ulaşıp ulaşmadığını denetler. Üçgen bloğunun başlangıcında şu formül kullanılır:
  
  Excel formülü

  TR

  =EĞER(n>=3;3;"")

  EN

  =IF(n>=3,3,"")

• Koordinat formüllerinde COS kullanılır; köşe numarası boşsa NA() döndürülerek o noktanın grafikte çizilmesi engellenir.
• Tanımlı adlar: a (kenar uzunluğu), f (döndürme açısı), n (kenar adedi) ve v (açının radyan karşılığı, RADIANS(f)).

Makrolar​

Makrolar S sayfasının kod bölümünde yer alır ve kaydırma çubuklarını hücrelerle eşler:

• aBar_Change ve aBar_Scroll: Çubuk değerinin 100'e bölünmüş halini kenar uzunluğuna yazar.
• fBar_Change ve fBar_Scroll: Çubuk değerinden 90 çıkararak döndürme açısını belirler.
• nBar_Change ve nBar_Scroll: Çubuk değerini kenar adedine yazar.
• Worksheet_Change: Hücreye elle değer girildiğinde çalışır ve çubuğu bu değere getirir. Geçerli aralıklar kenar uzunluğu için 0,5-1,5, açı için -90 ile 90, kenar adedi için 3-15 arasıdır. Aralık dışı veya sayısal olmayan değer girilirse hücre çubuğun değerine döner.

Makro kodunda dosya silme veya dışarıya bağlantı gibi işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında kenar uzunluğu çubuğunu kaydırarak çokgenlerin boyutunu değiştirin.
3. Döndürme çubuğuyla eksenleri çevirin ve grafikteki değişimi izleyin.
4. Kenar adedi çubuğuyla veya F8 hücresine 3-15 arası değer yazarak çizilecek en son çokgeni belirleyin.
5. Köşe koordinatlarının nasıl üretildiğini görmek için H sayfasını inceleyin.