Bu şablon, hiperboloid yüzeyini Excel grafiği üzerinde çizer. Yarı büyük eksen, yarı küçük eksen katsayısı ve döndürme açısı değiştirildiğinde elipslerin konumları yeniden hesaplanır, grafik anında güncellenir. İsteğe bağlı animasyon, elipsleri adım adım döndürerek yüzeyin oluşumunu gösterir.
Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.
H sayfasında elips noktasının x değeri şu formülle bulunur:
Dönüş açısı, her satırda bir önceki değere 10 derece eklenerek ilerler:
Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- S: Kontrol sayfasıdır. Grafik ve kaydırma çubukları bu sayfadadır. Ayarlanan değerler şunlardır: Yarı BÜYÜK Eksen Uzunluğu (varsayılan 1.05), Yarı KÜÇÜK Eksen için KATSAYI (0.24), KOMPLE Döndürme (0), Adım - Adım İlerleme (0), Animasyon HIZI ve Süre.
- H: Hesap sayfasıdır (A1:G217). "Elips Merkezleri" başlığı altında P ve Q noktalarının x ve y koordinatları yer alır. Her 10 derecelik adım için elips noktaları satır satır hesaplanır.
Kullanılan formüller
Hesaplamalar SIN, COS, RADIANS, MOD ve PI fonksiyonlarıyla yapılır. Tanımlı adlar (a, k, f, fi, w, h, s, t) formülleri kısaltır; örneğin a yarı büyük ekseni, k küçük eksen katsayısını gösterir.H sayfasında elips noktasının x değeri şu formülle bulunur:
Dönüş açısı, her satırda bir önceki değere 10 derece eklenerek ilerler:
=MOD(E3+10,360)
Makrolar
- aBar_Change, kBar_Change, fBar_Change, wBar_Change, hBar_Change ve ilgili Scroll olayları: Kaydırma çubuğu değerini ilgili hücreye yazar. Eksen uzunluğu ve katsayı çubuk değerinin 100'e, adım ayarı 10 ile çarpımına göre ayarlanır.
- Worksheet_Change: Hücreye elle değer girildiğinde sınırları denetler ve çubuğu günceller. Geçerli aralıklar: yarı büyük eksen 0.75-1.25, katsayı 0.1-0.75, döndürme 0-359, ilerleme 0-360, animasyon hızı 1-3. Aralık dışı değerde önceki çubuk değeri geri yüklenir.
- basla: Animasyonu başlatır. Çubuklar devre dışı kalır, sayfa korumaya alınır ve açı her turda hız değeri kadar artırılır; geçen süre hesaplanır.
- dur: Animasyonu durdurur, sayfanın 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ı büyük eksen ve küçük eksen katsayısını kaydırma çubuklarıyla veya hücreye değer yazarak ayarlayın.
- Eksenlerin dönüşünü KOMPLE Döndürme ayarıyla değiştirin.
- Elips dönüşünü adım adım izlemek için ilerleme ayarını kullanın.
- Animasyon hızını seçip animasyonu başlatın; durdurmak için dur düğmesini kullanın.