algebrite/sources/conj.coffee

Computer Algebra System in Coffeescript

# Complex conjugate



Eval_conj = ->
	push(cadr(p1))
	Eval()
	p1 = pop()
	push(p1)
	if (!Find(p1, imaginaryunit)) # example: (-1)^(1/3)
		polar()
		conjugate()
		clockform()
	else
		conjugate()


# careful is you pass this one an expression with
# i (instead of (-1)^(1/2)) then this doesn't work!
conjugate = ->
	push(imaginaryunit)
	push(imaginaryunit)
	negate()
	subst()
	Eval()