Jump to content

Matematik Ve Algoritmadan Anlayan Var Mı?


tenekecezve

Recommended Posts

Arkadaşlar kuzenim üniversitede matematik bölümünde ve öğretmeni bir ödev vermiş. Birkaç tane soru. Algoritması yapılacakmış. Anlayan varsa yardımcı olabilir mi? Ben algoritmadan az çok anlarım ama matematiğin yükseği ile pek alakam yok :friends:

devaa9.jpg

Şimdiden Teşekkürler...

Link to comment
Share on other sites

Abi ilk sorunun kökleri rezalet aynı zamanda bu konuyu tam bize göstermediler ama bildiğim kadarıyla yardımcı olmaya çalışim:

for x=(5+kök13)/2 or x=(5-kök13)/2 => sgn(f(x)) = 0

for x<(5-kök13)/2 or (5+kök13)/2<x => sgn(f(x)) = 1

for (5-kök13)/2<x<(5+kök13)/2 => sgn(f(x)) = -1

///

ikinci sorunun özelliklerini tam hatırlamıyorum üçüncü soru da nasıl bir sorudur ya ama ilk 11 mükemmel sayıyı yazim:

	6,
28,
496,
8128,
33550336,
8589869056,
137438691328,
2305843008139952128,
2658455991569831744654692615953842176,
191561942608236107294793378084303638130997321548169216[/CODE]

Ayrıca mükkemel sayıların genel formulu şu durki: Ancak 2(üssü n)(2(üssü n+1)-1) n çift sayı veya 1 olacak...

Bundan sonra yapması gereken N ve 1-N sayısını genel formüle yakınsamak...

Ekstra not olarak belirtim bugune kadar zaten 44 tane mükemmel sayı bulunmuştur ve bu 44. sayı 19 milyon basamaklıdır.Tüm mükemmel sayılar 6 veya 8 le biter.Yukarıda verdiğim formulun doğruluğu kanıtlanmamıştır mükemmel sayı bulmanın bir yolu da söyledir 1 den başlayarak her sayıyı kendisnden önce gelen sayı 2 yle çarpılarak yazılır ve toplanır son sayı asal olmalıdır.Toplam sondaki asal sayı ile çarpıldığında mükemmel sayı bulunur örneğin: 1+2+4+8+16=31 31 asal 31*16=496 496 bir mükemmel sayıdır...

///

Abi diğerlerini de teorik olarak biliyorum ama algoritma hiç yazmadım bilemicem...

Link to comment
Share on other sites

Son örnek içinse N*N se kolay ama M*N 'e göre hazırlanmış transpoze kodu:

program matris
implicit none
integer::n,k,i,j
integer,allocatable::a(:,:)
print*,"A icin Satir sayisini giriniz..."
read*,n
print*,"A icin Sutun sayisini giriniz..."
read*,k
allocate(a(n,k))


do i=1,n
do j=1,k
write(*,57)"a(",i,",",j,") ="
read*,a(i,j)
end do
end do
print*,
do i=1,n
write(*,*)(a(i,j),j=1,k)
end do


print*,

do i=1,k
write(*,*)(a(j,i),j=1,n)
end do
57 format(a2,i1,a1,i1,a4)


end program[/CODE]

Ayrıca örnek 40 ta basitmiş ya bildiğimiz matrislerde toplama tabi n*n yada m*n şeklinde olcak ikiside daha sonra

[CODE]$i=Inputbox("satırsayısını giriniz","satır sayısı:")
$j=Inputbox("sütun sayısını giriniz","sütun sayısı:") (tabi gece 1:30 da yazdığımdan eriniyorum oraya sayı olma koşulu da eklenecek)
dim $a,$b
for $a to $i and $b to $j step 1
a($i,$j)+b($i,$j)=c($i,$j)
next[/CODE]

şeklinde kısa ama karışık bi döngü tam toplayamadım zaten

Link to comment
Share on other sites

  • 2 hafta sonra ...

Archived

This topic is now archived and is closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...