Advertisement
Guest User

Untitled

a guest
Sep 24th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 9.28 KB | None | 0 0
  1. <?php
  2. /**
  3.     Matrix Core for AHP Calculation
  4.     greetz to #1stlink #antihackerlink
  5. */
  6. include "config.php";
  7. include "fget_data.php";
  8.  
  9. $i=0;
  10. $matrix_suku_bunga = array();
  11. $matrix_limit_kredit = array();
  12. $matrix_biaya_administrasi = array();
  13. $matrix_uang_muka = array();
  14. $matrix_jangka_waktu = array();
  15.  
  16.  
  17. // Fetch Suku Bunga
  18. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'suku_bunga' ORDER BY id_bank") or die("Data salah");
  19. while ($record1 = mysql_fetch_row($result)){
  20.   $suku_bunga[] = $record1[2];
  21. }
  22. // Fetch Limit Kredit
  23. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'limit_kredit' ORDER BY id_bank") or die("Data salah");
  24. while ($record1 = mysql_fetch_row($result)){
  25.   $limit_kredit[] = $record1[2];
  26. }
  27.  
  28. // Fetch jangka Waktu
  29. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'jangka_waktu' ORDER BY id_bank") or die("Data salah");
  30. while ($record1 = mysql_fetch_row($result)){
  31.   $jangka_waktu[] = $record1[2];
  32. }
  33.  
  34. // Fetch Uang Muka
  35. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'uang_muka' ORDER BY id_bank") or die("Data salah");
  36. while ($record1 = mysql_fetch_row($result)){
  37.   $uang_muka[] = $record1[2];
  38. }
  39.  
  40. // Fetch Biaya administrasi
  41. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'biaya_administrasi' ORDER BY id_bank") or die("Data salah");
  42. while ($record1 = mysql_fetch_row($result)){
  43.   $biaya_administrasi[] = $record1[2];
  44. }
  45.  
  46. // Fetch Kriteria
  47. $result = mysql_query("SELECT * FROM eigenvektor WHERE nama_matrix = 'kriteria' ORDER BY id_bank") or die("Data salah");
  48. while ($record1 = mysql_fetch_row($result)){
  49.   $kriteria[] = $record1[2];
  50. }
  51.  
  52. // Fetch dari tabel Alternatif
  53. $result = mysql_query("SELECT * FROM calculator") or die("Data salah");
  54. while ($record1 = mysql_fetch_row($result)){
  55.   $suku_bunga[] = $record1[2];
  56.   $limit_kredit[] = $record1[3];
  57.   $biaya_administrasi[] = $record1[5];
  58.   $uang_muka[] = $record1[4];
  59.   $jangka_waktu[] = $record1[6];  
  60. }
  61.  
  62. // Fetch dari tabel Kriteria
  63. $result2 = mysql_query("SELECT * FROM kriteria") or die("Data salah");
  64. while ($record2 = mysql_fetch_row($result2)){
  65.   $value_kriteria[] = $record2[2];
  66. }
  67.  
  68.  
  69. function fmatrix_suku_bunga($suku_bunga){
  70.  
  71.     // Rumus perkalian matrix
  72.     $m1 = get_data_suku_bunga();
  73.     $m2 = get_data_suku_bunga();
  74.     $r = 0;
  75.    
  76.     for ($row=0; $row<5; $row++) {
  77.            $kriteria = 0;
  78.            for ($col=0; $col<5; $col++) {
  79.                 $x =0;
  80.                 for ($k=$col; $k<5; $k++) { // kolom
  81.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  82.                 }
  83.                 $m3[$row][$col] = $x;
  84.                 $kriteria += $x;
  85.             }
  86.         $h_kriteria[] = $kriteria;
  87.         $jumlah +=  $kriteria;
  88.     }
  89.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  90.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  91.     }
  92.    
  93.     // Untuk mencari eigen vektor
  94.     mysql_query("DELETE FROM `ahp`.`eigenvektor`");
  95.     for ($tabel=0;$tabel<5;$tabel++) {
  96.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  97.         }
  98.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'suku_bunga', " .$eigen[$tabel]. ");");
  99.     }
  100. }
  101.  
  102. function fmatrix_limit_kredit($limit_kredit){
  103.  
  104.     // Rumus perkalian matrix
  105.     $m1 = get_data_limit_kredit();
  106.     $m2 = get_data_limit_kredit();
  107.     $r = 0;
  108.    
  109.     for ($row=0; $row<5; $row++) {
  110.            $kriteria = 0;
  111.            for ($col=0; $col<5; $col++) {
  112.                 $x =0;
  113.                 for ($k=$col; $k<5; $k++) { // kolom
  114.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  115.                 }
  116.                 $m3[$row][$col] = $x;
  117.                 $kriteria += $x;
  118.             }
  119.         $h_kriteria[] = $kriteria;
  120.         $jumlah +=  $kriteria;
  121.     }
  122.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  123.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  124.     }
  125.    
  126.     // Untuk mencari eigen vektor
  127.     for ($tabel=0;$tabel<5;$tabel++) {
  128.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  129.         }
  130.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'limit_kredit', " .$eigen[$tabel]. ");");
  131.     }
  132. }
  133.  
  134. function fmatrix_biaya_administrasi($biaya_administrasi){
  135.  
  136.     // Rumus perkalian matrix
  137.     $m1 = get_data_administrasi();
  138.     $m2 = get_data_administrasi();
  139.     $r = 0;
  140.    
  141.     for ($row=0; $row<5; $row++) {
  142.            $kriteria = 0;
  143.            for ($col=0; $col<5; $col++) {
  144.                 $x =0;
  145.                 for ($k=$col; $k<5; $k++) { // kolom
  146.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  147.                 }
  148.                 $m3[$row][$col] = $x;
  149.                 $kriteria += $x;
  150.             }
  151.         $h_kriteria[] = $kriteria;
  152.         $jumlah +=  $kriteria;
  153.     }
  154.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  155.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  156.     }
  157.    
  158.     // Untuk mencari eigen vektor
  159.     for ($tabel=0;$tabel<5;$tabel++) {
  160.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  161.         }
  162.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'biaya_administrasi', " .$eigen[$tabel]. ");");
  163.     }
  164. }
  165.  
  166. function fmatrix_uang_muka($uang_muka){
  167.  
  168.     // Rumus perkalian matrix
  169.     $m1 = get_data_uang_muka();
  170.     $m2 = get_data_uang_muka();
  171.     $r = 0;
  172.    
  173.     for ($row=0; $row<5; $row++) {
  174.            $kriteria = 0;
  175.            for ($col=0; $col<5; $col++) {
  176.                 $x =0;
  177.                 for ($k=$col; $k<5; $k++) { // kolom
  178.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  179.                 }
  180.                 $m3[$row][$col] = $x;
  181.                 $kriteria += $x;
  182.             }
  183.         $h_kriteria[] = $kriteria;
  184.         $jumlah +=  $kriteria;
  185.     }
  186.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  187.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  188.     }
  189.    
  190.     // Untuk mencari eigen vektor
  191.     for ($tabel=0;$tabel<5;$tabel++) {
  192.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  193.         }
  194.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'uang_muka', " .$eigen[$tabel]. ");");
  195.     }
  196. }
  197.  
  198. function fmatrix_jangka_waktu($jangka_waktu){
  199.  
  200. // Rumus perkalian matrix
  201.     $m1 = get_data_jangkaw();
  202.     $m2 = get_data_jangkaw();
  203.     $r = 0;
  204.    
  205.     for ($row=0; $row<5; $row++) {
  206.            $kriteria = 0;
  207.            for ($col=0; $col<5; $col++) {
  208.                 $x =0;
  209.                 for ($k=$col; $k<5; $k++) { // kolom
  210.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  211.                 }
  212.                 $m3[$row][$col] = $x;
  213.                 $kriteria += $x;
  214.             }
  215.         $h_kriteria[] = $kriteria;
  216.         $jumlah +=  $kriteria;
  217.     }
  218.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  219.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  220.     }
  221.    
  222.     // Untuk mencari eigen vektor
  223.     for ($tabel=0;$tabel<5;$tabel++) {
  224.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  225.         }
  226.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'jangka_waktu', " .$eigen[$tabel]. ");");
  227.     }
  228. }
  229.  
  230. function fmatrix_kriteria($value_kriteria){
  231.  
  232.     // Rumus perkalian matrix
  233.     $m1 = get_data_kriteria();
  234.     $m2 = get_data_kriteria();
  235.     $r = 0;
  236.    
  237.     for ($row=0; $row<5; $row++) {
  238.            $kriteria = 0;
  239.            for ($col=0; $col<5; $col++) {
  240.                 $x =0;
  241.                 for ($k=$col; $k<5; $k++) { // kolom
  242.                     $x += number_format(($m1[$row][$k] * $m2[$k][$col]),2);
  243.                 }
  244.                 $m3[$row][$col] = $x;
  245.                 $kriteria += $x;
  246.             }
  247.         $h_kriteria[] = $kriteria;
  248.         $jumlah +=  $kriteria;
  249.     }
  250.     for ($i=0;$i<sizeof($h_kriteria);$i++){
  251.         $eigen[] = number_format(($h_kriteria[$i]/$jumlah),2);
  252.     }
  253.    
  254.     // Untuk mencari eigen vektor
  255.     for ($tabel=0;$tabel<5;$tabel++) {
  256.         for ($tabel1=0; $tabel1<5; $tabel1++) {
  257.         }
  258.     mysql_query("INSERT INTO `ahp`.`eigenvektor` ( id_bank, nama_matrix, eigenvektor) VALUES ('" . ($tabel+1) . "', 'kriteria', " .$eigen[$tabel]. ");");
  259.     }
  260. }
  261. ?>
  262. <table border="1" cellpadding="0" cellspacing="0" align="center">
  263. <?php fmatrix_suku_bunga($suku_bunga); ?>
  264. <?php fmatrix_limit_kredit($limit_kredit); ?>
  265. <?php fmatrix_biaya_administrasi($biaya_administrasi); ?>
  266. <?php fmatrix_uang_muka($uang_muka); ?>
  267. <?php fmatrix_jangka_waktu($jangka_waktu); ?>
  268. <?php fmatrix_kriteria($value_kriteria);
  269.  
  270. for ($tabel=0;$tabel<5;$tabel++) {  
  271.         $nomer_urut[$tabel] = $tabel;
  272.         $hasil[$tabel][0]  = ($suku_bunga[$tabel]*$kriteria[$tabel])+
  273.                 ($limit_kredit[$tabel]*$kriteria[$tabel])+
  274.                 ($jangka_waktu[$tabel] *$kriteria[$tabel])+
  275.                 ($uang_muka[$tabel] *$kriteria[$tabel])+
  276.                 ($biaya_administrasi[$tabel] *$kriteria[$tabel]);
  277.         $hasil[$tabel][1] = $tabel;
  278.     }sort($hasil);
  279.  
  280. for ($tabel=0;$tabel<5;$tabel++) {
  281.         $id_bank[$tabel] = $hasil[$tabel][1];
  282.     }
  283.  
  284.    
  285. ?> 
  286. <tr>
  287.   <td align="center">ID</td>
  288.   <td align="center">Nama Bank</td>
  289.   <td align="center">Kode Bank</td>
  290.   <td align="center">Nilai Eigene</td>
  291. </tr>
  292. <?php  
  293.     for ($n=0;$n<5;$n++){
  294.     $query = "SELECT * FROM calculator where id='".($id_bank[$n]+1)."'";
  295.     $result =  mysql_query($query);
  296.     $row = mysql_fetch_array($result);
  297. ?>
  298. <tr>
  299. <input type="hidden" name="id" value"<?php echo $row['id'];?>">
  300.     <td align="center" width="5%"><?php echo $row['id'] ?></td>
  301.     <td align="center" width="23%"><?php echo $row['nama_bank']?></td>
  302.     <td align="center" width="21%"><?php echo $row['id_bank']?></td>
  303.     <td align="center" width="21%"><?php echo $hasil[$n][0];?></td>
  304. </tr>
  305. <?php
  306.     }
  307. ?> 
  308. </table>
  309.  
  310. <?php
  311. $array_faktor = array();
  312.  
  313. for($index = 0; $index<5;$index++){
  314.  
  315.     $array_faktor_baris = array();
  316.     $array_faktor_baris[] = $eigen_biaya_admin[$index];
  317.    
  318.     $array_faktor = $array_faktor_baris;
  319.     $array_faktor_baris = array();
  320. }
  321. $hasil =array();
  322. for($row = 0; $row<5;$row++){
  323.     for($col =0;$col<5;$col++){
  324.         $h = $array_faktor[$row][$col] * $eigen_kriteria[$col];
  325.         $hasil[] = $h;
  326.     }
  327. }
  328. for($row = 0; $row<5;$row++){
  329. }
  330. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement