STRE	 	Prototype
	SGLB	Misc/Class Reference
		CLAS	354414
	ESBR
	SORD	2
		PVAL	-1	/o,-100,100;Support low (%)
		PVAL	-1	/o,-100,100;Core low (%)
		PVAL	1	/o,-100,100;Core high (%)
		PVAL	1	/o,-100,100;Support high (%)
	ESBR
	SORD	3
		LVAL	0	p = (sh+sl)/2
		LVAL	0	q = (ch+cl)/2
	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	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		LCAL	Get_q
		LCAL	Get_p
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Input	/3v7,0,100;Enter data (0% to 100%)
		CMNT	 	Expects:  É ¥ inst/weight/É
		CALL	354113	É ¥ inst/weight/É
		PRIM	Stack/Second to aux	É/weight ¥ inst/É
		LITO	3	É/weight ¥ 3/inst/É
		PRIM	S_tree/Entry to stack	É/weight ¥ q/p/inst/É
		PRIM	Stack/Over	É/weight ¥ p/q/p/inst/É
		PRIM	Value/Subtract	É/weight ¥ (q-p)/p/inst/É
		PRIM	Stack/Push from aux	É ¥ weight/(q-p)/p/inst/É
		PRIM	Value/Multiply	É ¥ weight*(q-p)/p/inst/É
		PRIM	Value/Add	É ¥ y/inst/É
		CALL	354114
	ESBR
	SGLB	R&D/Support Low	/3v7,-100,100;Enter data (-100% to 100%)
		CMNT	 	Expects: É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	1
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Get_p
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Core low	/3v7,-100,100;Enter data (-100% to 100%)
		CMNT	 	Expects: É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Get_q
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Core high	/3v7,-100,100;Enter data (-100% to 100%)
		CMNT	 	Expects: É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	3
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Get_q
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Support high	/3v7,-100,100;Enter data (-100% to 100%)
		CMNT	 	Expects: É ¥ inst/arg/É
		PRIM	Stack/Swap	É ¥ arg/inst/É
		LITO	4
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	Get_p
		PRIM	Heap/Store self
	ESBR
	SGLB	R&D/Get support low	/2v6,-100,100;%3.1f%%
		LITO	1
		CALL	354072
	ESBR
	SGLB	R&D/Get core low	/2v6,-100,100;%3.1f%%
		LITO	2
		CALL	354072
	ESBR
	SGLB	R&D/Get core high	/2v6,-100,100;%3.1f%%
		LITO	3
		CALL	354072
	ESBR
	SGLB	R&D/Get support high	/2v6,-100,100;%3.1f%%
		LITO	4
		CALL	354072
	ESBR
ESTR
LDEF	Get_p
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output: É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É ¥ sh/ch/cl/sl/inst/É
	PRIM	Stack/Xdrop	É ¥ sh/cl/sl/inst/É
	PRIM	Stack/Xdrop	É ¥ sh/sl/inst/É
	LVAL	0.500015	É ¥ 0.5/sh/sl/inst/É
	PRIM	Value/Multiply	É ¥ shÖ2/sl/inst/É
	PRIM	Stack/Swap	É ¥ sl/shÖ2/inst/É
	LVAL	0.500015	É ¥ 0.5/sl/shÖ2/inst/É
	PRIM	Value/Multiply	É ¥ slÖ2/shÖ2/inst/É
	PRIM	Value/Add	É ¥ (sl+sh)Ö2/inst/É
	LITO	1	É ¥ 1/(sl+sh)Ö2/inst/É
	LITO	3	É ¥ 3/1/(sl+sh)Ö2/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF
LDEF	Get_q
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output: É ¥ inst/É
	LITO	2	É ¥ 2/inst/É
	PRIM	S_tree/Entry to stack	É ¥ sh/ch/cl/sl/inst/É
	PRIM	Stack/Drop	É ¥ ch/cl/sl/inst/É
	LVAL	0.500015	É ¥ 0.5/ch/cl/sl/inst/É
	PRIM	Value/Multiply	É ¥ chÖ2/cl/sl/inst/É
	PRIM	Stack/Swap	É ¥ cl/chÖ2/sl/inst/É
	LVAL	0.500015	É ¥ 0.5/cl/chÖ2/sl/inst/É
	PRIM	Value/Multiply	É ¥ clÖ2/chÖ2/sl/inst/É
	PRIM	Value/Add	É ¥ (cl+ch)Ö2/sl/inst/É
	PRIM	Stack/Xdrop	É ¥ (cl+ch)Ö2/inst/É
	LITO	2	É ¥ 2/(cl+ch)Ö2/inst/É
	LITO	3	É ¥ 3/2/(cl+ch)Ö2/inst/É
	PRIM	S_tree/Replace	É ¥ inst/É
EDEF