function [a b] = emx(x,n) % A függvény kétféleképpen közelíti e^(-x) értékét. % a) e^(-x) = 1 - x + x^2/2! - x^3/3! + ... % b) e^(-x) = 1 / (1 + x + x^2/2! + x^3/3! + ...) a = 1; % első közelítés a-ra (1 - x + x^2/2 - x^3/6 + ...) p = 1; % első közelítés b nevezőjére (1 + x + x^2/2 + x^3/6 + ...) for i=1:n s = x^i/factorial(i); a = a +(-1)^i*s; p = p + s; b = 1 / p; end end