• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Linear grafiğin parabolik hesabı vba nasıl?

  • Konbuyu başlatan Konbuyu başlatan Asri
  • Başlangıç tarihi Başlangıç tarihi
Katılım
24 Nisan 2005
Mesajlar
3,683
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Mavi Grafik
1. Noktanın değeri 4
9. noktanın değeri 10

Kırmızı Grafik
1. Noktanın değeri 4
9. noktanın değeri 10


* Mavi grafiği iki nokta arası farkları alıp bölüp her adımda çıkan sonuç ile kendisini toplayıp buluyorum
Bu linear bir sonuç çıkarıyor.

* Kırmızı grafiği yada benzerini oluşturmak için vba da nasıl bir hesaplama yapmak gerekir. Matematik ten pek anlamıyorum. Tanjant diye birşey ile yapılıyormuş :)

https://i.hizliresim.com/z0Q67g.jpg

vjYOvD.jpg
 
Asri Bey;

Önerim olduğundan değil de merak ettiğim için soruyorum ...

Siz bu işi "Chart" nesnesi üzerinde mi yapmak istiyorsunuz, yoksa sayfa üzerinde mi?

.
 
Asri Bey;

Önerim olduğundan değil de merak ettiğim için soruyorum ...

Siz bu işi "Chart" nesnesi üzerinde mi yapmak istiyorsunuz, yoksa sayfa üzerinde mi?

.

Bana hesaplama yöntemi ve oluşacak veriler lazım.
Grafik semboliktir. Grafik oluşturulmayacak.
 
.

Asri bey merhaba.

Sorunuzu tam olarak anlamış değilim.Ancak, Grafikten anladığım kadarı ile söylüyorum.

Bir parabol var. Bunun tepe noktasında kesişen iki doğru var. Kesişen bu iki doğru aynı zamanda parabol kollarının x ve y eksenlerini kestiği noktalardan geçiyorlar.

1. y=ax^2+bx+c şeklinde bir fonksiyonunu olması gerekir.

2. Bu fonksiyonun tepe noktası'nın x ve y noktaları bu fonksiyonun türevini 0'a eşitleyip, x1 ve y1 ve noktaları bulunur. Veya x=-b/2*a ve bu buluktan sonra fonksiyonda yerine konular y bulunur.

3. Fonksiyonda y'ye 0 değer verilerek denklem çözüldüğünde parabolun x eksenini kestiği noktalar, x' e 0 verilerek y eksenini kestiği noktalar bulunur.

Elimizde üç nokta var:

Tepe(x1;y1) bu hem parabolun ve hem de iki doğrunun kesiştiği yer.

Y eksenini kestiği nokta (0;y2)
X eksenini kestiği nolta (x2;0)

Şimdi soru ne? Üç noktasının koordinatları verilen parabolun ve kesişen doğruların denklemlerini mi elde etmek mi istiyoruz?
Üçgenin alanı mı? Diğer alanlar mı?

Eğer sorunuzun başlığına bakarsak, kesişen bu iki doğruyu baz alarak üç noktası belirli olan bir parabolun denklemini elde etmek gibi geliyor bana.


.
 
İdris bey,

bilgilendirme için teşekkür ederim.

Kesişen iki doğruyu oluşturan değerleri elde edebiliyorum. Ancak bu değerler lineer artıyor. Bana bu üç noktanın parabol ünü oluşturan verileri hesaplama yöntemi lazım. Mavi çizgileri parabol ün üç noktasını belirtmek amacı ile çizdim.

..Eğer sorunuzun başlığına bakarsak, kesişen bu iki doğruyu baz alarak üç noktası belirli olan bir parabolun denklemini elde etmek gibi geliyor bana.

Evet tespitiniz doğrudur.

Asri bey merhaba.

Sorunuzu tam olarak anlamış değilim.

Aslında problem benim değil bir arkadaşımın problemi, ben de tam anlatamamış olabilirim :)
Son tespitiniz durumu özetliyor.
 
Asri Bey;

Verdiğiniz datalara göre çizilen parabol ekli dosyadadır. Ama, denklem yok ... :biggrin:


.
 

Ekli dosyalar

Asri Bey;

Yukarıda İdris Beyin belirttiği y=Ax² + Bx + C şeklinde olduğu kabul edilen denklemdeki A, B ve C katsayılarının belirlenmesi sonucunda elde edilen denklem ve ilgili dataları ekli dosyada belirtilmiştir.

İdris bey belki daha başka bir çözüm getirebilir, onu da beklemek yararlı olacaktır.

Selamlar,

.
 

Ekli dosyalar

Yukarıdaki dosyaya, hesaplanan katsayılardan sonra elde edilen 2. dereceden fonksiyonun grafiğini çizdim ama beklediğimiz grafik çıkmadı.

Belki de; söz konusu denklem bizim varsaydığımız formatta 2. dereceden değil, 3. veya 4 - 5. dereceden polinom olabilir. Belki de logaritmik bir fonksiyon veya başka bir tipte fonksiyon olabilir.

Dolayısı ile; fonksiyonun polinom olup olmadığı ve eğer polinom ise, kaçıncı dereceden olduğu bilinmelidir.
.
 

Ekli dosyalar

Son düzenleme:
@Haluk ve @İdris,

bilgilendirmeler ve örnekler için teşekkür ederim.
Konun başında da belirttiğim gibi matematik olaylarından çok uzağım, meslek lisesi ve MYO da türev, integral trigonometri hiç görmedim yada şeklini görecek kadar gördük. Sadece iç açılar toplamı 180 kısmını biliyorum. Eğer yanlış hatırlamıyorsam. Bilmemek ayıp değil, öğrenmeye de ihtiyacım olmadı :)

Excel fonsiyonları ile yaptığınız çözümler benim işimi yaramayacak.

Ekli dosyada linear verilerini oluşturma ile ilgil yazdığım kod mevcut.

Bu veri tablosunun VBA prabolik şekline dönüşmesi için bir çözüm arıyorum.
 

Ekli dosyalar

Merhaba Arkadaşlar,
Soruyu bu sabah gördüm. Bu sola bakan bir parabol. O nedenle de denklemi x=ay2+by+c şeklinde olmalıdır. Resimlerde çözümü anlattım. Doğru noktalar belirtilirse net denklem de elde edilebilir.
Saygılarımla
 

Ekli dosyalar

  • Asri_08.jpg
    Asri_08.jpg
    22.3 KB · Görüntüleme: 6
  • Asri_09.jpg
    Asri_09.jpg
    13.7 KB · Görüntüleme: 6
Merhaba Tevfik Bey;

Ben de tam, forumda o kadar çok öğretmen var acaba aralarında matematik öğretmeni yok mu diye düşünürken sizin cevabınızı gördüm.

Tahmin ettiğim gibi, İdris beyle düşündüğümüz kalıp yanlıştı.

Sizin; "Sola bakan parabol" tanımınız ve polinom kalıbınız işi çözdü.

Buna göre ilgili parabol fonksiyonunu çözdüm ve grafiği çizdim. Sonuçta; Asri Beyin 1. mesajında istemiş olduğu grafik çıktı.

İşin güzel tarafı, bu grafik; yukarıda 6 No'lu mesajımın ve bu mesajımın ekindeki dosyaların birinci sayfalarında herhangi bir hesap yapmadan elde edilen grafik ile aynı çıktı.

Çözüm ve grafik ekli dosyadadır.

Not:
İkimizin denklem çözümündeki fark ise; grafiğin okunmasından kaynaklanıyor.
Ben, Asri beyin birinci mesajında vermiş olduğu grafikteki verilerden ve kendisinin mesajlarından anladığım kadarıyla;

x= 4 ---- y=1
x= 9 ---- y=10
x= 1 ---- y=20

olarak kabul ederek, 3 bilinmeyenli 3 denklem çözdüm.

..
 

Ekli dosyalar

Son düzenleme:
.

Herkese merhabalar.

Ben de bir çözüm üretmiştim.

Haluk bey bizim düşünüş yolumuz doğru. Excel de öyle düşünüyor. y eksenine bakan parabollere reverse paraboller denir. Doğal olarak hem biz ve hem de Excel sağ elini kullanmaya alışmışken sol elinizi kullanın denmiş.

Her neyse. Artık işin makroya dökümü sayın asri' ye kaldı.

.

.
 

Ekli dosyalar

Arkadaşlar, tüm destekler için teşekkür ederim.

Son açıklamalardan sonra ben bile bir şeyler anladım. :)
Bundan sonrası bende :)
 
Idris Bey, sizin cozum de cok kaliteli olmus :)
 
İşe yaradı ise ne mutlu
Hepimize
iyi çalışmalar
 
Geri
Üst