Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Помогите разобраться с sin cos
nykep
сообщение 23.4.2019, 21:58
Сообщение #1


****

Apprentice
Сообщений: 233
Регистрация: 1.9.2012
Группа: Пользователи
Наличность: 1196
Пользователь №: 15.246
Возраст: 25



хочу выразить катеты #a и #b через гипотенузу, но там че то не получается, по всякому пробовал записывать, но видимо из за дробей он не хочет считать. Как правильно записать чтоб он присвоил #a и #b целые значения после умножения гипотенузы на sin и cos?

Код
set #fog findcolor (#fogx1, #fogy1 #fogx2, #fogy2 1 1 (12225101-12291882) %fog 2 1 #pogr)  
if #fog > 0
    set #pogr 0
    set #x %fog [1 1]
    set #y %fog [1 2]

    set #x2 960 - #x
    set #y2 520 - #y

    set #gip1 power(#x2 2) + power(#y2 2)

    set #gip round(sqrt(#gip1))

    set $sin #y2 / #gip
    set $cos #x2 / #gip

    set #gip2 10000 / #gip

    set #a round($cos * #gip2)
    set #b round($sin * #gip2)
    //msg (#a     #b)
    //stop_script

    set #tupx #x - #a
    set #tupy #y - #b

    move #tupx, #tupy
    stop_script
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
nykep
сообщение 23.4.2019, 22:37
Сообщение #2


****

Apprentice
Сообщений: 233
Регистрация: 1.9.2012
Группа: Пользователи
Наличность: 1196
Пользователь №: 15.246
Возраст: 25



ладно я уже сам разобрался вроде
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
FREEON
сообщение 24.4.2019, 0:24
Сообщение #3


*****

Journeyman
Сообщений: 365
Регистрация: 14.2.2017
Группа: Пользователи
Наличность: 1316
Пользователь №: 18.346
Возраст: 25



Цитата(nykep @ 23.4.2019, 21:58) *

хочу выразить катеты #a и #b через гипотенузу, но там че то не получается, по всякому пробовал записывать, но видимо из за дробей он не хочет считать. Как правильно записать чтоб он присвоил #a и #b целые значения после умножения гипотенузы на sin и cos?

Код
set #fog findcolor (#fogx1, #fogy1 #fogx2, #fogy2 1 1 (12225101-12291882) %fog 2 1 #pogr)  
if #fog > 0
    set #pogr 0
    set #x %fog [1 1]
    set #y %fog [1 2]

    set #x2 960 - #x
    set #y2 520 - #y

    set #gip1 power(#x2 2) + power(#y2 2)

    set #gip round(sqrt(#gip1))

    set $sin #y2 / #gip
    set $cos #x2 / #gip

    set #gip2 10000 / #gip

    set #a round($cos * #gip2)
    set #b round($sin * #gip2)
    //msg (#a     #b)
    //stop_script

    set #tupx #x - #a
    set #tupy #y - #b

    move #tupx, #tupy
    stop_script


Целая куча специальных функций связанных с математическими вычеслениями:
https://uopilot.tati.pro/index.php?title=%D....81.D0.BB.D0.B0
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 18.4.2024, 18:49
Designed by Nickostyle