Передача дискретной информации и телеграфия. Бажанов В.Л. - 10 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

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

Рубрика: 

10
215 X(i - k2) = XX: Y(i - k2) = Fx: Z(i - k2) = YY ' Заполнение массивов для
построения графиков.
220 NEXT i
222 Pok = Wc / Wf ' Показатель эффективности фильтрации
224 REM ********************
226 LOCATE 15, 2
227 PRINT "Массив значений заполнен на 100%. Нажмите любую клавишу..."
229 IF INKEY$ = "" THEN 229 ‘ Ожидание нажатия
230 GOSUB 290: END
286 REM --- ПОДГОТОВКА К ВЫВОДУ ГРАФИКА ---
288 REM ПОИСК ЭКСТРЕМУМОВ МО- мин, М1- мах
290 M0 = X(1): M1 = M0
295 k = k2 + 1
300 FOR i = 1 TO k
302 IF M0 > X(i) THEN M0 = X(i)
304 IF M1 < X(i) THEN M1 = X(i)
306 IF M0 > Y(i) THEN M0 = Y(i)
308 IF M1 < Y(i) THEN M1 = Y(i)
310 IF M0 > Z(i) THEN M0 = Z(i)
312 IF M1 < Z(i) THEN M1 = Z(i)
320 NEXT i
325 REM график Х
330 CLS : SCREEN 12: PRINT TAB(35); "Графики "
340 LOCATE 3, 5: PRINT "Квадр. оценки: Wс = "; Wс; " Wf = "; Wf; "
Показатель Pok = "; Pok
400 VIEW (30, 75)-(565, 350)
420 WINDOW (1, M0)-(k, M1)
490 PSET (1, X(1))
500 FOR i = 2 TO k
505 PSET (i - 1, X(i - 1))
510 LINE -(i, X(i))
513 PSET (i - 1, Y(i - 1))
515 LINE -(i, Y(i))
517 PSET (i - 1, Z(i - 1))
520 LINE -(i, Z(i))
530 NEXT i
532 LOCATE 25, 5
533 PRINT "-" + CHR$(26) + " " + CHR$(27) + "-"; " - просмотр значений; Enter
- завершить.";
535 LINE (1, M0)-(1, M1): k1 = 1: GOSUB 2000
540 k$ = INKEY$
542 IF LEN(k$) = 0 THEN 540 ELSE k3% = ASC(k$)
543 IF k3% = 13 THEN 1400
544 IF LEN(k$) <> 2 THEN 540
546 k2% = ASC(RIGHT$(k$, 1))
548 IF k2% = 77 THEN 555 ELSE GOTO 570

Страницы