VPF::Перевод числа в градусы - Форум программистов

Serhik_z

Дата 5.3.2005, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как перевести выражение в градусы по косинусу.

Код


i:=137.2431843264
v:=(3*42)/(i-2*3); // получили число 0.960049854 - долно быть 16 градусов 15 мин
 v:=cos((v/pi)/180)*pi;// не получается     v:=arccos((v*pi)*180)/pi;// не проходит

Snowy

Дата 5.3.2005, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Если я еще помню математику, то градусы=радианы*180/pi
Соответственно 0.960049854 будет что-то в районе 55 градусов.

Serhik_z

Дата 5.3.2005, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Snowy - Спасибо.
Snowy - не совсем то, что мне нужно.
0.960049854 вводим в калькулятор виндосовский.
далее ставим галочку в lnv (обратная функция градусов) и нажимаем cos
получаем результат 16. 25 тоесть 16 градусов 15 минут
радианы - перевожу, а вот далее возникла делема.
ничего в голову не идет.

Код


i:=137.2431843264
v:=(3*42)/(i-2*3); // получили число 0.960049854 - долно быть 16 градусов 15 мин
v:=cos((v*pi)*180)/pi;//

по арктангенсу вычислял. Правильно.

Код


// вычисление
v:=arctan((t*z)/((w-t/2)*pi))*180/pi; // Угол наклона

Это сообщение отредактировал(а) Serhik_z - 5.3.2005, 15:18

Snowy

Дата 5.3.2005, 15:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

0.960049854 это значит у тебя значение косинуса.
И что ты хочешь из этого получить? Аккосинус в градусах?
Тогда так:

Код


v:=arccos(v)*180/pi;

Если не то, то сформулируй свой вопрос покорректней.
Какие у тебя исходные данные и что ты хочешь получить.

_hunter

Дата 5.3.2005, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

перевод градусов вида float в градусы вида град / мин / сек
coord = fabs(coord);
grad = floor(coord + 0.000000000001);
min = floor((coord - grad) * 60 + 0.000000000001);
sec = floor((coord - grad - min / 60.0) * 3600 + 0.5);
ну а радианы в градусы, думаю, сам переведеш

--------------------

Tempora mutantur, et nos mutamur in illis...

Serhik_z

Дата 5.3.2005, 17:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Snowy - Спасибо. smile

v:=arccos(v)*180/pi; - компилятор выдает ошибку на arccos
проходит только v:=cos(v)*180/pi;

_hunter

Дата 5.3.2005, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

Math подключил?

--------------------

Tempora mutantur, et nos mutamur in illis...

Serhik_z

Дата 5.3.2005, 19:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

hunter -

"Math" даже и не подумал о модуле.
Спасибо. Теперь все работает.
smile

так бы и долбился...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »