From 65c363b3f1c6ae98931bab4d08aeedd276510110 Mon Sep 17 00:00:00 2001 From: emkael Date: Sat, 19 Jan 2019 14:22:26 +0100 Subject: Revised directory structure --- http/pkle2009.php | 582 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 582 insertions(+) create mode 100644 http/pkle2009.php (limited to 'http/pkle2009.php') diff --git a/http/pkle2009.php b/http/pkle2009.php new file mode 100644 index 0000000..ddd1135 --- /dev/null +++ b/http/pkle2009.php @@ -0,0 +1,582 @@ +2 ) $typ = 4; + $izw = $typ*$iuc; + if( $izw > 99 ){ + $dajp = 1; + } + if( $l > 3 ) $tab = 1; +} +elseif( $_SERVER['REQUEST_METHOD'] == 'POST' ){ + $progu1 = $_POST['pru1']; // dla pierwszych progu1% uczestników + $progp1 = $_POST['prp1']; // ostatni dostaje progp1% maximum punktów + $progu2 = $_POST['pru2']; // dla kolejnych (progu2-progu1)% uczestników + $progp2 = $_POST['prp2']; // ostatni dostaje 10*progp2% maximum punktów + $progu3 = $_POST['pru3']; // dla kolejnych (progu3-progu2)% uczestników + $rgg = $_POST['rgg']; + $rgp = $_POST['rgp']; + $rot = $_POST['rot']; + $rok = $_POST['rok']; + $r40 = $_POST['r40']; + $rtp = $_POST['rtp']; + $rtd = $_POST['rtd']; + $rtr = $_POST['rtr']; + $rto = $_POST['rto']; + $rtk = $_POST['rtk']; + + $typ = $_POST['typ']; + $rng = $_POST['rng']; + $zaw = $_POST['zaw']; + $min1 = $_POST['min1']; + $min2 = $_POST['min2']; + $min3 = $_POST['min3']; + $min4 = $_POST['min4']; + $min5 = $_POST['min5']; + $min6 = $_POST['min6']; + $min7 = $_POST['min7']; + $min8 = $_POST['min8']; + $min9 = $_POST['min9']; + switch( $rng ){ + case 20: + $rng = $rgg; + $xrng = $xrgg; + $minpkl = $min1; + break; + case 16: + $rng = $rgp; + $xrng = $xrgp; + $minpkl = $min2; + break; + case 12: + $rng = $rot; + $xrng = $xrot; + $minpkl = $min3; + break; + case 9: + $rng = $rok; + $xrng = $xrok; + $minpkl = $min4; + break; + case 8: + $rng = $r40; + $xrng = $xr40; + $minpkl = $min5; + break; + case 7: + $rng = $rtp; + $xrng = $xrtp; + $minpkl = $min6; + break; + case 6: + $rng = $rtd; + $xrng = $xrtd; + $minpkl = $mind; + break; + case 5: + $rng = $rtr; + $xrng = $xrtr; + $minpkl = $min7; + break; + case 3: + $rng = $rto; + $xrng = $xrto; + $minpkl = $min8; + break; + case 2: + $rng = $rtk; + $xrng = $xrtk; + $minpkl = $min9; + break; + } + $iuc = $_POST['iuc']; + if( $typ>2 ) $typ = 4; + $izw = $typ*$iuc; + if( $izw > 99 ){ + $dajp = 1; + } + $swk = $_POST['swk']; + $tab = 1; +} +?> + + + + + + +Kargulator PKLi + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +

KALKULATOR PKLI W TURNIEJACH PZBS
+ zgodny ze starym regulaminem (01.10.2009 - 31.03.2014)

+ Przejdź do kalkulatora zgodnego z nowym regulaminem! +

+ Możesz eksperymentować ze wszystkimi (prawie) parametrami.
+ Dla przywrócenia stanu regulaminowego otwórz ponownie stronę.
 
WAGA
turnieju		MINIMUM
za 1sze miejsce		WSP:
+ OTP∗∗∗∗: >
+ OTP∗∗∗: >
+ OTP∗∗: >
+ OTP: >
+ OTP krótki: >
+ Regionalny∗: >
+ Regionalny+40r: >
+ Regionalny: >
+ Okręgowy: >
+ Klubowy: >		 + >
+ >
+ >
+ >
+ >
+ >
+ >
+ >
+ >
+ >		>PKL za 1 m = śr.WK×WAGA + il.zaw×WSP




>%
>%
 
>%>%>%
 
TYP ZAWODÓW
+ >
+ >
+ >		RANGA ZAWODÓW
+ >
+ >
+ >
+ >
+ >
+ >
+ >
+ >
+ >
+ >		UCZESTNIKÓW
+ 0 ){echo ' value="'.$iuc.'"';}?>>
+ W zależności od typu
ilość indywidualistów,
par lub teamów		ZAWODNIKÓW
+ 0 ){echo ' value="'.$izw.'"';}?>>
+ To pole jest wyliczane
automatycznie.		SUMA WK
+ 0 ){echo ' value="'.$swk.'"';}?>>
+ Suma WK wszystkich
zawodników.
Średnie WK zawodnika w turnieju:  + 0 ){echo ' value="'.$swk/$izw.'"';}?>>
+
 
+ +0 ){ + echo ' + '; +} else { + echo ' '; +} +?> +
+0 ){ + unset( $tabpkl ); + $lasti = 0; + echo ''; + echo ''; + $max = ceil(($swk/$izw)*$rng + $izw*$zaw); + if( $max<$minpkl ) $max = $minpkl; + $prem = 0; + switch( $rng ){ + case $rgg: + case $rgp: + $prcold = 0.1; + break; + case $rot: + $prcold = 0.1; + break; + case $rok: + case $r40: + $prcold = 0.06; + break; + case $rtp: + case $rtr: + $prcold = 0.06; + if( $dajp ){ + $prem = 3; + } + break; + case $rto: + $prcold = 0.05; + break; + case $rtk: + $prcold = 0.04; + break; + } + $zni = 1; + switch( $typ ){ + case 2: + $zni = 2; + break; + case 4: + $zni = 4; + break; + } + if( $prem>0 ){ + $d = 2; + } else { + $d = 0; + } + $maxold = ceil($prcold*$izw + 0.05*$swk); + $progu1 = $progu1*$iuc*0.01+1; + $progu2 = $progu2*$iuc*0.01+1; + $progu3 = $progu3*$iuc*0.01+1; // 0 pkl za ostatnie punktowane+1 + $progp1 = $max*$progp1*0.01; + $progp2 = $max*$progp2*0.01; + $sumn = 0 ; + $sumo = 0; + $i = 0; + $dok = 1 - 1e-15; // unikamy błędu ceil(2)=3; + do{ + $i++; + if( $i<=$progu1 ){ + $p = $progp1+($max-$progp1)*($progu1-$i)/($progu1-1); + } + elseif( $i<=$progu2 ){ + $p = $progp2+($progp1-$progp2)*($progu2-$i)/($progu2-$progu1); + } + elseif( $i<$progu3 ){ + $p = $progp3+($progp2-$progp3)*($progu3-$i)/($progu3-$progu2); + } + else $p=0; + if( ($p>0) || ($maxold>0) ){ + echo ''; + if( $p>0 ){ + $pkl_temp = ceil($p); + if (($pkl_temp - $p) < $dok){ + $p = $pkl_temp; + } else { + $p = round($p); + } + $tabkl[$i] = $p; + $lasti = $i; + echo ''; + $sumn = $sumn + $p; + } else { + echo ''; + } + if( $maxold>0 ){ + echo ''; + if( $maxold<10 ){ + switch( $typ ){ + case 4: + $zni = 2; + break; + case 2: + $zni = 1; + break; + } + } + $maxold = $maxold - $zni; + if( $prem>0 ){ + if( $prem==3 ){ + $d = 1; + } else { + if( $prem==1 ){ + $d = 0; + } + } + $prem = $prem - 1; + } + } else { + echo ''; + } + echo ''; + } + } while( (($p>0) || ($maxold>0)) && ($i<$iuc) ); + echo ''; + echo '
Miejsce   PKL   dotychczas
'.$i.''.$p.' '; + if( $i>($iuc/2) ){ + echo ' '; + } else { + $sumo = $sumo + $maxold + $d; + } + echo ($maxold + $d); + if( $i>($iuc/2) ){ + echo ' '; + } + echo ' 
SUMA PKL'.$typ*$sumn.''.$typ*$sumo.'
'; +} else { + echo ' '; +} +?> +
©'2009, Jan Romański dla PZBS
+
+ + -- cgit v1.2.3