<?php
/*
저작권자
-MX패밀리(http://m...content-available-to-author-only...y.ml)
-kmb패밀리 (http://k...content-available-to-author-only...y.net)
*/
$times=2000; //S+ 니콜 뽑은 횟수
$sum = 0; //사용한 A 니콜의달리기 개수
$mrkim = 0; //3경기,4경기 부터 등판하는 S김코치 사용 개수
$i = 0;
$item = ["win","lose"];
$values_1 = [20,80]; //1경기,2경기,3경기(단 6개 사용),4경기(단 8개 사용) 확률
$values_2 = [40,60]; //3경기,4경기 확률(단 S김코치 사용했을때)
$values_3 = [5,95]; //3경기,4경기확률
//현질해서 김코치 사용해서 뽑기
do{
$i=$i+1; //니콜 한번 뽑았을때 1 추가
//1경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+2; //1경기 A 니콜의달리기 2개 사용
if($index=="win"){
break;
}
}while(true);
//2경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+4; //2경기 A 니콜의달리기 4개 사용
if($index=="win"){
break;
}
}while(true);
//3경기
do{
$index = Percent_draw($item,$values_2);
$sum = $sum+6; //3경기 A 니콜의달리기 6개 사용
$mrkim++;
if($index=="win"){
break;
}
}while(true);
//4경기
do{
$index = Percent_draw($item,$values_2);
$sum = $sum+8; //4경기 A 니콜의달리기 8개 사용
$mrkim++;
if($index=="win"){
break;
}
}while(true);
}while($i<$times);
echo "S+니콜 ".$i."회 뽑기 평균값(김코치 사용시)"."\n";
echo "사용한 A 니콜의달리기 : ".$sum/$i."\n";
echo "사용한 김코치 개수 : ".$mrkim/$i."\n\n";
$sum = 0; //사용한 A 니콜의달리기 개수
$mrkim = 0; //3경기,4경기 부터 등판하는 S김코치 사용 개수
$i = 0;
//현질없이 그냥 뽑기(단 3경기 A니콜의 달리기 6개,4경기 A니콜의 달리기 8개 사용)
do{
$i=$i+1; //니콜 한번 뽑았을때 1 추가
//1경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+2; //1경기 A 니콜의달리기 2개 사용
if($index=="win"){
break;
}
}while(true);
//2경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+4; //2경기 A 니콜의달리기 4개 사용
if($index=="win"){
break;
}
}while(true);
//3경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+6; //3경기 A 니콜의달리기 6개 사용
$mrkim++;
if($index=="win"){
break;
}
}while(true);
//4경기
do{
$index = Percent_draw($item,$values_1);
$sum = $sum+8; //4경기 A 니콜의달리기 8개 사용
$mrkim++;
if($index=="win"){
break;
}
}while(true);
}while($i<$times);
echo "S+니콜 ".$i."회 뽑기 평균값(현질없이)"."\n";
echo "사용한 A 니콜의달리기 : ".$sum/$i."\n";
//확률 적용 뽑기함수
function Percent_draw($items_list,$percent_list) {
$range_now = 0;
$range_last = 0;
$decimal = 4;
if(count($percent_list) != count($items_list)) return false; for($sequence=0; $sequence<count($percent_list); $sequence++) { $range_now += pow(10,$decimal)*$percent_list[$sequence]; if($range_now >= $draw && $range_last < $draw) {
return $items_list[$sequence];
}else{
$range_last = $range_now;
}
}
}
?>
PD9waHAKLyoK7KCA7J6R6raM7J6QCi1NWO2MqOuwgOumrChodHRwOi8vbS4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4ueS5tbCkKLWttYu2MqOuwgOumrCAoaHR0cDovL2suLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLnkubmV0KQoqLwokdGltZXM9MjAwMDsJLy9TKyDri4jsvZwg672R7J2AIO2an+yImAokc3VtID0gMDsJCS8v7IKs7Jqp7ZWcIEEg64uI7L2c7J2Y64us66as6riwIOqwnOyImAokbXJraW0gPSAwOwkJLy8z6rK96riwLDTqsr3quLAg67aA7YSwIOuTse2MkO2VmOuKlCBT6rmA7L2U7LmYIOyCrOyaqSDqsJzsiJgKJGkgPSAwOwokaXRlbSA9IFsid2luIiwibG9zZSJdOwokdmFsdWVzXzEgPSBbMjAsODBdOyAgICAvLzHqsr3quLAsMuqyveq4sCwz6rK96riwKOuLqCA26rCcIOyCrOyaqSksNOqyveq4sCjri6ggOOqwnCDsgqzsmqkpIO2ZleuloAokdmFsdWVzXzIgPSBbNDAsNjBdOwkvLzPqsr3quLAsNOqyveq4sCDtmZXrpaAo64uoIFPquYDsvZTsuZgg7IKs7Jqp7ZaI7J2E65WMKQokdmFsdWVzXzMgPSBbNSw5NV07CQkvLzPqsr3quLAsNOqyveq4sO2ZleuloAovL+2YhOyniO2VtOyEnCDquYDsvZTsuZgg7IKs7Jqp7ZW07IScIOu9keq4sApkb3sKICAgICRpPSRpKzE7CQkJLy/ri4jsvZwg7ZWc67KIIOu9keyVmOydhOuVjCAxIOy2lOqwgAogICAgLy8x6rK96riwCiAgICBkb3sKICAgICAgICAkaW5kZXggPSBQZXJjZW50X2RyYXcoJGl0ZW0sJHZhbHVlc18xKTsKICAgICAgICAkc3VtID0gJHN1bSsyOwkJLy8x6rK96riwIEEg64uI7L2c7J2Y64us66as6riwIDLqsJwg7IKs7JqpCiAgICAgICAgaWYoJGluZGV4PT0id2luIil7CiAgICAgICAgICAgIGJyZWFrOwogICAgICAgIH0KICAgIH13aGlsZSh0cnVlKTsKICAgIC8vMuqyveq4sAogICAgZG97CiAgICAgICAgJGluZGV4ID0gUGVyY2VudF9kcmF3KCRpdGVtLCR2YWx1ZXNfMSk7CiAgICAgICAgJHN1bSA9ICRzdW0rNDsJCS8vMuqyveq4sCBBIOuLiOy9nOydmOuLrOumrOq4sCA06rCcIOyCrOyaqQogICAgICAgIGlmKCRpbmRleD09IndpbiIpewogICAgICAgICAgICBicmVhazsKICAgICAgICB9CiAgICB9d2hpbGUodHJ1ZSk7CiAgICAgLy8z6rK96riwCiAgICBkb3sKICAgICAgICAkaW5kZXggPSBQZXJjZW50X2RyYXcoJGl0ZW0sJHZhbHVlc18yKTsKICAgICAgICAkc3VtID0gJHN1bSs2OwkJLy8z6rK96riwIEEg64uI7L2c7J2Y64us66as6riwIDbqsJwg7IKs7JqpCiAgICAgICAJJG1ya2ltKys7CiAgICAgICBpZigkaW5kZXg9PSJ3aW4iKXsKICAgICAgICAgICAgYnJlYWs7CiAgICAgICAgfQogICAgfXdoaWxlKHRydWUpOwogICAgIC8vNOqyveq4sAogICAgZG97CiAgICAgICAgJGluZGV4ID0gUGVyY2VudF9kcmF3KCRpdGVtLCR2YWx1ZXNfMik7CiAgICAgICAgJHN1bSA9ICRzdW0rODsJCS8vNOqyveq4sCBBIOuLiOy9nOydmOuLrOumrOq4sCA46rCcIOyCrOyaqQogICAgICAgICRtcmtpbSsrOwogICAgICAgIGlmKCRpbmRleD09IndpbiIpewogICAgICAgICAgICBicmVhazsKICAgICAgICB9CiAgICB9d2hpbGUodHJ1ZSk7Cn13aGlsZSgkaTwkdGltZXMpOwplY2hvICJTK+uLiOy9nCAiLiRpLiLtmowg672R6riwIO2Pieq3oOqwkijquYDsvZTsuZgg7IKs7Jqp7IucKSIuIlxuIjsKZWNobyAi7IKs7Jqp7ZWcIEEg64uI7L2c7J2Y64us66as6riwIDogIi4kc3VtLyRpLiJcbiI7CmVjaG8gIuyCrOyaqe2VnCDquYDsvZTsuZgg6rCc7IiYIDogIi4kbXJraW0vJGkuIlxuXG4iOwokc3VtID0gMDsJCS8v7IKs7Jqp7ZWcIEEg64uI7L2c7J2Y64us66as6riwIOqwnOyImAokbXJraW0gPSAwOwkJLy8z6rK96riwLDTqsr3quLAg67aA7YSwIOuTse2MkO2VmOuKlCBT6rmA7L2U7LmYIOyCrOyaqSDqsJzsiJgKJGkgPSAwOwovL+2YhOyniOyXhuydtCDqt7jrg6Ug672R6riwKOuLqCAz6rK96riwIEHri4jsvZzsnZgg64us66as6riwIDbqsJwsNOqyveq4sCBB64uI7L2c7J2YIOuLrOumrOq4sCA46rCcIOyCrOyaqSkKZG97CiAgICAkaT0kaSsxOwkJCS8v64uI7L2cIO2VnOuyiCDrvZHslZjsnYTrlYwgMSDstpTqsIAKICAgIC8vMeqyveq4sAogICAgZG97CiAgICAgICAgJGluZGV4ID0gUGVyY2VudF9kcmF3KCRpdGVtLCR2YWx1ZXNfMSk7CiAgICAgICAgJHN1bSA9ICRzdW0rMjsJCS8vMeqyveq4sCBBIOuLiOy9nOydmOuLrOumrOq4sCAy6rCcIOyCrOyaqQogICAgICAgIGlmKCRpbmRleD09IndpbiIpewogICAgICAgICAgICBicmVhazsKICAgICAgICB9CiAgICB9d2hpbGUodHJ1ZSk7CiAgICAvLzLqsr3quLAKICAgIGRvewogICAgICAgICRpbmRleCA9IFBlcmNlbnRfZHJhdygkaXRlbSwkdmFsdWVzXzEpOwogICAgICAgICRzdW0gPSAkc3VtKzQ7CQkvLzLqsr3quLAgQSDri4jsvZzsnZjri6zrpqzquLAgNOqwnCDsgqzsmqkKICAgICAgICBpZigkaW5kZXg9PSJ3aW4iKXsKICAgICAgICAgICAgYnJlYWs7CiAgICAgICAgfQogICAgfXdoaWxlKHRydWUpOwogICAgIC8vM+qyveq4sAogICAgZG97CiAgICAgICAgJGluZGV4ID0gUGVyY2VudF9kcmF3KCRpdGVtLCR2YWx1ZXNfMSk7CiAgICAgICAgJHN1bSA9ICRzdW0rNjsJCS8vM+qyveq4sCBBIOuLiOy9nOydmOuLrOumrOq4sCA26rCcIOyCrOyaqQogICAgICAgCSRtcmtpbSsrOwogICAgICAgaWYoJGluZGV4PT0id2luIil7CiAgICAgICAgICAgIGJyZWFrOwogICAgICAgIH0KICAgIH13aGlsZSh0cnVlKTsKICAgICAvLzTqsr3quLAKICAgIGRvewogICAgICAgICRpbmRleCA9IFBlcmNlbnRfZHJhdygkaXRlbSwkdmFsdWVzXzEpOwogICAgICAgICRzdW0gPSAkc3VtKzg7CQkvLzTqsr3quLAgQSDri4jsvZzsnZjri6zrpqzquLAgOOqwnCDsgqzsmqkKICAgICAgICAkbXJraW0rKzsKICAgICAgICBpZigkaW5kZXg9PSJ3aW4iKXsKICAgICAgICAgICAgYnJlYWs7CiAgICAgICAgfQogICAgfXdoaWxlKHRydWUpOwp9d2hpbGUoJGk8JHRpbWVzKTsKZWNobyAiUyvri4jsvZwgIi4kaS4i7ZqMIOu9keq4sCDtj4nqt6DqsJIo7ZiE7KeI7JeG7J20KSIuIlxuIjsKZWNobyAi7IKs7Jqp7ZWcIEEg64uI7L2c7J2Y64us66as6riwIDogIi4kc3VtLyRpLiJcbiI7Ci8v7ZmV66WgIOyggeyaqSDrvZHquLDtlajsiJgKZnVuY3Rpb24gUGVyY2VudF9kcmF3KCRpdGVtc19saXN0LCRwZXJjZW50X2xpc3QpIHsKICAgICRyYW5nZV9ub3cgPSAwOwogICAgJHJhbmdlX2xhc3QgPSAwOwogICAgJGRlY2ltYWwgPSA0OwogICAgaWYoY291bnQoJHBlcmNlbnRfbGlzdCkgIT0gY291bnQoJGl0ZW1zX2xpc3QpKSByZXR1cm4gZmFsc2U7CiAgICAkZHJhdyA9IG10X3JhbmQoMSxwb3coMTAsJGRlY2ltYWwpKmFycmF5X3N1bSgkcGVyY2VudF9saXN0KSk7CiAgICBmb3IoJHNlcXVlbmNlPTA7ICRzZXF1ZW5jZTxjb3VudCgkcGVyY2VudF9saXN0KTsgJHNlcXVlbmNlKyspIHsKICAgICAgICAkcmFuZ2Vfbm93ICs9IHBvdygxMCwkZGVjaW1hbCkqJHBlcmNlbnRfbGlzdFskc2VxdWVuY2VdOwogICAgICAgIGlmKCRyYW5nZV9ub3cgPj0gJGRyYXcgJiYgJHJhbmdlX2xhc3QgPCAkZHJhdykgewogICAgICAgICAgICByZXR1cm4gJGl0ZW1zX2xpc3RbJHNlcXVlbmNlXTsKICAgICAgICB9ZWxzZXsKICAgICAgICAgICAgJHJhbmdlX2xhc3QgPSAkcmFuZ2Vfbm93OwogICAgICAgIH0KICAgIH0KfQo/Pg==