fork download 
  1. <html>
  2. <head>
  3. <title>KAPACITETI</title>
  4. <!-- This Script is from www.htmlfreecodes.com, Coded by: Krishna Eydat-->
  5. <script>
  6. // broj pahuljica 
  7. var snowmax=60
  8. // boja pahuljica
  9. var snowcolor=new Array("#FFFFFF","1C86EE","8E2323")
  10. // fontovi pahuljice/elemenata...
  11. var snowtype=new Array("Arial Black","Arial Narrow","Times","Comic Sans MS")
  12. // izaberi element.... odnosno *
  13. var snowletter="*"
  14. // brzina padanja
  15. var sinkspeed=0.8
  16. // max pahuljice
  17. var snowmaxsize=22
  18. // min pahuljice
  19. var snowminsize=8
  20. //  1 svuda,  2 levo 
  21. //  3 centar, 4 desno
  22. var snowingzone=1
  23. var snow=new Array()
  24. var marginbottom
  25. var marginright
  26. var timer
  27. var i_snow=0
  28. var x_mv=new Array();
  29. var crds=new Array();
  30. var lftrght=new Array();
  31. var browserinfos=navigator.userAgent 
  32. var ie5=document.all&&document.getElementById&&!browserinfos.match(/Opera/)
  33. var ns6=document.getElementById&&!document.all
  34. var opera=browserinfos.match(/Opera/)  
  35. var browserok=ie5||ns6||opera
  36. function randommaker(range) {		
  37. 	rand=Math.floor(range*Math.random())
  38.     return rand
  39. }
  40. function initsnow() {
  41. 	if (ie5 || opera) {
  42. 		marginbottom = document.body.clientHeight
  43. 		marginright = document.body.clientWidth
  44. 	}
  45. 	else if (ns6) {
  46. 		marginbottom = window.innerHeight
  47. 		marginright = window.innerWidth
  48. 	}
  49. 	var snowsizerange=snowmaxsize-snowminsize
  50. 	for (i=0;i<=snowmax;i++) {
  51. 		crds[i] = 0;                      
  52.     	lftrght[i] = Math.random()*15;         
  53.     	x_mv[i] = 0.03 + Math.random()/10;
  54. 		snow[i]=document.getElementById("s"+i)
  55. 		snow[i].style.fontFamily=snowtype[randommaker(snowtype.length)]
  56. 		snow[i].size=randommaker(snowsizerange)+snowminsize
  57. 		snow[i].style.fontSize=snow[i].size
  58. 		snow[i].style.color=snowcolor[randommaker(snowcolor.length)]
  59. 		snow[i].sink=sinkspeed*snow[i].size/5
  60. 		if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
  61. 		if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
  62. 		if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
  63. 		if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
  64. 		snow[i].posy=randommaker(2*marginbottom-marginbottom-2*snow[i].size)
  65. 		snow[i].style.left=snow[i].posx
  66. 		snow[i].style.top=snow[i].posy
  67. 	}
  68. 	movesnow()
  69. }
  70. function movesnow() {
  71. 	for (i=0;i<=snowmax;i++) {
  72. 		crds[i] += x_mv[i];
  73. 		snow[i].posy+=snow[i].sink
  74. 		snow[i].style.left=snow[i].posx+lftrght[i]*Math.sin(crds[i]);
  75. 		snow[i].style.top=snow[i].posy
  76.  
  77. 		if (snow[i].posy>=marginbottom-2*snow[i].size || parseInt(snow[i].style.left)>(marginright-3*lftrght[i])){
  78. 			if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
  79. 			if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
  80. 			if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
  81. 			if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
  82. 			snow[i].posy=0
  83. 		}
  84. 	}
  85. 	var timer=setTimeout("movesnow()",50)
  86. }
  87. for (i=0;i<=snowmax;i++) {
  88. 	document.write("<span id='s"+i+"' style='position:absolute;top:-"+snowmaxsize+"'>"+snowletter+"</span>")
  89. }
  90. if (browserok) {
  91. 	window.onload=initsnow
  92. }
  93. </script>
  94. <style type="text/css">
  95. body{
  96.     background-color: #EEEEEE;
  97. }
  98. </style>
  99. </head>
  100. <body>
  101. <form action="" method="POST">
  102. Broj trake po smeru: <input type="text" name="brtraka" value="<?php if (isset($_POST['brtraka'])){echo $_POST['brtraka'];}?>" >  <br>
  103. Broj zaustavne trake: <input type="text" name="zaust" value="<?php if (isset($_POST['zaust'])){echo $_POST['zaust'];}?>"> <br>
  104. Slobodna brzina (km/h): <input type="text" name="Vsl" value="<?php if (isset($_POST['Vsl'])){echo $_POST['Vsl'];}?>"> <br>
  105. Duzina deonice (m): <input type="text" name="L" value="<?php if (isset($_POST['L'])){echo $_POST['L'];}?>"> <br>
  106. Sirina trake (m): <input type="text" name="ST" value="<?php if (isset($_POST['ST'])){echo $_POST['ST'];}?>"> <br>
  107. Sirina bocnih smetnji (m): <input type="text" name="BS" value="<?php if (isset($_POST['BS'])){echo $_POST['BS'];}?>"> <br>
  108. Sa jedne strane <input type="radio" name="r1" value="1" checked="checked"> Sa dve strane <input type="radio" name="r1" value="2"> <br>
  109. Struktura vozaca:<br>
  110. Svakodnevni: <input type="radio" name="r2" value="1" checked="checked"> Vikend: <input type="radio" name="r2" value="2"> <br>
  111. Uzduzni nagib (%): <input type="text" name="un" value="<?php if (isset($_POST['un'])){echo $_POST['un'];}?>"> <br>
  112. Karakter terena: <input type="text" name="kt" value="<?php if (isset($_POST['kt'])){echo $_POST['kt'];}?>"> <br>
  113. Min radijus hor. krivine (m): <input type="text" name="Rmin" value="<?php if (isset($_POST['Rmin'])){echo $_POST['Rmin'];}?>"> <br>
  114. PGDS (voz/dan): <input type="text" name="PGDS" value="<?php if (isset($_POST['PGDS'])){echo $_POST['PGDS'];}?>"> <br>
  115. U prvoj god. <input type="radio" name="r3" value="1" checked="checked"> U baznoj god. <input type="radio" name="r3" value="2"> <br>
  116. K (%PGDS-a): <input type="text" name="K" value="<?php if (isset($_POST['K'])){echo $_POST['K'];}?>"> <br>
  117. Stopa rasta PGDS-a (%): <input type="text" name="r" value="<?php if (isset($_POST['r'])){echo $_POST['r'];}?>"> <br>
  118. Struktura saobracajnog toka: <br>
  119. PA (%): <input type="text" name="PA" value="<?php if (isset($_POST['PA'])){echo $_POST['PA'];}?>"> <br>
  120. BUS (%): <input type="text" name="BUS" value="<?php if (isset($_POST['BUS'])){echo $_POST['BUS'];}?>"> <br>
  121. TV (%): <input type="text" name="TV" value="<?php if (isset($_POST['TV'])){echo $_POST['TV'];}?>"> <br>
  122. AV (%): <input type="text" name="AV" value="<?php if (isset($_POST['AV'])){echo $_POST['AV'];}?>"> <br>
  123. RV (%): <input type="text" name="RV" value="<?php if (isset($_POST['RV'])){echo $_POST['RV'];}?>"> <br>
  124. Nerav. po smerovima (0.5-0.6-0.7-0.8): <input type="text" name="D" value="<?php if (isset($_POST['D'])){echo $_POST['D'];}?>"> <br>
  125. FVS : <input type="text" name="FVS" value="<?php if (isset($_POST['FVS'])){echo $_POST['FVS'];}?>"> <br>
  126. Nadji PGDS i Nivo usluge u: <input type="text" name="n" value="<?php if (isset($_POST['n'])){echo $_POST['n'];}?>"> godini <br>
  127. <input type="submit" name="b1" value="Trazi"> <br>
  128. </form> <!-- ovo iznad to ti je samo formaza unosssss -->
  129. </body>
  130. </html>
  131. <?php
  132. if (isset($_POST['b1'])){ 
  133.     $rb1=($_POST['r1']);
  134.     $rb2=($_POST['r2']);
  135.     $rb3=($_POST['r3']);
  136.     $Rmin=trim($_POST['Rmin']);
  137.     $ST=trim($_POST['ST']);
  138.     $BS=trim($_POST['BS']);
  139.     $Vsl=trim($_POST['Vsl']);
  140.     $PA=trim($_POST['PA']);
  141.     $BUS=trim($_POST['BUS']);
  142.     $TV=trim($_POST['TV']);
  143.     $AV=trim($_POST['AV']);
  144.     $RV=trim($_POST['RV']);
  145.     $KV=($TV+$BUS+$AV+$RV);
  146.     $brtraka=trim($_POST['brtraka']);
  147.     $PGDS=trim($_POST['PGDS']);
  148.     $r=trim($_POST['r'])/100;
  149.     $n=trim($_POST['n']);
  150.     $K=trim($_POST['K'])/100;
  151.     $D=trim($_POST['D']);
  152.     $L=trim($_POST['L']); 
  153.     $un=trim($_POST['un']);
  154.     $FVS=trim($_POST['FVS']); // ucitavanje podaatka
  155.     if ($rb3==1){
  156.     $PGDSx=ceil($PGDS*(pow((1+$r),($n-1)))); // ovaj red racuna pgsd u n-toj godini
  157.     $qnu1=ceil($PGDS*$K*$D/$FVS);
  158.     echo "PGDS u $n-oj godini iznosi $PGDSx [voz/dan]"."<br>";
  159.     }
  160.     if ($rb3==2){
  161.         $PGDS1=ceil($PGDS*(1+$r));
  162.         $qnu1=ceil($PGDS1*$K*$D/$FVS);
  163.         $PGDSx=ceil($PGDS*(pow((1+$r),($n)))); // ovaj red racuna pgsd u n-toj godini
  164.         echo "PGDS u prvoj god. godini iznosi $PGDS1 [voz/dan]"."<br>";
  165.         echo "PGDS u $n-oj godini iznosi $PGDSx [voz/dan]"."<br>";
  166.     }
  167.     $qnux=ceil(($PGDSx*$K*$D)/$FVS); // racuna protok vozila u n-toj i prvoj godini
  168.     echo "q(1)= $qnu1 [voz/h/smeru]"."<br>";
  169.     echo "q($n)= $qnux [voz/h/smeru]"."<br>";
  170.     $T1=fopen("T1.txt","rb"); // otvarq datotoeku u kojo se nalaze vrednosti iz tabele 5.17 na str 97
  171.     for($i=1 ; $i<6 ; $i++){ // ova petlja ucitiava vrednosti za radijus u red(20, 40,70, 120, 180)!!! 
  172.         $T1R[$i]=trim(fgets($T1,20));
  173.        }
  174.     for($i=1 ; $i<6 ; $i++){ // a ova isto drugi red(30 40 50 60 70) 
  175.         $T1Vr[$i]=trim(fgets($T1,20));
  176.        }
  177.        fclose($T1); // i sada hocu u zavisnosti od onoga sto je korisnik uneo da ispitam kolika je brzina Vr
  178.        $a=0; // ovo ispod skonataj sam ako si dokon....
  179.         for($i=1 ; $i<6 ; $i++){
  180.             if($Rmin==$T1R[$i]){
  181.                 $a=1;
  182.                 $b=$i;
  183.                 break;
  184.             }
  185.         }
  186.        if($Rmin>=180){
  187.  
  188.         $Vr=70;
  189.         }
  190.         elseif($Rmin<=20){
  191.             $Vr=30;
  192.         }
  193.         elseif ($a==1){
  194.             $Vr=$T1Vr[$b];
  195.         }
  196.  
  197.         elseif ($a==0){
  198.             for($i=1 ; $i<6 ; $i++){
  199.                 if($Rmin<$T1R[$i]){
  200.                     $s=($i-1);
  201.                     break;
  202.                 }
  203.             }
  204.             $Vr=round(($Rmin-$T1R[$s+1])/($T1R[$s]-$T1R[$s+1])*($T1Vr[$s]-$T1Vr[$s+1])+$T1Vr[$s+1],2); // interpolacija
  205.        }// i tako sam ispitao kolika je Vr
  206.        $T2=fopen("T2.txt","rb"); // ucitavanje potrebnih podataka i otvaranje duge datoteke 5.15 str 97, da ispitam kolika je Vun
  207.        if($L<=50){// pa u zavisnosi koju je korisnik duzinu deonice uneo, taj red citam iz datoteke
  208.         for ($i=1 ; $i<14 ; $i++){
  209.         $u[$i]=trim(fgets($T2,5));
  210.        }
  211.        }
  212.        elseif($L>50 && $L<=100){
  213.         for ($j=1 ; $j<14 ; $j++){
  214.             fgets($T2,5);
  215.         }
  216.  
  217.         for ($i=1 ; $i<14 ; $i++){
  218.         $u[$i]=trim(fgets($T2,5));
  219.        }
  220.        }
  221.         elseif($L>100 && $L<=150){
  222.         for ($j=1 ; $j<27 ; $j++){
  223.             fgets($T2,5);
  224.         }
  225.          for ($i=1 ; $i<14 ; $i++){
  226.         $u[$i]=trim(fgets($T2,5));
  227.        }
  228.        }
  229.         elseif($L>150 && $L<=200){
  230.         for ($j=1 ; $j<40 ; $j++){
  231.             fgets($T2,5);
  232.         }
  233.          for ($i=1 ; $i<14 ; $i++){
  234.         $u[$i]=trim(fgets($T2,5));
  235.        }
  236.        }
  237.         elseif($L>200 && $L<=250){
  238.         for ($j=1 ; $j<53 ; $j++){
  239.             fgets($T2,5);
  240.         }
  241.          for ($i=1 ; $i<14 ; $i++){
  242.         $u[$i]=trim(fgets($T2,5));
  243.        }
  244.        }
  245.         elseif($L>250 && $L<=300){
  246.         for ($j=1 ; $j<66 ; $j++){
  247.             fgets($T2,5);
  248.         }
  249.          for ($i=1 ; $i<14 ; $i++){
  250.         $u[$i]=trim(fgets($T2,5));
  251.        }
  252.        }
  253.         elseif($L>300 && $L<=350){
  254.         for ($j=1 ; $j<79 ; $j++){
  255.             fgets($T2,5);
  256.         }
  257.          for ($i=1 ; $i<14 ; $i++){
  258.         $u[$i]=trim(fgets($T2,5));
  259.        }
  260.        }
  261.         elseif($L>350 && $L<=400){
  262.         for ($j=1 ; $j<92 ; $j++){
  263.             fgets($T2,5);
  264.         }
  265.          for ($i=1 ; $i<14 ; $i++){
  266.         $u[$i]=trim(fgets($T2,5));
  267.        }
  268.        }
  269.         elseif($L>400 && $L<=600){
  270.         for ($j=1 ; $j<105 ; $j++){
  271.             fgets($T2,5);
  272.         }
  273.          for ($i=1 ; $i<14 ; $i++){
  274.         $u[$i]=trim(fgets($T2,5));
  275.        }
  276.        }
  277.         elseif($L>600 && $L<=800){
  278.         for ($j=1 ; $j<118 ; $j++){
  279.             fgets($T2,5);
  280.         }
  281.          for ($i=1 ; $i<14 ; $i++){
  282.         $u[$i]=trim(fgets($T2,5));
  283.        }
  284.        }
  285.         elseif($L>800 && $L<=1000){
  286.         for ($j=1 ; $j<131 ; $j++){
  287.             fgets($T2,5);
  288.         }
  289.          for ($i=1 ; $i<14 ; $i++){
  290.         $u[$i]=trim(fgets($T2,5));
  291.        }
  292.        }
  293.         elseif($L>1000 && $L<=1200){
  294.         for ($j=1 ; $j<144 ; $j++){
  295.             fgets($T2,5);
  296.         }
  297.          for ($i=1 ; $i<14 ; $i++){
  298.         $u[$i]=trim(fgets($T2,5));
  299.        }
  300.        }
  301.         elseif($L>1200 && $L<=1400){
  302.         for ($j=1 ; $j<157 ; $j++){
  303.             fgets($T2,5);
  304.         }
  305.          for ($i=1 ; $i<14 ; $i++){
  306.         $u[$i]=trim(fgets($T2,5));
  307.        }
  308.        }
  309.         elseif($L>1400 && $L<=1600){
  310.         for ($j=1 ; $j<170 ; $j++){
  311.             fgets($T2,5);
  312.         }
  313.          for ($i=1 ; $i<14 ; $i++){
  314.         $u[$i]=trim(fgets($T2,5));
  315.        }
  316.        }
  317.         elseif($L>1600 && $L<=1800){
  318.         for ($j=1 ; $j<183 ; $j++){
  319.             fgets($T2,5);
  320.         }
  321.          for ($i=1 ; $i<14 ; $i++){
  322.         $u[$i]=trim(fgets($T2,5));
  323.        }
  324.        }
  325.         else{
  326.         for ($j=1 ; $j<196 ; $j++){
  327.             fgets($T2,5);
  328.         }
  329.          for ($i=1 ; $i<14 ; $i++){
  330.         $u[$i]=trim(fgets($T2,5));
  331.        }//eto posto ima ova tabela 16 redova, ja imam 16 ifova  p.s. znaci ucitao sam u red $u(koji ima 13 atributa)
  332.        }
  333.        fclose($T2);
  334.        $up[1]=2;
  335.        $up[2]=2.5;
  336.        $up[3]=3;
  337.        $up[4]=3.5;
  338.        $up[5]=4;
  339.        $up[6]=4.5;
  340.        $up[7]=5;
  341.        $up[8]=5.5;
  342.        $up[9]=6;
  343.        $up[10]=6.5;
  344.        $up[11]=7;
  345.        $up[12]=7.5;
  346.        $up[13]=8;// ovo je drugi red $up(to su ove gornje vrednosti iz tabele 5.15) i sada preostaje da uporedim sa koris sto je uneo 
  347.       $z=0;// ovo je promenljiva koja menja vrednost u 1 ako se poklopi $un==$up[$i] znaci ako je $z=1, ne moramo interpolaciju
  348.       for($i=1; $i<14; $i++){
  349.         if($un==$up[$i]){
  350.             $z=1;
  351.             $x=$i;
  352.             break;// ako je uneo tacnu vrednost, znaci 2; 2.5; 3; 3.5; i tako edom...
  353.         }
  354.         elseif($un<2){
  355.             $z=1;
  356.             $x=1;//ako je uneo manje od 2% 
  357.         }
  358.         elseif ($un > 8) {// vise od 8%
  359.         $z=1;
  360.         $x=13;
  361.         }
  362.       }
  363.  
  364.         if($z==1){
  365.             $Vun=$u[$x];
  366.         }
  367.         elseif ($z==0) {// poslednja varijanta ako je $z=0 znaci da je nesto uneo izmelju i da mora interpolacija
  368.             for($i=1 ; $i<14 ; $i++){
  369.                 if($un<$up[$i]){
  370.                     $s=($i-1);
  371.                     break;
  372.                 }
  373.             }
  374.             $Vun=round(($un-$up[$s+1])/($up[$s]-$up[$s+1])*($u[$s]-$u[$s+1])+$u[$s+1],2);// interpolacija....
  375.         }
  376.         echo "Radijus= $Vr"." [km/h]"."<br>";
  377.         echo "Nagib= $Vun"." [km/h]"."<br>";;//eto sada imamo brzine u zavisnosti od R i U pa proveravamo da li su vece/manje od 70, tj 80(profesor) 
  378.  
  379.         if ($Vun < $Vr && $Vun < 70){
  380.             $T3=fopen("T3.txt","rb"); 
  381.     for($i=1 ; $i<11 ; $i++){
  382.         $T3Vunt[$i]=trim(fgets($T3,20));
  383.        }
  384.     for($i=1 ; $i<11 ; $i++){ 
  385.         $T3Funt[$i]=trim(fgets($T3,20));
  386.        }
  387.        fclose($T3);
  388.        $y=0;
  389.        $yy=0;
  390.        for($i=1 ; $i<11 ; $i++){
  391.             if($Vun==$T3Vunt[$i]){
  392.                 $y=1;
  393.                 $yy=$i;
  394.                 break;
  395.             }
  396.         }
  397.        if($Vun>=70){
  398.         $Fun=0.95;
  399.         }
  400.         elseif($Vun<=25){
  401.             $Fun=0.86;
  402.         }
  403.         elseif ($y==1){
  404.             $Fun=$T3Funt[$yy];
  405.         }
  406.         elseif ($y==0){
  407.             for($i=1 ; $i<11 ; $i++){
  408.                 if($Vun<$T3Vunt[$i]){
  409.                     $yyy=($i-1);
  410.                     break;
  411.                 }
  412.             }
  413.             $Fun=($Vun-$T3Vunt[$yyy+1])/($T3Vunt[$yyy]-$T3Vunt[$yyy+1])*($T3Funt[$yyy]-$T3Funt[$yyy+1])+$T3Funt[$yyy+1];
  414.        }
  415.        $Vc=round($Vun*$Fun,2);
  416.        echo "Vc= $Vc"." [km/h]"."<br>";; //to je bila brzina, sada sledi gustina.....
  417.        $T4=fopen("T4.txt","rb"); 
  418.     for($i=1 ; $i<11 ; $i++){
  419.         $T4Vuntg[$i]=trim(fgets($T4,20));
  420.        }
  421.     for($i=1 ; $i<11 ; $i++){ 
  422.         $T4Funtg[$i]=trim(fgets($T4,20));
  423.        }
  424.        fclose($T4);
  425.        $k=0;
  426.        $kk=0;
  427.        for($i=1 ; $i<11 ; $i++){
  428.             if($Vun==$T4Vuntg[$i]){
  429.                 $k=1;
  430.                 $kk=$i;
  431.                 break;
  432.             }
  433.         }
  434.        if($Vun>=70){
  435.         $Fung=1;
  436.         }
  437.         elseif($Vun<=25){
  438.             $Fung=1.32;
  439.         }
  440.         elseif ($k==1){
  441.             $Fung=$T4Funtg[$kk];
  442.         }
  443.         elseif ($k==0){
  444.             for($i=1 ; $i<11 ; $i++){
  445.                 if($Vun<$T4Vuntg[$i]){
  446.                     $kkk=($i-1);
  447.                     break;
  448.                 }
  449.             }
  450.             $Fung=($Vun-$T4Vuntg[$kkk+1])/($T4Vuntg[$kkk]-$T4Vuntg[$kkk+1])*($T4Funtg[$kkk]-$T4Funtg[$kkk+1])+$T4Funtg[$kkk+1]; //ya Gc
  451.        }
  452.        $T5=fopen("T5.txt","rb"); 
  453.     for($i=1 ; $i<23 ; $i++){
  454.         $T5KVt[$i]=trim(fgets($T5,20));
  455.        }
  456.     for($i=1 ; $i<23 ; $i++){ 
  457.         $T5FKVt[$i]=trim(fgets($T5,20));
  458.        }
  459.        fclose($T5);
  460.        $e=0;
  461.        $ee=0;
  462.        for($i=1 ; $i<23 ; $i++){
  463.             if($KV==$T5KVt[$i]){
  464.                 $e=1;
  465.                 $ee=$i;
  466.                 break;
  467.             }
  468.         }
  469.        if($KV>=100){
  470.         $Fkv=0.770;
  471.         }
  472.         elseif($KV<=0){
  473.             $Fkv=1;
  474.         }
  475.         elseif ($e==1){
  476.             $Fkv=$T5FKVt[$ee];
  477.         }
  478.         elseif ($e==0){
  479.             for($i=1 ; $i<23 ; $i++){
  480.                 if($KV<$T5KVt[$i]){
  481.                     $eee=($i-1);
  482.                     break;
  483.                 }
  484.             }
  485.             $Fkv=($KV-$T5KVt[$eee+1])/($T5KVt[$eee]-$T5KVt[$eee+1])*($T5FKVt[$eee]-$T5FKVt[$eee+1])+$T5FKVt[$eee+1];
  486.             }
  487.             $gc=round(31.43*$Fung*$brtraka*$Fkv,2);
  488.             echo "gc= $gc"." [voz/km]"."<br>";
  489.             $C=round($Vc*$gc);
  490.             echo "C= $C"." [voz/h/smeru]"."<br>";
  491.        }
  492.        elseif ($Vr < $Vun && $Vr < 70){
  493.         $T6=fopen("T6.txt","rb"); 
  494.     for($i=1 ; $i<6 ; $i++){
  495.         $T6Vrt[$i]=trim(fgets($T6,20));
  496.        }
  497.     for($i=1 ; $i<6 ; $i++){ 
  498.         $T6Frt[$i]=trim(fgets($T6,20));
  499.        }
  500.        fclose($T6);
  501.        $y=0;
  502.        $yy=0;
  503.        for($i=1 ; $i<6 ; $i++){
  504.             if($Vr==$T6Vrt[$i]){
  505.                 $y=1;
  506.                 $yy=$i;
  507.                 break;
  508.             }
  509.         }
  510.        if($Vr>=70){
  511.         $Fr=0.95;
  512.         }
  513.         elseif($Vun<=30){
  514.             $Fr=0.87;
  515.         }
  516.         elseif ($y==1){
  517.             $Fr=$T6Frt[$yy];
  518.         }
  519.         elseif ($y==0){
  520.             for($i=1 ; $i<6 ; $i++){
  521.                 if($Vr<$T6Vrt[$i]){
  522.                     $yyy=($i-1);
  523.                     break;
  524.                 }
  525.             }
  526.             $Fr=($Vr-$T6Vrt[$yyy+1])/($T6Vrt[$yyy]-$T6Vrt[$yyy+1])*($T6Frt[$yyy]-$T6Frt[$yyy+1])+$T6Frt[$yyy+1];
  527.             }
  528.           $Vc=round($Vr*$Fr,2);
  529.           echo "Vc= $Vc"." [km/h]"."<br>";; 
  530.            $T7=fopen("T7.txt","rb"); 
  531.     for($i=1 ; $i<6 ; $i++){
  532.         $T7Vrt[$i]=trim(fgets($T7,20));
  533.        }
  534.     for($i=1 ; $i<6 ; $i++){ 
  535.         $T7Frgt[$i]=trim(fgets($T7,20));
  536.        }
  537.        fclose($T7);
  538.        $k=0;
  539.        $kk=0;
  540.        for($i=1 ; $i<6 ; $i++){
  541.             if($Vr==$T7Vrt[$i]){
  542.                 $k=1;
  543.                 $kk=$i;
  544.                 break;
  545.             }
  546.         }
  547.        if($Vr>=70){
  548.         $Frg=1;
  549.         }
  550.         elseif($Vr<=30){
  551.             $Frg=1.28;
  552.         }
  553.         elseif ($k==1){
  554.             $Frg=$T7Frgt[$kk];
  555.         }
  556.         elseif ($k==0){
  557.             for($i=1 ; $i<6 ; $i++){
  558.                 if($Vr<$T7Vrt[$i]){
  559.                     $kkk=($i-1);
  560.                     break;
  561.                 }
  562.             }
  563.             $Frg=($Vr-$T7Vrt[$kkk+1])/($T7Vrt[$kkk]-$T7Vrt[$kkk+1])*($T7Frgt[$kkk]-$T7Frgt[$kkk+1])+$T7Frgt[$kkk+1];
  564.        }
  565.        $T5=fopen("T5.txt","rb"); 
  566.     for($i=1 ; $i<23 ; $i++){
  567.         $T5KVt[$i]=trim(fgets($T5,20));
  568.        }
  569.     for($i=1 ; $i<23 ; $i++){ 
  570.         $T5FKVt[$i]=trim(fgets($T5,20));
  571.        }
  572.        fclose($T5);
  573.        $e=0;
  574.        $ee=0;
  575.        for($i=1 ; $i<23 ; $i++){
  576.             if($KV==$T5KVt[$i]){
  577.                 $e=1;
  578.                 $ee=$i;
  579.                 break;
  580.             }
  581.         }
  582.        if($KV>=100){
  583.         $Fkv=0.770;
  584.         }
  585.         elseif($KV<=0){
  586.             $Fkv=1;
  587.         }
  588.         elseif ($e==1){
  589.             $Fkv=$T5FKVt[$ee];
  590.         }
  591.         elseif ($e==0){
  592.             for($i=1 ; $i<23 ; $i++){
  593.                 if($KV<$T5KVt[$i]){
  594.                     $eee=($i-1);
  595.                     break;
  596.                 }
  597.             }
  598.             $Fkv=($KV-$T5KVt[$eee+1])/($T5KVt[$eee]-$T5KVt[$eee+1])*($T5FKVt[$eee]-$T5FKVt[$eee+1])+$T5FKVt[$eee+1];
  599.             }
  600.             $gc=round(31.43*$Frg*$brtraka*$Fkv,2);
  601.             echo "gc= $gc"." [voz/km]"."<br>";
  602.             $C=round($Vc*$gc);
  603.             echo "C= $C"." [voz/h/smeru]"."<br>";
  604.        }
  605.        elseif ($Vun >= 70 && $Vr >= 70){
  606.         $T8=fopen("T8.txt","rb"); 
  607.     for($i=1 ; $i<5 ; $i++){
  608.         $T8Vslt[$i]=trim(fgets($T8,20));
  609.        }
  610.     for($i=1 ; $i<5 ; $i++){ 
  611.         $T8Vcot[$i]=trim(fgets($T8,20));
  612.        }
  613.        fclose($T8);
  614.         if ($Vsl>=115){
  615.             $Vco=85;
  616.         }
  617.         elseif ($Vsl<115 && $Vsl>=105){
  618.             $Vco=80;
  619.         }
  620.         elseif ($Vsl<105 && $Vsl>=95){
  621.             $Vco=75;
  622.         }
  623.         elseif ($Vsl>=85 && $Vsl<95){ //mogucnost pucanja programa ako je Vsl<85 km/h!!!
  624.             $Vco=70;
  625.         }
  626.         if ($ST>=3.5){
  627.             $Fst=1;
  628.         }
  629.         elseif ($ST<3.5 && $ST>=3.25){
  630.             $Fst=0.95;
  631.         }
  632.         elseif ($ST<3.25){
  633.             $Fst=0.9;
  634.         }
  635.         if ($BS>=1.75 && $rb1==1){
  636.             $Fbs=1;
  637.         }
  638.         elseif ($BS<1.75 && $BS>=1.50 && $rb1==1){
  639.             $Fbs=0.99;
  640.         }
  641.         elseif ($BS<1.50 && $BS>=1 && $rb1==1){
  642.             $Fbs=0.98;
  643.         }
  644.         elseif ($BS<1 && $rb1==1){
  645.             $Fbs=0.97;
  646.         }
  647.         if ($BS>=1.75 && $rb1==2){
  648.             $Fbs=1;
  649.         }
  650.         elseif ($BS<1.75 && $BS>=1.50 && $rb1==2){
  651.             $Fbs=0.99;
  652.         }
  653.         elseif ($BS<1.50 && $BS>=1 && $rb1==2){
  654.             $Fbs=0.98;
  655.         }
  656.         elseif ($BS<1 && $rb1==2){
  657.             $Fbs=0.97;
  658.         }
  659.         If ($brtraka==2){
  660.             $Fn=1;
  661.         }
  662.         elseif ($brtraka==3){
  663.             $Fn=0.98;
  664.         }
  665.         elseif ($brtraka==4){
  666.             $Fn=0.97;
  667.         }
  668.        If($rb2==1){ //da li ima/nema v.vozaca
  669.         $Fv=1;
  670.        }
  671.        elseif($rb2==2){
  672.         $Fv=0.95; //konsultuj se sa profesorom!!!
  673.        }
  674.        $Vc=round($Vco*$Fst*$Fbs*$Fn*$Fv,2);
  675.        echo "Vc= $Vc [km/h]"."<br>";
  676.        if ($Vsl>=115){
  677.             $gco=25.88;
  678.         }
  679.         elseif ($Vsl<115 && $Vsl>=105){
  680.             $gco=27.5;
  681.         }
  682.         elseif ($Vsl<105 && $Vsl>=95){
  683.             $gco=29.33;
  684.         }
  685.         elseif ($Vsl>=85 && $Vsl<95){ //mogucnost pucanja programa ako je Vsl<85 km/h!!!
  686.             $gco=31.43;
  687.         }
  688.         $T5=fopen("T5.txt","rb"); 
  689.     for($i=1 ; $i<23 ; $i++){
  690.         $T5KVt[$i]=trim(fgets($T5,20));
  691.        }
  692.     for($i=1 ; $i<23 ; $i++){ 
  693.         $T5FKVt[$i]=trim(fgets($T5,20));
  694.        }
  695.        fclose($T5);
  696.        $e=0;
  697.        $ee=0;
  698.        for($i=1 ; $i<23 ; $i++){
  699.             if($KV==$T5KVt[$i]){
  700.                 $e=1;
  701.                 $ee=$i;
  702.                 break;
  703.             }
  704.         }
  705.        if($KV>=100){
  706.         $Fkv=0.770;
  707.         }
  708.         elseif($KV<=0){
  709.             $Fkv=1;
  710.         }
  711.         elseif ($e==1){
  712.             $Fkv=$T5FKVt[$ee];
  713.         }
  714.         elseif ($e==0){
  715.             for($i=1 ; $i<23 ; $i++){
  716.                 if($KV<$T5KVt[$i]){
  717.                     $eee=($i-1);
  718.                     break;
  719.                 }
  720.             }
  721.             $Fkv=(($KV-$T5KVt[$eee+1])/($T5KVt[$eee]-$T5KVt[$eee+1])*($T5FKVt[$eee]-$T5FKVt[$eee+1])+$T5FKVt[$eee+1]);
  722.             }
  723.             $gc=round($gco*$brtraka*$Fkv,2);
  724.             echo "gc= $gc"." [voz/km/smeru]"."<br>";
  725.             $C=round($Vc*$gc);
  726.             echo "C= $C"." [voz/h/smeru]"."<br>";
  727.        }
  728.        $NU=round($qnux/$C,3);
  729.        $NU1=round($qnu1/$C,3);
  730.        echo "q(1)/C= $NU1"."<br>";
  731.        echo "q($n)/C= $NU"."<br>";
  732.      if ($Vsl>=115){
  733.             if($NU<=0.323){
  734.                 $NUt="A";
  735.             }
  736.             elseif($NU>0.323 && $NU<=0.491){
  737.                 $NUt="B";
  738.             }
  739.             elseif($NU>0.491 && $NU<=0.677){
  740.                 $NUt="C";
  741.             }
  742.             elseif($NU>0.677 && $NU<=0.836){
  743.                 $NUt="D";
  744.             }
  745.             elseif($NU>0.836){
  746.                 $NUt="E";
  747.             }
  748.         }
  749.         elseif ($Vsl<115 && $Vsl>=105){
  750.             if($NU<=0.295){
  751.                 $NUt="A";
  752.             }
  753.             elseif($NU>0.295 && $NU<=0.490){
  754.                 $NUt="B";
  755.             }
  756.             elseif($NU>0.490 && $NU<=0.634){
  757.                 $NUt="C";
  758.             }
  759.             elseif($NU>0.634 && $NU<=0.791){
  760.                 $NUt="D";
  761.             }
  762.             elseif($NU>0.791){
  763.                 $NUt="E";
  764.             }
  765.         }
  766.         elseif ($Vsl<105 && $Vsl>=95){
  767.             if($NU<=0.268){
  768.                 $NUt="A";
  769.             }
  770.             elseif($NU>0.268 && $NU<=0.418){
  771.                 $NUt="B";
  772.             }
  773.             elseif($NU>0.418 && $NU<=0.586){
  774.                 $NUt="C";
  775.             }
  776.             elseif($NU>0.586 && $NU<=0.736){
  777.                 $NUt="D";
  778.             }
  779.             elseif($NU>0.736){
  780.                 $NUt="E";
  781.             }
  782.         }
  783.         elseif ($Vsl>=85){ //mogucnost pucanja programa ako je Vsl<85 km/h!!!
  784.             if($NU<=0.241){
  785.                 $NUt="A";
  786.             }
  787.             elseif($NU>0.241 && $NU<=0.373){
  788.                 $NUt="B";
  789.             }
  790.             elseif($NU>0.373 && $NU<=0.541){
  791.                 $NUt="C";
  792.             }
  793.             elseif($NU>0.541 && $NU<=0.691){
  794.                 $NUt="D";
  795.             }
  796.             elseif($NU>0.691){
  797.                 $NUt="E";
  798.             }
  799.         }
  800.         if ($Vsl>=115){
  801.             if($NU1<=0.323){
  802.                 $NUt1="A";
  803.             }
  804.             elseif($NU1>0.323 && $NU1<=0.491){
  805.                 $NUt1="B";
  806.             }
  807.             elseif($NU1>0.491 && $NU1<=0.677){
  808.                 $NUt1="C";
  809.             }
  810.             elseif($NU1>0.677 && $NU1<=0.836){
  811.                 $NUt1="D";
  812.             }
  813.             elseif($NU1>0.836){
  814.                 $NUt1="E";
  815.             }
  816.         }
  817.         elseif ($Vsl<115 && $Vsl>=105){
  818.             if($NU1<=0.295){
  819.                 $NUt1="A";
  820.             }
  821.             elseif($NU1>0.295 && $NU1<=0.490){
  822.                 $NUt1="B";
  823.             }
  824.             elseif($NU1>0.490 && $NU1<=0.634){
  825.                 $NUt1="C";
  826.             }
  827.             elseif($NU1>0.634 && $NU1<=0.791){
  828.                 $NUt1="D";
  829.             }
  830.             elseif($NU1>0.791){
  831.                 $NUt1="E";
  832.             }
  833.         }
  834.         elseif ($Vsl<105 && $Vsl>=95){
  835.             if($NU1<=0.268){
  836.                 $NUt1="A";
  837.             }
  838.             elseif($NU1>0.268 && $NU1<=0.418){
  839.                 $NUt1="B";
  840.             }
  841.             elseif($NU1>0.418 && $NU1<=0.586){
  842.                 $NUt1="C";
  843.             }
  844.             elseif($NU1>0.586 && $NU1<=0.736){
  845.                 $NUt1="D";
  846.             }
  847.             elseif($NU1>0.736){
  848.                 $NUt1="E";
  849.             }
  850.         }
  851.         elseif ($Vsl>=85){ //mogucnost pucanja programa ako je Vsl<85 km/h!!!
  852.             if($NU1<=0.241){
  853.                 $NUt1="A";
  854.             }
  855.             elseif($NU1>0.241 && $NU1<=0.373){
  856.                 $NUt1="B";
  857.             }
  858.             elseif($NU1>0.373 && $NU1<=0.541){
  859.                 $NUt1="C";
  860.             }
  861.             elseif($NU1>0.541 && $NU1<=0.691){
  862.                 $NUt1="D";
  863.             }
  864.             elseif($NU1>0.691){
  865.                 $NUt1="E";
  866.             }
  867.         }
  868.         echo "Nivo usluge u 1-voj godini iznosi: '$NUt1'"."<br>";
  869.         echo "Nivo usluge u $n-toj godini iznosi: '$NUt'";
  870. }                   
  871. ?>
Success #stdin #stdout 0.03s 25940KB
comments (?)
stdin 
Standard input is empty
stdout 
<html>
<head>
<title>KAPACITETI</title>
<!-- This Script is from www.htmlfreecodes.com, Coded by: Krishna Eydat-->
<script>
// broj pahuljica 
var snowmax=60
// boja pahuljica
var snowcolor=new Array("#FFFFFF","1C86EE","8E2323")
// fontovi pahuljice/elemenata...
var snowtype=new Array("Arial Black","Arial Narrow","Times","Comic Sans MS")
// izaberi element.... odnosno *
var snowletter="*"
// brzina padanja
var sinkspeed=0.8
// max pahuljice
var snowmaxsize=22
// min pahuljice
var snowminsize=8
//  1 svuda,  2 levo 
//  3 centar, 4 desno
var snowingzone=1
var snow=new Array()
var marginbottom
var marginright
var timer
var i_snow=0
var x_mv=new Array();
var crds=new Array();
var lftrght=new Array();
var browserinfos=navigator.userAgent 
var ie5=document.all&&document.getElementById&&!browserinfos.match(/Opera/)
var ns6=document.getElementById&&!document.all
var opera=browserinfos.match(/Opera/)  
var browserok=ie5||ns6||opera
function randommaker(range) {		
	rand=Math.floor(range*Math.random())
    return rand
}
function initsnow() {
	if (ie5 || opera) {
		marginbottom = document.body.clientHeight
		marginright = document.body.clientWidth
	}
	else if (ns6) {
		marginbottom = window.innerHeight
		marginright = window.innerWidth
	}
	var snowsizerange=snowmaxsize-snowminsize
	for (i=0;i<=snowmax;i++) {
		crds[i] = 0;                      
    	lftrght[i] = Math.random()*15;         
    	x_mv[i] = 0.03 + Math.random()/10;
		snow[i]=document.getElementById("s"+i)
		snow[i].style.fontFamily=snowtype[randommaker(snowtype.length)]
		snow[i].size=randommaker(snowsizerange)+snowminsize
		snow[i].style.fontSize=snow[i].size
		snow[i].style.color=snowcolor[randommaker(snowcolor.length)]
		snow[i].sink=sinkspeed*snow[i].size/5
		if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
		if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
		if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
		if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
		snow[i].posy=randommaker(2*marginbottom-marginbottom-2*snow[i].size)
		snow[i].style.left=snow[i].posx
		snow[i].style.top=snow[i].posy
	}
	movesnow()
}
function movesnow() {
	for (i=0;i<=snowmax;i++) {
		crds[i] += x_mv[i];
		snow[i].posy+=snow[i].sink
		snow[i].style.left=snow[i].posx+lftrght[i]*Math.sin(crds[i]);
		snow[i].style.top=snow[i].posy
		
		if (snow[i].posy>=marginbottom-2*snow[i].size || parseInt(snow[i].style.left)>(marginright-3*lftrght[i])){
			if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)}
			if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)}
			if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4}
			if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2}
			snow[i].posy=0
		}
	}
	var timer=setTimeout("movesnow()",50)
}
for (i=0;i<=snowmax;i++) {
	document.write("<span id='s"+i+"' style='position:absolute;top:-"+snowmaxsize+"'>"+snowletter+"</span>")
}
if (browserok) {
	window.onload=initsnow
}
</script>
<style type="text/css">
body{
    background-color: #EEEEEE;
}
</style>
</head>
<body>
<form action="" method="POST">
Broj trake po smeru: <input type="text" name="brtraka" value="" >  <br>
Broj zaustavne trake: <input type="text" name="zaust" value=""> <br>
Slobodna brzina (km/h): <input type="text" name="Vsl" value=""> <br>
Duzina deonice (m): <input type="text" name="L" value=""> <br>
Sirina trake (m): <input type="text" name="ST" value=""> <br>
Sirina bocnih smetnji (m): <input type="text" name="BS" value=""> <br>
Sa jedne strane <input type="radio" name="r1" value="1" checked="checked"> Sa dve strane <input type="radio" name="r1" value="2"> <br>
Struktura vozaca:<br>
Svakodnevni: <input type="radio" name="r2" value="1" checked="checked"> Vikend: <input type="radio" name="r2" value="2"> <br>
Uzduzni nagib (%): <input type="text" name="un" value=""> <br>
Karakter terena: <input type="text" name="kt" value=""> <br>
Min radijus hor. krivine (m): <input type="text" name="Rmin" value=""> <br>
PGDS (voz/dan): <input type="text" name="PGDS" value=""> <br>
U prvoj god. <input type="radio" name="r3" value="1" checked="checked"> U baznoj god. <input type="radio" name="r3" value="2"> <br>
K (%PGDS-a): <input type="text" name="K" value=""> <br>
Stopa rasta PGDS-a (%): <input type="text" name="r" value=""> <br>
Struktura saobracajnog toka: <br>
PA (%): <input type="text" name="PA" value=""> <br>
BUS (%): <input type="text" name="BUS" value=""> <br>
TV (%): <input type="text" name="TV" value=""> <br>
AV (%): <input type="text" name="AV" value=""> <br>
RV (%): <input type="text" name="RV" value=""> <br>
Nerav. po smerovima (0.5-0.6-0.7-0.8): <input type="text" name="D" value=""> <br>
FVS : <input type="text" name="FVS" value=""> <br>
Nadji PGDS i Nivo usluge u: <input type="text" name="n" value=""> godini <br>
<input type="submit" name="b1" value="Trazi"> <br>
</form> <!-- ovo iznad to ti je samo formaza unosssss -->
</body>
</html>
https://ideone.com/idHx1b
language:
PHP (php 7.3.5)
created:
13 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!