Schiffler Noktasını Bulma

Dosyanın içeriği​

• S: Giriş ve sonuç sayfasıdır. Başlıkta "ÜÇGEN - SCHIFFLER Noktası" yazar. A, B ve C köşelerinin x ve y değerleri H4, H6, H8, H10, H12 ve H14 hücrelerine girilir. Sayfada iç teğet çember merkezi ve Schiffler noktasının koordinatları, Euler doğrularının denklemi, Δ ABC, Δ ABI ve Δ ACI üçgenleri için sonuç alanları ile "K O Ş U L" durumu yer alır. Ek seçenek olarak iç teğet çemberin grafikte gösterilmesi seçilebilir.
• H: Hesap sayfasıdır. Köşelerin koşul kontrolü, kenar uzunlukları, açılar, alan, iç teğet çember ve çevrel çember merkezleri, doğru denklemleri (y = mx + n biçiminde) ve grafik için üretilen nokta serileri bu sayfada tutulur.

Kullanılan formüller​

=EĞER(YUVARLA(Ax*(By-Cy)+Bx*(Cy-Ay)+Cx*(Ay-By);6)<>0;"R";"S")

=IF(ROUND(Ax*(By-Cy)+Bx*(Cy-Ay)+Cx*(Ay-By),6)<>0,"R","S")

Makrolar​

• Altı kaydırma çubuğunun (AxBar, AyBar, BxBar, ByBar, CxBar, CyBar) Change ve Scroll olayları, çubuk değerini -5 ile 5 arasında koordinata çevirip ilgili köşe hücresine yazar.
• Worksheet_Change olayı, köşe hücrelerine elle değer girildiğinde çalışır. Değer sayısal ve -5 ile 5 arasındaysa ilgili kaydırma çubuğu bu değere getirilir; aksi halde hücre çubuğun değerine döndürülür.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. S sayfasında A, B ve C köşelerinin koordinatlarını kaydırma çubuklarıyla ayarlayın veya hücrelere -5 ile 5 arasında değer yazın.
3. "K O Ş U L" alanının "UYGUN" olduğunu kontrol edin; köşeler aynı doğru üzerindeyse hesap yapılmaz.
4. Schiffler noktası, iç teğet çember merkezi ve Euler doğrusu sonuçlarını okuyun, grafikteki konumları izleyin.