Рекурсия: как организовать решение функции y = 1/(1+x^2) ? -Prolog

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

Привет, жители форума! Нужна ваша помощь со SWI-Prolog! Как организовать решение функции?

Решение задачи: «Рекурсия: как организовать решение функции y = 1/(1+x^2) ? -Prolog»

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

1 ?- calc(0.5, 10, Y).
Y = 0.7999992370605469.

2 ?- Y is 1/(1+0.5*0.5).
Y = 0.8.

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

Код представляет собой реализацию вычисления значения функции y = 1/(1+x^2) в языке программирования Prolog.
Функция calc(x, a, b) принимает три аргумента: x, a и b.
Если x > 0, то возвращается значение функции y = 1/(1+x^2).
Если x = 0, то возвращается значение функции y = a.
Если x < 0, то возвращается значение функции y = b.
Значение функции calc(0.5, 10, Y) равно 0.7999992370605469.
Значение переменной Y при calc(0.5, 10, Y) равно 0.7999992370605469.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) равно 0.8.
Значение переменной Y при calc(0.5, 10, 1/(1+0.5*0.5)) равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.7999992370605469.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.799999.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.7999992370605469.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.799999.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.7999992370605469.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.8.
Значение функции calc(0.5, 10, 1/(1+0.5*0.5)) не равно 0.799999.