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

qiang22 · 发表于 2004-5-14 02:12:00

毕业设计，电气化铁道接触网的软横跨cad设计。我在编程时遇到了瓶颈，已知a1，a2,a3..........ak-1和q1,q2,q3.......qk-1.
求 m=q1a1+q2(a1+a2)+.......+qk-1(a1+a2+.....+ak-1)像这样的计算怎么用lisp语言实现呢？

meflying · 发表于 2004-5-14 08:32:00

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

copy


(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
)

龙龙仔 · 发表于 2004-5-14 14:07:00

;|
(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
   )
   )
)

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

发表回复

精选推荐