Это очень хорошо, что вы написали программу. Я изначально также собирался написать то же самое. Теперь я просмотрел код и не нашёл никаких расхождений со сканированным текстом. Но рисовалась чушь.
Потом вы сообщили, что sqr -- это корень. Соответственно, я полез в программу и заменил в нужных местах sqr на sqrt. Тут получилась очень важная вещь: произошла ошибка в вычислении Dxt2, в частности, корень из отрицательного числа. Очевидно, что этого быть не должно -- алгоритм всё-таки не из пальца высосан. Это значит, что сами вычисления происходят неправильно. В чём я и убедился, персчитав подкоренное значение независимо, в Excel'е. Это значит, что ошибка происходит в вычислениях целых чисел (такое бывает). Я присвоил alpha, beta и т.д. в переменные типа real и у меня нарисовался овал. Правда, чуть поменяв даные (30 на 35) я снова получил ошибку в вычислениях -- это уже происходит ниже по тексту программы. Сейчас надо взвесить, какие переменные должны остаться целочисленными, а какие можно переделать в real. Предполагаю, что после этого ваша программа заработает.
Завтра или послезавтра займусь.