File: /home/web.paitoan.com/.trash/data/fungsi.php
<?php
function mlmbt($angka,$mlmb) {
$mb = array(1 => 7,2 => 6,3 => 9,4 => 5,5 => 4,6 => 2,7 => 1,8 => 0,9 => 3,0 => 8);
$ml = array(1 => 0,2 => 5,3 => 8,4 => 7,5 => 2,6 => 9,7 => 4,8 => 3,9 => 6,0 => 1);
$ix = array(1 => 6,2 => 7,3 => 8,4 => 9,5 => 0,6 => 1,7 => 2,8 => 3,9 => 4,0 => 5);
$m0 = array(1 => 5,2 => 8,3 => 7,4 => 9,5 => 1,6 => 0,7 => 3,8 => 2,9 => 4,0 => 6);
$m1 = array(1 => 0,2 => 9,3 => 8,4 => 7,5 => 6,6 => 5,7 => 4,8 => 3,9 => 2,0 => 1);
$m3 = array(1 => 2,2 => 1,3 => 0,4 => 9,5 => 8,6 => 7,7 => 6,8 => 5,9 => 4,0 => 3);
$m5 = array(1 => 4,2 => 3,3 => 2,4 => 1,5 => 0,6 => 9,7 => 8,8 => 7,9 => 6,0 => 5);
$m7 = array(1 => 6,2 => 5,3 => 4,4 => 3,5 => 2,6 => 1,7 => 0,8 => 9,9 => 8,0 => 7);
$m9 = array(1 => 8,2 => 7,3 => 6,4 => 5,5 => 4,6 => 3,7 => 2,8 => 1,9 => 0,0 => 9);
$ty = array(1 => 4,2 => 9,3 => 6,4 => 1,5 => 8,6 => 3,7 => 0,8 => 5,9 => 2,0 => 7);
if (is_numeric($angka) && $angka < 19 && $angka > -1 && strlen($angka) < 3) {
if ($angka > 9) {$angka = $angka - 9;}
if (strlen($angka) > 1) {$angka = substr($angka, 1, 1);}
$sp = substr($mlmb, 0, 1); $spp = substr($mlmb, 1, 1);
if (strtolower($sp) == 'n') {if ($angka + $spp > 9) {return ($angka + $spp) - 10;} else {return $angka + $spp;}}
if (strtolower($sp) == 't') {if ($angka - $spp < 0) {return ($angka + 10) - $spp;} else {return $angka - $spp;}}
if (strtolower($mlmb) == 'mb') {return $mb[$angka];}
if (strtolower($mlmb) == 'ml') {return $ml[$angka];}
if (strtolower($mlmb) == 'ix') {return $ix[$angka];}
if (strtolower($mlmb) == 'yy') {return $ty[$angka];}
if (strtolower($mlmb) == 'm0') {return $m0[$angka];}
if (strtolower($mlmb) == 'm1') {return $m1[$angka];}
if (strtolower($mlmb) == 'm3') {return $m3[$angka];}
if (strtolower($mlmb) == 'm5') {return $m5[$angka];}
if (strtolower($mlmb) == 'm7') {return $m7[$angka];}
if (strtolower($mlmb) == 'm9') {return $m9[$angka];}
if (strtolower($mlmb) == '') {return $angka;}
} else {
return $angka;
}
}
function hasile ($ket, $angka, $ongko) {
if (is_numeric($angka) && is_numeric($ongko) && $angka < 19 && $ongko < 19 && $angka > -1 && $ongko > -1) {
if ($angka > 9) {$angka = $angka - 9;} if ($ongko > 9) {$ongko = $ongko - 9;}
if ($ket == '+') {if ($angka + $ongko > 9) {return ($angka + $ongko) - 9;} else {return $angka + $ongko;}}
elseif ($ket == '-') {return abs($angka - $ongko);}
else {return $angka;}
} else {
return $angka;
}
}
function samakan($a, $b, $d) {
if (strlen($b) == 2) {
$perr = substr($b,0,1);
$kedd = substr($b,1,1);
if ($a == $kedd ) {
return '<td id="'.$d.'" class="text-center btn-success '.$d.'">'.$a.'</td>';
} elseif ($a == $perr) {
return '<td id="'.$d.'" class="text-center btn-danger '.$d.'">'.$a.'</td>';
} else {
return '<td id="'.$d.'" class="text-center '.$d.'">'.$a.'</td>';
}
} elseif ( $b == null && $b != '0') {
return '<td id="'.$d.'" class="text-center '.$d.'">'.$a.'</td>';
} else {
if ($a == $b && is_numeric($b)) {
return '<td id="'.$d.'" class="text-center btn-success '.$d.'">'.$a.'</td>';
} else {
return '<td id="'.$d.'" class="text-center '.$d.'">'.$a.'</td>';
}
}
return '<td id="'.$d.'" class="text-center '.$d.'">'.$a.'</td>';
}
function ceking($a,$b) {
if (strlen($b) == 2) {
$perr = substr($b,0,1);
$kedd = substr($b,1,1);
if ($a == $perr || $a == $kedd ) {
return 1;
} else {
return 0;
}
} elseif ($a == $b && is_numeric($b)) {
return 1;
} else {
return 0;
}
}
function tess($ket, $a, $b) {
$num = array (
array ('00','97','48','64','98'),
array ('01','05','95','12','45'),
array ('02','16','53','09','35'),
array ('03','32','52','85','25'),
array ('04','12','65','05','15'),
array ('05','01','89','10','39'),
array ('06','20','91','51','41'),
array ('07','24','58','57','08'),
array ('08','17','57','04','07'),
array ('09','33','87','88','37'),
array ('10','18','82','03','32'),
array ('11','15','77','02','27'),
array ('12','04','69','17','19'),
array ('13','14','79','07','29'),
array ('14','13','96','08','46'),
array ('15','11','54','00','04'),
array ('16','02','74','15','24'),
array ('17','08','88','13','38'),
array ('18','10','78','01','28'),
array ('19','27','62','54','12'),
array ('20','06','72','19','22'),
array ('21','22','93','55','43'),
array ('22','21','70','50','20'),
array ('23','30','84','81','34'),
array ('24','07','66','14','16'),
array ('25','35','85','82','03'),
array ('26','31','90','80','40'),
array ('27','19','61','06','11'),
array ('28','29','68','56','18'),
array ('29','28','63','53','13'),
array ('30','23','99','58','49'),
array ('31','26','94','59','44'),
array ('32','03','60','18','10'),
array ('33','09','86','16','36'),
array ('34','36','73','89','23'),
array ('35','25','75','52','02'),
array ('36','34','83','87','33'),
array ('37','38','59','83','09'),
array ('38','37','67','84','17'),
array ('39','44','55','77','05'),
array ('40','43','76','78','26'),
array ('41','49','56','76','06'),
array ('42','45','97','72','47'),
array ('43','40','71','41','21'),
array ('44','39','81','86','31'),
array ('45','42','51','75','01'),
array ('46','48','64','73','14'),
array ('47','50','92','21','42'),
array ('48','46','00','79','50'),
array ('49','41','80','70','30'),
array ('50','47','98','74','48'),
array ('51','55','45','22','95'),
array ('52','66','03','99','85'),
array ('53','82','02','35','75'),
array ('54','62','15','95','65'),
array ('55','51','39','20','89'),
array ('56','70','41','71','91'),
array ('57','74','08','47','58'),
array ('58','67','07','94','57'),
array ('59','83','37','38','87'),
array ('60','68','32','93','82'),
array ('61','65','27','92','77'),
array ('62','54','19','27','69'),
array ('63','64','29','97','79'),
array ('64','63','46','98','96'),
array ('65','61','04','90','54'),
array ('66','52','24','25','74'),
array ('67','58','38','23','88'),
array ('68','60','28','91','78'),
array ('69','77','12','44','62'),
array ('70','56','22','29','72'),
array ('71','72','43','45','93'),
array ('72','71','20','40','70'),
array ('73','80','34','31','84'),
array ('74','57','16','24','66'),
array ('75','85','35','32','53'),
array ('76','81','40','30','90'),
array ('77','69','11','96','61'),
array ('78','79','18','46','68'),
array ('79','78','13','43','63'),
array ('80','73','49','48','99'),
array ('81','76','44','49','94'),
array ('82','53','10','28','60'),
array ('83','59','36','26','86'),
array ('84','86','23','39','73'),
array ('85','75','25','42','52'),
array ('86','84','33','37','83'),
array ('87','88','09','33','59'),
array ('88','87','17','34','67'),
array ('89','94','05','67','55'),
array ('90','93','26','68','76'),
array ('91','99','06','66','56'),
array ('92','95','47','62','97'),
array ('93','90','21','61','71'),
array ('94','89','31','36','81'),
array ('95','92','01','65','51'),
array ('96','98','14','63','64'),
array ('97','00','42','11','92'),
array ('98','96','50','69','00'),
array ('99','91','30','60','80')
);
return $num[intval($a.$b)][intval($ket)];
}
function resourceWeb($url){
$data = curl_init();
curl_setopt($data, CURLOPT_URL, $url);
curl_setopt($data, CURLOPT_RETURNTRANSFER, 1);
$hasil = curl_exec($data);
curl_close($data);
return $hasil;
}
function clean($str)
{
$str = utf8_decode($str);
$str = str_replace(" ", " ", $str);
$str = preg_replace('/\s+/', ' ', $str);
$str = trim($str);
return $str;
}
class Math_Combinatorics
{
/**
* List of pointers that record the current combination.
*
* @var array
* @access private
*/
private $_pointers = array();
/**
* Find all combinations given a set and a subset size.
*
* @access public
* @param array $set Parent set
* @param int $subset_size Subset size
* @return array An array of combinations
*/
public function combinations(array $set, $subset_size = null)
{
$set_size = count($set);
if (is_null($subset_size)) {
$subset_size = $set_size;
}
if ($subset_size >= $set_size) {
return array($set);
} else if ($subset_size == 1) {
return array_chunk($set, 1);
} else if ($subset_size == 0) {
return array();
}
$combinations = array();
$set_keys = array_keys($set);
$this->_pointers = array_slice(array_keys($set_keys), 0, $subset_size);
$combinations[] = $this->_getCombination($set);
while ($this->_advancePointers($subset_size - 1, $set_size - 1)) {
$combinations[] = $this->_getCombination($set);
}
return $combinations;
}
/**
* Recursive function used to advance the list of 'pointers' that record the
* current combination.
*
* @access private
* @param int $pointer_number The ID of the pointer that is being advanced
* @param int $limit Pointer limit
* @return bool True if a pointer was advanced, false otherwise
*/
private function _advancePointers($pointer_number, $limit)
{
if ($pointer_number < 0) {
return false;
}
if ($this->_pointers[$pointer_number] < $limit) {
$this->_pointers[$pointer_number]++;
return true;
} else {
if ($this->_advancePointers($pointer_number - 1, $limit - 1)) {
$this->_pointers[$pointer_number] =
$this->_pointers[$pointer_number - 1] + 1;
return true;
} else {
return false;
}
}
}
/**
* Get the current combination.
*
* @access private
* @param array $set The parent set
* @return array The current combination
*/
private function _getCombination($set)
{
$set_keys = array_keys($set);
$combination = array();
foreach ($this->_pointers as $pointer) {
$combination[$set_keys[$pointer]] = $set[$set_keys[$pointer]];
}
return $combination;
}
/**
* Find all permutations given a set and a subset size.
*
* @access public
* @param array $set Parent set
* @param int $subset_size Subset size
* @return array An array of permutations
*/
public function permutations(array $set, $subset_size = null)
{
$combinations = $this->combinations($set, $subset_size);
$permutations = array();
foreach ($combinations as $combination) {
$permutations = array_merge($permutations,
$this->_findPermutations($combination));
}
return $permutations;
}
/**
* Recursive function to find the permutations of the current combination.
*
* @access private
* @param array $set Current combination set
* @return array Permutations of the current combination
*/
private function _findPermutations($set)
{
if (count($set) <= 1) {
return array($set);
}
$permutations = array();
list($key, $val) = $this->array_shift_assoc($set);
$sub_permutations = $this->_findPermutations($set);
foreach ($sub_permutations as $permutation) {
$permutations[] = array_merge(array($key => $val), $permutation);
}
$set[$key] = $val;
$start_key = $key;
$key = $this->_firstKey($set);
while ($key != $start_key) {
list($key, $val) = $this->array_shift_assoc($set);
$sub_permutations = $this->_findPermutations($set);
foreach ($sub_permutations as $permutation) {
$permutations[] = array_merge(array($key => $val), $permutation);
}
$set[$key] = $val;
$key = $this->_firstKey($set);
}
return $permutations;
}
/**
* Associative version of array_shift()
*
* @access public
* @param array $array Reference to the array to shift
* @return array Array with 1st element as the shifted key and the 2nd
* element as the shifted value
*/
public function array_shift_assoc(array &$array)
{
foreach ($array as $key => $val) {
unset($array[$key]);
break;
}
return array($key, $val);
}
/**
* Get the first key of an associative array
*
* @param array $array Array to find the first key
* @access private
* @return mixed The first key of the given array
*/
private function _firstKey($array)
{
foreach ($array as $key => $val) {
break;
}
return $key;
}
}
function permutationsx($arr,$n)
{
$res = array();
foreach ($arr as $w)
{
if ($n==1) $res[] = $w;
else
{
$perms = permutationsx($arr,$n-1);
foreach ($perms as $p)
{
$res[] = $w."".$p;
}
}
}
return $res;
}
function combinations($arrays, $i = 0) {
if (!isset($arrays[$i])) {
return array();
}
if ($i == count($arrays) - 1) {
return $arrays[$i];
}
// get combinations from subsequent arrays
$tmp = combinations($arrays, $i + 1);
$result = array();
// concat each array from tmp with each element from $arrays[$i]
foreach ($arrays[$i] as $v) {
foreach ($tmp as $t) {
$result[] = is_array($t) ?
array_merge(array($v), $t) :
array($v, $t);
}
}
return $result;
}
function permute($base,$add) {
$result = array();
if (count($base) > 0) {
foreach ($base AS $val1) {
if (count($add) > 0) {
foreach ($add AS $val2) {
$result[] = $val1.$val2;
}
}
else {
$result = $base;
}
}
}
else {
$result = $add;
}
return $result;
}
function kiri($str, $length) {
return substr($str, 0, $length);
}
function kanan($str, $length) {
return substr($str, -$length);
}
function as_angka ($value) {
return substr($value,0,1);
}
function cop_angka ($value) {
return substr($value,1,1);
}
function kpl_angka ($value) {
return substr($value,2,1);
}
function ekr_angka ($value) {
return substr($value,3,1);
}
function depan_angka ($value) {
return substr($value,0,1) . substr($value,1,1);
}
function tengah_angka ($value) {
return substr($value,1,1) . substr($value,2,1);
}
function belakang_angka ($value) {
return substr($value,2,1) . substr($value,3,1);
}
function bk($angka) {
if ($angka < 5) {return 'KC';} else {return 'BS';}
}
function wbk($angka) {
if ($angka < 5) {return 'btn-success';} else {return 'btn-danger';}
}
function gg($angka) {
if ($angka%2) {return 'GJ';} else {return 'GP';}
}
function wgg($angka) {
if ($angka%2) {return 'btn-warning';} else {return 'btn-primary';}
}
function kb($angka1,$angka2) {
if ($angka1 > $angka2) {return 'KP';}
elseif ($angka1 < $angka2) {return 'KB';}
else {return 'tw';}
}
function wkb($angka1,$angka2) {
if ($angka1 > $angka2) {return 'btn-success';}
else if ($angka1 <$angka2) {return 'btn-danger';}
else {return 'btn-info';}
}
function tt($angka1,$angka2) {
$e = $angka1.$angka2;
if ($e >=25 && $e <=74) { return 'TH'; } else { return 'TP'; }
}
function wtt($angka1,$angka2) {
$e = $angka1.$angka2;
if ($e >=25 && $e <=74) { return 'btn-primary'; } else { return 'btn-warning'; }
}
function hs($angka,$angko) {
if ($angka % 2 == $angko % 2) {return 'HM';} else {return 'SL';}
}
function whs($angka,$angko) {
if ($angka % 2 == $angko % 2) {return 'btn-danger';} else {return 'btn-success';}
}
function jml($angka,$angko) {
$jml = $angka + $angko;
if ($jml > 9) { return substr($jml,0,1) + substr($jml,1,1); }
return $jml;
}
function jm($angka,$angko) {
$jml = $angka + $angko;
if ($jml > 9) { $jml = substr($jml,0,1) + substr($jml,1,1); }
if ($jml%2) {return 'GJ';} else {return 'GP';}
}
function wjm($angka,$angko) {
$jml = $angka + $angko;
if ($jml > 9) { $jml = substr($jml,0,1) + substr($jml,1,1); }
if ($jml%2) {return 'btn-info';} else {return 'btn-primary';}
}
function jmm($angka,$angko) {
$jml = $angka +$angko;
if ($jml > 9) { $jml = substr($jml,0,1) + substr($jml,1,1); }
if ($jml<5) {return 'KC';} else {return 'BS';}
}
function wjmm($angka,$angko) {
$jml = $angka + $angko;
if ($jml > 9) { $jml = substr($jml,0,1) + substr($jml,1,1); }
if ($jml<5) {return 'btn-success';} else {return 'btn-danger';}
}
function arrayne($array,$ss) {
arsort($array); $c = '';
foreach ($array as $key => $value) {
if ($value == $ss) {
$c .= $key.'*';
}
}
return $c;
}
function splitNewLine($text) {
$code=preg_replace('/\n$/','',preg_replace('/^\n/','',preg_replace('/[\r\n]+/',"\n",$text)));
return explode("\n",trim($code));
}
function hasil($ket, $angka, $ongko) {
if (is_numeric($angka) && is_numeric($ongko) && $angka < 19 && $ongko < 19 && $angka > -1 && $ongko > -1) {
if ($angka > 9) {$angka = $angka - 9;} if ($ongko > 9) {$ongko = $ongko - 9;}
if ($ket == '+') {if ($angka + $ongko > 9) {return ($angka + $ongko) - 9;} else {return $angka + $ongko;}}
elseif ($ket == '-') {return abs($angka - $ongko);}
else {return $angka;}
} else {
return $angka;
}
}
function permutations($arr,$n)
{
$res = array();
foreach ($arr as $w)
{
if ($n==1) $res[] = $w;
else
{
$perms = permutations($arr,$n-1);
foreach ($perms as $p)
{
$res[] = $w."".$p;
}
}
}
return $res;
}
function permutationse($arr,$n)
{
$res = array();
foreach ($arr as $w)
{
if ($n==1) $res[] = $w;
else
{
$perms = permutations($arr,$n-1);
foreach ($perms as $p)
{
if ($w!=$p) {$res[] = $w."".$p;}
}
}
}
return $res;
}
$asli2 = array();
for ($i=00; $i < 100; $i++) {
if (strlen($i) == 1) { $i='0'.$i;}
$asli2[] = $i;
}
$asli3 = array();
for ($i=000; $i < 1000; $i++) {
if (strlen($i) == 1) { $i='00'.$i;}
if (strlen($i) == 2) { $i='0'.$i;}
$asli3[] = $i;
}
$asli4 = array();
for ($i=0000; $i < 10000; $i++) {
if (strlen($i) == 1) { $i='000'.$i;}
if (strlen($i) == 2) { $i='00'.$i;}
if (strlen($i) == 3) { $i='0'.$i;}
$asli4[] = $i;
}
function judul(){
$path = multiexplode(array('/'), parse_url($_SERVER['REQUEST_URI'], PHP_URL_PATH));
return ($path)?strtolower(trim(end($path))):false;
}
function pasaran(){
$path = multiexplode(array('-'), judul());
return ($path)?strtolower(trim(end($path))):false;
}
function multiexplode ($delimiters,$data) {
$MakeReady = str_replace($delimiters, $delimiters[0], $data);
$Return = explode($delimiters[0], $MakeReady);
return array_values(array_filter(array_map('trim',array_filter($Return))));
}
function markete($nama) {
return str_replace('-', ' ', $nama);
}
function getBulan($bln){
switch ($bln){
case 1:
return "Jan";
break;
case 2:
return "Feb";
break;
case 3:
return "Mar";
break;
case 4:
return "Apr";
break;
case 5:
return "Mei";
break;
case 6:
return "Jun";
break;
case 7:
return "Jul";
break;
case 8:
return "Agu";
break;
case 9:
return "Sep";
break;
case 10:
return "Okt";
break;
case 11:
return "Nov";
break;
case 12:
return "Des";
break;
}
}
function tgl_indo($tgl){
$tanggal = substr($tgl,8,2);
$bulan = getBulan(substr($tgl,5,2));
$tahun = substr($tgl,0,4);
return $tanggal.' '.$bulan.' '.$tahun;
}
?>