Plot[Sqrt[x]*Sin[1/x], {x, 0, PI/16}]