求救：毕业设计，电气化铁道接触网cad设计

qiang22

毕业设计，电气化铁道接触网的软横跨cad设计。 我在编程时遇到了瓶颈，已知a1，a2,a3..........ak-1和q1,q2,q3.......qk-1.


求 m=q1a1+q2(a1+a2)+.......+qk-1(a1+a2+.....+ak-1)像这样的计算怎么用lisp语言实现呢？

meflying

其中list_a为'(a1 a2 a3 ... ak-1)list_q为(q1 q2 q3 ... qk-1)

2. (defun Add(list_a list_q / i j sum sum_tmp)
3.    (setq sum 0)
4.    (setq i 0)
5.    (repeat (length list_a)
6.        (setq sum_tmp 0)
7.        (setq j 0)
8.        (repeat (1+ i)
9.            (setq sum_tmp (+ sum_tmp (nth j list_a)))
10.            (setq j (1+ j))
11.        )
12.        (setq sum (+ sum (* (nth i list_q) sum_tmp)))
13.        (setq i (1+ i))
14.    )
15.    sum
16. )

(defun Add(list_a list_q / i j sum sum_tmp)    (setq sum 0)    (setq i 0)    (repeat (length list_a)        (setq sum_tmp 0)        (setq j 0)        (repeat (1+ i)            (setq sum_tmp (+ sum_tmp (nth j list_a)))            (setq j (1+ j))        )        (setq sum (+ sum (* (nth i list_q) sum_tmp)))        (setq i (1+ i))    )    sum )

龙龙仔

;|
(setq LST1 '(1 2 3))
(setq LST2 '(1 2 3))
(TT LST1 LST2)
|;
;;BY LUCAS
(defun TT (LST1 LST2)
(setq LST1 (append (list NIL) (reverse LST1)))
(setq LST2 (reverse LST2))
(apply '+
(mapcar '(lambda (X)
(setq LST1 (cdr LST1))
(* X (apply '+ LST1))
)
LST2
)
)
)