%%HP: T(3)A(R)F(.);
@ @ @  PARALELNI ZAPOJENI REZISTORU
@ Real PARALLEL(Alg rname, Real v2);
\<<			@	rname	v2
  \-> rname
  \<<			@	v2
    IF rname VTYPE 0. \>=
    THEN		@	v2
	rname		@	'rname	v2
	RCL		@	v1	v2
	DUP2		@	v1	v2	v1	v2
	*		@	v1*v2	v1	v2
	UNROT		@	v1	v2	v1*v2
	+		@	v1+v2	v1*v2
	/		@	result
    END
  \>>
\>>