Plot[(Sqrt[(x^2)]) -  .1, {x, -1, 1}, PlotPoints -> 60]

Plot[(Sqrt[1 - (x^2)]), {x, -1, 1}, PlotPoints -> 60]

Show[%, %%]

Plot[(Sqrt[-(x^2) + (Sqrt[(x^2)]) -  .1]), {x, -1, 1}, PlotPoints -> 60]

Show[%, %%]