Нахождение экспоненты акшон скриптом

[Countach]

Всем кому интересно как в калькуляторе запрограмирована экспонента e^x даю свой вариант

// exponent implementation 1.0 beta
// VARIABLES
// app=approximation
// coef=coeffecient
// num=numerator
// den=denominator
// x=power of exponent
// sum=sum of the parts
// res=result of num/den
x = text1;
appx = text2;
sum = 1+x;
for (coef=2; coef<appx; coef++) {
    for (i=1; i<coef; i++) {
        x = x*x;
    }
    num = x;
    temp_coef = coef;
    den = temp_coef;
    for (i=1; i<coef; i++) {
        temp_coef--;
        den = den*temp_coef;
    }
    res = num/den;
    sum = sum+res;
}
text3 = sum;