Математика в МР.

[GRAY_WOLF]

В справке не нашел, как извлечь из числа корень "n"- ой степени. Это возможно?

[ViNT]

Корень n степени из числа k есть число k в степени 1/n.
Если нет никаких глюков, должна сработать функция Pow, т.е. x:=pow(k,1/n).

[GRAY_WOLF]

Сообщение от ViNT

Корень n степени из числа k есть число k в степени 1/n.
Если нет никаких глюков, должна сработать функция Pow, т.е. x:=pow(k,1/n).

По идее x:=pow(3125,1/5); должно быть 5 , т.к. 5 ^ 5 = 3125, а в ответе 1 при любых значениях.

var x: real;
Begin
x:=pow(3125,1/5);
    DrawText(''+x, 0, 0);
    Repaint;    
    Delay(5000);
End. 


[ViNT]

Видимо, функция pow криво реализована.
Тогда нужно использовать такую формулу, с ней должно сработать: X^Y = exp(ln(X) * Y)

[GRAY_WOLF]

Сообщение от ViNT

Видимо, функция pow криво реализована.
Тогда нужно использовать такую формулу, с ней должно сработать: X^Y = exp(ln(X) * Y)

Так с возведением целых чисел проблем нет.
Есть хороший материал по этой теме пожалуйста сделай библиотеку математических функций. А то в Lib_dbl нет таких функций, на форуме она старая.

[ViNT]

Библиотеку пока написать не могу, времени нет совсем.
Могу предложить такую функцию (для целых чисел):

function root(a:integer;n:Integer):real;
var r: real;
begin
 r:=exp(log(abs(a))/n); 
 if a<0 then root:=-r else root:=r
end; 


Переписал для вещественных:

function root(a:real;n:real):real;
var r: real;
begin
 if a<0 then a:=-a;
 r:=exp(log(a)/n);            
 if a<0 then root:=-r else root:=r  
end; 


[Bruteo]

Сообщение от GRAY_WOLF

По идее x:=pow(3125,1/5); должно быть 5 , т.к. 5 ^ 5 = 3125, а в ответе 1 при любых значениях.

Возможно, дело в использовании режима Floating point, который не на всех телефонах даёт правильные результаты при расчётах.

[impersonalis]

1/5=0
1/5.0 не?

[GRAY_WOLF]

Сообщение от Bruteo

Возможно, дело в использовании режима Floating point, который не на всех телефонах даёт правильные результаты при расчётах.

Проверял только на эмуляторе КЕ.

[ViNT]

Сообщение от impersonalis

1/5=0
1/5.0 не?

Да, как ни странно, в MP все не как в паскале, и там действительно 1/5=0.
И нафига это сделано, там и так есть div для целочисленого деления.

[GRAY_WOLF]

помогите разобраться с http://forum.boolean.name/showthread.php?t=12895
если вводишь число с запятой, то получается результат "0"...

[Banan]

если вводишь число с запятой, то получается результат "0"...

ну правильно, я делал только под целые числа. Но есть исходник, можно легко доработать и под дробные

[GRAY_WOLF]

Вот если б я знал как это сделать, то и не задавал такой вопрос. На примере можно пояснить?

[Igor]

var a:real;
...a:=1;
a:=a/5; вроде должно работать.
И ещё косяк - если создать, например, константу pi=3.1415 то в результате pi может оказаться другим, потому мне приходилось создавать переменную pi, а потом присваивать это значение.

[cherepets]

У меня с математикой тоже забавный глюк есть и хз как его обойти.

for i:=1 to 10 do
if textwidth(names[i])>long then long:=textwidth(names[i]); 


Есть массив имён (10 штук). Надо в переменную long забить самую большую длину имени в пикселях.
Прикол в том, что textwidth(names[i])>long ВСЕГДА ВЕРНО!

Вывожу значения прямо перед проверкой, вижу:
textwidth = 8, long = 15.
Но результат сравнения прежний: (textwidth>long).

Какие есть идеи обхода этой засады?