STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354258
	ESBR
	SORD	8
		LVAL	0	input
		LVAL	0	output
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354115
	ESBR
	SGLB	SignalP/Input	/3v7,-100,100,-100,100;Input (%)
		CMNT	 	Expects:  É ¥ inst/arg/É
		CALL	354113	É ¥ inst/arg/É
		PRIM	Stack/Over	É ¥ arg/inst/arg/É
		PRIM	Ordinal/Test zero	É ¥ rslt/inst/arg/É
		BRFL	 	branch if non-zero
			PRIM	Stack/Over	É ¥ arg/inst/arg/É
			PRIM	Stack/Xswap	É ¥ arg/arg/inst/É
			LCAL	Iterate	É ¥ rslt/inst/É
			CALL	354114	É ¥ É
		BRTR
		PRIM	Stack/Xdrop	É ¥ inst/É
		LVAL	0	É ¥ 0/inst/É
		CALL	354114	É ¥ É
	ESBR
ESTR
LDEF	Iterate
	CMNT	 	Uses Newton-Raphson iteration to find the cube root
	CMNT	 	If c is current estimate, then a new estimate c' is found by:
	CMNT	 	c' = c - [Ä(c) - k]/Ä'(c)
	CMNT	 	In this case:  Ä(x)=x^3-k      Ä'(x)=3x^2
	CMNT	 	Input:  É ¥ c/k/É
	CMNT	 	Output:  É ¥ rslt/...
	PRIM	Stack/Duplicate	É ¥ c/c/k/É
	PRIM	Stack/Duplicate	É ¥ c/c/c/k/É
	PRIM	Stack/Duplicate	É ¥ c/c/c/c/k/É
	PRIM	Value/Multiply	É ¥ c*c/c/c/k/É
	PRIM	Value/Multiply	É ¥ c^3/c/k/É
	PRIM	Stack/Xover	É ¥ k/c^3/c/k/É
	PRIM	Value/Subtract	É ¥ (c^3-k)/c/k/É
	LVAL	0.333323	É ¥ 0.333/(c^3-k)/c/k/É
	PRIM	Stack/Xover	É ¥ c/0.333/(c^3-k)/c/k/É
	PRIM	Stack/Duplicate	É ¥ c/c/0.333/(c^3-k)/c/k/É
	PRIM	Value/Multiply	É ¥ c^2/0.333/(c^3-k)/c/k/É
	PRIM	Value/Scale	É ¥ ((c^3-k)Ö(3*c^2))/c/k/É
	PRIM	Value/Subtract	É ¥ c'/k/É
	CMNT	 	Check c' for accuracy
	PRIM	Stack/Duplicate	É ¥ c'/c'/k/É
	PRIM	Stack/Duplicate	É ¥ c'/c'/c'/k/É
	PRIM	Stack/Duplicate	É ¥ c'/c'/c'/c'/k/É
	PRIM	Value/Multiply	É ¥ c'*c'/c'/c'/k/É
	PRIM	Value/Multiply	É ¥ c'^3/c'/k/É
	PRIM	Stack/Xover	É ¥ k/c'^3/c'/k/É
	PRIM	Value/Subtract	É ¥ Ê(c'^3-k)/c'/k/É
	PRIM	Value/Absolute	É ¥ ÊÆ/c'/k/É
	LVAL	6.1037e-05	É ¥ Êlimit/Æ/c'/k/É
	PRIM	Value/Compare	É ¥ rslt/Æ/c'/k/É
	BRFL	 	branch if done (Æ<limit)
		PRIM	Stack/Drop	É ¥ c'/k/É
		PRIM	Stack/Xdrop	É ¥ c'/É
	BRTR
	PRIM	Stack/Drop	É ¥ c'/k/É
	LCAL	Iterate
EDEF