Find the intersection of two lines: Difference between revisions

Content added Content deleted
Line 1,276: Line 1,276:
<pre>[5, 5]</pre>
<pre>[5, 5]</pre>


=={{header|Mathematica}}==
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>
<lang Mathematica>RegionIntersection[
RegionIntersection[
InfiniteLine[{{4, 0}, {6, 10}}],
InfiniteLine[{{4, 0}, {6, 10}}],
InfiniteLine[{{0, 3}, {10, 7}}]
InfiniteLine[{{0, 3}, {10, 7}}]
]</lang>
]</lang>
{{out}}
{{out}}
<pre>Point[{5, 5}]
<pre>Point[{5, 5}]</pre>
</pre>


=={{header|MATLAB}}==
=={{header|MATLAB}}==