aşağıdaki formül 0 ile 1440 arasında rastgele tam sayı üretir. ama aynı sayıdan birden fazla olabilir.

=YUVARLA(S_SAYI_ÜRET()*(1440-0)+0;0)

edit: soruyu tekrar okuyunca yanlış anladığımı anladım. 1 2 3 arasında bir değer vermek istiyorsan;

=YUVARLA(S_SAYI_ÜRET()*(3-1)+1;0)

=MOD(YUVARLA(S_SAYI_ÜRET()*10;0);3)+1
formulu 1-3 arası rastgele sayı üretir

peki bu 1440 veriden 400'ü 1, 400'ü 2 ve 640'ı 3 olsun ve rastgele olsun desem çok mu şey istemiş olurum?

alttaki kod excel'de iş görüyor.
biraz kurcalanarak her türlü uygulamaya uygun hale getirilebilir.

Sub sayiuret()
For i = 1 To 1440
Cells(i, 1) = Int((3 * Rnd) + 1)
If Range("e1") = 1 And Cells(i, 1) = 1 Then 'eger gelen rakam 1se ve 1ler doluysa
If Range("e2") = 1 Then
Cells(i, 1) = 3
ElseIf Range("e3") = 1 Then
Cells(i, 1) = 2
Else
Do Until Cells(i, 1) <> 1 '1 gelmeyene kadar loop et
Randomize
Cells(i, 1) = Int((3 * Rnd) + 1)
Loop
End If
End If
If Range("e2") = 1 And Cells(i, 1) = 2 Then 'eger gelen rakam 2yse ve 2ler doluysa
If Range("e1") = 1 Then
Cells(i, 1) = 3
ElseIf Range("e3") = 1 Then
Cells(i, 1) = 1
Else
Do Until Cells(i, 1) <> 2 '2 gelmeyene kadar loop et
Randomize
Cells(i, 1) = Int((3 * Rnd) + 1)
Loop
End If
End If
If Range("e3") = 1 And Cells(i, 1) = 3 Then 'eger gelen rakam 3se ve 3ler doluysa
If Range("e1") = 1 Then
Cells(i, 1) = 2
ElseIf Range("e2") = 1 Then
Cells(i, 1) = 1
Else
Do Until Cells(i, 1) <> 3 '3 gelmeyene kadar loop et
Randomize
Cells(i, 1) = Int((3 * Rnd) + 1)
Loop
End If
End If
If Range("d1") = 400 Then Range("e1") = 1
If Range("d2") = 400 Then Range("e2") = 1
If Range("d3") = 640 Then Range("e3") = 1
Next i
End Sub

rand() ile b sütununda 1440 tane sayı üretip şunu kullanabilirsiniz 400, 400, 640 için: =IF(B2<400/1440,1,IF(B2<800/1440,2,3))

tabii 3-5 oynama olur, 1440 küçük bi sayı.

Ödev filan değilse, gerçketen bilimsel araştırma yapıyorsanız Excel veya MATLAB'ın içindeki fonksiyonlarla rastlantısal sayı üretmeyin. Periyodu çok daha büyük olan C rutinleri var, onlara bakın derim. Belki MATLAB için de bu tür kodlar yazılmıştır.

tanıtmak falan die bişi olmaması lazım genelde tak çalıştır olur.

denedim olmuyor. laptop'lar direk tanıyor ama masaüstünde yapamadım.

çalışır. mikrofon girişine takmadığından emin ol.

denetim masasındaki ses aygıtları vs den kulaklığı seçtiniz mi? belki yardımı dokunur.

genelde rengi yeşil olur takman gerek slotun

ondeki girisler calismaya bilir.

ses kartı özelliklerinden kulaklığı seçmeniz gerekebilir.
gigabyte anakartın onboard ses kartı bende o şekilde çalışıyor.

8 yıldır lens kullanan ve çok unutkan biri olarak şimdiye kadar başıma herhangi kötü bir şey gelmediğini söylemek isterim. ama bence baktın ki üzerinde toz gibi kalıntılar var o kapak kısmını çıkarabiliyorsan, yine solüsyonla temizleyebilirsin. ama ucu çok küçük olduğu için içine bir şey kaçacağını sanmıyorum.

Üzerinde kapağı açık bırakmayın uyarısı var gerçi ama delik çok küçük. Yine de bu kadar dalgın olmayın, mümkün olduğunca kapatın siz kapağı.

sanmıyorum. zaten şişe üzerinde kapağını kapalı tutunuz diye bir uyarı yok.* ama kapağı açtıktan sonra 6 ay içinde kullanın diye bir uyarı var. mikrop değil de kullanım süresinde bir azalma olabilir. yani kabaca daha çabuk bayatlar* diye düşündüm.

Aquafresh'te kapağı kullandıktan sonra hemen kapatınız yazıyor. All in One'da şişenin ucunu başka bir yere değidirmeyin, kontamine olabilir yazıyor. Renu'da bir şey yazmıyor evet, açtıktan 6 ay sonra atın yazıyor sadece. Muhabiriniz sui lens solüsyonları dünyasından bildirdi.

kyk'nın sayfasından bir yerlerden bakılabiliyor ona. benim ev arkadaşlarım da aynı durumda. kredi bitse bile yeni senet imzalayıp uzatabiliyormuşsun bizim öğrenci işlerinin dediğine göre.

krediyi 2.sınıfta almaya başladıysan bu bir şeyi değiştirmez. yine 4.senende kredi kesilir. want2die'nın dediği gibi sözleşmenin de 3 yıllık olması gerekir. 4.seneyi tamamlayanların kredileri kesiliyor. tıpkı harç kredilerinde olduğu gibi.