Исследовать область определения и построить графики

DECLARE FUNCTION f2! (x!)
DECLARE FUNCTION f1! (x AS SINGLE)
' графики функций f1!(x) & f2!(x) заданые алгебраически
' параметры графического режима
' координаты графического окна
 CONST xg1 = 0, xg2 = 639
 CONST yg1 = 0, yg2 = 479
' номер графического режима
 CONST tscreen = 12
' номера цветов точек графиков
 CONST color1% = 2
 CONST color2% = 5
 DIM xa AS SINGLE, xb AS SINGLE ' область изменения аргумента
 DIM xstep AS SINGLE ' шаг аргумента
 ' мах и мин значения аргумета и функции
 DIM x1 AS SINGLE, x2 AS SINGLE, y1 AS SINGLE, y2 AS SINGLE
 DIM x AS SINGLE ' текеущее значение аргумента
 DIM y AS SINGLE ' текеущее значение функции
 DIM xg AS INTEGER ' текеущее значение "граф" аргумента
 DIM ytg1 AS INTEGER ' текеущее значение "граф" функции 1
 DIM ytg2 AS INTEGER ' текеущее значение "граф" функции 2
 DIM mx AS SINGLE, sx AS SINGLE 'масштаб и смещение по Х
 DIM my AS SINGLE, sy AS SINGLE 'масштаб и смещение по Y
' область задания интервала для аргумента и шаг
'
 xa = -5: xb = 10: xstep = .01
'
 ' расчет масштаба
 CLS
 PRINT "После просмотра графиков - нажмие ESC"
 PRINT "Расчет масштабов ... ";
 MyRow% = CSRLIN
 MyCol% = POS(0)
 k% = 1
 ' нахождение мин и мах значений "1" - min "2" - max
 x1 = xa: x2 = xb
 y1 = f1!(xa): y2 = f1!(xa)
 IF f2!(xa) < y1 THEN y1 = f2!(xa)
 IF f2!(xa) > y2 THEN y2 = f2!(xa)
 x = xa + xstep
 DO WHILE x <= xb
 IF f1!(x) <= y1 THEN y1 = f1!(x)
 IF f1!(x) >= y2 THEN y2 = f1!(x)
 IF f2!(x) <= y1 THEN y1 = f2!(x)
 IF f2!(x) >= y2 THEN y2 = f2!(x)
 x = x + xstep
 LOCATE (MyRow%), (MyCol%)
 IF k% = 1 THEN PRINT "" ELSE PRINT "/";
2
 k% = k% + 1: IF k% > 2 THEN k% = 1
 LOOP
 PRINT
 ' если хотими округляем мин и мах значения в сторону "рассширения"
 '''PRINT "Xmin="; x1, "Xmax="; x2, "Ymin="; y1, "Ymax="; y2
 '''IF x1 > 0 THEN x1 = INT(x1 - .5) ELSE x1 = INT(x1)
 '''IF x2 > 0 THEN x2 = INT(x2 + .5) ELSE x2 = INT(x2)
 '''IF y1 > 0 THEN y1 = INT(y1 - .5) ELSE y1 = INT(y1)
 '''IF y2 > 0 THEN y2 = INT(y2 + .5) ELSE y2 = INT(y2)
 '''PRINT "< Xmin="; x1, "> Xmax="; x2, "< Ymin="; y1, "> Ymax="; y2
 ' расчет масштаба и "смещения"
 mx = (xg2 - xg1) / (x2 - x1)
 sx = xg1 - mx * x1
 my = (yg1 - yg2) / (y2 - y1)
 sy = yg2 - my * y1
 '''PRINT "mx="; mx, "sx="; sx, "my="; my, "sy="; sy
 ' переход в графический режим
 SCREEN tscreen
 ' если возможно - вывод координатных осей
 IF x1 <= 0 AND 0 <= xg2 THEN
 LINE (sx, yg1)-(sx, yg2)
 END IF
 IF y1 <= 0 AND 0 <= y2 THEN
 LINE (xg1, sy)-(xg2, sy)
 END IF
 FOR x = xa TO xb STEP xstep
 xg = mx * x + sx
 ytg1 = my * f1(x) + sy
 ytg2 = my * f2(x) + sy
 PSET (xg, ytg1), color1%
 PSET (xg, ytg2), color2%
 NEXT x
 LOCATE 1, 1
 PRINT "Нажмите ESC для завершения"
 DO
 LOOP UNTIL INKEY$ = CHR$(27) '27 - это ASCII код для Esc.
 STOP
 END
FUNCTION f1 (x AS SINGLE)
 f1 = x ^ 2 - 10 + 10 * SIN(5 * x)
 ' f1 = 10 * SIN(2 * x)
END FUNCTION
FUNCTION f2! (x)
 ' f2! = x
 f2! = x ^ 2 - 10
 END FUNCTION