ВУЗ:
Составители:
Рубрика:
21
218 X(i - k2) = XX: y(i - k2) = Fx: z(i - k2) = XW ' Для графиков.
220 NEXT i
224 REM ********************
226 LOCATE 15, 2
227 PRINT "Массив значений заполнен на 100%. Нажмите любую клавишу..."
229 IF INKEY$ = "" THEN 229
230 GOSUB 240: END
240 REM --- ПОДГОТОВКА К ВЫВОДУ ГРАФИКА ---
260 REM ПОИСК ЭКСТРЕМУМОВ МО- мин, М1- мах
270 M0 = X(1): M1 = M0
275 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 2: PRINT TAB(35); "Графики "
333 PRINT " Сумма квадратов отклонений Wp= "; Wp; " Wf= "; Wf; " Wv= "; Wv
350 ' PRINT " Уpовень искажений Sdop = "; Sdop
400 VIEW (5, 30)-(620, 170)
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 24, 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
549 REM курсор вправо
555 k1 = k1 + 1: IF k1 > k THEN 565