Skip to main content
Mathematica

Return to Answer

added 236 characters in body
Source Link
Öskå
Öskå
  • 8.6k
  • 4
  • 32
  • 50
y1[x_] := Sqrt@x - 1
y2[x_] := -Sqrt@ x + 1
Plot[{y1[x], y2[x]}, {x, 0, x /. Last@Solve[y1[x] == y2[x]]}, PlotRange->{{0, 2}, {-1, 1}}]

Mathematica graphics

or you can play with PlotRange:

Plot[{y1[x], y2[x]}, {x, 0, 10}, 
  PlotRange -> {{0, x /. Last@Solve[y1[x] == y2[x]]}, {-1, 1}}]

Mathematica graphics

y1[x_] := Sqrt@x - 1
y2[x_] := -Sqrt@ x + 1
Plot[{y1[x], y2[x]}, {x, 0, x /. Last@Solve[y1[x] == y2[x]]}, PlotRange->{{0, 2}, {-1, 1}}]

Mathematica graphics

y1[x_] := Sqrt@x - 1
y2[x_] := -Sqrt@ x + 1
Plot[{y1[x], y2[x]}, {x, 0, x /. Last@Solve[y1[x] == y2[x]]}, PlotRange->{{0, 2}, {-1, 1}}]

Mathematica graphics

or you can play with PlotRange:

Plot[{y1[x], y2[x]}, {x, 0, 10}, 
  PlotRange -> {{0, x /. Last@Solve[y1[x] == y2[x]]}, {-1, 1}}]

Mathematica graphics

Source Link
Dr. belisarius
Dr. belisarius
  • 116.2k
  • 13
  • 205
  • 456

y1[x_] := Sqrt@x - 1
y2[x_] := -Sqrt@ x + 1
Plot[{y1[x], y2[x]}, {x, 0, x /. Last@Solve[y1[x] == y2[x]]}, PlotRange->{{0, 2}, {-1, 1}}]

Mathematica graphics

Post Made Community Wiki by Dr. belisarius