"Testing expcos"

clear

check(expcos(x) == 1/2*exp(-i*x)+1/2*exp(i*x))
