Find the intersection of two lines: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(added RPL) |
||
Line 2,506: | Line 2,506: | ||
ycd=5 |
ycd=5 |
||
intersection: 5,5 |
intersection: 5,5 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
{{works with|HP|48}} |
|||
« C→R ROT C→R ROT →V2 |
|||
SWAP 1 4 ROLL 1 { 2 2 } →ARRY / |
|||
» '<span style="color:blue">→LINECOEFF</span>' STO |
|||
« <span style="color:blue">→LINECOEFF</span> ROT ROT <span style="color:blue">→LINECOEFF</span> OVER - |
|||
ARRY→ DROP NEG SWAP / |
|||
DUP2 * 1 GET ROT 2 GET + R→C |
|||
» '<span style="color:blue">INTERSECT</span>' STO |
|||
Latest versions of RPL have powerful equation handling and solving functions: |
|||
{{works with|HP|49}} |
|||
« DROITE UNROT DROITE OVER - |
|||
'X' SOLVE DUP EQ→ NIP |
|||
UNROT SUBST EQ→ NIP COLLECT R→C |
|||
» '<span style="color:blue">INTERSECT</span>' STO |
|||
(4,0) (6,10) (0,3) (10,7) <span style="color:blue">INTERSECT</span> |
|||
{{out}} |
|||
<pre> |
|||
1: (5,5) |
|||
</pre> |
</pre> |
||