%%HP: T(1)A(G)F(,);
 GRAD STD
"Interseccion Inversa
Xa Ya  Xb Yb  Xc Yc
 Lpa   Lpb   Lpc"
"" INPUT OBJ 'LC'
STO 'LB' STO 'LA' STO
'YC' STO 'XC' STO
'YB' STO 'XB' STO
'YA' STO 'XA' STO 'LB
-LA' NUM '' STO 'LC
-LB' NUM '' STO 'XB
-XA-(YB-YA)/TAN()'
NUM 'A' STO 'YB-YA+(
XB-XA)/TAN()' NUM
'B' STO 'XB-XC+(YB-YC
)/TAN()' NUM 'C'
STO 'YB-YC-(XB-XC)/
TAN()' NUM 'D' STO
'(A*(B-D)-B*(A-C))/((
A-C)^2,+(B-D)^2,)'
NUM 'E' STO 'XB-E*(B
-D)' NUM "Xp" TAG '
YB+E*(A-C)' NUM "Yp"
TAG { A B C D E XA
XB XC YA YB YC   LA
LB LC } PURGE
