input int sdvig=22;
input string nm="old";
input color clr=Red;
//+------------------------------------------------------------------+
//| Put Text Function |
//+------------------------------------------------------------------+
void PutText(string name,string text,double price,datetime time)
{
ObjectDelete(0,name);
//--- create a "Text" object
ObjectCreate(0,name,OBJ_TEXT,0,time,price);
//--- set the text
ObjectSetString(0,name,OBJPROP_TEXT,text);
//--- set the font of the text
ObjectSetString(0,name,OBJPROP_FONT,"Arial");
//--- set the font size
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,11);
//--- set the method binding
ObjectSetInteger(0,name,OBJPROP_ANCHOR,2);
//--- set the color
ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
}
//+------------------------------------------------------------------+
//| Script program start function |
//+------------------------------------------------------------------+
void OnStart()
{
for(int i=ObjectsTotal()-1;i>=0;i--)
{
if(ObjectType(ObjectName(i))==OBJ_HLINE)
{
double pr=ObjectGetDouble(0,ObjectName(i),OBJPROP_PRICE);
int delta=(int)(MathAbs(Bid-pr)/_Point);
if(pr>Bid)
{
ObjectSetString(0,ObjectName(i),OBJPROP_NAME,"High "+(string)delta);
PutText("Text"+(string)i,"High "+(string)delta,pr,Time[0]+PeriodSeconds()*sdvig);
}
if(pr<Bid)
{
ObjectSetString(0,ObjectName(i),OBJPROP_NAME,"Low "+(string)delta);
PutText("Text"+(string)i,"Low "+(string)delta,pr,Time[0]+PeriodSeconds()*sdvig);
}
}
}
}
//+------------------------------------------------------------------+
Алгоритм переименования:
Если линии находятся ВЫШЕ текущей цены, то переименовываются в «hi_1», «hi_2», «hi_3» и так далее, в зависимости от удалённости от текущей цены.
Если линии находятся НИЖЕ текущей цены, то переименовываются в «lo_1», «lo_2», «lo_3» и так далее, в зависимости от удалённости от текущей цены
Есть две поз. БАЙ и СЕЛ, сов находит для них уровень БУ(безубытка), когда цена идет в плюс от уровня БУ то через ШАГ-Трала уровень БУ тралится за ценой (в положительной зоне) а при откате обе поз. закрываются по этому уровню БУ.
--Как то так, или я не прав?
AM2