# Минимизирование булевой функции аналитически. Минимизирование логической функции. Составление программы моделирования схемы, страница 2

d1,d2,d3,d4,d5,d6,d,n,n2,a,i:integer;

deg,x:array[0..32] of integer;

FO:text;

NFO:string;

procedure KOD;

var b:integer;

begin

B:=A;

for i:=1 to N do

begin

if b>=deg[n-i] then

begin

b:=b-deg[n-i];x[i]:=1;

end

else x[i]:=0;

end

end;

begin

clrscr;

writeln('Imya vxodnogo faila?');

assign(FO,NFO);

rewrite(FO);

deg[0]:=1;

for i:=1 to 10 do

deg[i]:=deg[i-1]*2;

n:=5;

n2:=deg[n];

for A:=0 to n2-1 do

begin

kod;

for i:=1 to n do write(FO,x[i]:1);

d1:=(1-x[1])*(1-x[2])*x[3];

d2:=(1-x[1])*x[3]*(1-x[4])*x[5];

d3:=(1-x[3])*(1-x[4])*x[5];

d4:=(1-x[1])*(1-x[2])*(1-x[3])*x[5];

d5:=(1-x[1])*x[2]*(1-x[3])*(1-x[4])*x[5];

d6:=(1-x[1])*(1-x[3])*x[4]*x[5];

d:=1-(1-d1)*(1-d2)*(1-d3)*(1-d4)*(1-d5)*(1-d6);

write(FO,' ',d);

writeln(FO,' ');

end;

close(FO);

write('E N D');

end.

program abljam_2;

uses CRT;

var

F,y,n,n2,a,i:integer;

deg,x:array[0..32] of integer;

FO:text;

NFO:string;

procedure KOD;

var b:integer;

begin

B:=A;

for i:=1 to N do

begin

if b>=deg[n-i] then

begin

b:=b-deg[n-i];x[i]:=1;

end

else x[i]:=0;

end

end;

begin

clrscr;

writeln('Imya vxodnogo faila?');

assign(FO,NFO);

rewrite(FO);

deg[0]:=1;

for i:=1 to 10 do

deg[i]:=deg[i-1]*2;

n:=5;

n2:=deg[n];

for A:=0 to n2-1 do

begin

kod;

for i:=1 to n do write(FO,x[i]:1);

F:=(1-x[1])*(1-x[2])*x[3]+(1-x[1])*x[3]*(1-x[4])*x[5]+(1-x[3])*(1-x[4])*x[5]+

(1-x[1])*(1-x[2])*(1-x[3])*x[5]+(1-x[1])*x[2]*(1-x[3])*(1-x[4])*x[5]+

(1-x[1])*(1-x[3])*x[4]*x[5];

if F>=1 then

begin

y:=1;

end

else y:=0;

write(FO,' ',y);

writeln(FO,' ');

end;

close(FO);

write('E N D');

end.

Результаты счета :

 a b c d e F 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 0 0 1 1 1 0 0 1 0 0 1 0 0 1 0 1 1 0 0 1 1 0 1 0 0 1 1 1 1 0 1 0 0 0 1 0 1 0 0 1 0 0 1 0 1 0 0 0 1 0 1 1 1 0 1 1 0 0 0 0 1 1 0 1 1 0 1 1 1 0 0 0 1 1 1 1 0 1 0 0 0 0 0 1 0 0 0 1 1 1 0 0 1 0 0 1 0 0 1 1 0 1 0 1 0 0 0 1 0 1 0 1 1 1 0 1 1 0 0 1 0 1 1 1 0 1 1 0 0 0 0 1 1 0 0 1 0 1 1 0 1 0 0 1 1 0 1 1 0 1 1 1 0 0 0 1 1 1 0 1 0 1 1 1 1 0 0 1 1 1 1 1 0

Задание 5.Составить программу моделирования схемы и сравнить полученные в результате моделирования значения и заданные.

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

Задание 6.Определить характеристики разработанной схемы (потребляемая мощность, быстродействие).

а) Потребляемая мощность всей схемы определим как сумму мощностей рассеивания каждого  элемента:

=2*26+1*82.5+2*55+165=409.5 мВт

б) Быстродействие определяется путем определения максимального пути от входа к выходу. Для данной схемы глубина равна 3 ,т. к. запаздывание во всех микросхемах составляет 18.5, то :

= 18,5*3=55,5 нс

Математическая модель разработанной схемы.

Список использованной литературы

1.  Інтегральна електроніка у вимірювальних пристроях./ Дергачов В. А., Чумаченько І. В., Анікін  А. М. – Харків, ХАІ, 1999.

2.  Бирюков С. А. Применение интегральных микросхем  серий ТТЛ. – М.: «Радио», 1992. -  120 с.

3.  Зубчик В. И., Сигорский В. П., Шкуро А. Н. справ очник по цифровой схемотехнике. – К.: Техніка, 1990. – 448 с.

4.  Скаржепа В. А., Луценко А. Н. Электроника и микросхемотехника.  Ч. 1 Электронные устройства промышленной автоматики / Под общ. ред. А. А. Краснопрошиной. -  К.: Вища шк., 1989. – 431 с.