25 / 25 / 11
Регистрация: 13.12.2011
Сообщений: 818
1

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

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

с помощью фукнций map/ map-into / reduce определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.12.2013, 17:15
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
Эксперт функциональных языков программированияЭксперт Python
33188 / 18511 / 3903
Регистрация: 12.02.2012
Сообщений: 31,088
Записей в блоге: 12
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2013, 18:21
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru