100,056 Mesaj - 12,267 Konu - 72,936 Üye - Son üye: matrax664
İndirmeden Kaliteli FİLM İZLEMEK için Tıklayın!

Sitemizde online izlenebilen telif haklarını ihlâl eden Klipler ve online dinlenebilen Müzikler kaldırılmıştır.
Gördüğünüz durumda İletişim'e tıklayarak bildiriniz.
Sayfa: [1] |   Aşağı git
 
Gönderen Konu: Newton Raphson(fortran90)  (Okunma Sayısı 427 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Tılsım
Co-admin [%75]
*

İtibarı : 702
Online

Mesaj Sayısı: 3,308


edeb yâ hû
« : Şubat 23, 2008, 06:56:05 ÖS »

f(x)=3x**2-12x+11 fonksiyonu için newton raphson metodu na ait fortran90 programı

PROGRAM newtonraphson
IMPLICIT NONE
REAL::X,BETA,X0,FUS
INTEGER::N,I
WRITE(*,*)"Kök için ilk tahmin değerini giriniz..."
read(*,*)X0
WRITE(*,*)"Hata üst sınırını giriniz..."
READ(*,*)BETA
WRITE(*,*)"Maksimum iterasyon sayısını giriniz..."
READ(*,*)N
DO I=1,N
FUS=FT(X0)
IF(FUS==0)THEN
WRITE(*,*)"Türev Süreksiz..."
STOP
ELSE
X=X0-F(X0)/FUS
WRITE(*,*)"X=",X

gerekli yerleri editleyerek tüm fonksiyonlar için kullanılabilir.
Logged
...Yare varmak hoştur ama yaren olmak başkadır başka...
-
Sayfa: [1] |   Yukarı git
 

 
Gitmek istediğiniz yer:  

Benzer Konular
Konu Başlığı Başlatan Yorum Okunma Sayısı Son Mesaj
SIR ISSAC NEWTON hk. İz Bırakanlar cihangir 2 388 Ekim 07, 2008, 03:45:53 ÖS
Gönderen: ToXicitY
sabit nokta çözümü(fortran90) Mühendislik Ders Notları [TP] © Tılsım 0 272 Şubat 23, 2008, 06:54:20 ÖS
Gönderen: Tılsım