Υπολογισμός πιθανότητας
- chris_gatos
- Επιμελητής
- Δημοσιεύσεις: 6962
- Εγγραφή: Κυρ Δεκ 21, 2008 9:03 pm
- Τοποθεσία: Ανθούπολη
Υπολογισμός πιθανότητας
Διαβάζοντας το ενδιαφέρον βιβλίο του Marcus De Sautoy "Τα must-ήρια των αριθμών" μου κέντρισε το ενδιαφέρον
το παρακάτω πρόβλημα:
"Ρίχνουμε ένα κέρμα δέκα φορές. Ποιά είναι η πιθανότητα να φέρω τρείς συνεχόμενες φορές κεφάλι ή γράμματα;"
Η λύση που είδα χρησιμοποιεί τους αριθμούς Φιμπονάτσι.
Μήπως υπάρχει κάτι καλύτερο και πιο κοντά στη συνδυαστική;
Ευχαριστώ εκ των προτέρων.
το παρακάτω πρόβλημα:
"Ρίχνουμε ένα κέρμα δέκα φορές. Ποιά είναι η πιθανότητα να φέρω τρείς συνεχόμενες φορές κεφάλι ή γράμματα;"
Η λύση που είδα χρησιμοποιεί τους αριθμούς Φιμπονάτσι.
Μήπως υπάρχει κάτι καλύτερο και πιο κοντά στη συνδυαστική;
Ευχαριστώ εκ των προτέρων.
Χρήστος Κυριαζής
-
- Δημοσιεύσεις: 838
- Εγγραφή: Σάβ Ιουν 17, 2017 10:17 pm
- Τοποθεσία: Αθήνα
Re: Υπολογισμός πιθανότητας
Χρήστο θα ήθελα να δω τη λύση που λες. Αν έχεις χρόνο γράψ'την. Θα επιχειρήσω εδώ μια λύση με κατασκευή αναδρομικής εξίσωσης. Προφανώς θα υπάρχει και τρόπος με θεωρία μαρκοβιανών αλυσίδων. Επίσης, θα υπολογίσω την πιθανότητα ''τουλάχιστον'' τρεις συνεχόμενες κορώνες σε δέκα ρίψεις (ίδια είναι προφανώς και για γράμματα). Φαντάζομαι αυτό ζητάς.
Έστω το ενδεχόμενο σε ρίψεις να εμφανιστούν τουλάχιστον συνεχόμενες κορώνες . Παρατηρούμε ότι το ενδεχόμενο αυτό μπορεί να συμβεί με δύο τρόπους:
(1)Στις πρώτες ρίψεις να εμφανιστούν τουλάχιστον συνεχόμενες κορώνες (δηλαδή το ενδεχόμενο να έχει πραγματοποιηθεί πριν την τελευταία ρίψη). Σε αυτή την περίπτωση, έχουμε δύο περιπτώσεις για την τελευταία ρίψη, κορώνα ή γράμματα .
(2) Στις πρώτες ρίψεις δεν έχει εμφανιστεί η ακολουθία . Τότε αναγκαστικά θα πρέπει στις τελευταίες θέσεις να προκύψει η ακολουθία (ενδεχόμενο ). Οι υπόλοιπες αρχικές θέσεις μπορεί καταληφθούν από οποιοδήποτε γράμμα, δηλαδή έχουμε μεταθέσεις.
Αν με συμβολίσουμε το πλήθος των ευνοϊκών περιπτώσεων του ενδεχομένου τότε από την παραπάνω ανάλυση προκύπτει ότι:
Όμως H με τη βοήθεια της γίνεται:
Εμείς θέλουμε το . Έχοντας κατά νου ότι για και για , ξεκινώντας από το και προχωρώντας προς τα πάνω (με το χέρι οι πράξεις, τα νούμερα δεν είναι απαγορευτικά) βρίσκουμε τελικά ότι . Επίσης, το πλήθος των δυνατών περιπτώσεων είναι προφανώς και τελικά η ζητούμενη πιθανότητα είναι
Έστω το ενδεχόμενο σε ρίψεις να εμφανιστούν τουλάχιστον συνεχόμενες κορώνες . Παρατηρούμε ότι το ενδεχόμενο αυτό μπορεί να συμβεί με δύο τρόπους:
(1)Στις πρώτες ρίψεις να εμφανιστούν τουλάχιστον συνεχόμενες κορώνες (δηλαδή το ενδεχόμενο να έχει πραγματοποιηθεί πριν την τελευταία ρίψη). Σε αυτή την περίπτωση, έχουμε δύο περιπτώσεις για την τελευταία ρίψη, κορώνα ή γράμματα .
(2) Στις πρώτες ρίψεις δεν έχει εμφανιστεί η ακολουθία . Τότε αναγκαστικά θα πρέπει στις τελευταίες θέσεις να προκύψει η ακολουθία (ενδεχόμενο ). Οι υπόλοιπες αρχικές θέσεις μπορεί καταληφθούν από οποιοδήποτε γράμμα, δηλαδή έχουμε μεταθέσεις.
Αν με συμβολίσουμε το πλήθος των ευνοϊκών περιπτώσεων του ενδεχομένου τότε από την παραπάνω ανάλυση προκύπτει ότι:
Όμως H με τη βοήθεια της γίνεται:
Εμείς θέλουμε το . Έχοντας κατά νου ότι για και για , ξεκινώντας από το και προχωρώντας προς τα πάνω (με το χέρι οι πράξεις, τα νούμερα δεν είναι απαγορευτικά) βρίσκουμε τελικά ότι . Επίσης, το πλήθος των δυνατών περιπτώσεων είναι προφανώς και τελικά η ζητούμενη πιθανότητα είναι
- Demetres
- Γενικός Συντονιστής
- Δημοσιεύσεις: 8989
- Εγγραφή: Δευ Ιαν 19, 2009 5:16 pm
- Τοποθεσία: Λεμεσός/Πύλα
- Επικοινωνία:
Re: Υπολογισμός πιθανότητας
Xρήστο, φαντάζομαι είδες την πιο κάτω λύση. Αν ναι τότε είναι συνδυαστική:
Θα μετρήσουμε πόσες ακολουθίες από κορώνες/γράμματα δεν περιέχουν τρεις συνεχόμενες κορώνες ή τρία συνεχόμενα γράμματα. Έστω το πλήθος αυτών των ακολουθιών, τις οποίες θα ονομάζουμε καλές.
Ασφαλώς είναι . Θα βρούμε αναδρομικό τύπο για το :
Υπάρχουν καλές ακολουθίες από κορώνες/γράμματα οι οποίες λήγουν σε ΚΚ ή ΓΓ. Πράγματι, κάθε τέτοια ακολουθία δίνει μια καλή ακολουθία από κορώνες/γράμματα αγνοώντας τις τελευταίες δύο ρίψεις. Αντιστρόφως, κάθε καλή ακολουθία από κορώνες/γράμματα μπορεί να επεκταθεί σε μοναδική καλή ακολουθία από κορώνες/γράμματα η οποία λήγει σε ΚΚ ή ΓΓ. Πράγματι αν η καλή ακολουθία των ρίψεων λήγει σε Κ, πρέπει στις επόμενες δύο ρίψεις να έχουμε ΓΓ. Αν λήγει σε Γ, πρέπει να έχουμε ΚΚ.
Υπάρχουν καλές ακολουθίες από κορώνες/γράμματα οι οποίες λήγουν σε ΓΚ ή ΚΓ. Πράγματι η αντιστοιχία με τις καλές ακολουθίες από κορώνες/γράμματα που παίρνουμε αν αφαιρέσουμε την τελευταία ρίψη είναι 1-1.
Άρα για . Παρατηρώντας τώρα ότι και καταλήγουμε στο ότι . (Μπορούμε βέβαια να μην χρησιμοποιήσουμε την παρατήρηση αλλά τον αναδρομικό τύπο για να βρούμε , κ.τ.λ.)
Άρα η πιθανότητα να φέρουμε (τουλάχιστον) τρεις συνεχόμενες φορές κορώνα ή γράμματα ισούται με
Επεξεργασία: Είναι οπότε η σωστή τελική απάντηση είναι
Θα μετρήσουμε πόσες ακολουθίες από κορώνες/γράμματα δεν περιέχουν τρεις συνεχόμενες κορώνες ή τρία συνεχόμενα γράμματα. Έστω το πλήθος αυτών των ακολουθιών, τις οποίες θα ονομάζουμε καλές.
Ασφαλώς είναι . Θα βρούμε αναδρομικό τύπο για το :
Υπάρχουν καλές ακολουθίες από κορώνες/γράμματα οι οποίες λήγουν σε ΚΚ ή ΓΓ. Πράγματι, κάθε τέτοια ακολουθία δίνει μια καλή ακολουθία από κορώνες/γράμματα αγνοώντας τις τελευταίες δύο ρίψεις. Αντιστρόφως, κάθε καλή ακολουθία από κορώνες/γράμματα μπορεί να επεκταθεί σε μοναδική καλή ακολουθία από κορώνες/γράμματα η οποία λήγει σε ΚΚ ή ΓΓ. Πράγματι αν η καλή ακολουθία των ρίψεων λήγει σε Κ, πρέπει στις επόμενες δύο ρίψεις να έχουμε ΓΓ. Αν λήγει σε Γ, πρέπει να έχουμε ΚΚ.
Υπάρχουν καλές ακολουθίες από κορώνες/γράμματα οι οποίες λήγουν σε ΓΚ ή ΚΓ. Πράγματι η αντιστοιχία με τις καλές ακολουθίες από κορώνες/γράμματα που παίρνουμε αν αφαιρέσουμε την τελευταία ρίψη είναι 1-1.
Άρα για . Παρατηρώντας τώρα ότι και καταλήγουμε στο ότι . (Μπορούμε βέβαια να μην χρησιμοποιήσουμε την παρατήρηση αλλά τον αναδρομικό τύπο για να βρούμε , κ.τ.λ.)
Άρα η πιθανότητα να φέρουμε (τουλάχιστον) τρεις συνεχόμενες φορές κορώνα ή γράμματα ισούται με
Επεξεργασία: Είναι οπότε η σωστή τελική απάντηση είναι
-
- Δημοσιεύσεις: 838
- Εγγραφή: Σάβ Ιουν 17, 2017 10:17 pm
- Τοποθεσία: Αθήνα
Re: Υπολογισμός πιθανότητας
Να σημειώσω ότι το δικό μου αποτέλεσμα αφορούσε την πιθανότητα ''τουλάχιστον'' τρεις συνεχόμενες κορώνες σε δέκα ρίψεις . Το αποτέλεσμα συμβαδίζει και με μια Monte Carlo προσομοίωση που έκανα στο mathematica. Ο κώδικας:
Κώδικας: Επιλογή όλων
n = 100000;(*πλήθος πειραμάτων*)
times = 0;(*πλήθος επιτυχιών στα n πειράματα*)
Do[
state = 0; (*Η μεταβλητή state (κατάσταση) μετρά πόσες διαδοχικές κορώνες έχουμε φέρει μέχρι στιγμής.Αν ξεκινώντας το πείραμα έρθει κορώνα τότε η κατάσταση είναι 1,αν στην επόμενη έρθει πάλι κορώνα τότε η κατάσταση είναι 2 κ.ο.κ.*)
i = 0;
While[
state < 3 && i < 10,
p = Random[];
(*Παράγουμε έναν τυχαίο αριθμό στο (0,1)*)
i++;
If[p < 1/2, state++, state = 0]
(*Με πιθανότητα 1/2 έρχεται κορώνα και αυξάνεται κατά 1 η state. Διαφορετικά πάμε σε κατάσταση 0*)
]
If[state == 3, times++]
(*Αν στο τέλος των 10 ρίψεων ή και πιο νωρίς η κατάσταση state έχει χτυπήσει 3 τότε το ενδεχόμενο έχει εμφανιστεί και αυξάνουμε τη μεταβλητή times κατά 1*)
, {n}]
Print[N[times/n]]
0.50725
-
- Δημοσιεύσεις: 838
- Εγγραφή: Σάβ Ιουν 17, 2017 10:17 pm
- Τοποθεσία: Αθήνα
Re: Υπολογισμός πιθανότητας
Ως προς το δεύτερο αποτέλεσμα που παρουσιάστηκε έχω αμφιβολίες. Μια προσομοίωση δίνει περίπου 10% μεγαλύτερη πιθανότητα. Επίσης Χρήστο θα πρέπει να ξεκαθαριστεί αν θέλουμε τρεις τουλάχιστον ή τρεις ακριβώς. Ο κώδικας:
Κώδικας: Επιλογή όλων
n = 10000;(*πλήθος πειραμάτων*)
times = 0;(*πλήθος επιτυχιών στα n πειράματα*)
Do[
state1 = 0;
state2 = 0;
(*Η μεταβλητή state1 μετρά πόσες διαδοχικές κορώνες έχουμε φέρει μέχρι στιγμής.Αν ξεκινώντας το πείραμα έρθει κορώνα τότε η κατάσταση είναι 1,αν στην επόμενη έρθει πάλι κορώνα τότε η κατάσταση είναι 2 κ.ο.κ. .Όμοια για τη μεταβλητή state2 για τα γράμματα*)
i = 0;
While[
state1 < 3 && state2 < 3 && i < 10,
p = Random[];
(*Παράγουμε έναν τυχαίο αριθμό στο (0,1)*)i++;
If[p < 1/2, (state1++) && (state2 = 0), (state1 = 0) && (state2++)]
(*Με πιθανότητα 1/2 έρχεται κορώνα και αυξάνεται κατά 1 η state1 και μηδενίζεται η state2*)
(*Με πιθανότητα 1/2 έρχεται γράμματα και αυξάνεται κατά 1 η state2 και μηδενίζεται η state1*)]
If[state1 == 3 || state2 == 3, times++], {n}]
(*Αν στο τέλος των 10 ρίψεων ή και πιο νωρίς κάποια από τις καταστάσεις έχει χτυπήσει 3 τότε το ενδεχόμενο έχει εμφανιστεί και αυξάνουμε τη μεταβλητή times κατά 1*)
Print[N[times/n]]
0.8272
- Demetres
- Γενικός Συντονιστής
- Δημοσιεύσεις: 8989
- Εγγραφή: Δευ Ιαν 19, 2009 5:16 pm
- Τοποθεσία: Λεμεσός/Πύλα
- Επικοινωνία:
Re: Υπολογισμός πιθανότητας
Η αναδρομική σχέση ήταν σωστή, μόνο που βρήκα το αντί το . Η σωστή απάντηση είναιΛάμπρος Κατσάπας έγραψε:Ως προς το δεύτερο αποτέλεσμα που παρουσιάστηκε έχω αμφιβολίες.
που είναι κοντά στο αποτέλεσμα της προσομοίωσης. Θα το διορθώσω.
Παρεμπιπτόντως, έβαλα τον κώδικά σας μέσα σε πλαίσιο κώδικα.
- chris_gatos
- Επιμελητής
- Δημοσιεύσεις: 6962
- Εγγραφή: Κυρ Δεκ 21, 2008 9:03 pm
- Τοποθεσία: Ανθούπολη
Re: Υπολογισμός πιθανότητας
Καλησπέρα Λάμπρο και Δημήτρη!
Τι μου επαναφέρατε στη μνήμη,,,Αυτό το βιβλίο το διάβαζα λίγο πριν πάρω μετάθεση από τη Χάλκη.
Τότε είχα κάνει ένα βήμα στη συνδυαστική. Αυτό όμως με το πέρασμα του καιρού...σκούριασε!
Θα το ψάξω και θα γράψω ότι ζητήσατε. Αρκεί να το βρω!
Ευχαριστώ για την ένασχόληση
(για να είμαι ειλικρινής είχα ξεχάσει πως είχε μείνει αναπάντητο)
Τι μου επαναφέρατε στη μνήμη,,,Αυτό το βιβλίο το διάβαζα λίγο πριν πάρω μετάθεση από τη Χάλκη.
Τότε είχα κάνει ένα βήμα στη συνδυαστική. Αυτό όμως με το πέρασμα του καιρού...σκούριασε!
Θα το ψάξω και θα γράψω ότι ζητήσατε. Αρκεί να το βρω!
Ευχαριστώ για την ένασχόληση
(για να είμαι ειλικρινής είχα ξεχάσει πως είχε μείνει αναπάντητο)
Χρήστος Κυριαζής
Μέλη σε σύνδεση
Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 7 επισκέπτες