Web Montecarlo Prediksi Harga Pasar

Simulasi Perhitungan
Download



<?php
$range=10;
$hari="150";
if(isset($_POST["Hitung"])){
$id_pasar=$_POST["id_pasar"];;
$id_jenisbahan=$_POST["id_jenisbahan"];;
$range=$_POST["range"];;
$hari=$_POST["hari"];;
}
?>

<form id="form1" name="form1" method="post" action="">
  <table width="60%" border="1">
    <tr>
      <td width="33%">Pilih Jenis Bahan</td>
      <td width="2%">:</td>
      <td width="65%"><select name="id_jenisbahan" id="id_jenisbahan">
        <option>-</option>
        <?php 
  $sql="select * from `$tbjenisbahan`";
$arr=getData($conn,$sql);
foreach($arr as $d) {
$id_jenisbahan0=$d["id_jenisbahan"];
$nama_jenisbahan=$d["nama_jenisbahan"];
echo"<option value='$id_jenisbahan0' ";if($id_jenisbahan0==$id_jenisbahan){echo"selected";} echo">$nama_jenisbahan</option>";
}
?>
      </select></td>
    </tr>
    <tr>
      <td>Pilih Pasar</td>
      <td>:</td>
      <td><select name="id_pasar" id="id_pasar">
        <option>-</option>
        <?php 
  $sql="select * from `tb_pasar`";
$arr=getData($conn,$sql);
foreach($arr as $d) {
$id_pasar0=$d["id_pasar"];
$nama_pasars=$d["nama_pasar"];
echo"<option value='$id_pasar0' ";if($id_pasar0==$id_pasar){echo"selected";} echo">$nama_pasars</option>";
}
?>
      </select></td>
    </tr>
    <tr>
      <td>Tentukan Range</td>
      <td>:</td>
      <td><input name="range" type="text" id="range" value="<?php echo $range;?>" size="30" /></td>
    </tr>
    <tr>
      <td>Prediksi YAD</td>
      <td>:</td>
      <td><input name="hari" type="text" id="hari" value="<?php echo $hari;?>" size="30" /></td>
    </tr>
    <tr>
      <td>&nbsp;</td>
      <td>&nbsp;</td>
      <td><input type="submit" name="Hitung" id="Hitung" value="Hitung" /></td>
    </tr>
  </table>
</form>

<?php 
if(isset($_POST["Hitung"])){
$id_pasar=$_POST["id_pasar"];;
$id_jenisbahan=$_POST["id_jenisbahan"];;
$range=$_POST["range"];;
$hari=$_POST["hari"];;

$dur=$hari;

//Full texts id_harga id_jenisbahan id_pasar harga id_user tanggal key
  $sql="select * from `$tbharga` where id_pasar='$id_pasar' and id_jenisbahan ='$id_jenisbahan'";
$arr=getData($conn,$sql);
$i=0;
foreach($arr as $d) {
$atanggal[$i]=WKT($d["tanggal"]);
$ajenis[$i]=$d["id_jenisbahan"];
$aharga[$i]=$d["harga"];
$i++;
}
$lop=$i;
$min=min($aharga);
$max=max($aharga);
$int=$range;
$sel=($max-$min)/$int;

echo"Harga id_jenisbahan $id_jenisbahan  id_pasar $id_pasar :<br>";
echo"Min : $min s/d Max : $max / Interval $int = $sel<hr>";

echo"<table width='100%'><tr><td>No<td>Harga1<td>Harga2<td>Mid<td>frek<td>Range</tr>";
$harga2=$min;
$data0=0;
$tot=0;
for($i=0;$i<$int;$i++){
$no=$i+1;
$harga1=$harga2;
$harga2=$harga1+$sel;
$mid=($harga1+$harga2)/2;
$frek=getHitung($conn,$harga1,$harga2,$id_pasar,$id_jenisbahan)/100;

$armin[$i]=$data0;
$armax[$i]=$armin[$i]+$frek;
$data0=$armax[$i];
$armid[$i]=$mid;
$tot+=$frek;
echo"<tr>";
echo"
<td>$no
<td>".round($harga1)."
<td>".round($harga2)."
<td>".round($mid)."
<td>$frek
<td>".$armin[$i]. " s/d ".$armax[$i]."
</tr>";
}
echo"</table>";

echo"Total frek=$tot";

$tgl =date("Y-m-d");


echo"<hr>Prediksi $dur hari next";
echo"<table width='100%'><tr><td>No<td>Tanggal<td>Random<td>Prediksi<td>Note</td></tr>";
for($i=0;$i<$dur;$i++){
$no=$i+1;
$R=rand(0,(100*$tot))/100;

for($j=0;$j<$int;$j++){
$pre=0;
if($R>=$armin[$j]  && $R<$armax[$j]){$pre=$armid[$j];break;}
}

$m=$i+1;
$date=date_create($tgl);
date_add($date,date_interval_create_from_date_string($m." days"));
$date=date_format($date,"Y-m-d");

echo"<tr>
<td>$no
<td>".$date."
<td>$R
<td>".round($pre,2)."
<td>-</td></tr>";


}
echo"</table>";

}//isset


function getHitung($conn,$h1,$h2,$id_pasar,$id_jenisbahan){
$h2=$h2-1;
//Full texts id_harga id_jenisbahan id_pasar harga id_user tanggal key
$sql="select count(id_harga) as jum from `tb_harga` where `id_pasar`='$id_pasar' and id_jenisbahan='$id_jenisbahan' and harga between '$h1' and '$h2'";
$d=getField($conn,$sql);
$jum=$d["jum"];
return $jum;
}

Sip bisa yaaa