Логический синтез дискретных систем управления. Чикуров Н.Г. - 129 стр.

UptoLike

ВУЗ: 

УГАТУ | Уфа

Составители: 

Рубрика: 

128
Приложение
Программа минимизации логических функций на алгоритмическом языке
GWBASIC
10 REM Программа минимизации логических функций с учетом
безразличных состояний.
20 REM Разработана ст. гр. АТП-509 Башиным С.В.
30 REM УГАТУ 2001г.
40 CLS:PRINT"введи порядок":INPUT N
50 PRINT "кол-во обязательных состояний ":INPUT Q
60 PRINT "кол-во запрещенных состояний ":INPUT P
70 DIM G(Q):DIM X(Q)
80 DIM D(2^N):DIM Z(2^N):DIM A(N):DIM P(N):DIM B(N,P+1):DIM
O(N,Q+1)
90 FOR I=1 TO 2
100 IF I=1 THEN S=Q ELSE S=P
110 FOR J=1 TO S
120 IF I=1 THEN PRINT"введите обяз. сост. номер ";J ELSE PRINT"введите
запрещенные сост. номер "J
130 INPUT K
140 IF I=1 THEN D(K)=1 ELSE D(K)=2
150 NEXT J
160 NEXT I
170 FOR L=0 TO 2^N
180 IF D(L)<>1 THEN GOTO 1390
190 P1=0
200 FOR L1=0 TO 2^N
210 IF D(L1)<>2 THEN GOTO 350
220 P1=P1+1
230 FOR I=1 TO N
240 S=INT(L/2^(I-1))
250 IF S/2<>INT(S/2) THEN T1=1 ELSE T1=0
260 S=INT(L1/2^(I-1))
270 IF S/2<>INT(S/2) THEN T2=1 ELSE T2=0
280 REM PRINT"№ "L" перем "I" = "T1,"№ ="L1" перем"I"="T2
290 IF T2<>T1 THEN B(I,P1)=1 ELSE B(I,P1)=0
300 REM IF T2<>T1 THEN PRINT"t1<>t2" ELSE PRINT"t1=t2"
310 NEXT I
320 REM FOR I=1 TO N:PRINT B(I,P1);:NEXT I
330 REM PRINT
340 IF P1=P THEN GOTO 360
350 NEXT L1
360 P1=0

Страницы