function r = randinseg(a,b)
r = rand*(b-a) + a;
return