Помогите пожалуйста перевести эту формулу(без использования uses math)

@Winfer · Регистрация: 10.10.2012

Здравствуйте! Помогите пожалуйста перевести эту формулу(без использования uses math):
2arcsin²x3

Добавлено через 32 минуты
у меня получилась вот такая ересь, но Delphi не принимает это-

2*arctan(sqrt(1-(sqr(x*3))))

@Ales'hon'ne · 10.10.2012, 21:32

Не совсем понятно, что значит «x3» в вашей формуле, так что 2 варианта (надеюсь, ничего нигде не перепутал):
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(3x)=2\cdot\arctan^2\left(\frac{3x}{\sqrt{1-{(3x)}^2}}\right)$

Delphi

1	Result:=2sqr(arctan(3x/sqrt(1-sqr(3*x))));

$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(x^3)=2\cdot\arctan^2\left(\frac{x^3}{\sqrt{1-{(x^3)}^2}}\right)$

Delphi

1	Result:=2sqr(arctan(xxx/sqrt(1-sqr(xx*x))));

@Winfer · 10.10.2012, 22:19 **[ТС]**

Сообщение от Ales'hon'ne

Не совсем понятно, что значит «x3» в вашей формуле, так что 2 варианта:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?y=2\cdot\arcsin^2(3x)$

Delphi

1	Result:=2sqr(arctan(3x/sqrt(1-sqr(3*x))));

большое спасибо вам, да там 3 икс , (блин как то я с квадратом промахнулся

)!

Delphi

var x,y:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then begin showmessage('введите х');
edit1.setfocus end
else
begin
x:=strtofloat(edit1.text);
y:=(exp(sin(x)/cos(x))*ln(x-0.3))/((sqr(x))+0.1)+2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));
edit2.text:='y='+floatToStrf(y,fffixed,6,2);
end;
end;
end.

вот что вышло, при попытке расчета это программа выдает ошибку// " исключение класа EInvalidOp" с сообщением "Invalid floating point operation"

Добавлено через 17 минут
И еще вся формула у=(x-0.3)^tgx/(x²+0,1)+2arccos² 3x

@саша40 · 10.10.2012, 22:43

Не по теме:

Геометрические формулы связаные с синусами и тангенсами. Но как же всё это сложно.

11.10.2012, 04:09

Попытка извлечь корень из отрицательного числа:

y:=(exp(sin(x)/cos(x))*ln(x-0.3))/((sqr(x))+0.1)+2*sqr(arctan(3*x/sqrt(1-sqr(3*x))));

@Winfer · 11.10.2012, 21:25 **[ТС]**

Формула у=(x-0.3)tgx/(x2+0,1)+2arccos² 3x ( До того была ошибка: должно быть arccos a не arcsin )

Delphi

var x,y:real;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text=''then begin showmessage('введите х');
edit1.setfocus end
else
begin
x:=strtofloat(edit1.text);
y:=(exp(sin(x)/cos(x))*ln(x-0.3))/(sqr(x)+0.1)+2*(sqr(arctan(sqrt(1-(sqr(3*x))))/(3*x)));
edit2.text:='y='+floatToStrf(y,fffixed,6,2);
end;
end;
end.

упорно ничего не считает!! Посмотрите где может бить ошибка я уже почти все попробовал..

@Alex_pac · 11.10.2012, 21:38

госпади напиши пользовательскую функцию POWER

Delphi

function POWER(X,Y:double):double;
begin
  result:=exp(ln(X) * Y);
end;

@Winfer · 11.10.2012, 21:49 **[ТС]**

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

госпади напиши пользовательскую функцию POWER

Delphi

function POWER(X,Y:double):double;
begin
  result:=exp(ln(X) * Y);
end;

не пойму что это даст?!! Програма должна выглядеть именно так(без других функцый, в другом случае я бы с удовольствием использовал "math")!
Ошибка где то в этой строке

Delphi

1	y:=(exp(sin(x)/cos(x))ln(x-0.3))/(sqr(x)+0.1)+2(sqr(arctan(sqrt(1-(sqr(3x))))/(3x)));

и я не знаю где

@Alex_pac · 11.10.2012, 21:54

без других функцый, в другом случае я бы с удовольствием использовал "math"

это твоя функция она math не использует => ей можно и нужно пользоваться

@Winfer · 11.10.2012, 21:59 **[ТС]**

Был бы подфорум "Delphi для идиотов" зделал бы тему там! (не понял ни одного вашего слова!

magirus · 11.10.2012, 22:05

Не по теме:

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

Был бы подфорум "Delphi для идиотов" зделал бы тему там!

видимо вам придется ожидать появления такого раздела

11.10.2012, 22:10

to Winfer читаем внимательно.

@Winfer · 11.10.2012, 22:19 **[ТС]**

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

to Winfer читаем внимательно.

то есть эту формулу совсем не возможно выполнить?

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

Не по теме:

видимо вам придется ожидать появления такого раздела

Не по теме:
буду ждать=)

11.10.2012, 22:25

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

то есть эту формулу совсем не возможно выполнить?

А как ты себе представляешь извлечение корня из отрицательного числа?

@Winfer · 11.10.2012, 22:33 **[ТС]**

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

А как ты себе представляешь извлечение корня из отрицательного числа?

хм тогда я завтра завтра спрошу об етом того кто дал мне это задание!! (а вариант с тем что я неправильно перевел формулу в код delphi отпадает?)

@Winfer 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 11
	11.10.2012, 22:19 [ТС]	13
	Сообщение от angstrom to Winfer читаем внимательно. то есть эту формулу совсем не возможно выполнить? Сообщение от magirus Не по теме: видимо вам придется ожидать появления такого раздела Не по теме: буду ждать=) 0

@Winfer 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 11
	11.10.2012, 22:33 [ТС]	15
	Сообщение от angstrom А как ты себе представляешь извлечение корня из отрицательного числа? хм тогда я завтра завтра спрошу об етом того кто дал мне это задание!! (а вариант с тем что я неправильно перевел формулу в код delphi отпадает?) 0

@саша40
	10.10.2012, 22:43 #4
	Не по теме: Геометрические формулы связаные с синусами и тангенсами. Но как же всё это сложно. 0

angstrom
	11.10.2012, 04:09	5
	Попытка извлечь корень из отрицательного числа: y:=(exp(sin(x)/cos(x))ln(x-0.3))/((sqr(x))+0.1)+2sqr(arctan(3x/sqrt(1-sqr(3x))**));

@Alex_pac 1300 / 706 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	11.10.2012, 21:54	9
	без других функцый, в другом случае я бы с удовольствием использовал "math" это твоя функция она math не использует => ей можно и нужно пользоваться 0

@Winfer 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 11
	11.10.2012, 21:59 [ТС]	10
	Был бы подфорум "Delphi для идиотов" зделал бы тему там! (не понял ни одного вашего слова! 0

magirus
	11.10.2012, 22:05 #11
	Не по теме: Сообщение от Winfer Был бы подфорум "Delphi для идиотов" зделал бы тему там! видимо вам придется ожидать появления такого раздела 1

angstrom
	11.10.2012, 22:10	12
	to Winfer читаем внимательно.

angstrom
	11.10.2012, 22:25	14
	Сообщение от Winfer то есть эту формулу совсем не возможно выполнить? А как ты себе представляешь извлечение корня из отрицательного числа?