// Zenbakizko Kalkulua Ingenieri Kimikoentzat
// OCW-EHU
// http://ocw.ehu.es/irakaskuntza-teknikoak/zenbakizko-kalkulua-ingeniari-kimikoentzat/Course_listing
// 4. gaia: Ekuazio Diferentzial Arruntak
// Ariketa 4_1
// Asier Aranzabal


//"Euler" algoritmoa ekuazio diferentzial arruntak ebazteko balio du,zeina Euler metodoa erabiltzen duen.
//mugalde baldintzak ezagutu behar direnez emaitza zenbakia izango da.
//malda ezaguturik,gehikuntza finitoen bitartez y puntuko balioa estrapolatzen da.
//sartu beharreko datuak:ekuazio diferentziala(fune),hasierako balioak(x0,y0),pausoa(h) eta bukaereko balioa(xbuk).

function emaitza=Euler(x0,y0,h,xbuk,fune)
i=0;
while x0<xbuk;
   i=i+1;
   f1=feval(x0,y0,fune);
   y1=y0+f1*h;
   x(i,1)=x0;
   y(i,1)=y1;
   y0=y1;
   x0=x0+h;
   emaitza=[x y];
end
endfunction

   
   
   // SCILAB