VR Smart Grid Lite 最新版 - 非与或

//************************************************************************************************///* VR Smart Grid Lite.mq4 *///* Copyright 2018, Trading-go Project. *///* Author: Voldemar, Version: 14.03.2018, Site http://trading-go.ru *///************************************************************************************************///* *///************************************************************************************************///| Full version MetaTrader 4 https://www.mql5.com/ru/market/product/28140//| Lite version MetaTrader 4 https://www.mql5.com/ru/code/20223/181692//************************************************************************************************///| All products of the Author https://www.mql5.com/ru/users/voldemar/seller//************************************************************************************************/#property copyright “Copyright 2018, Trading-go Project.”#property link “http://trading-go.ru”#property version “18.030”#property description ” ”#property strict//************************************************************************************************///* *///************************************************************************************************/input int iTakeProfit = 300; // Take Profit (in pips)input double iStartLots = 0.01; // Start lotinput int iPointOrderStep = 390; // Point order step (in pips)input int iMinimalProfit = 70; // Minimal profit for close grid (in pips)input int iMagicNumber = 227; // Magic Number (in number)input int iSlippage = 30; // Slippage (in pips)//—//************************************************************************************************///* *///************************************************************************************************/int OnInit(){Comment(“”);return(INIT_SUCCEEDED);}//************************************************************************************************///* *///************************************************************************************************/void OnTick(){doubleBuyPriceMax=0,BuyPriceMin=0,BuyPriceMaxLot=0,BuyPriceMinLot=0,SelPriceMin=0,SelPriceMax=0,SelPriceMinLot=0,SelPriceMaxLot=0;

intBuyPriceMaxTic=0,BuyPriceMinTic=0,SelPriceMaxTic=0,SelPriceMinTic=0;

doubleop=0,lt=0,tp=0;

inttk=0,b=0,s=0;

for(int i=OrdersTotal()-1;i>=0;i–)if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))if(OrderMagicNumber()==iMagicNumber)if(OrderSymbol()==Symbol()){op=NormalizeDouble(OrderOpenPrice(),Digits());lt=NormalizeDouble(OrderLots(),2);tk=OrderTicket();if(OrderType()==OP_BUY){b++;if(op>BuyPriceMax || BuyPriceMax==0){BuyPriceMax = op;BuyPriceMaxLot = lt;BuyPriceMaxTic = tk;}if(op<BuyPriceMin || BuyPriceMin==0){BuyPriceMin = op;BuyPriceMinLot = lt;BuyPriceMinTic = tk;}}// ===if(OrderType()==OP_SELL){s++;if(op>SelPriceMax || SelPriceMax==0){SelPriceMax = op;SelPriceMaxLot = lt;SelPriceMaxTic = tk;}if(op<SelPriceMin || SelPriceMin==0){SelPriceMin = op;SelPriceMinLot = lt;SelPriceMinTic = tk;}}}//*************************************************************//double AwerageBuyPrice=0,AwerageSelPrice=0;if(b>=2) AwerageBuyPrice=NormalizeDouble((BuyPriceMax*BuyPriceMaxLot+BuyPriceMin*BuyPriceMinLot)/(BuyPriceMaxLot+BuyPriceMinLot)+iMinimalProfit*Point(),Digits());if(s>=2) AwerageSelPrice=NormalizeDouble((SelPriceMax*SelPriceMaxLot+SelPriceMin*SelPriceMinLot)/(SelPriceMaxLot+SelPriceMinLot)-iMinimalProfit*Point(),Digits());//*************************************************************//double BuyLot=0,SelLot=0;if(BuyPriceMinLot==0) BuyLot=iStartLots; else BuyLot=BuyPriceMinLot*2;if(SelPriceMaxLot==0) SelLot=iStartLots; else SelLot=SelPriceMaxLot*2;//*************************************************************//if(Close[1]>Open[1])if((b==0) || (b>0 && (BuyPriceMin-Ask)>(iPointOrderStep*Point())))if(OrderSend(Symbol(),OP_BUY,NormalizeDouble(BuyLot,2),NormalizeDouble(Ask,Digits()),iSlippage,0,0,”VR Setka Lite”,iMagicNumber,0,clrGreen)<0)Print(“OrderSend error #”,GetLastError());

if(Close[1]<Open[1])if((s==0) || (s>0 && (Bid-SelPriceMax)>(iPointOrderStep*Point())))if(OrderSend(Symbol(),OP_SELL,NormalizeDouble(SelLot,2),NormalizeDouble(Bid,Digits()),iSlippage,0,0,”VR Setka Lite”,iMagicNumber,0,clrGreen)<0)Print(“OrderSend error #”,GetLastError());//*************************************************************//for(int i=OrdersTotal()-1;i>=0;i–)if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))if(OrderMagicNumber()==iMagicNumber)if(OrderSymbol()==Symbol()){op=NormalizeDouble(OrderOpenPrice(),Digits());tp=NormalizeDouble(OrderTakeProfit(),Digits());lt=NormalizeDouble(OrderLots(),2);tk=OrderTicket();

if(OrderType()==OP_BUY && b==1 && tp==0)if(!OrderModify(tk,op,OrderStopLoss(),NormalizeDouble(Ask+iTakeProfit*Point(),Digits()),0,clrRed))Print(“OrderModify error #”,GetLastError());

if(OrderType()==OP_SELL && s==1 && tp==0)if(!OrderModify(tk,op,OrderStopLoss(),NormalizeDouble(Bid-iTakeProfit*Point(),Digits()),0,clrRed))Print(“OrderModify error #”,GetLastError());

if(OrderType()==OP_BUY && b>=2){if(tk==BuyPriceMaxTic || tk==BuyPriceMinTic)if(Bid<AwerageBuyPrice && tp!=AwerageBuyPrice)if(!OrderModify(tk,op,OrderStopLoss(),AwerageBuyPrice,0,clrRed))Print(“OrderModify error #”,GetLastError());

if(tk!=BuyPriceMaxTic && tk!=BuyPriceMinTic && tp!=0)if(!OrderModify(tk,op,0,0,0,clrRed))Print(“OrderModify error #”,GetLastError());}if(OrderType()==OP_SELL && s>=2){if(tk==SelPriceMaxTic || tk==SelPriceMinTic)if(Ask>AwerageSelPrice && tp!=AwerageSelPrice)if(!OrderModify(tk,op,OrderStopLoss(),AwerageSelPrice,0,clrRed))Print(“OrderModify error #”,GetLastError());

if(tk!=SelPriceMaxTic && tk!=SelPriceMinTic && tp!=0)if(!OrderModify(tk,op,0,0,0,clrRed))Print(“OrderModify error #”,GetLastError());}}}//************************************************************************************************///* *///************************************************************************************************/void OnDeinit(const int reason){

}//************************************************************************************************///* *///************************************************************************************************/

如果你对文件有了解，请帮助投票！

If you are familiar with the file, please help vote！

平均评分 5 / 5. 投票数： 1

到目前为止还没有投票！成为第一位投票人。