Finding intersection of two function using Mathematica
<p>I used the following to graph my two functions:</p>

<pre><code>p1 = Plot[100 t^2*Sin[Sqrt[t]], {t, 0, 7}, AxesOrigin -&gt; {0, 5000}]
p2 = Plot[Piecewise[{{250, 0 &lt;= t &lt; 3}, {2000, 3 &lt; t &lt;= 7}}], {t, 0, 7}, 
   AxesOrigin -&gt; {0, 5000}]
</code></pre>

<p>I can not figure out how to find the intersection of the graph, please help.</p>