Bu şablon, ortak merkezli iç içe elipslerin grafik üzerinde çizilmesini sağlar. Elipslerin yarı büyük eksen uzunluğu ve rotasyon açısı değiştirildiğinde grafik anında güncellenir. Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.
H sayfasında eksen uç noktaları için şu tür formüller kullanılır:
Bu formüllerde SIN ve PI fonksiyonları yer alır; C3, C4, C6 ve C7 hücreleri eksenlerin dört uç noktasını hesaplar.
Dosyanın içeriği
- S: Ana sayfadır. "ELIPS - İç - İçe Elipsler" başlığı altında yarı büyük eksen uzunluğu (F4, varsayılan 0,91) ve elips rotasyon açısı (F5, varsayılan 0) girişleri, bu değerleri değiştiren kaydırma çubukları ve elipslerin çizildiği grafik yer alır.
- H: Yardımcı hesap sayfasıdır (A1:C7). Elips eksenlerinin uç noktalarına ait sinüs değerleri burada hesaplanır.
Kullanılan formüller
Elips eğrileri hücre formülleriyle değil, tanımlı adlarla üretilir. a adı yarı büyük eksen hücresine (S sayfası F4) bağlıdır. Cx ve Cy adları çemberi, d01.x, d01.y gibi adlar ise farklı eksen oranlarına (0,15; 0,285; 0,407; 0,516 ve devamı) sahip elipsleri COS ve SIN ile parametrik olarak tanımlar; her elips fi açısı kadar döndürülür.H sayfasında eksen uç noktaları için şu tür formüller kullanılır:
Bu formüllerde SIN ve PI fonksiyonları yer alır; C3, C4, C6 ve C7 hücreleri eksenlerin dört uç noktasını hesaplar.
Makrolar
Makrolar S sayfasının kod bölümündedir ve kaydırma çubuklarıyla hücreleri eşler.- aBar_Change ve aBar_Scroll: Yarı büyük eksen çubuğunun değerini 100'e bölerek a hücresine yazar.
- fBar_Change ve fBar_Scroll: Açı çubuğunun değerinden 90 çıkararak rotasyon açısı hücresine yazar.
- Worksheet_Change: Hücreye elle değer girildiğinde çalışır. Yarı büyük eksen 0,7 ile 1,1 arasında, açı -90 ile 90 arasındaysa ilgili kaydırma çubuğu yeni değere getirilir; aralık dışı veya sayısal olmayan girişte hücre çubuğun değerine döner.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- S sayfasında yarı büyük eksen çubuğunu kaydırın veya F4 hücresine 0,7 ile 1,1 arasında bir değer yazın.
- Elipslerin eğimini değiştirmek için açı çubuğunu kaydırın veya açı hücresine -90 ile 90 arasında bir değer girin.
- Grafikteki iç içe elipslerin yeni konumunu izleyin.
