String Art ile Astroid Animasyonu

String Art ile Astroid Animasyonu, ip (filografi) yöntemiyle astroid eğrisinin nasıl oluştuğunu grafik üzerinde gösteren geometrik bir animasyon çalışmasıdır. Yarıçap, rotasyon açısı ve ip adedi değiştirilerek eğrinin oluşumu anlık izlenir; animasyon başlatıldığında ip sayısı otomatik olarak artıp azalır.

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

Dosyanın içeriği​

• S: Kontrol sayfasıdır. Yarıçap (F4), rotasyon açısı (F6) ve ip adedi (F8) değerleri burada bulunur. Animasyon bölümünde sayaç, süre ve başlat/durdur denetimleri yer alır. Grafik de bu sayfadadır.
• H: Hesap sayfasıdır. 1. Bölge, 2. Bölge, 3. Bölge ve 4. Bölge için her ip noktasının koordinatları (n sırası ile y değerleri) ve çizimdeki eksen çizgileri için "Eksenler" sütunları bulunur. Tablo 300 satıra kadar uzanır.

Kullanılan formüller​

• Sıra numaraları, ip adedine ulaşılana kadar birer artar; sonrasında boş kalır. Örnek olarak A3 hücresinde:
  
  Excel formülü

  =IF(p>=1,1,"")

• İp uç noktaları, ip adedi ve yarıçapa göre SIN, COS ve PI ile hesaplanır. Sıra boşsa NA() döndürülerek noktanın grafikte çizilmesi engellenir. Örnek, C3 hücresi:
  
  Excel formülü

  =IF($A3="",NA(),(p+1-$A3)/(p+1)*a*SIN(PI()/2+SINGLE(fi)))

• Eksen çizgileri için L3 hücresinde şu formül kullanılır:
  
  Excel formülü

  =1.1*a*SIN(fi)

• Tanımlı adlar: a yarıçap, f açı, fi radyana çevrilmiş açı, n ip adedi, p ise animasyonda ip sayısını 0 ile 100 arasında gidip gelecek biçimde belirleyen değerdir.

Makrolar​

• aBar_Change / aBar_Scroll, fBar_Change / fBar_Scroll, nBar_Change / nBar_Scroll: Kaydırma çubuklarının değerini yarıçap, açı ve ip adedi hücrelerine aktarır.
• Worksheet_Change: Hücreye elle değer girildiğinde değeri kontrol eder. Yarıçap 0,75-1,5, açı -90 ile 90, ip adedi 0-100 aralığında kabul edilir; geçersiz değerde hücre çubuğun değerine döner.
• basla: Animasyonu başlatır. Çubukları devre dışı bırakır, sayfayı korumaya alır ve döngüde sayacı artırarak süreyi günceller.
• dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.

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

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. S sayfasında yarıçap, rotasyon açısı ve ip adedini kaydırma çubuklarıyla veya hücrelere değer yazarak ayarlayın.
3. Animasyonu başlatmak için basla makrosunu çalıştırın; ip sayısı otomatik olarak artıp azalır.
4. Durdurmak için dur makrosunu çalıştırın. Animasyon sırasında sayfa korumalıdır, değişiklik için önce durdurulmalıdır.