3d Вращение Точки

  • Автор темы Atom
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

Atom

#1
Я написал код (не спрашивайте, что за язык) но почему-то работает он некорректно, помогите найти ошибку:

Procedure pRollPoint3d(cx.f, cy.f, cz.f, rx.f, ry.f, rz.f)
lcx = cx
lcy = cy
lcz = cz
r.f = pGetRadiusVector3d(lcx, lcy, lcz)
lcx = lcx/r
lcy = lcy/r
lcz = lcz/r
a.f = 0.0
If r > 0.0
If rx > 0.0
a = pGetAngle(lcy, lcz) ;Функция pGetAngle возвращает угол, если известен синус и косинус
lcy = pGetCos(pFormatAngle(rx+a)) ;Функция pFormatAngle возвращает угол сокращая число витков до нуля.
lcz = pGetSin(pFormatAngle(rx+a))
EndIf
If ry > 0.0
a = pGetAngle(lcz, lcx)
lcz = pGetCos(pFormatAngle(ry+a))
lcx = pGetSin(pFormatAngle(ry+a))
EndIf
If rz > 0.0
a = pGetAngle(lcx, lcy)
lcx = pGetCos(pFormatAngle(rz+a))
lcy = pGetSin(pFormatAngle(rz+a))
EndIf
EndIf
lcx = lcx*r
lcy = lcy*r
lcz = lcz*r
EndProcedure
 
W

Whatka

#3
Я написал код (не спрашивайте, что за язык) но почему-то работает он некорректно, помогите найти ошибку:
Ты вообще думаешь,что ты пишешь?????
Как можно найти ошибку в неизвестном языке??
Учитывая то что в одном языке ошибка в другом нет
+
Незная что делают команды

То же самое,если бы тебя судили в одной стране ,а дали адвоката,знающего законы другой станы.
 
A

Atom

#4
ошибка не в синтаксисе, все знают английский язык, думаю это проще простого догадаться, что такое if endif, procedure, и прочее

Добавлено: да, просто я не туда обратился, это форум программистов, а не форум вектористов?
 
Статус
Закрыто для дальнейших ответов.