Monte carlo
Mauricio Vela
2025-08-26
set.seed(2025)
apuesta <- 10
jugadas_por_dia <- 8000
simulaciones <- 1000 probabilidad <- c(jackpot=0.001,grande= 0.01,chico= 0.10,sin= 0.889)
payouts <- c(jackpot=200, grande=20,chico= 2,sin= 0)ganancias <- t(rmultinom(n = simulaciones, size = jugadas_por_dia, prob = probabilidad))
ganancias## jackpot grande chico sin
## [1,] 10 85 794 7111
## [2,] 8 77 781 7134
## [3,] 9 74 813 7104
## [4,] 7 86 781 7126
## [5,] 3 82 768 7147
## [6,] 6 90 806 7098
## [7,] 9 82 758 7151
## [8,] 12 77 761 7150
## [9,] 8 68 756 7168
## [10,] 5 66 796 7133
## [11,] 10 72 811 7107
## [12,] 10 82 809 7099
## [13,] 5 91 792 7112
## [14,] 9 92 830 7069
## [15,] 12 78 806 7104
## [16,] 6 74 776 7144
## [17,] 8 78 790 7124
## [18,] 10 93 796 7101
## [19,] 11 72 789 7128
## [20,] 5 77 828 7090
## [21,] 10 82 840 7068
## [22,] 7 81 720 7192
## [23,] 7 104 848 7041
## [24,] 7 78 776 7139
## [25,] 12 87 785 7116
## [26,] 11 78 847 7064
## [27,] 8 77 814 7101
## [28,] 8 64 778 7150
## [29,] 5 71 792 7132
## [30,] 12 71 742 7175
## [31,] 8 101 807 7084
## [32,] 11 72 755 7162
## [33,] 6 72 775 7147
## [34,] 3 89 819 7089
## [35,] 4 76 846 7074
## [36,] 11 94 835 7060
## [37,] 12 77 807 7104
## [38,] 8 88 771 7133
## [39,] 7 68 800 7125
## [40,] 16 79 829 7076
## [41,] 7 69 813 7111
## [42,] 11 85 803 7101
## [43,] 9 74 714 7203
## [44,] 10 83 794 7113
## [45,] 7 87 808 7098
## [46,] 6 73 790 7131
## [47,] 13 90 796 7101
## [48,] 11 69 771 7149
## [49,] 3 81 823 7093
## [50,] 6 75 781 7138
## [51,] 11 96 810 7083
## [52,] 9 84 825 7082
## [53,] 7 75 784 7134
## [54,] 4 94 759 7143
## [55,] 11 72 786 7131
## [56,] 4 98 785 7113
## [57,] 8 104 744 7144
## [58,] 8 70 829 7093
## [59,] 3 91 754 7152
## [60,] 9 62 777 7152
## [61,] 10 87 776 7127
## [62,] 3 82 791 7124
## [63,] 12 70 827 7091
## [64,] 8 79 808 7105
## [65,] 10 80 776 7134
## [66,] 9 74 837 7080
## [67,] 9 74 784 7133
## [68,] 8 67 804 7121
## [69,] 1 58 806 7135
## [70,] 8 88 803 7101
## [71,] 3 75 832 7090
## [72,] 8 63 790 7139
## [73,] 11 84 789 7116
## [74,] 6 84 745 7165
## [75,] 8 78 792 7122
## [76,] 5 69 807 7119
## [77,] 8 57 863 7072
## [78,] 9 90 778 7123
## [79,] 10 74 773 7143
## [80,] 8 87 774 7131
## [81,] 6 78 774 7142
## [82,] 7 74 746 7173
## [83,] 8 74 848 7070
## [84,] 12 81 787 7120
## [85,] 10 73 802 7115
## [86,] 5 86 802 7107
## [87,] 10 85 758 7147
## [88,] 12 82 821 7085
## [89,] 9 71 787 7133
## [90,] 4 70 813 7113
## [91,] 2 94 757 7147
## [92,] 13 90 805 7092
## [93,] 8 72 779 7141
## [94,] 8 79 762 7151
## [95,] 7 68 822 7103
## [96,] 4 93 783 7120
## [97,] 11 105 821 7063
## [98,] 8 74 806 7112
## [99,] 8 92 780 7120
## [100,] 7 86 825 7082
## [101,] 8 89 767 7136
## [102,] 6 86 791 7117
## [103,] 7 77 812 7104
## [104,] 11 84 811 7094
## [105,] 5 66 820 7109
## [106,] 10 97 745 7148
## [107,] 6 81 778 7135
## [108,] 10 81 806 7103
## [109,] 9 77 780 7134
## [110,] 7 62 765 7166
## [111,] 6 73 771 7150
## [112,] 7 79 770 7144
## [113,] 10 76 774 7140
## [114,] 9 94 752 7145
## [115,] 2 97 795 7106
## [116,] 8 100 826 7066
## [117,] 5 86 803 7106
## [118,] 5 95 794 7106
## [119,] 7 74 769 7150
## [120,] 16 72 791 7121
## [121,] 10 77 788 7125
## [122,] 4 66 827 7103
## [123,] 5 98 795 7102
## [124,] 7 84 795 7114
## [125,] 7 102 798 7093
## [126,] 7 79 836 7078
## [127,] 6 66 863 7065
## [128,] 14 86 810 7090
## [129,] 14 78 785 7123
## [130,] 3 83 779 7135
## [131,] 8 82 817 7093
## [132,] 13 59 763 7165
## [133,] 13 86 820 7081
## [134,] 6 83 754 7157
## [135,] 10 80 806 7104
## [136,] 10 69 805 7116
## [137,] 7 90 787 7116
## [138,] 8 85 815 7092
## [139,] 6 88 787 7119
## [140,] 7 97 787 7109
## [141,] 8 83 750 7159
## [142,] 8 74 804 7114
## [143,] 7 76 820 7097
## [144,] 11 75 823 7091
## [145,] 16 104 816 7064
## [146,] 12 85 795 7108
## [147,] 7 67 799 7127
## [148,] 9 77 805 7109
## [149,] 6 63 782 7149
## [150,] 8 82 818 7092
## [151,] 6 73 847 7074
## [152,] 7 73 792 7128
## [153,] 4 95 788 7113
## [154,] 6 89 792 7113
## [155,] 6 84 857 7053
## [156,] 15 97 811 7077
## [157,] 9 93 792 7106
## [158,] 8 73 820 7099
## [159,] 5 82 796 7117
## [160,] 5 84 814 7097
## [161,] 4 83 792 7121
## [162,] 11 90 838 7061
## [163,] 9 68 797 7126
## [164,] 11 74 782 7133
## [165,] 13 87 804 7096
## [166,] 13 64 802 7121
## [167,] 7 66 805 7122
## [168,] 8 91 781 7120
## [169,] 9 90 823 7078
## [170,] 8 91 812 7089
## [171,] 7 76 833 7084
## [172,] 8 88 817 7087
## [173,] 14 88 838 7060
## [174,] 3 76 773 7148
## [175,] 14 63 782 7141
## [176,] 7 63 792 7138
## [177,] 4 81 831 7084
## [178,] 6 88 831 7075
## [179,] 3 83 779 7135
## [180,] 9 86 761 7144
## [181,] 8 96 771 7125
## [182,] 5 76 824 7095
## [183,] 10 87 817 7086
## [184,] 8 73 781 7138
## [185,] 8 97 828 7067
## [186,] 3 66 729 7202
## [187,] 10 66 809 7115
## [188,] 7 67 830 7096
## [189,] 9 63 773 7155
## [190,] 10 76 820 7094
## [191,] 8 79 812 7101
## [192,] 10 83 778 7129
## [193,] 10 67 740 7183
## [194,] 5 97 808 7090
## [195,] 10 75 831 7084
## [196,] 4 93 814 7089
## [197,] 6 86 820 7088
## [198,] 9 66 872 7053
## [199,] 7 82 764 7147
## [200,] 7 89 786 7118
## [201,] 9 81 752 7158
## [202,] 8 100 832 7060
## [203,] 5 90 805 7100
## [204,] 8 81 827 7084
## [205,] 10 71 823 7096
## [206,] 5 69 805 7121
## [207,] 5 75 765 7155
## [208,] 14 70 801 7115
## [209,] 6 68 743 7183
## [210,] 16 80 781 7123
## [211,] 4 98 771 7127
## [212,] 9 74 809 7108
## [213,] 8 86 796 7110
## [214,] 13 90 818 7079
## [215,] 16 90 773 7121
## [216,] 7 71 774 7148
## [217,] 7 75 812 7106
## [218,] 7 92 779 7122
## [219,] 8 81 817 7094
## [220,] 8 73 818 7101
## [221,] 10 95 757 7138
## [222,] 8 74 839 7079
## [223,] 9 68 825 7098
## [224,] 6 78 789 7127
## [225,] 8 73 819 7100
## [226,] 6 85 815 7094
## [227,] 1 74 748 7177
## [228,] 7 90 808 7095
## [229,] 6 78 810 7106
## [230,] 5 71 799 7125
## [231,] 10 84 817 7089
## [232,] 9 89 776 7126
## [233,] 10 86 805 7099
## [234,] 10 74 816 7100
## [235,] 14 76 817 7093
## [236,] 4 80 769 7147
## [237,] 5 72 803 7120
## [238,] 7 62 792 7139
## [239,] 4 71 744 7181
## [240,] 11 78 802 7109
## [241,] 6 83 853 7058
## [242,] 6 86 782 7126
## [243,] 7 84 787 7122
## [244,] 14 59 826 7101
## [245,] 3 77 789 7131
## [246,] 7 93 825 7075
## [247,] 6 85 828 7081
## [248,] 6 65 794 7135
## [249,] 2 79 801 7118
## [250,] 13 69 771 7147
## [251,] 8 89 787 7116
## [252,] 6 90 784 7120
## [253,] 14 68 861 7057
## [254,] 8 88 801 7103
## [255,] 8 77 806 7109
## [256,] 10 81 836 7073
## [257,] 4 95 834 7067
## [258,] 5 70 808 7117
## [259,] 10 83 810 7097
## [260,] 5 75 791 7129
## [261,] 11 64 791 7134
## [262,] 9 81 842 7068
## [263,] 7 68 819 7106
## [264,] 10 82 788 7120
## [265,] 9 82 736 7173
## [266,] 3 83 809 7105
## [267,] 1 87 846 7066
## [268,] 5 81 870 7044
## [269,] 8 70 786 7136
## [270,] 7 84 821 7088
## [271,] 14 76 794 7116
## [272,] 5 90 785 7120
## [273,] 15 102 784 7099
## [274,] 6 80 789 7125
## [275,] 6 76 750 7168
## [276,] 11 74 814 7101
## [277,] 7 89 768 7136
## [278,] 11 77 782 7130
## [279,] 9 58 766 7167
## [280,] 8 76 814 7102
## [281,] 4 71 786 7139
## [282,] 9 80 792 7119
## [283,] 9 83 802 7106
## [284,] 5 75 778 7142
## [285,] 9 91 835 7065
## [286,] 10 95 838 7057
## [287,] 8 96 778 7118
## [288,] 8 90 820 7082
## [289,] 10 88 797 7105
## [290,] 6 82 769 7143
## [291,] 9 70 767 7154
## [292,] 12 83 794 7111
## [293,] 6 79 828 7087
## [294,] 11 86 817 7086
## [295,] 8 67 807 7118
## [296,] 12 66 803 7119
## [297,] 9 86 825 7080
## [298,] 4 86 804 7106
## [299,] 9 90 732 7169
## [300,] 7 75 791 7127
## [301,] 3 76 785 7136
## [302,] 15 74 792 7119
## [303,] 11 81 820 7088
## [304,] 10 84 796 7110
## [305,] 11 73 764 7152
## [306,] 12 92 791 7105
## [307,] 9 82 785 7124
## [308,] 6 80 809 7105
## [309,] 6 74 768 7152
## [310,] 6 74 853 7067
## [311,] 10 89 835 7066
## [312,] 8 82 810 7100
## [313,] 6 88 819 7087
## [314,] 8 73 807 7112
## [315,] 12 80 801 7107
## [316,] 13 92 754 7141
## [317,] 4 98 794 7104
## [318,] 8 86 803 7103
## [319,] 8 93 812 7087
## [320,] 8 58 817 7117
## [321,] 7 78 780 7135
## [322,] 6 76 798 7120
## [323,] 9 86 794 7111
## [324,] 9 73 782 7136
## [325,] 6 89 815 7090
## [326,] 8 82 806 7104
## [327,] 3 78 818 7101
## [328,] 8 80 771 7141
## [329,] 9 87 820 7084
## [330,] 6 79 781 7134
## [331,] 10 98 863 7029
## [332,] 6 79 791 7124
## [333,] 12 74 827 7087
## [334,] 17 95 817 7071
## [335,] 7 80 812 7101
## [336,] 5 79 827 7089
## [337,] 5 77 781 7137
## [338,] 3 80 830 7087
## [339,] 9 75 762 7154
## [340,] 7 75 805 7113
## [341,] 7 101 811 7081
## [342,] 9 64 797 7130
## [343,] 13 79 833 7075
## [344,] 11 86 823 7080
## [345,] 13 80 800 7107
## [346,] 9 70 783 7138
## [347,] 6 74 810 7110
## [348,] 9 83 766 7142
## [349,] 5 70 807 7118
## [350,] 5 91 785 7119
## [351,] 12 97 771 7120
## [352,] 13 77 844 7066
## [353,] 5 82 823 7090
## [354,] 7 78 767 7148
## [355,] 6 85 751 7158
## [356,] 8 88 777 7127
## [357,] 6 80 768 7146
## [358,] 6 69 807 7118
## [359,] 11 86 822 7081
## [360,] 9 69 861 7061
## [361,] 14 76 817 7093
## [362,] 10 81 836 7073
## [363,] 4 83 790 7123
## [364,] 5 90 841 7064
## [365,] 7 84 775 7134
## [366,] 7 67 833 7093
## [367,] 8 80 797 7115
## [368,] 6 82 765 7147
## [369,] 2 88 791 7119
## [370,] 10 71 840 7079
## [371,] 12 77 858 7053
## [372,] 7 83 840 7070
## [373,] 11 90 789 7110
## [374,] 6 92 832 7070
## [375,] 7 90 813 7090
## [376,] 8 92 788 7112
## [377,] 12 76 788 7124
## [378,] 3 86 860 7051
## [379,] 11 91 818 7080
## [380,] 7 79 760 7154
## [381,] 11 78 792 7119
## [382,] 8 80 848 7064
## [383,] 4 81 810 7105
## [384,] 7 72 782 7139
## [385,] 13 86 854 7047
## [386,] 9 80 788 7123
## [387,] 5 83 820 7092
## [388,] 11 87 835 7067
## [389,] 6 82 820 7092
## [390,] 9 76 793 7122
## [391,] 14 83 796 7107
## [392,] 7 77 794 7122
## [393,] 5 80 801 7114
## [394,] 8 71 790 7131
## [395,] 13 88 830 7069
## [396,] 8 91 831 7070
## [397,] 11 98 792 7099
## [398,] 8 71 789 7132
## [399,] 8 82 793 7117
## [400,] 10 83 797 7110
## [401,] 8 77 825 7090
## [402,] 7 99 836 7058
## [403,] 4 80 830 7086
## [404,] 5 85 785 7125
## [405,] 8 69 829 7094
## [406,] 6 68 790 7136
## [407,] 2 64 809 7125
## [408,] 8 82 844 7066
## [409,] 9 81 745 7165
## [410,] 7 71 757 7165
## [411,] 7 77 828 7088
## [412,] 10 86 800 7104
## [413,] 8 75 803 7114
## [414,] 12 84 803 7101
## [415,] 7 80 832 7081
## [416,] 3 66 836 7095
## [417,] 8 96 803 7093
## [418,] 4 87 829 7080
## [419,] 7 86 769 7138
## [420,] 9 78 821 7092
## [421,] 9 74 765 7152
## [422,] 15 90 811 7084
## [423,] 3 84 845 7068
## [424,] 5 87 874 7034
## [425,] 11 93 776 7120
## [426,] 12 75 788 7125
## [427,] 4 95 813 7088
## [428,] 13 82 794 7111
## [429,] 5 91 812 7092
## [430,] 11 83 779 7127
## [431,] 5 79 789 7127
## [432,] 5 88 749 7158
## [433,] 5 84 796 7115
## [434,] 5 80 819 7096
## [435,] 9 68 772 7151
## [436,] 7 86 788 7119
## [437,] 6 69 790 7135
## [438,] 3 84 769 7144
## [439,] 7 69 774 7150
## [440,] 4 85 822 7089
## [441,] 5 82 733 7180
## [442,] 11 87 778 7124
## [443,] 8 80 796 7116
## [444,] 12 69 788 7131
## [445,] 7 72 788 7133
## [446,] 9 78 789 7124
## [447,] 5 93 797 7105
## [448,] 10 77 821 7092
## [449,] 7 76 796 7121
## [450,] 3 79 809 7109
## [451,] 11 82 801 7106
## [452,] 4 75 803 7118
## [453,] 7 82 797 7114
## [454,] 11 80 792 7117
## [455,] 9 72 823 7096
## [456,] 9 81 832 7078
## [457,] 7 79 814 7100
## [458,] 5 77 761 7157
## [459,] 12 91 828 7069
## [460,] 15 82 744 7159
## [461,] 12 92 809 7087
## [462,] 7 71 802 7120
## [463,] 16 88 806 7090
## [464,] 3 86 813 7098
## [465,] 9 83 765 7143
## [466,] 4 69 812 7115
## [467,] 8 78 790 7124
## [468,] 6 81 797 7116
## [469,] 7 86 794 7113
## [470,] 11 83 820 7086
## [471,] 7 78 810 7105
## [472,] 8 89 761 7142
## [473,] 7 84 808 7101
## [474,] 8 64 844 7084
## [475,] 5 84 799 7112
## [476,] 8 98 818 7076
## [477,] 8 84 819 7089
## [478,] 8 78 797 7117
## [479,] 6 91 832 7071
## [480,] 7 86 805 7102
## [481,] 4 77 830 7089
## [482,] 12 87 852 7049
## [483,] 14 80 789 7117
## [484,] 3 68 820 7109
## [485,] 5 75 815 7105
## [486,] 7 72 767 7154
## [487,] 10 80 854 7056
## [488,] 13 63 727 7197
## [489,] 10 98 803 7089
## [490,] 8 77 767 7148
## [491,] 5 83 833 7079
## [492,] 7 89 812 7092
## [493,] 9 96 830 7065
## [494,] 6 63 805 7126
## [495,] 11 78 814 7097
## [496,] 8 82 785 7125
## [497,] 13 86 777 7124
## [498,] 9 77 796 7118
## [499,] 7 85 830 7078
## [500,] 4 83 807 7106
## [501,] 12 75 806 7107
## [502,] 7 87 776 7130
## [503,] 7 67 849 7077
## [504,] 10 87 822 7081
## [505,] 7 81 773 7139
## [506,] 7 73 798 7122
## [507,] 8 88 796 7108
## [508,] 3 80 794 7123
## [509,] 5 87 826 7082
## [510,] 11 84 837 7068
## [511,] 10 72 782 7136
## [512,] 7 89 764 7140
## [513,] 11 75 781 7133
## [514,] 5 101 812 7082
## [515,] 7 78 803 7112
## [516,] 17 87 787 7109
## [517,] 8 65 810 7117
## [518,] 5 78 872 7045
## [519,] 8 74 791 7127
## [520,] 4 92 762 7142
## [521,] 6 85 817 7092
## [522,] 8 83 846 7063
## [523,] 7 74 817 7102
## [524,] 6 80 778 7136
## [525,] 13 84 759 7144
## [526,] 6 84 801 7109
## [527,] 9 76 792 7123
## [528,] 5 84 777 7134
## [529,] 9 77 813 7101
## [530,] 6 100 768 7126
## [531,] 9 77 806 7108
## [532,] 11 69 779 7141
## [533,] 7 79 808 7106
## [534,] 12 94 839 7055
## [535,] 7 82 839 7072
## [536,] 7 87 828 7078
## [537,] 9 84 817 7090
## [538,] 7 65 822 7106
## [539,] 9 83 805 7103
## [540,] 8 65 802 7125
## [541,] 11 87 810 7092
## [542,] 14 74 828 7084
## [543,] 5 82 827 7086
## [544,] 13 74 803 7110
## [545,] 7 85 777 7131
## [546,] 8 84 821 7087
## [547,] 5 76 766 7153
## [548,] 7 72 815 7106
## [549,] 5 74 795 7126
## [550,] 4 76 876 7044
## [551,] 5 99 844 7052
## [552,] 4 85 825 7086
## [553,] 8 88 822 7082
## [554,] 10 83 783 7124
## [555,] 3 79 757 7161
## [556,] 7 55 790 7148
## [557,] 5 92 765 7138
## [558,] 7 96 803 7094
## [559,] 6 73 816 7105
## [560,] 9 87 798 7106
## [561,] 9 76 827 7088
## [562,] 10 71 808 7111
## [563,] 9 79 760 7152
## [564,] 11 78 779 7132
## [565,] 5 102 754 7139
## [566,] 8 66 853 7073
## [567,] 12 71 794 7123
## [568,] 7 85 807 7101
## [569,] 13 90 840 7057
## [570,] 6 86 802 7106
## [571,] 8 99 816 7077
## [572,] 8 76 792 7124
## [573,] 9 76 786 7129
## [574,] 2 75 780 7143
## [575,] 5 81 763 7151
## [576,] 7 77 782 7134
## [577,] 4 81 830 7085
## [578,] 6 83 796 7115
## [579,] 9 85 841 7065
## [580,] 9 87 805 7099
## [581,] 3 90 766 7141
## [582,] 5 93 791 7111
## [583,] 6 99 792 7103
## [584,] 7 79 745 7169
## [585,] 10 77 832 7081
## [586,] 7 95 786 7112
## [587,] 4 77 845 7074
## [588,] 4 75 802 7119
## [589,] 6 93 832 7069
## [590,] 5 89 779 7127
## [591,] 10 70 827 7093
## [592,] 14 63 808 7115
## [593,] 7 103 821 7069
## [594,] 9 66 820 7105
## [595,] 10 87 822 7081
## [596,] 8 87 848 7057
## [597,] 6 83 795 7116
## [598,] 8 93 806 7093
## [599,] 9 75 791 7125
## [600,] 10 66 786 7138
## [601,] 13 81 800 7106
## [602,] 8 78 765 7149
## [603,] 12 76 799 7113
## [604,] 3 85 782 7130
## [605,] 5 79 830 7086
## [606,] 11 74 783 7132
## [607,] 9 90 828 7073
## [608,] 8 56 826 7110
## [609,] 7 84 819 7090
## [610,] 10 75 797 7118
## [611,] 8 80 802 7110
## [612,] 9 76 768 7147
## [613,] 9 94 849 7048
## [614,] 6 63 829 7102
## [615,] 6 67 776 7151
## [616,] 5 75 787 7133
## [617,] 10 84 759 7147
## [618,] 4 88 806 7102
## [619,] 7 100 773 7120
## [620,] 8 83 836 7073
## [621,] 7 87 803 7103
## [622,] 8 76 797 7119
## [623,] 9 87 854 7050
## [624,] 8 87 780 7125
## [625,] 9 82 777 7132
## [626,] 8 80 767 7145
## [627,] 9 75 788 7128
## [628,] 10 70 807 7113
## [629,] 12 91 771 7126
## [630,] 11 65 864 7060
## [631,] 8 71 791 7130
## [632,] 6 89 860 7045
## [633,] 10 75 820 7095
## [634,] 3 62 805 7130
## [635,] 6 88 824 7082
## [636,] 4 85 801 7110
## [637,] 10 74 814 7102
## [638,] 9 77 759 7155
## [639,] 7 81 812 7100
## [640,] 9 99 772 7120
## [641,] 6 81 792 7121
## [642,] 10 74 758 7158
## [643,] 6 74 792 7128
## [644,] 7 80 794 7119
## [645,] 7 88 815 7090
## [646,] 7 75 827 7091
## [647,] 7 89 753 7151
## [648,] 9 87 872 7032
## [649,] 9 69 820 7102
## [650,] 10 66 763 7161
## [651,] 10 75 788 7127
## [652,] 7 73 848 7072
## [653,] 5 78 829 7088
## [654,] 4 88 819 7089
## [655,] 9 77 833 7081
## [656,] 8 81 801 7110
## [657,] 4 84 757 7155
## [658,] 8 90 810 7092
## [659,] 12 86 793 7109
## [660,] 6 83 832 7079
## [661,] 5 80 841 7074
## [662,] 9 76 812 7103
## [663,] 11 73 749 7167
## [664,] 6 74 801 7119
## [665,] 7 87 807 7099
## [666,] 8 83 814 7095
## [667,] 6 86 782 7126
## [668,] 5 70 765 7160
## [669,] 9 81 803 7107
## [670,] 10 90 795 7105
## [671,] 6 87 796 7111
## [672,] 9 92 759 7140
## [673,] 5 87 761 7147
## [674,] 9 86 783 7122
## [675,] 7 87 824 7082
## [676,] 10 84 793 7113
## [677,] 7 93 748 7152
## [678,] 8 84 783 7125
## [679,] 8 89 778 7125
## [680,] 5 83 779 7133
## [681,] 7 79 841 7073
## [682,] 6 71 828 7095
## [683,] 4 82 799 7115
## [684,] 10 105 832 7053
## [685,] 11 87 773 7129
## [686,] 4 95 817 7084
## [687,] 7 66 827 7100
## [688,] 5 70 790 7135
## [689,] 8 87 772 7133
## [690,] 11 86 783 7120
## [691,] 14 72 822 7092
## [692,] 5 75 769 7151
## [693,] 5 77 828 7090
## [694,] 10 84 802 7104
## [695,] 14 96 863 7027
## [696,] 10 97 773 7120
## [697,] 3 85 845 7067
## [698,] 10 74 808 7108
## [699,] 5 73 821 7101
## [700,] 6 77 827 7090
## [701,] 9 93 835 7063
## [702,] 6 64 813 7117
## [703,] 12 82 801 7105
## [704,] 6 66 792 7136
## [705,] 9 78 789 7124
## [706,] 10 80 809 7101
## [707,] 10 78 770 7142
## [708,] 7 88 815 7090
## [709,] 8 95 798 7099
## [710,] 13 74 764 7149
## [711,] 13 75 762 7150
## [712,] 4 79 820 7097
## [713,] 3 76 799 7122
## [714,] 9 71 787 7133
## [715,] 8 80 797 7115
## [716,] 6 70 803 7121
## [717,] 5 87 824 7084
## [718,] 3 68 842 7087
## [719,] 7 64 784 7145
## [720,] 7 82 829 7082
## [721,] 7 78 791 7124
## [722,] 6 92 765 7137
## [723,] 11 71 869 7049
## [724,] 3 72 751 7174
## [725,] 7 66 834 7093
## [726,] 9 82 851 7058
## [727,] 5 86 753 7156
## [728,] 9 81 805 7105
## [729,] 7 79 812 7102
## [730,] 9 70 776 7145
## [731,] 8 78 831 7083
## [732,] 6 72 830 7092
## [733,] 10 75 841 7074
## [734,] 10 93 795 7102
## [735,] 9 79 809 7103
## [736,] 6 90 830 7074
## [737,] 9 95 792 7104
## [738,] 10 87 858 7045
## [739,] 6 83 811 7100
## [740,] 10 68 790 7132
## [741,] 6 77 773 7144
## [742,] 7 82 796 7115
## [743,] 7 74 820 7099
## [744,] 11 84 809 7096
## [745,] 7 69 840 7084
## [746,] 11 75 820 7094
## [747,] 10 88 757 7145
## [748,] 6 79 785 7130
## [749,] 5 83 769 7143
## [750,] 17 77 818 7088
## [751,] 6 90 813 7091
## [752,] 12 74 806 7108
## [753,] 8 85 790 7117
## [754,] 12 74 858 7056
## [755,] 8 85 816 7091
## [756,] 9 86 807 7098
## [757,] 9 75 818 7098
## [758,] 9 75 753 7163
## [759,] 6 75 815 7104
## [760,] 8 84 775 7133
## [761,] 5 92 811 7092
## [762,] 8 73 863 7056
## [763,] 9 73 821 7097
## [764,] 10 83 834 7073
## [765,] 4 85 816 7095
## [766,] 7 77 795 7121
## [767,] 9 77 803 7111
## [768,] 9 73 827 7091
## [769,] 4 81 814 7101
## [770,] 7 85 788 7120
## [771,] 6 99 817 7078
## [772,] 8 74 830 7088
## [773,] 14 78 849 7059
## [774,] 8 93 780 7119
## [775,] 7 76 783 7134
## [776,] 11 81 801 7107
## [777,] 8 73 775 7144
## [778,] 3 75 783 7139
## [779,] 6 86 799 7109
## [780,] 9 72 827 7092
## [781,] 6 78 760 7156
## [782,] 8 94 823 7075
## [783,] 8 78 756 7158
## [784,] 7 88 816 7089
## [785,] 7 86 786 7121
## [786,] 8 82 787 7123
## [787,] 4 81 834 7081
## [788,] 7 75 817 7101
## [789,] 13 78 822 7087
## [790,] 9 80 786 7125
## [791,] 7 70 813 7110
## [792,] 10 77 807 7106
## [793,] 7 83 805 7105
## [794,] 9 96 780 7115
## [795,] 6 83 803 7108
## [796,] 8 90 838 7064
## [797,] 12 86 786 7116
## [798,] 10 72 803 7115
## [799,] 10 84 828 7078
## [800,] 8 76 785 7131
## [801,] 7 70 815 7108
## [802,] 8 89 795 7108
## [803,] 6 83 803 7108
## [804,] 9 85 747 7159
## [805,] 6 77 811 7106
## [806,] 10 73 792 7125
## [807,] 11 80 804 7105
## [808,] 12 83 829 7076
## [809,] 8 96 823 7073
## [810,] 7 72 819 7102
## [811,] 6 83 833 7078
## [812,] 13 74 799 7114
## [813,] 10 91 779 7120
## [814,] 6 69 786 7139
## [815,] 9 85 832 7074
## [816,] 10 84 791 7115
## [817,] 10 75 788 7127
## [818,] 11 73 784 7132
## [819,] 8 72 811 7109
## [820,] 6 86 804 7104
## [821,] 10 77 839 7074
## [822,] 6 79 794 7121
## [823,] 10 66 811 7113
## [824,] 11 89 793 7107
## [825,] 5 72 785 7138
## [826,] 4 80 796 7120
## [827,] 9 90 833 7068
## [828,] 8 77 792 7123
## [829,] 5 79 788 7128
## [830,] 5 91 822 7082
## [831,] 7 83 797 7113
## [832,] 5 93 789 7113
## [833,] 9 75 785 7131
## [834,] 7 89 856 7048
## [835,] 6 66 818 7110
## [836,] 11 64 789 7136
## [837,] 5 82 784 7129
## [838,] 10 78 773 7139
## [839,] 9 71 817 7103
## [840,] 8 80 798 7114
## [841,] 7 91 782 7120
## [842,] 7 84 822 7087
## [843,] 2 81 828 7089
## [844,] 8 66 814 7112
## [845,] 7 80 815 7098
## [846,] 8 106 804 7082
## [847,] 9 85 789 7117
## [848,] 9 81 801 7109
## [849,] 9 91 809 7091
## [850,] 3 89 827 7081
## [851,] 6 70 810 7114
## [852,] 8 79 780 7133
## [853,] 6 75 786 7133
## [854,] 17 73 805 7105
## [855,] 8 90 739 7163
## [856,] 9 90 794 7107
## [857,] 11 73 779 7137
## [858,] 7 71 789 7133
## [859,] 5 83 830 7082
## [860,] 9 81 795 7115
## [861,] 10 90 816 7084
## [862,] 9 79 817 7095
## [863,] 8 75 807 7110
## [864,] 16 86 792 7106
## [865,] 8 73 781 7138
## [866,] 7 90 791 7112
## [867,] 4 78 767 7151
## [868,] 12 77 791 7120
## [869,] 5 84 786 7125
## [870,] 9 81 776 7134
## [871,] 12 75 817 7096
## [872,] 5 68 817 7110
## [873,] 8 71 857 7064
## [874,] 2 90 779 7129
## [875,] 8 81 809 7102
## [876,] 11 79 832 7078
## [877,] 11 77 760 7152
## [878,] 3 87 826 7084
## [879,] 10 75 764 7151
## [880,] 8 78 782 7132
## [881,] 8 72 860 7060
## [882,] 9 76 826 7089
## [883,] 10 91 794 7105
## [884,] 4 84 779 7133
## [885,] 11 86 772 7131
## [886,] 8 87 795 7110
## [887,] 9 79 814 7098
## [888,] 11 58 834 7097
## [889,] 7 78 792 7123
## [890,] 8 83 782 7127
## [891,] 8 65 803 7124
## [892,] 11 85 805 7099
## [893,] 6 81 829 7084
## [894,] 5 79 796 7120
## [895,] 8 69 832 7091
## [896,] 11 90 798 7101
## [897,] 9 76 758 7157
## [898,] 7 85 829 7079
## [899,] 6 71 849 7074
## [900,] 7 73 806 7114
## [901,] 8 75 793 7124
## [902,] 15 90 855 7040
## [903,] 7 78 784 7131
## [904,] 5 75 782 7138
## [905,] 10 68 824 7098
## [906,] 6 97 803 7094
## [907,] 9 103 840 7048
## [908,] 8 84 790 7118
## [909,] 9 81 797 7113
## [910,] 6 101 787 7106
## [911,] 9 85 779 7127
## [912,] 8 83 813 7096
## [913,] 8 79 798 7115
## [914,] 8 80 795 7117
## [915,] 8 61 856 7075
## [916,] 6 92 825 7077
## [917,] 10 81 811 7098
## [918,] 7 74 817 7102
## [919,] 3 94 813 7090
## [920,] 10 82 835 7073
## [921,] 18 75 841 7066
## [922,] 4 71 800 7125
## [923,] 5 85 880 7030
## [924,] 9 86 793 7112
## [925,] 7 76 804 7113
## [926,] 15 58 761 7166
## [927,] 7 85 812 7096
## [928,] 7 72 775 7146
## [929,] 9 70 799 7122
## [930,] 8 81 757 7154
## [931,] 7 85 788 7120
## [932,] 7 73 813 7107
## [933,] 4 81 778 7137
## [934,] 6 75 795 7124
## [935,] 6 73 817 7104
## [936,] 11 90 822 7077
## [937,] 7 99 748 7146
## [938,] 4 86 799 7111
## [939,] 5 86 776 7133
## [940,] 11 69 756 7164
## [941,] 9 93 799 7099
## [942,] 11 69 806 7114
## [943,] 7 86 768 7139
## [944,] 7 88 814 7091
## [945,] 13 75 821 7091
## [946,] 5 71 778 7146
## [947,] 6 65 816 7113
## [948,] 12 91 798 7099
## [949,] 6 85 797 7112
## [950,] 6 79 777 7138
## [951,] 6 79 802 7113
## [952,] 10 65 767 7158
## [953,] 14 69 804 7113
## [954,] 3 89 771 7137
## [955,] 6 76 776 7142
## [956,] 4 89 784 7123
## [957,] 6 81 805 7108
## [958,] 6 89 770 7135
## [959,] 9 85 795 7111
## [960,] 12 80 800 7108
## [961,] 7 67 777 7149
## [962,] 7 84 793 7116
## [963,] 8 97 807 7088
## [964,] 10 81 778 7131
## [965,] 7 69 790 7134
## [966,] 4 96 784 7116
## [967,] 11 71 813 7105
## [968,] 5 88 795 7112
## [969,] 4 87 829 7080
## [970,] 6 71 790 7133
## [971,] 5 88 830 7077
## [972,] 12 71 802 7115
## [973,] 9 76 811 7104
## [974,] 10 65 826 7099
## [975,] 10 93 813 7084
## [976,] 8 73 778 7141
## [977,] 8 75 790 7127
## [978,] 7 91 779 7123
## [979,] 4 83 840 7073
## [980,] 2 77 802 7119
## [981,] 5 75 810 7110
## [982,] 3 64 802 7131
## [983,] 9 92 816 7083
## [984,] 7 80 771 7142
## [985,] 6 86 807 7101
## [986,] 9 74 748 7169
## [987,] 8 73 784 7135
## [988,] 2 83 764 7151
## [989,] 8 77 804 7111
## [990,] 3 62 821 7114
## [991,] 10 87 811 7092
## [992,] 7 89 799 7105
## [993,] 6 89 798 7107
## [994,] 9 69 742 7180
## [995,] 7 75 847 7071
## [996,] 7 85 788 7120
## [997,] 11 83 774 7132
## [998,] 11 75 842 7072
## [999,] 5 94 812 7089
## [1000,] 11 73 819 7097for (i in 1:simulaciones) {
# Simular los resultados de todas las jugadas del día
resultados <- sample(payouts, jugadas_por_dia, replace = TRUE, prob = probabilidad)
# Cálculo de ingresos y egresos
apuesta_total <- jugadas_por_dia * apuesta
payout_total <- sum(resultados * apuesta)
ganancias_casino <- apuesta_total - payout_total
}
apuesta_total## [1] 80000payout_total## [1] 51000ganancias_casino## [1] 29000Ganancia_promedio <- mean(ganancias) # Ganancia promedio
Variabilidad <- sd(ganancias) # Variabilidad (riesgo)
escenario_pesimista <- quantile(ganancias, 0.05) # Escenario pesimista (5%)
escenario_optimista <- quantile(ganancias, 0.95) # Escenario optimista (95%)
probabilidad_perdida <- mean(ganancias < 0)
Ganancia_promedio## [1] 2000Variabilidad## [1] 2967.148escenario_optimista## 95%
## 7134escenario_pesimista## 5%
## 6probabilidad_perdida## [1] 0cat("Ganancia promedio por día: $", round(Ganancia_promedio, 2), "\n")## Ganancia promedio por día: $ 2000cat("Escenario pesimista (5% peor): $", round(escenario_pesimista, 2), "\n")## Escenario pesimista (5% peor): $ 6cat("Escenario optimista (5% mejor): $", round(escenario_optimista, 2), "\n")## Escenario optimista (5% mejor): $ 7134cat("Variabilidad (desviación estándar): $", round(Variabilidad, 2), "\n")## Variabilidad (desviación estándar): $ 2967.15cat("Probabilidad de pérdida en un día: ", round(probabilidad_perdida * 100, 2), "%\n")## Probabilidad de pérdida en un día: 0 %hist(ganancias,
breaks = 50,
main = "Distribución de Ganancias Diarias del Casino",
xlab = "Ganancia neta ($)", lwd = 2)
¿Cuánto puede ganar en promedio la máquina por día?
$2000
¿Qué tan grande es la variabilidad de esas ganancias?
muy alta, e mis datos me dice quela variablidad hacia el lado optimista sube mucho y en el lado pesismista no baja tanto
¿Cuál es la probabilidad de que la máquina dé pérdidas en un día típico?
0 porciento