Показать сообщение отдельно
Старый 11.12.2001, 21:20
Countach вне форума Посмотреть профиль Отправить личное сообщение для Countach Найти все сообщения от Countach
  № 1  
Countach
 
Аватар для Countach

Регистрация: Mar 2001
Адрес: Cyprus, Nicosia
Сообщений: 795
Отправить сообщение для Countach с помощью ICQ
По умолчанию Нахождение экспоненты акшон скриптом

Всем кому интересно как в калькуляторе запрограмирована экспонента 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;
__________________
Кто рано встает, тому... спать весь день хочется.