Mesaj Panosu









FORTRAN / Olasılık Hesabı

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/programlar(fortran)

Yeni Başlık Gönder
Cevap Gönder   

« Önceki başlık :: Sonraki başlık »  
Yazar Mesaj

Etkin Üye
Etkin Üye
Durum:Offline
Üye No: 10
Kayıt: 14.10.2006
Puan: 46
Mesajlar: 2536
Şehir: istanbul/seul

MesajTarih: 20/12/2007, 12:51    Mesaj konusu: FORTRAN / Olasılık Hesabı Alıntıyla Cevap Gönder




Kod:
module random_int_module
public :: random_int_array
contains
subroutine random_int_array(VALUES, low, high)
integer, dimension (:), intent (out) :: VALUES
integer, intent (in) :: low, high
real, dimension (size (VALUES)) :: B
call random_number(B)
VALUES = int ((high - low + 1) * B + low)
end subroutine random_int_array
end module random_int_module

program probability_with_arrays
use random_int_module
integer, parameter :: no_of_simulations = 100000
integer :: i ,wins
integer, dimension(10, no_of_simulations) :: RESULTS
! Initialize RESULTS
RESULTS=0
! Fill in the outcome of 5 coin tosses.
call random_int_array(RESULTS(1,:), 0, 1)
call random_int_array(RESULTS(2,:), 0, 1)
call random_int_array(RESULTS(3,:), 0, 1)
call random_int_array(RESULTS(4,:), 0, 1)
call random_int_array(RESULTS(5,:), 0, 1)
! Find the number of heads in the these 5 throws.
RESULTS(6,:) = count(RESULTS(1:5,:)==1,dim=1)
! Fill in the outcome of three dice throws
call random_int_array(RESULTS(7,:), 1, 6)
call random_int_array(RESULTS(8,:), 1, 6)
call random_int_array(RESULTS(9,:), 1, 6)
! Delete outcome of the third die where less than 4 heads
! showed up.
where (RESULTS(6,:) < 4)
RESULTS(9,:)=0
end where
RESULTS(10,:) = sum(RESULTS(7:9,:),dim=1)
wins= count(RESULTS(10,:) > 10)
print*,"Probability = ",real(wins)/no_of_simulations*100,"%"
end program probability_with_arrays


5 para atılıyor eger 4 yada 5 tane tura gelirse 3 zar atılıyor. Daha az ise tura sayısı 2 tane zar atılıyor. Zarlar atıldıktan sonra üzerlerindeki rakamlar toplanıyor. Eger toplamları 10 dan büyük gelirse oyuncu kazanıyor. Yarışmacının kazanma olasılıgı nedir?(Array ile yapıldı)
Üst Bölüm
Kullanıcı bilgilerini göster Kişisel mesaj gönder
Mesajları göster:   


Yeni Başlık Gönder    Mesaj için teşekkür et
Cevap Gönder   

   Mesaj Panosu

    VB/C,C++,/Fortran     hazır kodlar/programlar(fortran)



Forum Seçin:  
Bu forumda yeni konular açamazsınız
Bu forumdaki mesajlara cevap veremezsiniz
Bu forumdaki mesajlarınızı değiştiremezsiniz
Bu forumdaki mesajlarınızı silemezsiniz
Bu forumdaki anketlerde oy kullanamazsınız
Bu foruma eklenti gönderemezsiniz
Bu forumdan eklenti indiremezsiniz

Bookmark this page to Facebook Bookmark this page to Twitter Bookmark this page to GoogleBookmark this page to Delicious Bookmark this page to Digg Bookmark this page to Blogmarks Bookmark this page to Blinklist Bookmark this page to Furl Bookmark this page to linkaGoGo Bookmark this page to Reddit Bookmark this page to Simpy Bookmark this page to Technorati Bookmark this page to Spurl Bookmark this page to Yahoo!


Benzer Başlıklar
Başlık Yazar Forum Cevap Son Mesajlar
Bu başlık kilitlenmiştir; cevap yazamaz, mesajları değiştiremezsiniz Önemli: FORTRAN'A GİRİŞ silistre hazır kodlar/programlar(fortran) 0 23/11/2007, 19:42 Son gönderilen mesajlar
silistre
Yeni mesaj yok Önemli: Radye Temel Hesabı 1-3-7 Freeware/Demo Mühendislik yazılımları 1 8/1/2016, 17:34 Son gönderilen mesajlar
herakles
Yeni mesaj yok Önemli: Asansör Motor Hesabı, Asansör motor g... mehmetozer44 Asansör Sistemleri/Projeleri 4 21/1/2016, 16:42 Son gönderilen mesajlar
fiducia
Yeni mesaj yok Fortran ders notları ,fortran örnek u... huso VB/C,C++,/Fortran 0 5/3/2009, 11:42 Son gönderilen mesajlar
huso
Yeni mesaj yok Olasılık Notları miramax Haberleşme 2 15/1/2014, 09:24 Son gönderilen mesajlar
ahmet9955
Yeni mesaj yok Olasılık ve İstatistik EEM notları arguden436 Bilgisayar/Elektrik&Elektronik ve Haberleşme Mühendisleri 0 26/4/2015, 00:46 Son gönderilen mesajlar
arguden436
Yeni mesaj yok Olasılık Dağılımları sunumu huso Bilgisayar/Elektrik&Elektronik ve Haberleşme Mühendisleri 0 24/3/2010, 19:23 Son gönderilen mesajlar
huso
Yeni mesaj yok probability (olasılık ingilizce) mnstr Endüstri Mühendisleri 0 17/7/2011, 15:58 Son gönderilen mesajlar
mnstr
Yeni mesaj yok Olasılık ders notları (elektronik) maximen Bilgisayar/Elektrik&Elektronik ve Haberleşme Mühendisleri 0 30/3/2008, 12:53 Son gönderilen mesajlar
maximen
Yeni mesaj yok Olasılık ve istatistik ders notları rhmaq Endüstri Mühendisleri 3 27/12/2012, 17:08 Son gönderilen mesajlar
hcozalp


Kod Çalışma Süresi = 0.0806 saniye, SQL Sorgu Adedi = 28, GZIP = Kapalı Hata denetimi = Kapalı,
Powered by phpBB



Pano Güvenliği

142154 Saldırı girişimi engellendi