Bu dosya, elips dışındaki bir P noktasından belirli açı aralığıyla çizilen doğruların (kirişlerin) elipsi kestiği noktaları grafik üzerinde gösteren geometrik bir animasyondur. Elipsin merkezi, eksen uzunlukları ve dönüş açısı kaydırma çubuklarıyla değiştirilir; kirişler adım adım döndürülerek çizim canlı izlenir.
Dosyanın içeriği
- S: Kontrol ve grafik sayfasıdır. Elips merkezi (Ox, Oy), yarı büyük eksen uzunluğu (a), yarı küçük eksen için kat (k), elips rotasyon açısı (f), P noktasının konumu (p) ve kirişlerin başlangıç açısı (w) bu sayfada girilir. Animasyon, sayaç ve süre alanları ile grafikte elipsin gösterimini açıp kapatan ek seçenek de burada yer alır.
- H: Hesaplama sayfasıdır. Nokta tablosunda her kiriş için açı, eğim, doğru denklemi katsayıları (An, Bn, Cn) ve elips ile kesişim noktaları (xk) hesaplanır.
Kullanılan formüller
- Kirişin eğimi, açının kosinüsü sıfır olduğunda dikey doğruyu belirtmek için "∞" değeri döndürecek biçimde TAN ve ROUND ile hesaplanır.
- Elips ile doğrunun kesişimi için ikinci dereceden denklemin katsayıları SIN ve COS fonksiyonlarıyla kurulur; kesişim noktası SQRT ile bulunur.
- Diskriminant negatifse, yani kiriş elipsi kesmiyorsa, NA döndürülür ve nokta grafikte çizilmez.
- Elips eğrisi, tanımlı adlar (ex, ey) ile 181 noktalık parametrik denklemden üretilir.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dış bağlantı yoktur.- Bar_Change ve Bar_Scroll prosedürleri: Kaydırma çubuklarının değerini ilgili hücreye yazar (Ox, Oy, a, k, f, p, w).
- Worksheet_Change: Hücreye elle değer girildiğinde değer izin verilen aralıktaysa kaydırma çubuğu güncellenir, aralık dışındaysa çubuktaki değer geri yazılır. Ox ve Oy için aralık -1 ile 1, a için 0,75 ile 1,5, k için 0,2 ile 0,8, f için -90 ile 90, p için 0 ile 359, w için 0 ile 120 olarak denetlenir.
- basla: Animasyonu başlatır; çubukları devre dışı bırakır, sayfayı korumaya alır ve açıyı 0,1 derecelik adımlarla artırırken geçen süreyi yazar.
- dur: Animasyonu durdurur, sayfa korumasını kaldırır ve çubukları yeniden etkinleştirir.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- S sayfasında elips merkezini, a ve k değerlerini ve rotasyon açısını kaydırma çubuklarıyla ya da hücrelere değer girerek ayarlayın.
- P noktasının konumunu p değeriyle belirleyin; kirişlerin başlangıç açısını w ile seçin.
- Animasyon düğmesiyle kirişlerin dönüşünü başlatın, durdurmak için durdurma düğmesini kullanın.
- Elipsin grafikte görünmesini ek seçenekten açıp kapatın.