//+------------------------------------------------------------------+
//| Fibo.mq4 |
//| Copyright 2022, AM2 |
//| https://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2022, AM2"
#property link "https://www.forexsystems.biz"
#property version "1.00"
#property strict
#property show_inputs
input int type=3;// 2-BuyLimit 3-SellLimit 4-BuyStop 5-SellStop
input int slip=0;
input double lot=0.1;
input double level=50;// 23.6 38.2
//+------------------------------------------------------------------+
//| Script program start function |
//+------------------------------------------------------------------+
void OnStart()
{
int r=0;
double p=0;
double p1=0;
double p2=0;
for(int i=0; i<ObjectsTotal(); i++)
{
if(ObjectType(ObjectName(i))==OBJ_FIBO)
{
p1=ObjectGetDouble(0,ObjectName(i),OBJPROP_PRICE1);
p2=ObjectGetDouble(0,ObjectName(i),OBJPROP_PRICE2);
}
}
if(p1>p2)
{
p=p2+(p1-p2)*level*0.01;
if(type==2 && Bid>p)
r=OrderSend(NULL,2,lot,NormalizeDouble(p,_Digits),slip,p2,p1,"",0,0,Blue);
if(type==3 && Bid<p)
r=OrderSend(NULL,3,lot,NormalizeDouble(p,_Digits),slip,p1,p2,"",0,0,Red);
if(type==4 && Bid<p)
r=OrderSend(NULL,4,lot,NormalizeDouble(p,_Digits),slip,p2,p1,"",0,0,Blue);
if(type==5 && Bid>p)
r=OrderSend(NULL,5,lot,NormalizeDouble(p,_Digits),slip,p1,p2,"",0,0,Red);
}
if(p1<p2)
{
p=p2-(p2-p1)*level*0.01;
if(type==2 && Bid>p)
r=OrderSend(NULL,2,lot,NormalizeDouble(p,_Digits),slip,p1,p2,"",0,0,Blue);
if(type==3 && Bid<p)
r=OrderSend(NULL,3,lot,NormalizeDouble(p,_Digits),slip,p2,p1,"",0,0,Red);
if(type==4 && Bid<p)
r=OrderSend(NULL,4,lot,NormalizeDouble(p,_Digits),slip,p1,p2,"",0,0,Blue);
if(type==5 && Bid>p)
r=OrderSend(NULL,5,lot,NormalizeDouble(p,_Digits),slip,p2,p1,"",0,0,Red);
}
Comment("\n P1: ",p1,
"\n P2: ",p2);
}
//+------------------------------------------------------------------+
Андрей я выше приложил индикатор, как можно его протестировать с отложками в тестере?
Что то всё затихло нет обратной связи
AM2