Создайте предикат, вычисляющий функцию cos(x) - Prolog

Помогите создать предикат, вычисляющий функцию cos(x) через sin(x) по формуле cos(x)=sqrt(1-sin^2(х))

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

predicates
my_cos(real,real)
 
clauses
my_cos(X,R) :- S=sin(X), S2=S*S, R=sqrt(1-S2).

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

Задача кода - создать предикат, вычисляющий функцию cos(x)
Предикат называется my_cos(X,R)
X - переменная типа real (число с плавающей точкой), значение которой передается в функцию sin(X)
R - переменная типа real, в которую будет вычисляться результат функции cos(x)
sin(X) вычисляет синус числа X
S2=S*S вычисляет квадрат синуса числа X
sqrt(1-S2) вычисляет квадратный корень из разности 1 и квадрата синуса числа X
R=sqrt(1-S2) присваивает значение переменной R результат вычисления квадратного корня
my_cos(X,R) :- S=sin(X), S2=S*S, R=sqrt(1-S2) - основной код предиката, который выполняет все вычисления функции cos(x)
Код предиката my_cos(X,R) используется для вычисления функции cos(x)