New Grad.m function