// Zenbakizko Kalkulua Ingeniari Kimikoentzat
// OCW-EHU
// http://ocw.ehu.es/irakaskuntza-teknikoak/zenbakizko-kalkulua-ingeniari-kimikoentzat/Course_listing
// LANA 1: TANKE BATEN EMERGENTZIAZKO HUSTUKETA
// 3. URRATSA
// Asier Aranzabal


function T=denbora1(LH)
  //global D2 epsilon dents likat Hf V
  
  
  L=LH(1)
  H0=LH(2)
  
  D1=sqrt(4*V/3.1416/(H0-Hf))
  H=linspace(H0,Hf,100);
    
  t=ode(0,H0,H,deribatua2);
  T=t($)
  
endfunction