Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ArcCos x(квадрат) [D2005, 2000]

azl © (2006-12-13 18:31:00)
Здравствуйте, мастера. Помогите правильно записать ArcCos x в квадрате. Использую модуль Math.
Пишу:
var z : Real; либо z: Extended; begin z := ArcCos(sqr(x)); ... end;Выдается ошибка Invalid floating point operation.

Даже если просто вычисляю ArcCos(x)

z := ArcCos(x) //тоже выдается ошибка

Как это побороть можно?
Спасибо.

azl (2006-12-13 20:35:00) [1]

> Alx2

Спасибо большое.
Это не мое задание, просто студентка одна попросила решить. А опечатка там или нет, я не знаю.
Вроде бы работает. Ответ выдает такой: -11,8442912098953

procedure TForm1.Button1Click(Sender: TObject); const a=0.94; x=10.093; var z: real; begin z:=-sqr(ln(x+sqrt(sqr(x)-1))) - a * sqrt(x) + (exp(3 * ln(Sin(Pi / 2 + a)))) / Log10(2 * x); Label1.Caption := FloatToStr(z); end;

Alx2 (2006-12-13 20:29:00) [2]
>azl ©

Вместо ArcCos(x)^2
написать
- sqr(ln(x+sqrt(sqr(x)-1)))

Но важно еще и другое: возможно, в задании опечатка со значением x=10..
Правда, если с комплексными функциями уже работаете, то скорее всего, это нормально.

azl (2006-12-13 20:24:00) [3]
Забыл минус перед ln дописать

azl (2006-12-13 20:23:00) [4]
Нет, это опечатка. правильно - ArcCos. А я и не писал нигде abs(x) и сразу написал, что в квадрате, ArcCos(x)^2. > ArcCos x в квадрате.

Т.е. на паскале это можно записать так:
sqr(ln(x+sqrt(sqr(x)-1)))?
или
так sqr(ln(x+sqrt(sqr(x-1))))?

Alx2 (2006-12-13 20:12:00) [5]
Еще одна поправочка. arccos идет в квадрате. А это уже другой разговор.
Вот формула:
arccos(x)^2 = - ln(x+sqrt(x^2-1))^2

Alx2 (2006-12-13 19:50:00) [6]
Поправочка: не для abs(x)>1, а для x>1

Alx2 (2006-12-13 19:49:00) [7]
Если не описка, то это значение для abs(x)>1 есть 0.
При x по модулю больше единицы весь arccos(x) сидит на комплексной оси

Alx2 (2006-12-13 19:43:00) [8]
>azl © (13.12.06 19:35) [7]

Именно ArcCosr? То есть "r" в конце?
Значит, имеется в виду вещественное значение главной ветви арккосинуса?
Или все-таки описка?

azl (2006-12-13 19:35:00) [9]
Понимаю, так а как же быть? Задание такое мне дали.
Записать арифметическое выражение:

Z = ArcCosr(x)в квадрате -a* sqrt(корень)(x) + (sin в кубе(Pi/2+a))/lg2x
при а = 0.94 и х =10.093

На Visual Basic это выглядит так:

Private Sub Command1_Click() Dim z As Single Const a = 0.94, x = 10.093, p = 3.14 z = Cos(x) ^ 2 - a * Sqr(x) + (Sin(p / 2 + a) ^ 3) / Log(2 * x) Text1.Text = z End Sub Private Sub Command2_Click() End End Sub
Не знаю, работает это или нет, т.к. не знаю Visual Basic, но говорят, что работает.

Я пишу так:
const
a = 0,94; b = 10,093;
var
z: real;
begin
z := ArcCos(sqr(x)) - a * sqrt(x) + (exp(3 * ln(Sin(Pi / 2 + a)))) / Log10(2 * x);
Label1.Caption := FloatToStr(z);
end;
Если пишу вместо ArcCos - просто Cos, все работает.

SergP (2006-12-13 19:12:00) [10]
abs(x) не может превышать 1 (в мирное время)
В военное может быть не более 4.
:-)

Alx2 (2006-12-13 19:10:00) [11]
>azl © (13.12.06 18:59) [4]
>Const
> x=10,093

На вещественных числах косинус принимает значение от -1 до 1.
Вы же ищете вещественное число, на он бы принял значение 10 с хвостиком.
Т.е. желаете странного

azl (2006-12-13 18:59:00) [12]
Почему ошибка? Я просто в пример забыл дописать X. А так я это писал в программе.

azl (2006-12-13 18:58:00) [13]
Да, забыл написать
Const x=10,093

Jeer (2006-12-13 18:36:00) [14]
x не инициализирован

Рамиль (2006-12-13 18:35:00) [15]
Случаем abs(x)>1 ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »