Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lisp
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Mashka_mulashka
24 / 24 / 11
Регистрация: 13.12.2011
Сообщений: 817
1

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

10.12.2013, 17:15. Просмотров 1132. Ответов 1
Метки нет (Все метки)

с помощью фукнций map/ map-into / reduce определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2013, 17:15
Ответы с готовыми решениями:

Найти скалярное произведение векторов
Сформировать в виде файла два вектора размерности не более 8, найти их скалярное произведение и...

Скалярное произведение векторов без использования встроенных функций
Добрый день!прошу помочь решить задачу: Вводим два вектора(списка) одинаковой длины. Найти...

Дополните пожалуйста эти методы! скалярное произведение векторов, умножение на скаляр, сравнение векторов, сравнение
public class VectorTricks { public static void main(String args) { Vector v1 = new...

создание, сложение, вычитание векторов, скалярное и векторное умножение векторов
Есть задание по курсовой работе: надо разработать классы для реализации операций векторной...

Скалярное произведение векторов(косинус), разность векторов
Кто понимает, объясните, пожалуйста, как вы понимаете, почему две формулы - для скалярного...

1
Catstail
Модератор
24270 / 12239 / 2206
Регистрация: 12.02.2012
Сообщений: 19,866
10.12.2013, 18:21 2
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. Создать класс вектор...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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