algebrite/sources/denominator.coffee

Computer Algebra System in Coffeescript

Eval_denominator = ->
	push(cadr(p1))
	Eval()
	denominator()

denominator = ->
	h = 0

	save()

	p1 = pop()

	if (car(p1) == symbol(ADD))
		push(p1)
		rationalize()
		p1 = pop()

	if (car(p1) == symbol(MULTIPLY))
		h = tos
		p1 = cdr(p1)
		while (iscons(p1))
			push(car(p1))
			denominator()
			p1 = cdr(p1)
		multiply_all(tos - h)
	else if (isrational(p1))
		push(p1)
		mp_denominator()
	else if (car(p1) == symbol(POWER) && isnegativeterm(caddr(p1)))
		push(p1)
		reciprocate()
	else
		push(one)

	restore()