var col1,kut1,man1,haz1,jj
var BoruCinsi,Formul,AnmaCapi,AnmaBasinci
var Sicak = new Array(0,       4.4,     10,      15.5,    21.1,    26.6,     32.2,     37.7,     43.3,     48.8,     54.4,     60,      65.5,     71.1,     76.6,     82.2,     87.7,     93.3,     104,      115.6,    126.7,    137.8)
var Yogun = new Array(999.8,   999.8,   999.2,   998.6,   997.4,   995.8,    994.9,    993,      990.6,    988.8,    985.7,    983.3,   980.3,    977.3,    973.7,    970.2,    966.7,    963.2,    955.1,    946.7,    937.2,    928.1)
var Vzk = new Array  (0.00179, 0.00155, 0.00112, 0.00098, 0.00086, 0.000765, 0.000682, 0.000616, 0.000562, 0.000513, 0.000474, 0.00043, 0.000401, 0.000372, 0.000347, 0.000327, 0.000304, 0.000267, 0.000244, 0.000219, 0.000198, 0.000186)
var KVzk = new Array(22)


function ReynoltSayisi(Hiz,Cap,KinVizkozite)
{
   var ReySay
	ReySay=Hiz*Cap/KinVizkozite
	return(ReySay)
}

function Lagrange(X,Y,A,n)
{
   var toplam, carpim,i,j
   toplam=0
   for (i=0;i<n-1;i++) {
      carpim=1
      for (j=0;j<n-1;j++)
         {
           if (i!=j) { carpim=carpim*(A-X[j])/(X[i]-X[j]) }
         }
      toplam=toplam+carpim*Y[i]
      }
return(toplam)
}

function malzeme_onchange() 
{ 
	  if (document.cazibe.boru_cinsi.options[0].selected)
	  {
	    document.cazibe.formul.options[0].selected=true
	    document.cazibe.DN.disabled=false
	    document.cazibe.PN.disabled=false
	  }  
	  if (document.cazibe.boru_cinsi.options[1].selected)
	  {
	    document.cazibe.formul[0].selected=true
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
	  if (document.cazibe.boru_cinsi.options[2].selected)
	  {
	    document.cazibe.formul.options[2].selected=true
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
	  if (document.cazibe.boru_cinsi.options[3].selected)
	  {
	    document.cazibe.formul.options[0].selected=true
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
	  if (document.cazibe.boru_cinsi.options[4].selected)
	  {
	    document.cazibe.formul.options[0].selected=true
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
	  if (document.cazibe.boru_cinsi.options[5].selected)
	  {
	    document.cazibe.formul.options[0].selected=true
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
	  if (document.cazibe.boru_cinsi.options[6].selected)
	  {
	    document.cazibe.DN.disabled=true
	    document.cazibe.PN.disabled=true
	  }  
document.cazibe.hiz_d.value=""
document.cazibe.T4.value=""
document.cazibe.T3.value=""

}


function bas_onchange()
{

var et

 AnmaCapi=document.cazibe.DN.options[document.cazibe.DN.selectedIndex].value
 AnmaBasinci=document.cazibe.PN.options[document.cazibe.PN.selectedIndex].value
 et=AnmaCapi* AnmaBasinci/(160+Math.round(AnmaBasinci*10)/10)
 et=Math.round(et*10)/10
 document.forms[0].iccap.value =AnmaCapi-2*et
}

function fonk3(X, D, v, k, KinVizk)
{
var A,b,f
  A = 2.54 / ReynoltSayisi(v, D, KinVizk)
  b = k / (3.72 * D)
  f = Math.pow(X,(-0.5)) + 2 * Math.log(A * Math.pow(X,(-0.5)) + b) / Math.log(10)
return (f)
}

function turev3(X, D, v, k, KinVizk)
{
var A,b,t
  A = 2.54 / ReynoltSayisi(v, D, KinVizk)
  b = k / (3.72 * D)
  t = -1 * (Math.pow(X,(-3 / 2))) / 2 + 2 * (-1 * A * Math.pow(X,(-3 / 2)) / 2) / (Math.log(10) * (A * Math.pow(X,(-0.5)) + b))
return(t)
}

function colebrookeKayip(hiz,D,k,KinVizk)
{

var x1,x2,Reyno1
Reyno1 = ReynoltSayisi(hiz, D, KinVizk)

if (Reyno1>2340)
{
  x1=0.001
  while(true)
  {
  x2=x1-fonk3(x1,D,hiz,k,KinVizk)/turev3(x1,D,hiz,k,KinVizk)
  if (Math.abs(x2 - x1) < 0.00000001)
    {
      break
    }
    x1 = x2
   } 
}
else
{
	x1=64/Reyno1
}
	ck=x1 * Math.pow(hiz,2)/(D*2*9.81)

return(ck)
}

function Hazzen(hiz, c, Di)
{
var haz
Debi = hiz * Math.PI * Math.pow(Di,2) / 4
haz = 10.675 * Math.pow(Debi,1.852) / (Math.pow(c,1.852)*Math.pow(Di,4.8704))
return(haz)
}

function Kutter(iccap,hiz,KutterKats)
{
var R, v, m
R = iccap / 4
v = hiz
m = KutterKats
Kayip = Math.pow((v*(m+Math.sqrt(R))/(100*Math.sqrt(R))),2)/R
return(Kayip)
}

function ManningKayip(ManningKats, iccap, hiz)
{
var mankayip
  n = ManningKats
  R = iccap / 4
  mankayip = Math.pow(n * hiz / (Math.pow(iccap/4,2 / 3)),2)
return(mankayip)
}

function RS()
{
var vizkozite

var a,b,c,yogunluk,vizk

for (jj=0;jj<21;jj++)
{
	KVzk[jj]=Vzk[jj]/Yogun[jj];
}

	if (document.cazibe.formul.options[0].selected)
		{
		 yogunluk=Lagrange(Sicak,Yogun,document.cazibe.Sicaklik.value ,21)
		 vizk=Lagrange(Sicak,KVzk,document.cazibe.Sicaklik.value ,21)
		} 
	else
		{
		 yogunluk=Lagrange(Sicak,Yogun,23,21)
		 vizk=Lagrange(Sicak,KVzk,23 ,21)
		} 
	

	  if (document.cazibe.boru_cinsi.options[0].selected)
	  {
	  col1=0.00002
	  kut1=0.1
	  man1=0.008
	  haz1=149
	  }  
	  if (document.cazibe.boru_cinsi.options[1].selected)
	  {
	  col1=0.0015
	  kut1=0.35
	  man1=0.012
	  }  
	  if (document.cazibe.boru_cinsi.options[2].selected)
	  {
	  kut1=0.1
	  man1=0.008
	  }  
	  if (document.cazibe.boru_cinsi.options[3].selected)
	  {
	  col1=0.001
	  haz1=149
	  }  
	  if (document.cazibe.boru_cinsi.options[4].selected)
	  {
	  col1=0.000045
	  }  
	  if (document.cazibe.boru_cinsi.options[5].selected)
	  {
	  col1=0.0001
	  }

  if (document.cazibe.debi_birim.options[0].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/1000/(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  
  if (document.cazibe.debi_birim.options[1].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/3600/(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  
  if (document.cazibe.debi_birim.options[2].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/3600/yogunluk /(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  
  if (document.cazibe.debi_birim.options[3].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  
  if (document.cazibe.debi_birim.options[4].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/3600/1000/(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  
  if (document.cazibe.debi_birim.options[5].selected)
  {
  document.cazibe.hiz_d.value=4*document.cazibe.debi.value/yogunluk /(Math.PI*document.cazibe.iccap.value*document.cazibe.iccap.value/1000000)
  }  


  document.cazibe.T4.value=ReynoltSayisi(document.cazibe.hiz_d.value, document.cazibe.iccap.value/1000, vizk)

  if (document.cazibe.formul.options[0].selected)
  {
  document.cazibe.T3.value=colebrookeKayip(document.cazibe.hiz_d.value,document.cazibe.iccap.value/1000,col1,vizk)
  }	
  if (document.cazibe.formul.options[1].selected)
  {
  document.cazibe.T3.value=Hazzen(document.cazibe.hiz_d.value,haz1,document.cazibe.iccap.value/1000)
  }		
  if (document.cazibe.formul.options[2].selected)
  {
  document.cazibe.T3.value=Kutter(document.cazibe.iccap.value/1000,document.cazibe.hiz_d.value,kut1)
  }		
  if (document.cazibe.formul.options[3].selected)
  {
  document.cazibe.T3.value=ManningKayip(man1,document.cazibe.iccap.value/1000,document.cazibe.hiz_d.value)
  }		

  if (document.cazibe.kayip_birim.options[1].selected)
  {
  document.cazibe.T3.value=document.cazibe.T3.value*1000
  }		
  if (document.cazibe.kayip_birim.options[2].selected)
  {
  document.cazibe.T3.value=document.cazibe.T3.value* yogunluk* 9.81 * 0.00001
  }		
  if (document.cazibe.kayip_birim.options[3].selected)
  {
  document.cazibe.T3.value=document.cazibe.T3.value* yogunluk * 9.81 * 0.00001*1000
  }		
		
document.cazibe.T3.value=Math.round(document.cazibe.T3.value*10000000)/10000000
document.cazibe.hiz_d.value=Math.round(document.cazibe.hiz_d.value*100)/100
document.cazibe.T4.value=Math.round(document.cazibe.T4.value*100)/100 
}