Çözüldü İçiçe Sonsuz Terimli Köklü Sayıların Çarpımı - Programlama

Konusu 'Matematik - Geometri' forumundadır ve Honore tarafından 16 Kasım 2018 başlatılmıştır.

Yüklüyor...
  1. Honore

    Honore Yönetici Yönetici

    Mesajlar:
    9.222
    Beğenileri:
    655
    Cinsiyet:
    Bay
    Meslek:
    Müh. (Elk./Bilg.)









    ---
    Geometrik Seri Çözümü:
    { 3^[ (1 / 6 + 1 / (6·6) + 1 / (6·6·6) + ... ] }·{ 9^[ (1 / 3 + 1 / (3·6) + 1 / (3·6·6) + ... ] } =
    { 3^[ (1 / 6) / (1 - 1 / 6) ] }·{ 9^[ (1 / 3) / (1 - 1 / 6) ] } =
    [ 3^(1 / 5) ]·[ 9^(2 / 5) ] =
    [ 3^(1 / 5) ]·[ 3^(4 / 5) ] =
    3^(1 / 5 + 4 / 5) =
    3^(5 / 5) =
    3
    ---
    Bilgisayar programlamayla ilgilenen öğrenciler için Fortran uygulaması:
    [​IMG]
    https://i72.servimg.com/u/f72/19/97/10/39/kokler10.png

    Program:
    Kod:
    program limit
    implicit none
    real (kind=8) :: koklerin_limiti, artis3=1./6.,artis9=1./3.
    real (kind=8) :: ustop3=0.,ustop9=0.,uc,dokuz
    
    do
    
      ustop3=ustop3+artis3; uc=3.**ustop3; artis3=artis3/6.0;
    
      ustop9=ustop9+artis9; dokuz=9.**ustop9; artis9=artis9/6.0;
    
      koklerin_limiti=uc*dokuz
    
      if((3.0-koklerin_limiti)<10.**(-44)) exit
    
    enddo
    
    write(6,10) 10.**(-44),' hata payiyla sonuc: ',koklerin_limiti
    
    10 format (E7.2,a,f10.7,/)
    
    end program
     
    : Fortran

  2. Benzer Konular: İçiçe Sonsuz
    Forum Başlık Tarih
    Toplam ve Çarpım Sembolü,Diziler ve Seriler,Matris ve Determinant Toplam Sembolü - Sonsuz Terimli Seri - Basit Kesirlere Ayırma İşlemi 24 Şubat 2024
    Limit ve Süreklilik,Türev,İntegral Sonsuz Terimli Dizi Limitinden Riemann İntegraline Geçiş - Logaritmalı Fonksiyonda Kısmi İntegrasyon 20 Ocak 2024
    Limit ve Süreklilik,Türev,İntegral Yatay Asimptot - Sonsuzda Limit 14 Ocak 2024
    Zor Sorular (Akademik Problemler Hariç) Sonsuz Terimli Geometrik Seri Toplamı - Türev 30 Haziran 2023
    Akademik Soru Çözümleri ve Kaynakları Seri Karakterinin Belirlenmesinde D'Alembert Oran Testi - Sonsuzda Limit 14 Mart 2023

Sayfayı Paylaş