ygrad

ygrad[ <Nombre>, <Nombre>, <Nombre>, <Nombre>, <Nombre> ]

ytxt = Sequence(Text[mmin - i, (dx, i - dy)], i, 0, dm, inc)