EXPONENCIÁLNÍ FUNKCE

---

PROBLÉM

Vypočítat hodnotu E**X, kde E značí Eulerovo číslo e. Tuto funkci označujeme jako EXP. Je definována:

EXP(X)=1+X/FACT(1)+X**2/FACT(2)+...+X**N/FACT(N)+...

, kde FACT je funkce pro výpočet faktoriálu a X je reálné číslo.

IMPLEMENTACE

Jednotka: vnitřní funkce nebo vnější, ale pak bez procedure příkazu
 
Parametry: číslo X, přirozené číslo P - počet platných číslic v hodnotě EXP(X), implicitně 9
 
Vazby: funkce ECONST, pro P<=200 nebo funkce E pro P>200
 
Vrací: prvních P platných číslic EXP(X)

 

EXP: procedure parse arg X, P if P = "" then P = 9; numeric digits P Y = X % 1 if ABS(X - Y) > 0.5 then Y = Y + SIGN(X) X = X - Y Sum = 1; Term = 1 do J = 1   Term = Term * X / J; NewSum = Sum + Term   if NewSum = Sum then leave   Sum = NewSum end if Y = 0 then return Sum return (ECONST() ** Y) * Sum

 

PŘÍKLAD

EXP(2.1879653,16) vrací 8.917051119945531
VISUAL BASIC MsgBox(EXP(2.1879653)) zobrazí 8.91705111994553

SOUVISLOSTI

Eulerovo číslo e
Faktoriál
Přirozený logaritmus
Technika: Předem vypočtené konstanty
P+n trik Waltera Pachla v Reflexio

---