algebrite/sources/rect.coffee

Computer Algebra System in Coffeescript

###
Convert complex z to rectangular form

	Input:		push	z

	Output:		Result on stack
###



Eval_rect = ->
	push(cadr(p1))
	Eval()
	rect()

rect = ->
	save()
	p1 = pop()
	if (car(p1) == symbol(ADD))
		push_integer(0)
		p1 = cdr(p1)
		while (iscons(p1))
			push(car(p1))
			rect()
			add()
			p1 = cdr(p1)
	else
		push(p1);	# mag(z) * (cos(arg(z)) + i sin(arg(z)))
		mag()
		push(p1)
		arg()
		p1 = pop()
		push(p1)
		cosine()
		push(imaginaryunit)
		push(p1)
		sine()
		multiply()
		add()
		multiply()
	restore()