(kill(all),reset(), 0);
0$

conjugate(-1);
-1$

conjugate(6);
6$

conjugate(-2/3);
-2/3$

conjugate(sqrt(5));
sqrt(5)$

conjugate(sqrt(3) + sqrt(7));
sqrt(3) + sqrt(7)$

conjugate(5.6);
5.6$

conjugate(-5.6);
-5.6$

conjugate(5.6 * %i);
-%i * 5.6$

conjugate(8.23b3);
8.23b3$

conjugate(1.4b0 + %i * 5.7b0);
1.4b0 - %i * 5.7b0$

conjugate(sqrt(7 + %i * 8));
sqrt(7 - %i * 8);

conjugate(log(1 - %i));
log(1 + %i)$

conjugate(%e);
%e$

conjugate(-%e);
-%e$

conjugate(%pi);
%pi$

conjugate(%phi);
%phi$

conjugate(x);
x$

conjugate(-x);
-x$

conjugate(1+x*(1+x));
1+x*(1+x)$

conjugate(sqrt(1+x^2));
sqrt(1+x^2)$

conjugate(x+abs(x));
x+abs(x)$

conjugate(cos(x));
cos(x)$

conjugate(sin(x));
sin(x)$

conjugate(tan(x));
tan(x)$

conjugate(sec(x));
sec(x)$

conjugate(cot(x));
cot(x)$

conjugate(csc(x));
csc(x)$

conjugate(cosh(x));
cosh(x)$

conjugate(sinh(x));
sinh(x)$

conjugate(tanh(x));
tanh(x)$

conjugate(sech(x));
sech(x)$

conjugate(coth(x));
coth(x)$

conjugate(csch(x));
csch(x)$

conjugate(exp(x));
exp(x)$

conjugate(sqrt(x));
conjugate(sqrt(x))$

conjugate(abs(x))$
abs(x)$

(declare(z,complex),0);
0$

conjugate(conjugate(z));
z$

conjugate(conjugate(conjugate(z)));
conjugate(z)$

conjugate(5*z);
5 * conjugate(z);

conjugate(5 + z);
5 + conjugate(z);

conjugate(5 + 7 * z);
5 + 7 * conjugate(z);

conjugate(%i * z);
-%i * conjugate(z)$

conjugate(x + z);
x + conjugate(z)$

conjugate(x * z);
x * conjugate(z)$

conjugate(cos(z));
cos(conjugate(z))$

conjugate(sin(z));
sin(conjugate(z))$

conjugate(tan(z));
tan(conjugate(z))$

conjugate(sec(z));
sec(conjugate(z))$

conjugate(cot(z));
cot(conjugate(z))$

conjugate(csc(z));
csc(conjugate(z))$

conjugate(cosh(z));
cosh(conjugate(z))$

conjugate(sinh(z));
sinh(conjugate(z))$

conjugate(tanh(z));
tanh(conjugate(z))$

conjugate(sech(z));
sech(conjugate(z))$

conjugate(coth(z));
coth(conjugate(z))$

conjugate(csch(z));
csch(conjugate(z))$

conjugate(exp(z));
exp(conjugate(z))$

conjugate(realpart(z));
realpart(z)$

conjugate(imagpart(z));
imagpart(z)$

conjugate(x+z);
x+conjugate(z)$

conjugate(x*z);
x*conjugate(z)$

conjugate(%i * z);
-%i * conjugate(z)$

conjugate(cos(x*z));
cos(x*conjugate(z))$

(assume(imagpart(z) > 0),0);
0$

conjugate(log(z));
log(conjugate(z))$

conjugate(sqrt(z));
sqrt(conjugate(z))$

conjugate(log(5 + z));
log(5 + conjugate(z))$

(declare(w,complex),0);
0$

(assume(realpart(w) > 0),0);
0$

conjugate(log(w));
log(conjugate(w))$

conjugate(sqrt(w));
sqrt(conjugate(w))$

conjugate(log(7 + w));
log(7 + conjugate(w))$

(declare(q,complex),0);
0$

conjugate(q^2);
conjugate(q)^2$

conjugate(1/q);
1/conjugate(q)$

conjugate(1 + q + q^2);
1 + conjugate(q) + conjugate(q)^2$

conjugate(q*(1+q));
conjugate(q) * (1 + conjugate(q))$

conjugate((1+q)/(1-q));
(1 + conjugate(q))/(1 - conjugate(q))$

(forget(imagpart(z) > 0), forget(realpart(w) > 0),0);
0$

declare(p0, even, q1, odd, pq, rational, qp, irrational, rr, real, ii, imaginary);
done;

conjugate (p0 + q1 + pq + qp + rr + ii);
p0 + q1 + pq + qp + rr - ii;

/* conjugate of  sums and products */

(declare(n, real), declare(m,real),0);
0$

conjugate(sum(cos(k),k,1,n));
sum(cos(k),k,1,n)$

conjugate(prod(cos(k),k,1,n));
prod(cos(k),k,1,n)$

conjugate(sum(log(k + %i), k, m, n));
sum(log(k - %i), k, m, n)$
 
conjugate(prod(log(k + %i), k, m, n));
prod(log(k - %i), k, m, n)$

(remove(n,real), remove(m,real),0);
0$

/* conjugate of asin */

(assume(x > -1, x < 1),0);
0$

conjugate(asin(x));
asin(x)$

conjugate(asin(-x));
asin(-x)$

conjugate(asin(x + %i));
asin(x - %i)$

conjugate(asin(x - %i));
asin(x + %i)$

conjugate(asin(x + %i * y));
asin(x - %i * y)$

conjugate(asin(x - %i * y));
asin(x + %i * y)$

/* Collections */

conjugate([]);
[]$

conjugate([5]);
[5]$

conjugate([[%i]]);
[[-%i]]$

conjugate(set());
set()$

conjugate(set(1,2));
set(1,2)$

conjugate(set(8, set(8, set(32 - %i))));
set(8, set(8, set(32 + %i)))$

conjugate(matrix());
matrix()$

conjugate(matrix([]));
matrix([])$

conjugate(matrix([1,2,%i]));
matrix([1,2,-%i])$

conjugate(matrix([matrix([%i])]));
matrix([matrix([-%i])])$

/* logs */

conjugate(log(x));
conjugate(log(x))$

conjugate(log(x + %i));
log(conjugate(x) - %i)$

conjugate(log(-1 + %i));
log(-1 - %i)$

(assume(x > 0, notequal(www,0)), 0);
0$

conjugate(log(-x));
log(x) - %i * %pi$

conjugate(log(-x + %i * www));
log(-x - %i * www)$

(forget(x > 0, notequal(www,0)),0);
0$

/* exponential expressions */

conjugate(exp(x));
exp(x)$

conjugate(exp(y - %i * x));
exp(y + %i * x)$

(declare(z,complex),0);
0$

conjugate(exp(z));
exp(conjugate(z))$

(declare(n,integer,z,complex),0);
0$

conjugate(z^n);
conjugate(z)^n$

conjugate(z^b);
conjugate(z^b)$

conjugate(cosh(z));
cosh(conjugate(z))$

conjugate(sinh(z));
sinh(conjugate(z))$

conjugate(sinh(cosh(z)));
sinh(cosh(conjugate(z)))$

/* Test for bug 1491486 */

conjugate((1+%i)^%i);
1/(1-%i)^%i$

(declare(z,complex),0);
0$

/* Test for bug 1489285 */

is(imagpart(conjugate(z)) # z);
true$

(remove(z,complex),0);
0$

/* Test for bug 1488344 */

matrixp(conjugate(genmatrix(a,100,100)));
true$

/* Test for bug 1488359 */

is(op(conjugate(f[6](x))) = 'conjugate);
true$

/* Tests for bug 1639890  */
(assume(notequal(y,0)),0);
0$

conjugate(log(-1 + %i * y));
log(-1 - %i * y)$

conjugate(log(x + %i * y));
log(x - %i * y)$

conjugate(log(%pi + %i * y));
log(%pi - %i * y)$

(forget(notequal(y,0)),0);
0$


/* Test for bug (conjugate of atan) fixed by CVS revisions 1.9 and 1.11 */

conjugate(atan(x));
atan(x);

/* Bug ID: 2886564 - conjugate(atan2(y,x)) not simplified */

conjugate(atan2(y,x));
atan2(y,x);

(declare(z,complex), conjugate(signum(z)));
signum(conjugate(z))$

(remove(z,complex),0);
0$

conjugate(ceiling(x));
ceiling(x)$

conjugate(floor(x));
floor(x)$

conjugate(mod(x,1));
mod(x,1)$

conjugate(unit_step(x));
unit_step(x)$

conjugate(charfun(x>0));
charfun(x>0)$

conjugate(log_gamma(2+%i*107));
log_gamma(2-%i*107);

conjugate(log_gamma(-2+%i*107));
log_gamma(-2-%i*107);

conjugate(li[2](42 + %i/2));
li[2](42 - %i/2)$

conjugate(psi[2](-42 + %i/2));
psi[2](-42 - %i/2)$

/* constants */
conjugate(%pi);
%pi$

conjugate(%e);
%e$

conjugate(%phi);
%phi$

conjugate(minf);
minf$

conjugate(inf);
inf$

conjugate(infinity);
conjugate(infinity)$

conjugate(zerob);
zerob$

conjugate(zeroa);
zeroa$

conjugate(und);
conjugate(und)$

conjugate(ind);
conjugate(ind)$

/* additional tests  */

(declare(z,complex), declare(zz,complex), assume(-1<a, a<1, notequal(b,0)),0);
0$

/* one of the few tests that check this case */
is(conjugate(z^zz) = conjugate(z)^conjugate(zz));
false$

is(equal(conjugate(z^zz), conjugate(z)^conjugate(zz)));
unknown$

is(conjugate(sqrt(x)) = sqrt(conjugate(x)));
false$

is(equal(conjugate(sqrt(1+%i)), sqrt(conjugate(1+%i))));
true$

is(equal(conjugate(sqrt(-1+%i)), sqrt(conjugate(-1+%i))));
true$

is(conjugate(x^zz) = conjugate(x)^conjugate(zz));
false$

is(conjugate(x^zz) = conjugate(x)^conjugate(zz));
false$

(declare(n,integer),0);
0$

is(equal(conjugate(z^n), conjugate(z)^n));
true$

(remove(n,integer),0);
0$

(assume(notequal(imagpart(z),0)),0);
0$

is(equal(conjugate(z^zz), conjugate(z)^conjugate(zz)));
true$

(forget(notequal(imagpart(z),0)),0);
0$

is(equal(conjugate((x+%i*%pi)^zz), (x-%i*%pi)^conjugate(zz)));
true$

is(equal(conjugate((x+%i/10)^zz), (x-%i/10)^conjugate(zz)));
true$

conjugate(acsc(z));
conjugate(acsc(z))$

conjugate(acsc(3/2 + %i));
acsc(3/2-%i)$

conjugate(acsc(1/2 + %i));
acsc(1/2-%i)$

conjugate(asec(z));
conjugate(asec(z))$

conjugate(asec(3/2 + %i));
asec(3/2-%i)$

conjugate(asec(1/2 + %i));
asec(1/2-%i)$

/* functions that commute with conjugate */
map(lambda([fn], is(conjugate(apply(fn,[z])) = apply(fn, [conjugate(z)]))), 
        [cosh, sinh, tanh, sech, csch, coth, cos, sin, tan, sec, csc, cot,gamma]);
[true,true,true,true,true,true,true,true,true,true,true,true,true]$

conjugate(jacobi_cn(a,z));
jacobi_cn(a, conjugate(z))$

conjugate(jacobi_sn(a,z));
jacobi_sn(a, conjugate(z))$

conjugate(jacobi_dn(a,z));
jacobi_dn(a, conjugate(z))$

conjugate(pochhammer(z, n));
pochhammer(conjugate(z),n)$

conjugate(z = 4+%i);
conjugate(z) = 4-%i$

conjugate(z # 46+107*%i);
conjugate(z) # 46 - 107*%i$

conjugate(transpose(z));
transpose(conjugate(z))$

conjugate(matrix([%i,5],[5,%i]));
matrix([-%i,5],[5,-%i])$

conjugate([a,b,c]);
[a,b,c]$

conjugate(set(a,b,%i));
set(a,b,-%i)$

conjugate(hankel_1(z,z^2));
conjugate(hankel_1(z,z^2))$

conjugate(hankel_1(z,x+%i));
hankel_2(conjugate(z),x-%i)$

conjugate(hankel_2(z,z^2));
conjugate(hankel_2(z,z^2))$

conjugate(hankel_2(z,x+%i));
hankel_1(conjugate(z),x-%i)$

map('conjugate, [log(5+%i), log(x^2+1), log(z), log(-(x^2+1))]);
[log(5-%i),log(x^2+1),conjugate(log(z)),log(x^2+1)-%i*%pi]$

conjugate(bessel_j(z,z^2));
conjugate(bessel_j(z,z^2))$

conjugate(bessel_j(z,x+%i));
bessel_j(conjugate(z),x-%i)$

conjugate(bessel_y(z,z^2));
conjugate(bessel_y(z,z^2))$

conjugate(bessel_y(z,x+%i));
bessel_y(conjugate(z),x-%i)$

conjugate(bessel_i(z,z^2));
conjugate(bessel_i(z,z^2))$

conjugate(bessel_i(z,x+%i));
bessel_i(conjugate(z),x-%i)$

conjugate(bessel_k(z,z^2));
conjugate(bessel_k(z,z^2))$

conjugate(bessel_k(z,x+%i));
bessel_k(conjugate(z),x-%i)$

conjugate(log_gamma(z));
conjugate(log_gamma(z))$

conjugate(log_gamma(1-%i));
log_gamma(1+%i)$

/* #4373 conjugate doesn't know li[n](x) is complex in general */
block([w : conjugate(li[2](z))], [inpart(w,0), args(w)]);
[conjugate,[li[2](z)]]$

conjugate(psi[2](z));
psi[2](conjugate(z))$

map('conjugate, [plog(5+%i), plog(x^2+1), plog(z), plog(-(x^2+1))]);
[plog(5-%i),plog(x^2+1),conjugate(plog(z)),plog(x^2+1)-%i*%pi]$

/* off (-infinity,-1) union (1,infinity), conjugate and asin commute */
map('conjugate,[asin(z), asin(a+%i*b), asin(1/2+%i), asin(107+%i*b),asin(107)]);
[conjugate(asin(z)), asin(a-%i*b), asin(1/2-%i), asin(107-%i*b), conjugate(asin(107))]$

/* off (-infinity,-1) union (1,infinity), conjugate and acos commute */
map('conjugate,[acos(z), acos(a+%i*b), acos(1/2+%i), acos(107+%i*b),acos(107)]);
[conjugate(acos(z)), acos(a-%i*b), acos(1/2-%i), acos(107-%i*b), conjugate(acos(107))]$

/* off (-infinity %i, -%i) union (%i, %i infinity), conjugate and atan commute */
map('conjugate, [atan(z), atan(1/2 + %i), atan(-1/3+%i)]);
[conjugate(atan(z)), atan(1/2-%i), atan(-1/3-%i)]$

conjugate([x,%i*x,0,1,-1,%i,-%i,%pi, %e, %phi,inf,minf]);
[x,-(%i*x),0,1,-1,-%i,%i,%pi,%e,%phi,inf,minf]$

conjugate(sqrt(-2));
-(sqrt(2)*%i)$

conjugate(cos(exp(107)));
cos(exp(107))$

conjugate(conjugate(log(-1)));
log(-1)$

conjugate(polarform(5+%i*7)) - polarform(5-%i*7);
0$

conjugate(z/zz);
conjugate(z)/conjugate(zz)$

(declare(nn,integer),0);
0$

conjugate(z^nn);
conjugate(z)^nn$

(forget(nn,integer),0);
0$

conjugate(1/z);
1/conjugate(z)$

conjugate(realpart(z));
realpart(z)$

conjugate(imagpart(z));
imagpart(z)$

conjugate(conjugate(z));
z$

conjugate(sin(z));
sin(conjugate(z))$

conjugate(z*zz) - conjugate(z)*conjugate(zz);
0$

(assume(xx>0),0);
0$

conjugate(xx^z);
xx^conjugate(z)$

(forget(xx>0),0);
0$

(assume(notequal(imagpart(z),0)),0);
0$

conjugate(z^x);
conjugate(z)^x$

conjugate(z^zz);
conjugate(z)^conjugate(zz)$

(forget(-1<a,a<1, notequal(b,0)), remove(z,complex), remove(zz,complex), 0);
0$

/* #2179 conjugate of CRE matrix  */
conjugate(matrix([rat(0)]));
matrix([0])$

/* #1982 conjugate(atan(x+%i*y)) wrong */
conjugate(atan(x+%i*y));
conjugate(atan(x+%i*y))$

/* #1801 conjugate(atan2(y,x)) not simplified */
conjugate(atan2(y,x));
atan2(y,x)$

/* #1211 conjugate error */
conjugate( atanh(1/4));
atanh(1/4)$

/* #1080 conjugate(log(-1 + %i * y)), with y # 0 */
 (assume(notequal(y,0)),0);
 0$

conjugate(log(-1 + %i*y));
log(-1-%i*y)$

(forget(notequal(y,0)),0);
0$

/* #1067 absolute value of conjugate */
abs(conjugate(z)) ;
abs(z)$

/* #616 conjugate(complex) wrong */
conjugate(z);
conjugate(z)$

/* #924 conjugate of subscripted function */
conjugate(f[6](x));
conjugate(f[6](x))$

/* #932 conjugate of complex ^ complex */
 conjugate((1+%i)^%i);
 (1-%i)^(-%i)$

/* 1071 conjugate & ratsubst */
 ratsubst(1,a, conjugate(log(-1 + %i*a)));
 log(-%i-1)$

/* #1163 rational doesn't work */
conjugate( rat(1+%i));
1-%i$

/* conjugate of derivative */

conjugate(diff(f(x),x));
'diff(conjugate(f(x)),x);

conjugate(diff(f(x),x,107));
'diff(conjugate(f(x)),x,107);

conjugate(diff(f(x),x,n));
'diff(conjugate(f(x)),x,n);

op(conjugate(diff(f(x),x,%i)));
conjugate$

(declare(z,complex),0);
0$

op(conjugate(diff(f(z),z)));
conjugate$

(remove(z,complex), conjugate(z));
z$

/* More conjugate of li; see  #4373 conjugate doesn't know li[n](x) is complex in general */
(declare(n,integer), assume(n > 0), assume(xx < 1),0);
0$

conjugate(li[n](2/3));
li[n](2/3)$

conjugate(li[2](2/3));
li[2](2/3)$

conjugate(li[n](2/3));
li[n](2/3)$

conjugate(li[n](xx));
li[n](xx)$

conjugate(li[n](x+%i));
li[n](x-%i)$

conjugate(li[3](x+%i));
li[3](x-%i)$

(declare(z,complex),0);
0$

tex1(conjugate(z + F(z)));
"F\\left(z\\right)^{\\ast}+z^{\\ast}"$

block([xxx : conjugate(sum(f(x),x,%i,inf))], [op(xxx), args(first(xxx))]);
[conjugate,[f(x),x,%i,inf]]$

block([xxx : conjugate(product(f(x),x,%i,inf))], [op(xxx), args(first(xxx))]);
[conjugate,[f(x),x,%i,inf]]$

block([xxx : conjugate(atanh(s))], [op(xxx), args(xxx)]);
 [conjugate, [atanh(s)]]$

/* Bug #4505: "rectform(psi(x))"
   Test that conjugate ignores subscripted functions without a subscript (psi)
   and non-subscripted functions with a subscript (atan). */
conjugate(psi(x));
'conjugate(psi(x));
conjugate(atan[i](x));
'conjugate(atan[i](x));

(forget(z,complex), forget(n,integer), forget(n > 0),forget(xx < 1),0);
0$

(kill(all),0);
0$

/* did we really tidy the environment? */
values;
[]$

facts();
[]$

contexts;
[initial,global]$
