Bu dosya, iki çemberdeki kirişlerin üst üste binmesiyle oluşan Moiré etkisini grafik üzerinde gösterir. Çemberlerin yarıçapı, kiriş sayıları ve dönme açısı değiştirilerek desenin nasıl değiştiği izlenir; isteğe bağlı olarak hareketli çember otomatik döndürülür.
Bu ifade H sayfasındaki numaralandırma mantığını özetler; dosyada ilk satırda p adı kullanılır, sonraki satırlarda ise bir önceki numaraya 1 eklenir. Koordinat hesabında numara boşsa NA() döndürülür; böylece grafikte kullanılmayan noktalar çizilmez:
Karşı uç noktası PI() kullanılarak hesaplanır. a, fi, v, p, q gibi adlar tanımlı adlardır; fi ve v dereceyi RADIANS ile radyana çevirir. Çemberlerin çizimi için CSx, CSy, CHx, CHy adlı seri tanımları kullanılır.
Dosyanın içeriği
- S: Çemberlerde Kirişler (Moiré Etkisi) başlıklı kontrol ve grafik sayfasıdır. Çemberlerin yarıçapı (a), sabit çemberin kiriş sayısı (p), hareketli çemberin kiriş sayısı (q), açı değerleri ve animasyon alanındaki Sayaç ile Süre bilgileri bu sayfadadır. Kaydırma çubukları ve grafik de bu sayfada yer alır.
- H: Sabit Kirişler ve Hareketli Kirişler için No ve x sütunlarını içeren hesap sayfasıdır. Her kiriş için iki uç noktanın koordinatları ayrı satırlarda hesaplanır ve grafik bu değerlerden çizilir.
Kullanılan formüller
Kiriş numaraları, belirlenen kiriş sayısına ulaşılana kadar birer artırılır; sonrasında hücre boş kalır:=IF(A3=1,1,"")Karşı uç noktası PI() kullanılarak hesaplanır. a, fi, v, p, q gibi adlar tanımlı adlardır; fi ve v dereceyi RADIANS ile radyana çevirir. Çemberlerin çizimi için CSx, CSy, CHx, CHy adlı seri tanımları kullanılır.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.- aBar, pBar, fBar, qBar, wBar kaydırma çubuklarının Change ve Scroll olayları, çubuk değerini ilgili hücreye yazar; yarıçap için değer 100'e bölünür.
- Worksheet_Change: Hücreye elle girilen değeri kontrol eder. Geçerli aralıklar: yarıçap 0,6-1; p 0-50; açı f 0-180; q 1-50; açı w 0-360. Geçerliyse çubuk güncellenir, değilse hücre çubuğun değerine döner.
- basla: Animasyonu başlatır. Çubukları devre dışı bırakır, sayfayı korumaya alır ve açıyı döngüyle artırarak hareketli çemberi döndürür; geçen süreyi hesaplar.
- dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- S sayfasında yarıçap, sabit ve hareketli çemberin kiriş sayısını çubuklarla ya da hücrelere değer yazarak belirleyin.
- Açı değerlerini değiştirerek Moiré deseninin değişimini grafikte izleyin.
- Otomatik dönüş için basla makrosunu çalıştırın; durdurmak için dur makrosunu çalıştırın.