Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lisp Найти определитель матрицы порядка 2х2 и 3х3 http://www.cyberforum.ru/lisp/thread1036015.html
найти определитель матрицы порядка 2х2 и 3х3.
Найти наибольший элемент матрицы 4х4 Lisp
найти наибольший элемент матрицы 4х4.
Lisp Разность между наибольшим и наименьшим элементом последовательности
с помощью функции map/map-into / reduce найти разность между наибольшим и наименьшим элементом последовательности
Lisp Найти среднее значение элементов последовательности с помощью функции map найти среднее значение элементов последовательности. http://www.cyberforum.ru/lisp/thread1036011.html
Lisp Найти наибольший по модулю элемент последовательности http://www.cyberforum.ru/lisp/thread1036010.html
с помощью функции map найти наибольший по модулю элемент последовательности.
Инвертирование списка и добавление в конец Lisp
Здравствуйте, очень нужна ваша помощь! Сижу на зачете и попалось задание с инвертированием списка, надо срочно сделать. Задание: инвентировать первіе четире елемента и добавить в конец спасибо
Lisp Добавить в конец списка его инвертированую копию
Добавить в конец списка его инвертированую копию. Помогите пожалуйста, горит...
Lisp Удаление елементов со списка Помогите решить задание: Из линейного списка нужно удалить элеметы с позиции N до M. http://www.cyberforum.ru/lisp/thread1035600.html
Lisp инвертирование линейного списка http://www.cyberforum.ru/lisp/thread1035591.html
Ребят, помогите кто чем может. Заранее спасибо. Первые четыре элемента линейного списка инвертировать и добавить к хвосту.
Lisp Работа со списками Доброго времени суток, очень нужна ваша помощь. Необходимо решить несколько задач: 1) Добавить в конец списка его инвертированную копию. 2) Первые четыре элемента линейного списка инвертировать и... http://www.cyberforum.ru/lisp/thread1035175.html
Catstail
Модератор
24403 / 12339 / 2244
Регистрация: 12.02.2012
Сообщений: 20,054
10.12.2013, 18:21 0

Определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора

10.12.2013, 18:21. Просмотров 1162. Ответов 1
Метки (Все метки)

Ответ

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
;; Сложение векторов
 
(defun add-vect (v1 v2)
  (mapcar #'(lambda (x) (apply '+ x)) (mapcar 'list v1 v2)))
 
==> add-vect
 
(add-vect '(1 2 3) '(4 5 6))
 
==> (5 7 9)
 
;; Вычитание 
 
(defun sub-vect (v1 v2)
  (mapcar #'(lambda (x) (apply '- x)) (mapcar 'list v1 v2)))
 
==> sub-vect
 
(sub-vect '(1 2 3) '(4 5 6))
 
==> (-3 -3 -3)
 
;; умножение на скаляр
 
(defun sm-vect (s v)
  (mapcar #'(lambda (x) (* x s)) v))
 
==> sm-vect
 
(sm-vect 3 '(1 2 3 4))
 
==> (3 6 9 12)
 
;; скалярное произведение
 
(defun sc-vect (v1 v2)
 (apply '+ (mapcar #'(lambda (x) (apply '* x)) (mapcar 'list v1 v2))))
 
==> sc-vect
 
(sc-vect '(1 2 3) '(4 5 6))
 
==> 32
 
;; модуль вектора
 
(defun vmod (v)
  (sqr (reduce #'(lambda (a x) (+ a (* x x))) v :initial-value 0)))  
 
==> vmod
 
(vmod '(1 2 3))
 
==> 3.74165738677394


Вернуться к обсуждению:
Определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2013, 18:21

Определить угол между заданными векторами по формуле и вычислить скалярное произведение этих векторов
Заданы два вектора х = (x1, x2, x3, x4), y = (y1, y2, y3, y4). Определить угол a между векторами x...

Сложение, скалярное и векторное произведение векторов
Разработать программу с интерфейсом в среде программирования Lazarus. 9.5. Создать класс вектор...

Вычислить сумму, разность и скалярное произведение векторов
Задать размерность задачи. Ввести два вектора. Вектора – динамические массивы. Вычислить сумму,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru