Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi 7-12 Bilinmeyenli 12 Denklem çözümü
#1
busranas Adlı Kullanıcıdan Alıntı:Örnek şu şekilde
Aşağıda verilen Laplace denklemi ile tarif olunan fiziksel olayları modellemede kullanılacak sayısal modeli oluşturunuz. Laplace denkleminin çözümünde merkezi öteleme fark formülü kullanılacaktır. Model delphi ortamında yazılacaktır.
∂²T/∂x²+∂²T/∂y²=0

Dediğim gibi bu laplace denkleminin çözümünü merkezi öteleme fark formülü ile ben elde ettim. Burada tüm değerler değişken olacak elimdeki bir adet örnek var 3e 2,4 genişliğinde levha. Sağından 100, Solundan 75, üstünden 300, altından 50 derece ısıtılıyor. Bu levhayı dx=dy=0,6 mt bölümlendirerek her noktadaki sıcaklık değerlerini bulunuz. 
Her noktadaki sıcaklık değerlerinin formülü :
1. 4T1,1 = T0,1 + T1,2 + T2,1 + T1,0   
2. 4T1,2 = T0,2 + T1,3 + T2,2 + T1,1   
3. 4T1,3 = T0,3 + T1,4 + T2,3 + T1,2     
4. 4T1,4 = T0,4 + T1,5 + T2,4 + T1,3 
5. 4T2,1 = T1,1 + T2,2 + T3,1 + T2,0 
6. 4T2,2 = T1,2 + T2,3 + T3,2 + T2,1 
7. 4T2,3 = T1,3 + T2,4 + T3,3 + T2,2 
8. 4T2,4 = T1,4 + T2,5 + T3,4 + T2,3 
9. 4T3,1 = T2,1  + T3,2 + T4,1 + T3,0 
10. 4T3,2 = T2,2  + T3,3 + T4,2 + T3,1
11. 4T3,3 = T2,3  + T3,4 + T4,3 + T3,2
12. 4T3,4 = T2,4 + T3,5 + T4,4 + T3,3 

Bu formülde 
dvXr9n.jpg

görüldüğü gibi sınır değerlerin sıcaklığını biliyoruz maviye boyadım. orta değerleri bilmiyoruz toplam 12 adet var. Nümerik yöntemlerde benim çözümüm her noktaya bir değer vermekle başlıyor ve yaklaşık 60 iterasyon sonunda gerçek değere yakın değeri veriyor. Ben bunu excell ile yaptım. 
oXE51R.jpg

XMdGm0.jpg

Görüldüğü gibi excelde formülü yerine koyarak 1. iterasyonda tahmini değerleri alıp 2. iterasyonda bir önceki değerleri alıp bu şekilde 0,001 hataya ulaşana kadar iterasyon yaptığımda yaklaşık 50-60 iterasyon arasında istenen değerlere ulaşıyorum.
mMEbmY.jpg

Delphi de geldiğim aşama ise :

9aGzyo.jpg

Button 1 e tıkladığımda gayet basit bir matematik işlemini çözdürebildim. Yani dx dy 'ye eni boyu böldürüp kaç bilinmeyen olduğunu, en nokta sayısını ve boy nokta sayısını buldurabildim. Bu aşamadan sonra ne yapacağım hakkında fikrim yok.

bu kodlamada yardımcı olabilecek var mı
#2
busranas'tan alıntı yaparak, bir yardım talebi yapmışsınız. Forumumuzun böyle bir üyesi yok. Olsa bile doğrudan alıntı yaparak yeni bir konunun açılması kötü bir görüntü veriyor.
Bu nedenle konu kapatılmıştır.
Vurguladığımız konulara riayet ederek konu açın.

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Levhadaki sıcaklık dağılımının delphi ile belirlenmesi mcgrns 11 286 15-01-2019, Saat: 12:21
Son Yorum: mcuyan
  Excel den Delphi ye veri çekme nmtsltn 1 154 26-12-2018, Saat: 11:32
Son Yorum: DelphiCan Yönetim
  İlginç Delphi Hatası baloglurecep 9 319 18-12-2018, Saat: 18:23
Son Yorum: baloglurecep
  Delphi VLC Skin (Appearance) SercanTEK 15 794 17-12-2018, Saat: 11:21
Son Yorum: Halil Han Badem
  Delphi Otomatik Çalışma Sorunu Hayati 2 214 27-11-2018, Saat: 11:53
Son Yorum: Hayati



Konuyu Okuyanlar: 1 Ziyaretçi