Вывести график функции - QBasic

Формулировка задачи:

нарисовать. вывести результат и название функции внизу Y=√(sinx^2 2x*2cosx).Помогите плиз

Решение задачи: «Вывести график функции»

Листинг программы

SCREEN 7
 
x = 50
y = 50
LINE (0, 50)-(320, 50), 4
LOCATE 6, 1: PRINT "x"
LOCATE 1, 6: PRINT "y"
LOCATE 9, 8: PRINT "y=sqr(sin(x)^2*2*x*cos(x)"
LINE (50, 0)-(50, 240), 4
 
FOR i = 0 TO 55 STEP .005
        yi = SQR(SIN(i) ^ 2 * 2 * i * COS(i))
        PSET (x + 5 * i, y - 5 * yi), 15
        LINE (0, 0)-(320, 0), 0
NEXT i

Объяснение кода листинга программы

Установка размера экрана в 7.
Задание начальных значений переменным x и y равными 50.
Отображение линии на экране с помощью команды LINE, где первые два аргумента определяют начальную точку, а вторые два аргумента — конечную точку линии.
Вывод на экран значения переменной x с помощью команды LOCATE и PRINT.
Вывод на экран значения переменной y с помощью команды LOCATE и PRINT.
Вывод на экран формулы для переменной y с помощью команды LOCATE и PRINT.
Отображение линии на экране с помощью команды LINE, где первые два аргумента определяют начальную точку, а вторые два аргумента — конечную точку линии.
Цикл FOR для перебора значений от 0 до 55 с шагом 0,005.
Вычисление значения переменной yi с помощью формулы внутри цикла FOR.
Отображение точки на экране с помощью команды PSET, где аргументы определяют координаты точки.
Отображение линии на экране с помощью команды LINE, где первые два аргумента определяют начальную точку, а вторые два аргумента — конечную точку линии.
Цикл FOR завершается с помощью команды NEXT i.