title: Find intersection of 2 curves & area under a curve to the right of the intersection w/ Mathematica
body: <p>I have 2 curves illustrated with the following Mathematica code:</p>
  
  <pre><code>Show[Plot[PDF[NormalDistribution[0.044, 0.040], x], {x, 0, 0.5}, PlotStyle -&gt; Red],
   Plot[PDF[NormalDistribution[0.138, 0.097], x], {x, 0, 0.5}]]
  </code></pre>
  
  <p><img src="https://i.stack.imgur.com/jgkJ6.png" alt="Mathematica graphics"></p>
  
  <p>I need to do 2 things:</p>
  
  <ol>
  <li>Find the x and y coordinates where the two curves intersect and</li>
  <li>Find the area under the red curve to the right of the x coordinate in the
  above intersection.</li>
  </ol>
  
  <p>I haven't done this kind of problem in Mathematica before and haven't found a way to do this in the documentation.  Not certain what to search for.</p>