98,826 Mesaj - 12,036 Konu - 70,769 Üye - Son üye: semchi45
İ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: sabit nokta çözümü(fortran90)  (Okunma Sayısı 250 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
Tılsım
Co-admin [%75]
*

İtibarı : 702
Offline

Mesaj Sayısı: 3,307


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

PROGRAM sabitnokta
IMPLICIT NONE
REAL::X,BETA,X0
INTEGER::N,I
WRITE(*,*)"KÖK İÇİN İLK TAHMİN DEĞERİNİ GİRİN"
READ(*,*)X0
WRITE(*,*)"HATA ÜST SINIRINI GİR"
READ(*,*)BETA
WRITE(*,*)"MAKSİMUM İTERASYON SAYISINI GİR"
READ(*,*)N
DO I=1,N
X=G(X0)
X0=X
WRITE(*,*)X
IF(ABS(X-X0).LE.BETA)THEN
WRITE(*,*)"KÖK=",X
STOP
END IF

ikinci dereceden denklem çözümü için...

denklem: (x**2+2)/3 için yapılmıstır program G=(X**2+2)/3 Burayı değiştirerek programı farklı denklemler için kullanabilirsiniz
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
İlk 1-Terabyte Sabit Disk Hitachi'den Donanım ve İşletim Sistemleri Forumu FreeKans 1 302 Nisan 05, 2008, 11:36:31 ÖÖ
Gönderen: efendy42
Dünyanın en küçük sabit diski Donanım ve İşletim Sistemleri Forumu FreeKans 1 257 Nisan 05, 2008, 11:36:44 ÖÖ
Gönderen: efendy42
Newton Raphson(fortran90) Mühendislik Ders Notları [TP] © Tılsım 0 398 Şubat 23, 2008, 06:56:05 ÖS
Gönderen: Tılsım
Firefox Ram Probleminin çözümü Donanım ve İşletim Sistemleri Forumu Jack Sparrow 4 1120 Ağustos 14, 2008, 03:11:50 ÖS
Gönderen: [ÁĎМĨŃ]
Sabit bin Kurra Bilim Forumu ]{elebe}[ 0 128 Ağustos 24, 2008, 10:28:46 ÖS
Gönderen: ]{elebe}[