<<
>>

Приложение 2 Листинг программы вычисления значения Qiпо формуле (2.22)

(let ((x 0))

(defun fact(n)

(cond

((< n 2) 1)

(t (* n (fact (- n 1))))

)

)

(defun C(n i)

(cond

((< n i) 1)

(t (/ (fact n) (* (fact i) (fact (- n i)))))

)

)

(defun deg(n p)

(cond

((zerop p) 1)

(t (* n (deg n (- p 1))) )

)

)

(defun Q2(n_ l p n)

(let ((outer_sum 0) (inner_sum 0) (inner_term 0) (term 0) (i_max 0) (prod_C 0) (r_max 0) (i 0)) (cond

((< n_ (+ p (- l 1))) 0)

((> n_ (* p l)) 0)

((eq l 1) (deg n p))

(t

(setq outer_sum 0)

(setq i 1)

(if (< i (\ n_ p)) (setq i (\ n_ p)) nil)

(setq i_max (\ n_ l))

(loop

(if (> i i_max) (return outer_sum) nil)

(if (< (- n_ (* i l)) (- p i)) (return outer_sum) nil)

(setq prod_C 1)

(dotimes (j i prod_C)

(setq prod_C (* prod_C (C n l)))

)

(setq term (* prod_C (C p i)))

(setq r_max (- l 1))

(if (> r_max (- n_ (* i l))) (setq r_max (- n_ (* i l))) nil)

(setq inner_sum 0)

(dotimes (r r_max inner_sum)

(setq inner_sum (+ (Q2 (- n_ (* i l)) (add1 r) (- p i) n) inner_sum)) )

(setq term (* term inner_sum))

(setq outer_sum (+ outer_sum term))

(setq i (add1 i))

)

)

))

)

(defun sum_Q2(n_ n)

(let ((i 0) (s 0))

(setq s 0)

(dotimes (i n s)

(setq s (+ s (Q2 n_ (add1 i) n n)))

))

)

;;(defun P(n_ n l s) (/ (Q2 n_ l n n) s))

(defun T2(n n_ s)

(setq tt2 0)

(setq l 1)

(loop

(if (> l n) (return (/ tt2 n_)) nil)

(setq tt2 (+ tt2 (* l (/ (Q2 n_ l n n) s))))

(setq l (add1 l))

)

)

(defun main(n)

(let ((n_ 0) (tt2 0) (s 0))

(setq n_ n)

(loop

(if (> n_ (* 2 n)) (return 'done) nil)

(setq s (sum_Q2 n_ n))

(print n) (prints "") (print n_) (prints "")

(setq tt2 (T2 n n_ s))

(printline tt2)

(setq n_ (add1 n_))

))

)

)

<< | >>
Источник: Мохаммед Ажмаль Джамиль Абдо. МЕТОД, АЛГОРИТМ И УСТРОЙСТВО КОММУТАЦИИ С ПАРАЛЛЕЛЬНО-КОНВЕЙЕРНОЙ ДИСПЕТЧЕРИЗАЦИЕЙ ПАКЕТОВ В МАТРИЧНЫХ МУЛЬТИПРОЦЕССОРАХ. Диссертация на соискание ученой степени кандидата технических наук. КУРСК - 2019. 2019

Еще по теме Приложение 2 Листинг программы вычисления значения Qiпо формуле (2.22):

  1. Приложение 1 Листинг программы вычисления значения Q1nпо формуле (2.9)
  2. Приложение 4 Листинг программы PPP Switch Simulator, используемой для визуализации процесса моделирования КУ
  3. Приложение 3 Листинг функции управления контроллеров MC_j, используемых в Q-схеме на рис. 3.1
  4. Значение срочного рынка для экономики страны
  5. Значение рынка производных инструментов для экономики страны и история его развития
  6. ПРИЛОЖЕНИЕ В.
  7. ПРИЛОЖЕНИЕ Г.
  8. ПРИЛОЖЕНИЕ Е.
  9. ПРИЛОЖЕНИЕ Д.
  10. Приложения
  11. ПРИЛОЖЕНИЯ
  12. ПРИЛОЖЕНИЕ Б. Данные, полученные в ходе выполнения численных исследований
  13. Приложение А - Акт внедрения в производство
  14. Приложение В - Патент на изобретение №2612886
  15. Приложение Б - Акт внедрения в учебный процесс
  16. ПРИЛОЖЕНИЕ А. Данные, полученные в ходе выполнения экспериментальных исследований
  17. Алгоритмизация расчетов прочности, трещиностойкости и деформативности изгибаемых железобетонных элементов трапециевидного сечения
  18. Деформативность железобетонных балок трапециевидного сечения
  19. Оценка эффективности использования матрицы регистров коммутационного устройства
  20. Определение относительной плотности и пористости