Good morning, coders and friends. Do any of you have a clock like the one circled in red? I don't like the counter next to the candle. I have one here, but it's showing incorrectly.
Attached Image (click to enlarge)
I will code your EAs and Indicators for no charge
- #78,382
- Jul 25, 2025 8:38am Jul 25, 2025 8:38am
- Joined Mar 2022 | Status: Trader | 6,558 Posts
Good morning, coders and friends. Do any of you have a clock like the one circled in red? I don't like the counter next to the candle. I have one here, but it's showing incorrectly. {image}
What exactly are you looking for???
.ex4/.ex5 files can't be fixed or modified / I'm not a coder!
Hello Best Trader Ev
I found the RSI BAND indicator code on the Trading View platform
I ask you to replace RSI with %R Williams (WPR)
Their calculation formulas differ.
RSI = 100 - (100 / (1 + RS)), where RS (Relative Strength) is equal to the average price increase divided by the average loss for a certain period
The Williams %R (WPR) indicator is calculated using the following formula: WPR = - ((H - C) / (H - L)) * 100, where:
C - the closing price of the current candlestick.
H - the maximum price for the period under consideration.
L - the minimum price for the period under consideration.
The code for RSI is not large - I hope you can handle it
Wishes are formulated
John Rockefeller
//
// @Author LazyBear
// List of all my indicators: Master Index: List of all my indicators for BTCE:BTCUSD by LazyBear
//
study("RSI Bands [LazyBear]", shorttitle="RSIBANDS_LB", overlay=true)
obLevel = input(70, title="RSI Overbought")
osLevel = input(30, title="RSI Oversold")
length = input(14, title="RSI Length")
src=close
ep = 2 * length - 1
auc = ema( max( src - src[1], 0 ), ep )
adc = ema( max( src[1] - src, 0 ), ep )
x1 = (length - 1) * ( adc * obLevel / (100-obLevel) - auc)
ub = iff( x1 >= 0, src + x1, src + x1 * (100-obLevel)/obLevel )
x2 = (length - 1) * ( adc * osLevel / (100-osLevel) - auc)
lb = iff( x2 >= 0, src + x2, src + x2 * (100-osLevel)/osLevel )
plot( ub, title="Resistance", color=red, linewidth=2)
plot( lb, title="Support", color=green, linewidth=2)
plot( avg(ub, lb), title="RSI Midline", color=gray, linewidth=1)
I found the RSI BAND indicator code on the Trading View platform
I ask you to replace RSI with %R Williams (WPR)
Their calculation formulas differ.
RSI = 100 - (100 / (1 + RS)), where RS (Relative Strength) is equal to the average price increase divided by the average loss for a certain period
The Williams %R (WPR) indicator is calculated using the following formula: WPR = - ((H - C) / (H - L)) * 100, where:
C - the closing price of the current candlestick.
H - the maximum price for the period under consideration.
L - the minimum price for the period under consideration.
The code for RSI is not large - I hope you can handle it
Wishes are formulated
John Rockefeller
//
// @Author LazyBear
// List of all my indicators: Master Index: List of all my indicators for BTCE:BTCUSD by LazyBear
//
study("RSI Bands [LazyBear]", shorttitle="RSIBANDS_LB", overlay=true)
obLevel = input(70, title="RSI Overbought")
osLevel = input(30, title="RSI Oversold")
length = input(14, title="RSI Length")
src=close
ep = 2 * length - 1
auc = ema( max( src - src[1], 0 ), ep )
adc = ema( max( src[1] - src, 0 ), ep )
x1 = (length - 1) * ( adc * obLevel / (100-obLevel) - auc)
ub = iff( x1 >= 0, src + x1, src + x1 * (100-obLevel)/obLevel )
x2 = (length - 1) * ( adc * osLevel / (100-osLevel) - auc)
lb = iff( x2 >= 0, src + x2, src + x2 * (100-osLevel)/osLevel )
plot( ub, title="Resistance", color=red, linewidth=2)
plot( lb, title="Support", color=green, linewidth=2)
plot( avg(ub, lb), title="RSI Midline", color=gray, linewidth=1)
https://www.rockco.com/
- #78,387
- Jul 25, 2025 10:58am Jul 25, 2025 10:58am
- Joined Aug 2006 | Status: Trader | 5,317 Posts
{quote} What's circled in red. I don't like the timer next to the candle.
It never gets easier, you just get better
- #78,390
- Jul 25, 2025 11:34am Jul 25, 2025 11:34am
- Joined Mar 2022 | Status: Trader | 6,558 Posts
.ex4/.ex5 files can't be fixed or modified / I'm not a coder!
- #78,395
- Jul 25, 2025 4:09pm Jul 25, 2025 4:09pm
Regards,
Moti
- #78,396
- Jul 25, 2025 4:12pm Jul 25, 2025 4:12pm
- Joined Aug 2006 | Status: Trader | 5,317 Posts
It never gets easier, you just get better
Hello coders,
Im looking for someone to help me build a custom MT4 indicator that can detect and plot the following Volume Spread Analysis (VSA) and price action candle patterns directly on the chart:
Climactic Bar (Buying/Selling Climax):
Wide spread candles with ultra-high volume, usually at the end of a trend.
Highlight these bars and optionally display a label (e.g., Climax).
Shakeout:
Has higher volume from previous range candles and sweeps below last candle low but closes within its body in the opposite direction.
Mark these candles and label them (e.g., Shakeout).
EVR (Effort vs Result):
Candle that sweeps below and closes in the opposite direction inside the body of the previous candle with narrow to medium spread with higher volume than previous three candles
Plot a label like EVR above/below the candle.
2-Bar Reversal (TBR):
Second bar engulfs the first candle, closing in the opposite direction.
Volume on the second bar should be equal to or lower than the first bar.
Plot a label like TBR.
Im looking for someone to help me build a custom MT4 indicator that can detect and plot the following Volume Spread Analysis (VSA) and price action candle patterns directly on the chart:
Climactic Bar (Buying/Selling Climax):Wide spread candles with ultra-high volume, usually at the end of a trend.
Highlight these bars and optionally display a label (e.g., Climax).
Shakeout:Has higher volume from previous range candles and sweeps below last candle low but closes within its body in the opposite direction.
Mark these candles and label them (e.g., Shakeout).
EVR (Effort vs Result):Candle that sweeps below and closes in the opposite direction inside the body of the previous candle with narrow to medium spread with higher volume than previous three candles
Plot a label like EVR above/below the candle.
2-Bar Reversal (TBR):Second bar engulfs the first candle, closing in the opposite direction.
Volume on the second bar should be equal to or lower than the first bar.
Plot a label like TBR.
- #78,400
- Jul 26, 2025 4:05am Jul 26, 2025 4:05am
- | Commercial User | Joined Aug 2019 | 2,246 Posts | Online Now
any programmer can add this function when mini grid value match trade open on bar close current ea work when mini grid value match then instant trade open i want to open trade on bar close ea and indicator with chart image attach below thank you for your support {image} {file} {file}
ChangeLog:
Inserted Code
/*-------------------------------------------------------------------- Change-log: STROM_MARTINGALE_EA Updated: [July 25, 2025] By: MwlRCT -------------------------------------------------------------------- - All trading and calculation logic now runs only on new bar. - Trade entries (including grid logic) occur only at new candle open. - No intra-bar trade execution. - Chart display updates remain live. --------------------------------------------------------------------*/
SourceCode:
Inserted Code
#property copyright "skilful_coder ( from MQL5.com ) :copyright: 2017"
#property link "https://www.mql5.com/en/users/skilful_coder/portfolio"
#property version "1.20"
#property strict
#include <stderror.mqh>
#include <stdlib.mqh>
/*
START
*/
enum trade{
a=0//BB
,b=1//EMA
,c=2//100 pips
};
enum Mart{
d=0//Pips
,e=1//Next candle
};
enum direct{
f=0//Buy
,g=1//Sell
,h=2//Buy & Sell
,j=3//None
};
enum Marti{
k=0//From 2 order
,l=1//From 3 order
};
//=== GENERAL SETTINGS ===
input string sep_GeneralSettings = "=== GENERAL SETTINGS ==="; //
string NameEA = "STROM MARTINGALE EA v2"; // Order comment
input double SLinMoney = 10.0; // Stop Loss in money
input double TPinMoney = 10.0; // Take Profit in money
input int MagicNumber = 123; // Magic number for order identification
trade TradeOpen = 0; // Trade logic selection (see 'trade' enum)
input double FixedLot = 0.01; // Initial lot size
input double MinGrid = 300.0; // Minimum grid distance
input double GridMulti = 1.0; // Grid multiplier
input Mart MartType = 0; // Martingale logic type (see 'Mart' enum)
input double MartMulti = 1.486; // Martingale multiplier
input Marti MartType2 = 0; // Martingale type (see 'Marti' enum)
input int MaxOpenOrders = 8; // Maximum martingale steps
input bool EnableTimer1 = false; // Enable trading time window 1
input string Timer1Start = "04:00";// Start time for trading window 1
input string Timer1End = "21:30";// End time for trading window 1
input bool EnableTimer2 = false; // Enable trading time window 2
input string Timer2Start = "10:00";// Start time for trading window 2
input string Timer2End = "15:30";// End time for trading window 2
input direct Direction = 2; // Allowed trading direction (see 'direct' enum)
input int Slippage = 3; // Maximum allowed slippage
input bool Commentary = true; // Show comments on chart
input color Box_Background_Color = clrWhiteSmoke; // Chart box background color
//=== BBANDS SETTINGS ===
input string sep_BBandsSettings = "=== BBANDS SETTINGS ==="; //
input int Symbol_1_Kod = 20; // Bollinger Bands period
input double Symbol_2_Kod = 1.5; // Bollinger Bands deviation
//=== EMA 1 SETTINGS ===
input string sep_EMA1Settings = "=== EMA 1 SETTINGS ==="; //
input int MA_Period1 = 8; // EMA 1 period
input ENUM_MA_METHOD MA_Method1 = MODE_EMA; // EMA 1 method
input ENUM_APPLIED_PRICE MA_Price1= PRICE_TYPICAL; // EMA 1 applied price
//=== EMA 2 SETTINGS ===
input string sep_EMA2Settings = "=== EMA 2 SETTINGS ==="; //
input int MA_Period2 = 11; // EMA 2 period
input ENUM_MA_METHOD MA_Method2 = MODE_EMA; // EMA 2 method
input ENUM_APPLIED_PRICE MA_Price2= PRICE_TYPICAL; // EMA 2 applied price
//=== EMA 3 SETTINGS ===
input string sep_EMA3Settings = "=== EMA 3 SETTINGS ==="; //
input int MA_Period3 = 14; // EMA 3 period
input ENUM_MA_METHOD MA_Method3 = MODE_EMA; // EMA 3 method
input ENUM_APPLIED_PRICE MA_Price3= PRICE_TYPICAL; // EMA 3 applied price
//=== 100PIPS MOMENTUM SETTINGS ===
input string sep_100PipsMomentumSettings = "=== 100PIPS MOMENTUM SETTINGS ==="; //
input int Period2 = 15; // 100pips Momentum period
//=== CHART DISPLAY SETTINGS ===
input string sep_ChartDisplaySettings = "=== CHART DISPLAY SETTINGS ==="; //
double StopLoss = 0; // Stop Loss (for display)
double TakeProfit = 0; // Take Profit (for display)
color CommColor = clrBlue; // Information text color
int InfoCorner = 0; // Information text corner
int Ymove = 32; // Y position for chart text
datetime B,S;
string prefix="",text[15];
int PipValue=1,digit_lot=0;
bool Buy=0,Sell=0,Buy2=0,Sell2=0,Buy3=0,Sell3=0;
double ClosingArray[100],Lotb,Lots,Sloss,Tprof,point,mingr,
LastPriceB,LastPriceS,AllProfitB,AllProfitS,LastLotB,LastLotS;
void OnInit(){
if(MarketInfo(Symbol(),MODE_LOTSTEP)==1) digit_lot=0;
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.1) digit_lot=1;
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.01) digit_lot=2;
if(_Digits==4 || (Bid<1000 && _Digits==2)){ PipValue=1;}
else PipValue=10;
if(_Digits==1) point = 1;
if(_Digits==0) point = 1;
if(_Digits==4 || _Digits==5) point = 0.0001;
if((_Digits==2 || _Digits==3) && Bid>1000) point = 1;
if((_Digits==2 || _Digits==3) && Bid<1000) point = 0.01;
if(StringFind(_Symbol,"XAU")>-1 || StringFind(_Symbol,"xau")>-1 ||
StringFind(_Symbol,"GOLD")>-1) point = 0.1;
if(IsTesting()) prefix="Test"+IntegerToString(MagicNumber)+Symbol();
else prefix=IntegerToString(MagicNumber)+Symbol(); MakeLabel();
return;
}
void OnDeinit(const int reason)
{
if(IsTesting()){GVDel(prefix);}
return;
}
double BBup(int shift){
double val = iBands(NULL,0,Symbol_1_Kod,Symbol_2_Kod,0,PRICE_CLOSE,MODE_UPPER,shift);
return(val);}
double BBdn(int shift){
double val = iBands(NULL,0,Symbol_1_Kod,Symbol_2_Kod,0,PRICE_CLOSE,MODE_LOWER,shift);
return(val);}
double EMA1(int shift){
double val = iMA(NULL,0,MA_Period1,0,MA_Method1,MA_Price1,shift);
return(val);}
double EMA2(int shift){
double val = iMA(NULL,0,MA_Period2,0,MA_Method2,MA_Price2,shift);
return(val);}
double EMA3(int shift){
double val = iMA(NULL,0,MA_Period3,0,MA_Method3,MA_Price3,shift);
return(val);}
double Mom(int buff, int shift){
double val = iCustom(Symbol(),0,"100pips Momentum_1.4",1,Period2," ",0,0,0," ",buff,shift);
return(val);}
void Indicators()
{
Buy = (BBdn(1) > iClose(NULL,0,1) && BBdn(1) < iOpen(NULL,0,1));
Sell = (BBup(1) < iClose(NULL,0,1) && BBup(1) > iOpen(NULL,0,1));
Buy2 = (EMA1(1) > EMA2(1) && EMA2(1) > EMA3(1));
Sell2 = (EMA1(1) < EMA2(1) && EMA2(1) < EMA3(1));
Buy3 = (Mom(4,1) != EMPTY_VALUE && Mom(4,2) == EMPTY_VALUE);
Sell3 = (Mom(5,1) != EMPTY_VALUE && Mom(5,2) == EMPTY_VALUE);
}
void OnTick(){
PrintInfoToChart();
static datetime barTime = 0;
if(barTime == iTime(Symbol(), 0, 0))
{
return;
}
barTime = iTime(Symbol(), 0, 0);
LotsSize();
Indicators();
int num = Orders(-1);
if(num < 1){GVSet("buy",0);GVSet("sell",0);}
LastPriceB = FindLastOrderParameterB("price");
LastPriceS = FindLastOrderParameterS("price");
double grid = MinGrid; int loss = Orders(-1);
if(GridMulti > 0 && loss > 0){ grid = NormalizeDouble(MinGrid * MathPow(GridMulti, loss), 1);}
if(MathAbs(CheckProfit(-1)) > SLinMoney && CheckProfit(-1) < 0 && SLinMoney != 0)
{
GVSet("loss",1);
}
if(GVGet("loss")==1 && SLinMoney != 0)
{
if(CloseOrders(-1)){GVSet("loss",0);Print("-----> Package closed !");}
}
if(CheckProfit(-1) > TPinMoney && TPinMoney != 0)
{
GVSet("profit",1);
}
if(GVGet("profit")==1 && TPinMoney != 0)
{
if(CloseOrders(-1)){GVSet("profit",0);Print("-----> Package closed !");}
}
bool band = 0,ban = 0;
for(int i = OrdersTotal() - 1; i >= 0; i--)
if(OrderSelect (i, SELECT_BY_POS)){
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderComment()==NameEA+(string) 1){
if(OrderOpenTime() >= iTime(NULL,0,0))ban = true;}}
if(ban){return;}
for(int i=OrdersHistoryTotal()-1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false){
Print("Error in history!"); break;}
if(OrderSymbol()!= Symbol() || OrderType() > OP_SELL) continue;
if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderComment()==NameEA+(string) 1){
if(OrderOpenTime() >= iTime(NULL,0,0))band = true;}}
if(band){return;}
if(num < 1 && TradeOpen==0 && GoodTime() && MartType==1){
if(Buy && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < 1 && TradeOpen==1 && GoodTime() && MartType==1){
if(Buy2 && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell2 && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < 1 && TradeOpen==2 && GoodTime() && MartType==1){
if(Buy3 && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell3 && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < MaxOpenOrders+1 && GoodTime() && MartType==1){
if(B+0.1 < TimeCurrent() && GVGet("buy")==1 && Direction != 3 && (Direction==0 || Direction==2) && LastPriceB-grid*Point > Ask){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrGreen);
if(Tiketb > 0){B=TimeCurrent();}
}
if(S+0.1 < TimeCurrent() && GVGet("sell")==1 && Direction != 3 && (Direction==1 || Direction==2) && LastPriceS+grid*Point < Bid){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 1,MagicNumber,0,clrMagenta);
if(Tikets > 0){S=TimeCurrent();}
}}
if(num < 1 && TradeOpen==0 && GoodTime() && MartType==0){
if(Buy && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < 1 && TradeOpen==1 && GoodTime() && MartType==0){
if(Buy2 && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell2 && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < 1 && TradeOpen==2 && GoodTime() && MartType==0){
if(Buy3 && GVGet("buy")==0 && Direction != 3 && (Direction==0 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrBlue);
if(Tiketb > 0){GVSet("buy",1);B=TimeCurrent();}
}
if(Sell3 && GVGet("sell")==0 && Direction != 3 && (Direction==1 || Direction==2)){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrRed);
if(Tikets > 0){GVSet("sell",1);S=TimeCurrent();}
}}
if(num < MaxOpenOrders+1 && MartType==0){
if(B+0.1 < TimeCurrent() && GVGet("buy")==1 && Direction != 3 && (Direction==0 || Direction==2) && LastPriceB-grid*Point > Ask){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Ask - StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Ask + TakeProfit * point;}
int Tiketb = OrderSend(Symbol(),OP_BUY,Lotb,Ask,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrGreen);
if(Tiketb > 0){B=TimeCurrent();}
}
if(S+0.1 < TimeCurrent() && GVGet("sell")==1 && Direction != 3 && (Direction==1 || Direction==2) && LastPriceS+grid*Point < Bid){
if(StopLoss == 0){Sloss = 0;}else{
Sloss = Bid + StopLoss * point;}
if(TakeProfit == 0){Tprof = 0;}else{
Tprof = Bid - TakeProfit * point;}
int Tikets = OrderSend(Symbol(),OP_SELL,Lots,Bid,Slippage*PipValue,Sloss,Tprof,NameEA+(string) 2,MagicNumber,0,clrMagenta);
if(Tikets > 0){S=TimeCurrent();}
}}
return;
}
void PrintInfoToChart()
{
string Direc,Direc2;
if(Direction==2){Direc="L & S";}
if(Direction==0){Direc="L";}
if(Direction==1){Direc="S";}
if(Direction==3){Direc="None";}
if(TradeOpen==0){Direc2="BB";}
if(TradeOpen==1){Direc2="EMA";}
if(TradeOpen==2){Direc2="100 pips";}
if(Commentary){
text[1]= "---------------------------------------";
text[2]= "STROM Martinagle EA v1.00";
text[3]= "Direction: " + Direc;
text[4]= "Logic: " + Direc2;
text[5]= "MinGrid: " + DoubleToStr(MinGrid, 2);
text[6]= "TP in money: " + DoubleToStr(TPinMoney, 2);
text[7]= "Current Profit: " + DoubleToStr(CheckProfit(-1), 2);
text[8]= "Magic Number: " + IntegerToString(MagicNumber, 2);
text[9]= "---------------------------------------";
int i=1, k=Ymove;
while (i<=14)
{
string ChartInfo = DoubleToStr(i, 0);
ObjectCreate(ChartInfo, OBJ_LABEL, 0, 0, 0);
ObjectSetText(ChartInfo, text[i], 9, "Arial", CommColor);
ObjectSet(ChartInfo, OBJPROP_CORNER, InfoCorner);
ObjectSet(ChartInfo, OBJPROP_XDISTANCE, 7);
ObjectSet(ChartInfo, OBJPROP_YDISTANCE, k);
i++;
k=k+13;
}}}
void MakeLabel()
{
string gs = "g"; for (int i=1; i<1; i++) gs = gs + "g";
string Box = "B2";
ObjectCreate(Box, OBJ_LABEL, 0, 0, 0, 0, 0);
ObjectSetText(Box, gs, 120, "Webdings");
ObjectSet(Box, OBJPROP_CORNER, 0);
ObjectSet(Box, OBJPROP_XDISTANCE, 1);
ObjectSet(Box, OBJPROP_YDISTANCE, 13);
ObjectSet(Box, OBJPROP_COLOR, Box_Background_Color);
ObjectSet(Box, OBJPROP_BACK, FALSE);
return;
}
void LotsSize(){
Lotb = FixedLot;
Lots = FixedLot;
int num = Orders(-1);
AllProfitB = FindLastOrderParameterB("profit");
LastLotB = FindLastOrderParameterB("lot");
AllProfitS = FindLastOrderParameterS("profit");
LastLotS = FindLastOrderParameterS("lot");
if(AllProfitB < 0 && MartType2==0){Lotb = NormalizeDouble(LastLotB*MartMulti, digit_lot);}
if(AllProfitS < 0 && MartType2==0){Lots = NormalizeDouble(LastLotS*MartMulti, digit_lot);}
if(AllProfitB < 0 && MartType2==1 && num > 1){Lotb = NormalizeDouble(LastLotB*MartMulti, digit_lot);}
if(AllProfitS < 0 && MartType2==1 && num > 1){Lots = NormalizeDouble(LastLotS*MartMulti, digit_lot);}
if(Lotb < MarketInfo(Symbol(),MODE_MINLOT)) Lotb = MarketInfo(Symbol(),MODE_MINLOT);
if(Lotb > MarketInfo(Symbol(),MODE_MAXLOT)) Lotb = MarketInfo(Symbol(),MODE_MAXLOT);
if(Lots < MarketInfo(Symbol(),MODE_MINLOT)) Lots = MarketInfo(Symbol(),MODE_MINLOT);
if(Lots > MarketInfo(Symbol(),MODE_MAXLOT)) Lots = MarketInfo(Symbol(),MODE_MAXLOT);}
double CheckProfit(int type)
{
double Profitb=0,Profits=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
bool os = OrderSelect(i,SELECT_BY_POS);
if(OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber)
{
if(OrderType()==OP_BUY){ Profitb+=OrderProfit()+OrderSwap()+OrderCommission();}
if(OrderType()==OP_SELL){ Profits+=OrderProfit()+OrderSwap()+OrderCommission();}
}}
if(0==type){ return(Profitb);}
if(1==type){ return(Profits);}
if(-1==type){ return(Profits+Profitb);}
return(0);
}
int Orders(int type)
{
int count=0;
for(int x=OrdersTotal()-1;x>=0;x--)
{
if(OrderSelect(x,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==MagicNumber)
{
if(type < 0){ count++;}
if(OrderType() == type && type >= 0){ count++;}
if(OrderType() <= 1 && type == 8){ count++;}
if(OrderType() > 1 && type == 9){ count++;}
if((OrderType() == 0 || OrderType() == 2 || OrderType() == 4) && type == 6){ count++;}
if((OrderType() == 1 || OrderType() == 3 || OrderType() == 5) && type == 7){ count++;}
}}}
return(count);
}
bool CloseOrders(int type)
{
bool oc=0;
for(int i=OrdersTotal()-1;i>=0;i--){
bool os = OrderSelect(i,SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()==Symbol() && (MagicNumber == 0 || OrderMagicNumber() == MagicNumber))
{
if(type==-1){
if(OrderType()==0){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if(OrderType()==1){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if(OrderType()>1){ oc = OrderDelete(OrderTicket());}}
if(OrderType()>1 && type==9){ oc = OrderDelete(OrderTicket());}
if(OrderType()<=1 && type==8){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if(OrderType()==type && type==0){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if(OrderType()==type && type==1){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if(OrderType()==type && OrderType()> 1){ oc = OrderDelete(OrderTicket());}
if(OrderType()==0 && type==6){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if((OrderType()==2 || OrderType()== 4) && type==6){ oc = OrderDelete(OrderTicket());}
if(OrderType()==1 && type==7){ oc = OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),1000,clrGold);}
if((OrderType()==3 || OrderType()== 5) && type==7){ oc = OrderDelete(OrderTicket());}
for(int x=0;x<100;x++)
{
if(ClosingArray[x]==0)
{
ClosingArray[x]=OrderTicket();
break; } } } }
return(oc);
}
bool GoodTime()
{
if(!EnableTimer1 && !EnableTimer2)return(true);
if(EnableTimer1 || EnableTimer2)
{
if(TimeCurrent() > StrToTime(Timer1Start) && TimeCurrent() < StrToTime(Timer1End) && EnableTimer1)
return(true);
if(TimeCurrent() > StrToTime(Timer2Start) && TimeCurrent() < StrToTime(Timer2End) && EnableTimer2)
return(true);
}
return(false);
}
double FindLastOrderParameterB(string ParamName){
double mOrderPrice = 0, mOrderLot = 0, mOrderProfit = 0;
int PrevTicket = 0, CurrTicket = 0, mOrderTicket = 0;
datetime tim = 0;
for (int i = OrdersTotal() - 1; i >= 0; i--)
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType()==OP_BUY){
CurrTicket = OrderTicket();
if (CurrTicket > PrevTicket){
PrevTicket = CurrTicket;
tim = OrderOpenTime();
mOrderPrice = OrderOpenPrice();
mOrderTicket = OrderTicket();
mOrderLot = OrderLots();
mOrderProfit = OrderProfit() + OrderSwap() + OrderCommission();}}
if(ParamName == "price") return(mOrderPrice);
else if(ParamName == "ticket") return(mOrderTicket);
else if(ParamName == "lot") return(mOrderLot);
else if(ParamName == "profit") return(mOrderProfit);
else if(ParamName == "tm") return((int)tim);
return(0);
}
double FindLastOrderParameterS(string ParamName){
double mOrderPrice = 0, mOrderLot = 0, mOrderProfit = 0;
int PrevTicket = 0, CurrTicket = 0, mOrderTicket = 0;
datetime tim = 0;
for (int i = OrdersTotal() - 1; i >= 0; i--)
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType()==OP_SELL){
CurrTicket = OrderTicket();
if (CurrTicket > PrevTicket){
PrevTicket = CurrTicket;
tim = OrderOpenTime();
mOrderPrice = OrderOpenPrice();
mOrderTicket = OrderTicket();
mOrderLot = OrderLots();
mOrderProfit = OrderProfit() + OrderSwap() + OrderCommission();}}
if(ParamName == "price") return(mOrderPrice);
else if(ParamName == "ticket") return(mOrderTicket);
else if(ParamName == "lot") return(mOrderLot);
else if(ParamName == "profit") return(mOrderProfit);
else if(ParamName == "tm") return((int)tim);
return(0);
}
datetime GVSet(string name,double value)
{
return(GlobalVariableSet(prefix+name,value));
}
double GVGet(string name)
{
return(GlobalVariableGet(prefix+name));
}
bool GVDel(string pref)
{
for(int tries=0; tries<10; tries++)
{
int obj=GlobalVariablesTotal();
for(int o=0; o<obj;o++)
{
string name=GlobalVariableName(o);
int index=StringFind(name,pref,0);
if(index>-1)
GlobalVariableDel(name);
}
}
return(0);
} Download: