Cần giúp về hàm xác xuất, xin mọi người giúp đỡ!

[raik]

Em đang làm thí nghiệm tính số lần trung bình để xảy ra trường hợp gieo đồng xu 10 lần sấp liên tục (biết là đã có công thức toán rồi nhưng vẫn muốn thử trên máy tính xem sao).
Em giả định sấp là 0, ngửa là 1. cột A là kết quả, cột C em dùng ranbetween(0,1).
Bây giờ em phải dùng công thức nào để máy tự chạy random đến khi cột C ra 0 hết thì dừng lại. Và biết máy đã phải thử bao nhiêu lần.
Cám ơn cả nhà trước ạ.

 

[phamxuantruong012]

Bạn đang sử dụng ranbetween(0,1). Thì kết quả sẽ trả về ngẫu nhiên 0 hoặc 1; đâu thể chạy random mà ra 0 hết được ???

 

[raik]

Bạn đang sử dụng ranbetween(0,1). Thì kết quả sẽ trả về ngẫu nhiên 0 hoặc 1; đâu thể chạy random mà ra 0 hết được ???

Được mà bạn, ví dụ như phép thử nhỏ hơn (2 lần sấp chẳng hạn) thì khi mình ấn F9 khoảng 4, 5 lần gì đó là sẽ ra kết quả 0 0. Mình đang thử với mẫu lớn hơn.
Cao thủ nào vào giúp với.

 

[Phuocam]

Bây giờ em phải dùng công thức nào để máy tự chạy random đến khi cột C ra 0 hết thì dừng lại. Và biết máy đã phải thử bao nhiêu lần.
Cám ơn cả nhà trước ạ.

Không biết dùng công thức, thử sub này:

Public Sub BaoNhieuLan()
Dim Tong As Long
Dim iCount As Long
Do
    Calculate
    Tong = Application.WorksheetFunction.Sum(Range("C5:C14"))
    iCount = iCount + 1
Loop While Tong > 0
Range("C1") = iCount
End Sub

 

[raik]

Không biết dùng công thức, thử sub này:

Public Sub BaoNhieuLan()
Dim Tong As Long
Dim iCount As Long
Do
    Calculate
    Tong = Application.WorksheetFunction.Sum(Range("C5:C14"))
    iCount = iCount + 1
Loop While Tong > 0
Range("C1") = iCount
End Sub

Thanks phuocam nhiều nhé. Mình làm được rồi.
Nhưng bạn xem giùm mình thêm cái này với.
Mình muốn so sánh kết quả sấp hết với sấp ngữa sấp ngửa xem có khác biệt gì không thì phải làm sao vậy?
Ví dụ như file này.

 

[VetMini]

...
Mình muốn so sánh kết quả sấp hết với sấp ngữa sấp ngửa xem có khác biệt gì không thì phải làm sao vậy?
.

Đã là random thì mõi lần chạy nó ra kết quả khác nhau, lấy gì so sánh? mà so sánh 2 kết quả random thì kết luận được cái gì?

(nếu muốn thống kê thì ít nhất phải chạy vài chục lần, và đem vài chục kết quả ấy đi thống kê. Néu số sai biệt (variance) cao thì phải tăng con số lần chạy)

 

[yukiss501]

Đã là random thì mõi lần chạy nó ra kết quả khác nhau, lấy gì so sánh? mà so sánh 2 kết quả random thì kết luận được cái gì?

(nếu muốn thống kê thì ít nhất phải chạy vài chục lần, và đem vài chục kết quả ấy đi thống kê. Néu số sai biệt (variance) cao thì phải tăng con số lần chạy)

Bạn hiểu sai ý mình rồi. Mình muốn làm test random xấp ngửa riêng, rồi so sánh kết quả trung bình với thí nghiệm đầu để xem có khác biệt gì không. Như file ví dụ 2 đó.

 

[VetMini]

Tôi đã nhiều năm kiếm cơm bằng nghề liên quan đến thống kê. Tôi nói vô nghĩa là vô nghĩa.
Trên nguyên tắc, các mẫu dãy biến đôi (bivariate) có xác xuất in hệt nhau, tức là (1/2)^n. Người ta chỉ thí nghiệm để tìm xem đồng tiền có thiên vị; ở đây không dùng đồng tiền mà dùng hàm RandBeetween, có nghĩa là thử xem hàm này có thiên vị?