jug7.com
[ home / cgi / juggler / column / diary / bbs / link / welcome ]
source ： ニューパルサーR
#!/usr/bin/perl
# ニューパルサーR シミュレーション
$cginame = 'n_pul.cgi';
$title = 'ニューパルサーR シミュレーション';
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read (STDIN, $input, $ENV{'CONTENT_LENGTH'});
}
foreach $str (split(/&/,$input)) {
($name,$value) = split(/=/, $str);
push(@input, $value);
}
($s, $play) = @input; # 設定, プレイ数
print "Content-Type: text/html\n\n";
# ヘッダとフォームの表示
print <<"__ HTML __";
<!DOCTYPE html PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>
<html lang='ja'>
<head>
<meta http-equiv='Content-Type' content="text/html; charset=shift_jis">
<title>jug7.com - cgi $title</title>
<style type="text/css"> <!--
A:hover {color:#ff0000;}
--></style>
</head>
<body text='#000000' bgcolor='#ffffff' link='#0000ff' alink='#ff0000' vlink='#0000cc'>
<font size=7><b><font face='Times New Roman,Times'>jug</font><font face='Bookman Old Style,arial black,Helvetica Black'>7</font><font face='Times New Roman,Times'>.com</font></b></font>
<hr color='#00aa00'>
<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>
<div align='center'><h2>$title</h2></div>
<hr width='70%'>
<div align='right'>[ <a href='n_pul_memo.html'>memo</a> / <a href='n_pul.html'>source</a> ]</div>
<br><br><center>
<form action='$cginame' method='POST'>
<table border=0>
<tr><td>設定</td><td><input type='text' size=10 name='s' maxlength=1 value='$s'></td></tr>
<tr><td>試行ゲーム数</td><td><input type='text' size=10 name='play' maxlength=4 value='$play'></td></tr>
</table><br>
<input type='submit' value="開始">
<br><br>
<table border=0><tr><td>
BIG、REG成立プレイで揃えるが、1枚のコインロスとした。<br>
通常時は完全小役目押し、BIG中は残り10Pから順押し優先。
</td></tr></table>
</form></center>
__ HTML __
# エラーチェックと GET 送信
if ($play > 9999) { $error = 1; $er_msg = 'プレイ数は最大9999Pまでです。'; }
if (!$play or !$s) { $error = 1; $er_msg = '記入漏れがあります。'; }
if (grep { /[^\d\.]/ } @input) { $error = 1; $er_msg = '不適切な文字が記入されています。'; };
if ($ENV{'REQUEST_METHOD'} ne 'POST') { $error = 1; $er_msg = 0; }
if ($er_msg) {
print q{<center><b><font color='red' size=4>*** ERROR !! ***</font><br><br>},"\n";
print "$er_msg</b></center>\n";
}
if ($error) {
print '<br><br><br><br><br>';
print q{<div align='right'>[ <a href='n_pul_memo.html'>memo</a> / <a href='n_pul.html'>source</a> ]</div>};
print q{<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>};
print '</body></html>';
exit;
}
# data 小役は（ 低確率 , 高確率 ）
@big = (54,58,62,66,68,68); $big = $big[$s-1];
@reg = (27,29,31,33,37,45); $reg = $reg[$s-1];
@gen = (100,100,100,100,103,106);
$pay = $gen[$s-1]/256;
$rep = 2245; $jac = 5200; $jac_haz = 1638;
@che2 = (900,4500); $big_che2 = 64;
@che4 = (400,2400); $big_che4 = 41;
@bell = (1344,1344); $big_bell = 6680;
print q{<table border=1 cellspacing=0 align='center' cellpadding=2><caption>シミュレーション結果</caption>},"\n";
print q{<tr align='center' bgcolor='#ffffcc'><td><font size=2>ゲーム数</font></td><td><font size=2>当選</font></td><td>};
print q{<font size=2>BIG<br>獲得</font></td><td><font size=2>BIG<br>回数</font></td><td><font size=2>REG<br>回数</font></td>};
print q{<td><font size=2>投資</font></td><td><font size=2>コイン</font></td><td><font size=2>total<br>ゲーム数</font></td></tr>},"\n";
# あらかじめ乱数を計算
@che4r = ($che2[0]+$che4[0], $che2[1]+$che4[1]);
@repr = ($che4r[0]+$rep, $che4r[1]+$rep);
@bellr = ($repr[0]+$bell[0], $repr[1]+$bell[1]);
@bigr = ($bellr[0]+$big, $bellr[1]+$big);
@regr = ($bigr[0]+$reg, $bigr[1]+$reg);
#---------------------------
# シミュレート開始
# $m = 1 が小役高確率
#---------------------------
$g = $count = $coin = $bigcount = $regcount = $k = $totalk = $bigget = $jacin = $jacplay = 0;
$bigget=' ';
while (1) {
$g++; $count++; $in++;
if ($coin < 3) { $coin += 50; $k++; $totalk++; }
$coin -= 3;
$m = ( ($out/($in*3)) <= $pay) ? 1 : 0;
$r = int(rand(16384)+1);
if ($r <= $che2[$m]) { $coin += 2; $out += 2; }
elsif ($r <= $che4r[$m]) { $coin += 4; $out += 4; }
elsif ($r <= $repr[$m]) { $coin += 3; $in--; }
elsif ($r <= $bellr[$m]) { $coin += 10; $out += 10; }
elsif ($r <= $icer[$m]) { $coin += 15; $out += 15; }
elsif ($r <= $bigr[$m]) { # BIG
$flag = 1; $bigcount++; $in = $out = 0;
$get="<font color='red' face='Arial black'><b>777</b></font>";
$jacin = $jacplay = 0; $bigget = 14; # 1枚のコインロスとする。
# BIG中プレイ開始
for ($i=1; $i<=30; $i++) {
$r = int(rand(16384)+1);
$bigget -= 3;
if ($r <= $big_bell) { $bigget += 10; }
elsif ($r <= ($big_bell+$jac)) {
if (($jacin<2) or (($jacin==2) && ($i>=21))) {
$bigget += 6; $jacin++;
for (1..12) { # JAC中
$r = int(rand(16384)+1);
if ($r <= $jac_haz) { $bigget -= 1; next; } else { $bigget += 14; $jacplay++; }
if ($jacplay == 8) { $jacplay = 0; last; }
}
last if ($jacin==3);
} else { next; }
}
elsif ($r <= ($big_bell+$jac+$big_che2)) { $bigget += 2; }
elsif ($r <= ($big_bell+$jac+$big_che2+$big_che4)) { $bigget += 4; }
}
$coin += $bigget; push(@bigget, $bigget);
if($jacin != 3) { $bigget = "$bigget <font size=2>($jacinパン)</font>"; }
} elsif ($r <= $regr[$m]) { # REG
$flag = 1; $regcount++; $coin += 14; # 1枚のコインロスとする。
$out += 15; $get='<b>REG</b>'; $jacplay = $h = 0;
for (1..12) {
$r = int(rand(16384)+1);
if ($r <= $jac_haz) { $coin -= 1; next; } else { $coin += 14; $jacplay++; }
last if ($jacplay==8);
}
}
if ($flag) {
$k = ($k > 0) ? $k .'k' : ' ';
$opt = ($count < 100) ? "<b><font color='blue'>" : ($count >= 500) ? "<b><font color='red'>" : '';
$opt2 = ($count < 100) ? "</font></b>" : ($count >= 500) ? "</font></b>" : '';
if ($bigcount) { $b_prob = int($g/$bigcount+0.5); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = int($g/$regcount+0.5); $r_prob = "(1/$r_prob)"; }
print "<tr align='center'><td align='right'>$opt $count $opt2</td></td><td>$get</td><td>$bigget</td>";
print "<td><font color='blue'>$bigcount</font> $b_prob</td><td><font color='blue'>$regcount</font> $r_prob</td>";
print "<td>$k</td><td>$coin</td><td>$g</td></tr>\n";
$flag = $count = 0; $k=''; $bigget=' ';
}
if ($g >= $play) {
$k = ($k > 0) ? $k.'k' : ' ';
if ($bigcount) { $b_prob = int($g/$bigcount+0.5); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = int($g/$regcount+0.5); $r_prob = "(1/$r_prob)"; }
print "<tr align='center'><td align='right'>$count</td></td><td>ヤメ</td><td> </td>";
print "<td><font color='blue'>$bigcount</font> $b_prob</td><td><font color='blue'>$regcount</font> $r_prob</td>";
print "<td>$k</td><td>$coin</td><td>$g</td></tr>\n";
last;
}
}
print '</table><br><br><br>';
# 結果の整理
$toushi = $totalk * 1000;
$kankin = int($coin*20);
$shushi = $kankin - $toushi;
$opt3 = ($shushi >= 0) ? 'blue' : 'red';
$payout = ($coin-($totalk*50))/($g*3)*100+100;
$payout = &point($payout,3);
if ($bigcount) { $b_prob = &point(($g/$bigcount),3); $b_prob = "(1/$b_prob)"; }
if ($regcount) { $r_prob = &point(($g/$regcount),3); $r_prob = "(1/$r_prob)"; }
foreach (@bigget) { $t_bigget += $_; }
$aveget = &point( ($t_bigget/$bigcount), 3 ) if $bigcount;
$coin1k = &point(($g*50/($t_bigget + $regcount*111.043 + $totalk*50 - $coin)), 3);
# 整理した結果と再試行ボタン、フッタの表示
print <<"__ HTML __";
<table border=1 align='center' cellpadding=3 cellspacing=0>
<tr align='center' bgcolor='#ffffcc'><td colspan=2><b>ニューパルサーR</b> <b>設定 $s</font></td></tr>
<tr><td>プレイ数</td><td align='right'> $g P</td></tr>
<tr><td><font color='red'><b>777</b></font></td><td align='right'><b>$bigcount 回 <font color='red'>$b_prob</font></td></tr>
<tr><td><b>REG</b></td><td align='right'><b>$regcount 回 <font color='red'>$r_prob</font></td></tr>
<tr><td>投資</td><td align='right'>$toushi 円</td></tr>
<tr><td>獲得枚数</td><td align='right'><b>$coin 枚</b></td></tr>
<tr><td><font size=2>BIG平均<br>獲得枚数</font></td><td align=right>$aveget 枚</td></tr>
<tr><td>1k当たり</td><td align='right'><b>$coin1k P</b></td></tr>
<tr><td>PAYOUT</td><td align='right'><b>$payout %</b></td></tr>
<tr><td>換金</td><td align='right'>$kankin 円</td></tr>
<tr><td>収支</td><td align='right'><font color='$opt3'><b>$shushi 円</b></font></td></tr>
</table></center>
<form action=$cginame method=POST>
<input type=hidden name=s value=$s>
<input type=hidden name=play value=$play>
<center><input type=submit value="再試行"></center>
</form>
<br><br><br><br>
<div align='right'>[ <a href='n_pul_memo.html'>memo</a> / <a href='n_pul.html'>source</a> ]</div>
<strong>[ <a href='../index.html'>home</a> / <a href='index.html'>cgi</a> / <a href='../jug/index.html'>juggler</a> / <a href='../column.html'>column</a> / <a href='../diary/index.html'>diary</a> / <a href='bbs.cgi'>bbs</a> / <a href='../link.html'>link</a> / <a href='../intro.html'>welcome</a> ]</strong>
</body></html>
__ HTML __
exit;
# 少数を四捨五入して指定の桁にする
sub point {
my($value, $fig, $x);
($value, $fig) = @_;
$value = int($value * (10 ** $fig) + 0.5) / (10 ** $fig);
if ($value =~ /(\d+)\.(\d+)/) { $x = $2; }
elsif ($value !~ /\./) { $x =''; $value .= '.'; }
$value = $value.'0' x ( $fig - length($x) );
return $value;
}
[ home / cgi / juggler / column / diary / bbs / link / welcome ]