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

Скалярное произведение векторов без использования встроенных функций

01.06.2014, 20:16. Просмотров 1130. Ответов 2
Метки нет (Все метки)

Добрый день!прошу помочь решить задачу:
Вводим два вектора(списка) одинаковой длины. Найти скалярное произведение векторов (А,Б)=а1*б1+а2*б2+а3*б3+..
Перед этим сделать проверку на длины списка, если не равны, то выдать сообщение.
Заранее спасибо!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2014, 20:16
Ответы с готовыми решениями:

Определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора
с помощью фукнций map/ map-into / reduce определить функцию работы с векторами: Сложение векторов,...

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

Функция: вычисление наименьшего общего кратного без использования стандартных функций
Нужно написать функцию, которая вычисляет наименьшее общее кратное двух заданных на входе...

Удалить элементы первого списка по номерам второго списка без использования вспомогательных функций
Может кто знает классический вид функции удаление элементов списка по номерам второго списка.Важно...

Написание своих функций chr() и ord(), без использования встроенных функций
В общем, нужно написать эти две функции, которые будут являться аналогами встроенных. ...

2
Catstail
Модератор
24388 / 12328 / 2240
Регистрация: 12.02.2012
Сообщений: 20,024
01.06.2014, 21:02 2
Лучший ответ Сообщение было отмечено Stoker как решение

Решение

Цитата Сообщение от Stoker Посмотреть сообщение
без использования встроенных функций
- задача не решается (какими-то функциями воспользоваться придется).

Делать проверку "перед" нерационально. Лучше так:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
(defun sc-prod (x y)
  (cond ((and (null x) (null y)) 0)
        ((or (null x) (null y)) (print "ÄëèГ*Г* Г°Г*çëè÷Г*Г*") 0)
        (t (+ (* (car x) (car y)) (sc-prod (cdr x) (cdr y))))))
 
==> sc-prod
 
(sc-prod '(1 2 3) '(1 2 3))
 
==> 14
 
(sc-prod '(1 2 3) '(1 2 3 6))
 
"ÄëèГ*Г* Г°Г*çëè÷Г*Г*"
 
==> 14
А еще лучше вот так:

Lisp
1
2
3
4
5
6
7
8
9
(defun sc-prod (x y)
  (apply '+ (mapcar '* x y)))
 
 
==> sc-prod
 
(sc-prod '(1 2 3) '(1 2 3))
 
==> 14
1
Stoker
0 / 0 / 0
Регистрация: 11.10.2012
Сообщений: 3
01.06.2014, 21:45  [ТС] 3
Огромное спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2014, 21:45

Транспонировать матрицу без использования встроенных функций (')
По заданию необходимо транспонировать матрицу m x n без использования встроенной функции апостроф...

Программирование без использования встроенных функций matlaba
Доброго времени суток. Помогите пожалуйста с написанием 2 простых программ. 1) Необходимо...

Как заменить действиями без использования встроенных функций?
Подчёркнутое нужно заменить действиями без использования фун-ий Matlaba/// Амплитудный и фазовый...


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

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

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