%183. oldal, 25. probléma
%Unger Tamás István (FTD1YJ)

%Egyszerû dolgunk van, hiszen ez a feladatkiírás is tele van súgással...

function [v, max_ns] = exp_approx_sequence(u)

v = zeros(size(u)); max_ns = zeros(size(u));
n = 0; %Inicializálunk két vektort, az egyikbe kerülnek a kiszámított
       %értékek, a másikba pedig a lépések száma. Plusz kell egy segéd-
       %counter is, ez az n.

for i = 1:length(u) %Végigfutunk a vektoron,
    %majd a vektor minden elemén elvégezzük a számítást, amíg az elvárt
    %módon kicsire nem csökken a járuléka a sornak.
    while(((u(i)^n)/factorial(n)) >= (1/10000))%Itt a feltétel.
        v(i) = v(i) + ((u(i)^n)/factorial(n)); %Itt a számítás.
        max_ns(i) = n;%Itt tárolom el a lépések számét.
        n = n + 1; %Itt pedig növelem a segédcountert.
    end
    n = 0; %Ha a vektor egy elemével végeztünk, nullázni kell a segédc-t.
end
%És ennyi, elvileg ez jó is.
end