Определить угол между векторами

@darkofangel · Регистрация: 12.11.2012

Студворк — интернет-сервис помощи студентам

1.Даны два вектора с координатами (x1,y1,z1) и (x2,y2,z2)
определить угол между этими векторами.

@Pro_grammer · 12.11.2012, 13:13

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

прошу помчь с задачами

Это что, задачки по геометрии?
Тут у нас вроде как программирование на Basic

@darkofangel · 12.11.2012, 21:52 **[ТС]**

Дык вот сказали сделать это на Basic

@Pro_grammer · 13.11.2012, 08:00

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

сделать это на Basic

На каком? Насчитывается десятки реализаций языка Basic.
Вот тут наиболее известные, может мелькнёт знакомое название?

Applesoft BASIC
Integer BASIC
MacBASIC
GW-BASIC
Microsoft Small Basic
MSX BASIC
QBasic
QuickBASIC
Visual Basic (VBA, VBS, .NET)
Altair BASIC
BBC-basic
DarkBASIC
Gambas
Blitz3D
BlitzMax
FreeBASIC
KBasic
Liberty Basic
MobileBASIC
Play Basic
PowerBASIC
PureBasic
BASIC-256
Rapid-Q basic
REALbasic
Sinclair BASIC
Turbo Basic
Бейсик Вильнюс

@Quiet Snow · 13.11.2012, 10:20

BBC-basic

Не по теме:

Гринпис бейсик :D меня уронило просто)))

@darkofangel · 13.11.2012, 11:44 **[ТС]**

visual basic

Памирыч · 13.11.2012, 11:53

darkofangel,
... Script?
... 6.0?
... For Applications?
... .Net?

@Pro_grammer · 13.11.2012, 12:07

Сообщение от >Quiet Snow<

Гринпис бейсик меня уронило просто)))

Не по теме:

Зря смеёшься! Между прочим очень неплохой Бейсик этот BBC BASIC for Windows. Би-Би-Си плохого себе не закажет! Стоит $40, и делает полноценные приложения под винду, без всяких там дополнительных DLL.
Зацените:

@darkofangel · 13.11.2012, 13:43 **[ТС]**

скорей всего .net

@Казанский · 16.11.2012, 20:36

darkofangel, самое сложное в этой задаче - найти формулу для вычисления угла по координатам. Это вопрос по математике, а не по программированию. Выложите формулу - получите программу через 5 минут после того, как кто-нибудь из спецов просмотрит тему.

@Alex77755 · 20.11.2012, 20:58

Угол между двумя прямыми, заданными уравнениями: y=k1x+b1 (первая прямая) и y=k2x+b2 (вторая прямая), может быть вычислен по формуле (угол отсчитывается от 1й прямой ко 2й против часовой стрелки):
tg(?)=(k2-k1)/(1+k1k2)

Добавлено через 9 минут
Казанский,
А самое простое - тупо выложить задание и ждать!!!

Если прямая проходит через точки (, ), (, ), то ее угловой коэффициент определяется по формуле

k=(y2-y1)/(x2-x1)

@Казанский · 20.11.2012, 22:02

Собсно, задача сводится к нахождению угла треугольника по трем сторонам. Формулу можно взять отсюда:
https://www.cyberforum.ru/pascal/thread108724.html
Стороны: sqr(x1^2+y1^2+z1^2), sqr(x2^2+y2^2+z2^2), sqr((x1-x2)^2+(y1-y2)^2+(z1-z2)^2) - противолежащая.

Добавлено через 3 минуты
Да вот, кстати ссылка внизу:
Заданы два вектора. Определить угол между векторами

@Catstail · 24.11.2012, 22:27

Угол между векторами есть арккосинус их скалярного произведения, деленного на произведение модулей:

Visual Basic
1
2
3
4
Function Angle(x1 as double,x2 as double,x3 as double, _
                     y1 as double,y2 as double,y3 as double) as double
            Angle=acs((x1*y1+x2*y2+x3*y3)/sqr((x1^2+x2^2+x3^)*(y1^2+y2^2+y3^)))
End Function

@Апострофф · 25.11.2012, 07:51

Не по теме:

Catstail, acs ето кто?=-O

@Quiet Snow · 25.11.2012, 23:42

Апострофф, судя по всему это арккосинус, но его бы определить функцией))) не знаю насчёт VB,
но в QuickBasic арккосинуса нету. У меня дома есть политехнический словарик, там написано, как через
числовые ряды арккосинус получить. Через пару дней приеду напишу, можете конечно в инете пробить
мне просто лень, привык словариком пользоваться...

@Alex77755 · 25.11.2012, 23:44

Visual Basic
1
2
3
Public Function Arccos(ByVal X As Double) As Double
    Arccos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@darkofangel 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 7

	Определить угол между векторами 12.11.2012, 11:39. Показов 3571. Ответов 15 Метки нет (Все метки) 1.Даны два вектора с координатами (x1,y1,z1) и (x2,y2,z2) определить угол между этими векторами. 0

@darkofangel 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 7
	12.11.2012, 21:52 [ТС]
	Дык вот сказали сделать это на Basic 0

@darkofangel 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 7
	13.11.2012, 11:44 [ТС]
	visual basic 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	13.11.2012, 11:53
	darkofangel, ... Script? ... 6.0? ... For Applications? ... .Net? 0

@darkofangel 0 / 0 / 0 Регистрация: 12.11.2012 Сообщений: 7
	13.11.2012, 13:43 [ТС]
	скорей всего .net 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	16.11.2012, 20:36
	darkofangel, самое сложное в этой задаче - найти формулу для вычисления угла по координатам. Это вопрос по математике, а не по программированию. Выложите формулу - получите программу через 5 минут после того, как кто-нибудь из спецов просмотрит тему. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.11.2012, 20:58
	Угол между двумя прямыми, заданными уравнениями: y=k1x+b1 (первая прямая) и y=k2x+b2 (вторая прямая), может быть вычислен по формуле (угол отсчитывается от 1й прямой ко 2й против часовой стрелки): tg(?)=(k2-k1)/(1+k1k2) Добавлено через 9 минут Казанский, А самое простое - тупо выложить задание и ждать!!! Если прямая проходит через точки (, ), (, ), то ее угловой коэффициент определяется по формуле k=(y2-y1)/(x2-x1) 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	20.11.2012, 22:02
	Собсно, задача сводится к нахождению угла треугольника по трем сторонам. Формулу можно взять отсюда: https://www.cyberforum.ru/pascal/thread108724.html Стороны: sqr(x1^2+y1^2+z1^2), sqr(x2^2+y2^2+z2^2), sqr((x1-x2)^2+(y1-y2)^2+(z1-z2)^2) - противолежащая. Добавлено через 3 минуты Да вот, кстати ссылка внизу: Заданы два вектора. Определить угол между векторами 1

@Апострофф
	25.11.2012, 07:51
	Не по теме: Catstail, acs ето кто?=-O 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	25.11.2012, 23:42
	Апострофф, судя по всему это арккосинус, но его бы определить функцией))) не знаю насчёт VB, но в QuickBasic арккосинуса нету. У меня дома есть политехнический словарик, там написано, как через числовые ряды арккосинус получить. Через пару дней приеду напишу, можете конечно в инете пробить мне просто лень, привык словариком пользоваться... 0