plot[ (m+500000)^(.8) - (500000)^(.8), m, 0, 100000]