> 1 <

Автор Сообщение

tonir37

Members


Статус

2 сообщений

Где: Russia
Род занятий:
Возраст:

#7495   2015-01-20 01:29 GMT+3 часа(ов)      
Помогите пожалуйста

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7496   2015-01-23 02:14 GMT+3 часа(ов)      
(defun add-lists (w v)
(cond ((null w) nil)
(t (cons (+ (car w) (car v))
(add-lists (cdr w) (cdr v))))))
 
(defun add-matrices (w v)
(cond ((null w) nil)
(t (cons (add-lists (car w) (car v))
(add-matrices (cdr w) (cdr v))))))
 
> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))
((2 4 6) (8 10 12) (14 16 18))
 

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7497   2015-01-23 02:14 GMT+3 часа(ов)      
(defun add-lists (w v)
(when w (cons (+ (car w) (car v))
(add-lists (cdr w) (cdr v)))))
 
(defun add-matrices (w v)
(when w (cons (add-lists (car w) (car v))
(add-matrices (cdr w) (cdr v)))))
 
> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))
((2 4 6) (8 10 12) (14 16 18))
 

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7498   2015-01-23 02:15 GMT+3 часа(ов)      
(defun add-matrices (w v)
(loop for a in w for b in v
collect (loop for c in a for d in b
collect (+ c d))))
 
> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))
((2 4 6) (8 10 12) (14 16 18))
 

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7499   2015-01-23 02:15 GMT+3 часа(ов)      
(defun add-matrices (w v)
(loop for a in w for b in v collect (mapcar #'+ a b)))
 
> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))
((2 4 6) (8 10 12) (14 16 18))
 

_sg

Members


Статус

42 сообщений

Где: Russia
Род занятий:
Возраст:

#7500   2015-01-23 02:15 GMT+3 часа(ов)      
(defun add-matrices (w v)
(mapcar #'(lambda (a b) (mapcar #'+ a b)) w v))
 
> (add-matrices '((1 2 3) (4 5 6) (7 8 9)) '((1 2 3) (4 5 6) (7 8 9)))
((2 4 6) (8 10 12) (14 16 18))
 

katerin

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7502   2015-01-25 18:59 GMT+3 часа(ов)      
Вот так у меня было



;Сложить две целочисленные матрицы размером не более 4
(defun Add_M(M1 M2)
(setq n (length M1))(setq Rez())
(do ((i 0 (1+ i)))((> i (1- n)) Rez)(setq L1 ())
(do ((j 0 (1+ j)))((> j (1- n)) L1)
(setq L1(append L1(cons (+ (nth j( nth i M1))(nth j(nth i M2)))())))
)(setq Rez (append Rez (cons L1()))))
(princ "Rez=")(princ Rez)(terpri)
)
;(load"D:\\LABA\\Add_M.lisp")
;(Add_M '((1 2)(2 3)) '((2 1)(1 2)))
;(Add_m '((1 2 3)(2 3 1)(3 2 1)) '((2 1 4)(1 2 3)(1 1 1)))
> 1 <


Онлайн :

0 пользователь(ей), 34 гость(ей) :