Еще раз спасибо за помощь.  Проверил - на положительных числах  работает правильно. Только надо помнить, что если шаг цены=1, то  надо задавать P=0 (а не  1).  

Я сделал по другому – см. код ниже.  При этом в качестве Р надо всегда задавать шаг цены, например если шаг цены=1, то  надо задавать P=1.  К остатку remnant добавляется +1.E-9 для корректировки. Дело в том, что иногда remnant принимает значения типа 0.3199999999999  вместо 0,32. Именно так получилось для числа 78.82 при step=0.5.  Если +1.E-9 не добавлять, то в случаях типа 0.3199999999999  могут получиться неверные (заниженные) результаты.

function main()
 step=0.5
 v1=FROUND(78.15,step) -- дает 78
 v2=FROUND(78.25,step) -- дает 78.5 
 v3=FROUND(78.43,step) -- дает 78.5
 v4=FROUND(78.61,step) -- дает 78.5
 v5=FROUND(78.75,step) -- дает 79
 v6=FROUND(78.82,step) -- дает 79
end

function FROUND(v,step)
  remnant=math.fmod(v, step)
  v=v-remnant
  if (remnant+1.E-9)/step>=0.5 then 
   v=v+step
  end
  return v 
end

function roundEX(V, P)
if math.fmod(P,1) == 0 then
   if (V >= 0) then return math.floor(V * (10 ^ P) + 0.5) / (10 ^ P)
   else return math.ceil(V * (10 ^ P) - 0.5) / (10 ^ P) end
else
   if (V >= 0) then return math.floor(V / P + 0.5) * P
   else return math.ceil(V / P - 0.5) * P end
end
end

Спасибо вам, Майк и Сергей. Да такого кода я бы точно не додумался.

Отрицательных чисел у меня нет, поэтому я написал по варианту  Майка и немного упростил - убрал tonumber, а  вместо (p or 0) написал просто p. Получилось так:

function round(value, p)
   local e = 10 ^ p 
   return math.floor(value * e + 0.5) / e
end
x0=round(123.456,0) -- дает 123
x2=round(123.456,2) -- дает 123,46

Правда моя задача немного сложнее - надо округлить выражение (high+low+close)/3 до шага цены. Если шаг цены равен 1 или 0,01 или 0,0001, то проблем нет, т.к. каждому шагу цены легко сопоставить параметр p, например: шаг=1 - p=0; шаг=0,01 - p=2; шаг=0,0001 - p=4.

Но что если шаг цены равен к примеру 0,5? Тогда число 78.61 следовало бы округлить до 78,5, но при p=1 оно округлится до 78,6, а при p=0 до 79. Хотя это уже мои проблемы, если найду решение, то напишу.

function math.round(value, p)
   local e = 10 ^ (p or 0)
   if value >= 0 then return math.floor(tonumber(value) * e + 0.5) / e
   else return math.ceil(tonumber(value) * e - 0.5) / e end
end

У меня тоже вопрос по математическим функциям. В руководстве не нашел функции округления до целого. Например, как сделать, чтобы 5,7 округлялась до 6, а 5,2 - до 5?

math.ceil(5.2) округляет вверх и дает 6 (а неплохо бы иметь 5)

math.floor(5.7) округляет вниз и дает 5 (а неплохо бы иметь 6)

выражение 5.2-5.2%1 отбрасывает дробную часть и тоже дает 5.

Или надо  самому писать функцию округления по нормальным  математическим правилам?