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

[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;

;)

[[subway]design]

ты крут!
мне понравилось.

[Countach]

2[subway]design
пасибки ;)

Вот рабочая вещь
http://www.til-design.f2s.com/temp/exponent.swf

[Vaicartana]

что то я торможу. А чем обычный ехр не нравится?

[Big_J_]

:D Ты бы Countach еще Дональда Кнут взял да его алгоритмы во флеше риализовал ты реально абъесни людям зачем писать:


// 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;


Если во Флеше эта хрень одной строкой реализуется ???


X = Math.E//Передает значение 2.71828 переменной X


А если в степень експоненту поставить надобно то тогда так:


X = Math.pow(Math.E , Y);//Передает переменной X значение 2.71828 возведенную в степень Y.

И все. Ни читабельность ни страдает не функцыональность :)

[[subway]design]

я думаю, что прикола ради...
ксати, у тебя кривое округление:
2.70333

[Countach]

Ну вот, ничего вы не понимаете :( этож просто прикол, ну просто хотелось самому попробовать, и ж написал если кому интересно знать как в калькуляторе это запрограмировано ;)

Сразу наезд, злые вы какие-то

[Countach]

ЗЫ почему криво :(
вот мое вычисление при Х=1, appx=18
2.71828182845905

А вот windows calculator
2.71828182845904523536028747135266

Всё нормально, просто при малых appx неточно получается
задавай 18 и всё ок

[[subway]design]

Слушай, а ты можешь написать ф-цию для получения корня дробной степени (степенная функция)?
С удовольствием буду пользоваться :)

[[subway]design]

когда один раз вычислил, второй раз не работет. Приходится релоад жать.
PS: меня прикололо то, что ты просто обвешал переделанный мной исходник текстом и все! Даже кнопка моя осталась...
:D

[Countach]

1. :D зы кнопка мне не нравится переделаю, надо красива сделать :), насчет повторного вычисления сегодня поправлю :)

2. что там тебе запрограмировать, надо то?? а то блин мозгам хоца нагрузки дать, но завтра :)
А то сейчас PC Piano в ассемблее програмлю, красный от синего не отличу :p

[Countach]

Зы я по русски то их не знаю :)

sqrt((var)^(x/y)) ????
такое типа

Неее явно не это
блин в дет сад не отправляйте, и не ругайтесь, а лучше объясните, пока у меня MOV AX,BX ;)

[[subway]design]

неет, у тебя sqrt() - это ж квадратный корень, а надо x в степени 3/4, вот... Я сам пробовал, но дальше, чем на целый показатель степени не сдвинулся...

[Countach]

Чё просто X^(y/z) ????
Я на выходных зашарашу, зы надеюсь ;)

[[subway]design]

да, самое оно, жаль во Флеше нет оператора ^
Вот в КуБайсике - был!

[Countach]

Все гениально просто...(С) [subway]design 2001 ;) ты ж сам знаешь. Сделаю на днях, ну по крайней мере попробую :p

[Vaicartana]

[subway]design Блин, этж совсем просто. exp(b*ln(a))=a^b

Ну если вы опять все через одно место тыды ой.

[Countach]

Неееееееее там через Series expansion надо делать. Ждите проги ;)

[TLamer]

да самое интересное что во флеше есть оператор ^

вот так - то ))

[Countach]

2Vaicartana
каюсь, сори будет работать и так. Просто я через Ж. хотел сделать, но мне даже учитель посоветовал забыть про мои планы, если я не хочу мозги в трубочку завернуть :D

[Barmaglot]

И все бы хорошо, да только правильно возводит только в первую степень. :D

[Countach]

Блин внатуре неправильно :( :confused:

Мужики во флеше что нет встроенной math.ln(x) функции???
тока какое-то Г. типа
Math.LOG10E
Math.LOG2E
или как сказать что база будет Е (2.71) тут Math.log ( number )


Или как высчитать ln(x) умея считать экспоненту. У них вроде обратная зависимость
e^ln(x)=x
итд

блин не бросайте же плизз

[Barmaglot]

Math.log(x); //- натуратильный логарифм х;

Правда у меня во флэшэ он почемуто обозван - Журнал :D

[Countach]

каааааааак???? log its log, but ln is natural logarithm :(
Ну да ладно попробуем


А вот вроде нашел проблему в проге
теперь инфинити не выдает, но вот при Х=2 appx=18
результат такой 6.52444467698817e+50
это как понимать???

как сделать нормальный результат????

[Countach]

УРА
все баги исправлены!!! Выпущена версия 2.0 гамма :D
приносим многочисленным пользователям нашей программы свои извинения за баги :D счас через 10 мин вывешу

KEEP CHECKING :p

[[subway]design]

Нафига изобретать велосипед, если умные люди уже постарались, а потом этот велосипед до ума доводить?

мозги в трубочку...

[Barmaglot]

Это просту у нас и на западе у математиков написания этих функций различаются.

Вот еще примеры:
У нас У них
ln log
lg log10
tg tan
arctg atan
и т.д.

[Countach]

Блин!!! :mad: ну что за Г. уже при Х=10 видны небольшие отклонения от показаний Виндоус калькулятор, а при 100 там ВАЩЕ фигня получается :(

Люди будте снисходительны, не вводите значения Х больше 10 ;)

[Countach]

Пасибы мужики
Вот еще квесчон :) можно ли ln(x) высчитать с помощью e^x они ж обратные функции. Ну как же

2сабвэй
да запрограмлю сэдня завтра, не боись, может без супер наворотов. Мне не что-то для понта, просто интересно самому такое сделать

[[subway]design]

:D

[Countach]

:D Ага, счас на социологию пилить, как муд%;" сидеть буду, как озверею нафик, как запрограмлю :)

[Barmaglot]

function e(a) {
n = 1 << a;
s=1/n;
s++;
for (i=1; i<=a; i++) s=s*s;
return s;
};

function exp(x,a) {
res = e(a);
e2 = res;
for (i=1; i<x; i++) res *= e2;
if (x<0) res = 1/res;
return res;
};

Задавать значения "а" больше 30 не стоит
из-за ошибок округления
Конечно возведение в степень можно
оптимизировать, но лень. ;)

Вот результат вычисления exp(50)
5.18470359486491e+21 //Мой - exp(50,30);
5.1847055285871e+21 //Флэша - Math.exp(50);

[Barmaglot]

Вот немного ошибся в функции exp:
for (i=1; i<Math.abs(x); i++) res *= e2;

[Countach]

Вот это типа степенная функция??? Навалял на быструю руку, без наворотов, что-то там жестоко выходит :(
Ну вообщем чекните плиз
http://www.til-design.f2s.com/temp/power_function.swf
:)

[Vaicartana]

-10^1=NaN, да?

Нафига там function exponent (), если она не используется нигде?

[[subway]design]

кул!

[Countach]

Blin mugiki da ne sudite tak strogo :) eto ge DEMO VERSION :D
ps dlja X dejstvitel'no nel'zja zadavat' poka otricatel'nie znachenija. This feature is comming in my full version :) so far it is being disabled by the owners, because of copywrite reasons :D VO navorotil :)

PS I am sorry about ENG, but i have no RUS on this particular PC :(

2. Function exponent WILL be used in future, it is just there so far, I know it is not needed :)

[[subway]design]

No problem, Countach! No problem!