BTC USD 84,409.3 Gold USD 4,369.18
Time now: Jun 1, 12:00 AM

EA ketigaku - ThreeDemons

Izham87

Izham87

Active Member
Messages
1,198
Joined
Jul 14, 2016
Messages
1,198
Reaction score
528
Points
81
Salam semua..

EA ni dibuat atas dasar suka2 dan atas dasar semangat belajar coding mql4. bukan nak digunakan kat real akaun.

Algo EA ni:

1. bukak buy&sell serentak dengan tp yang boleh set, katakan 10 pip.
2. bila salah satu post hit tp, katakan sell hit tp, maka tp buy akan diadjust ke breakeven + spread.
3. position buy tadi akan dibiarkan dan pada masa yang sama selepas sell hit tp tadi, buy&sell serentak akan dilakukan lagi dengan tp 10 pip.

so, dengan ini, post akan sentiasa close dalam profit. equity akan bertambah, dalam masa sama float = pertambahan profit. macam tak guna la..:eek: :eek: :eek: (EA tak guna ni untuk educational purpose je tau)

nama EA ni ThreeDemons sebab yang menyebabkan equity kurang dalam EA ni ada 3 bende/demons:

1. Spread
2. Swap
3. Slippage

Code EA seperti di bawah (untuk 5-decimal broker):

Code: 
//+------------------------------------------------------------------+
//|                                                  ThreeDemons.mq4 |
//|                                          Copyright 2017, Izham87 |
//|                                          https://www.Izham87.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, Izham87"
#property link      "https://www.Izham87.com"
#property version   "1.00"
#property strict

#include <stderror.mqh>
#include <stdlib.mqh>


extern double TP = 100;
extern double Lot = 0.01;
extern int MagicNumber = 77;

int lastbuyticket = 0;
int lastsellticket = 0;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  **
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  **
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
if(subTotalTrade()==0)  
subDoubleDose();
else
{
//check lastbuy ticket
if(OrderSelect(lastbuyticket,SELECT_BY_TICKET)==true && OrderCloseTime()>0)
subModifyOrder(lastsellticket);
else
Print("OrderSelect lastbuyticket returned the error of ",GetLastError());

//check lastsell ticket
if(OrderSelect(lastsellticket,SELECT_BY_TICKET)==true && OrderCloseTime()>0)
subModifyOrder(lastbuyticket);
else
Print("OrderSelect lastsellticket returned the error of ",GetLastError());
**    
**

//+------------------------------------------------------------------+
void subModifyOrder(int ticketmodify)
{
double takeprofit=0;
if(OrderSelect(ticketmodify,SELECT_BY_TICKET)==true)
{
 if(OrderType()==OP_BUY)
 takeprofit=OrderOpenPrice()+(Ask-Bid);
 else
 takeprofit=OrderOpenPrice()-(Ask-Bid);
 bool res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),takeprofit,0,CLR_NONE);
 if(!res)
 Print("Error in OrderModify. Error code=",GetLastError());
 else
 {
 Print("Order modified successfully.");
subDoubleDose();
** 
**
else
Print("OrderSelect ticketmodify returned the error of ",GetLastError());
**


//+------------------------------------------------------------------+
void subDoubleDose()
{
 int ticket;
  ticket = subOpenOrder(OP_SELL, Symbol(), Lot);
  subCheckError(ticket, "SELL");
  lastsellticket=ticket;
  ticket = subOpenOrder(OP_BUY, Symbol(), Lot);
  subCheckError(ticket, "BUY");
  lastbuyticket=ticket;
**

//+------------------------------------------------------------------+
int subOpenOrder(int type, string symbol, double openlot)
{
   int
         ticket      = 0,
         err         = 0,
         c           = 0;
         
   double         
         aStopLoss   = 0,
         aTakeProfit = 0,
         bStopLoss   = 0,
         bTakeProfit = 0;


   aTakeProfit = NormalizeDouble(Ask+TP*Point(),(int)Digits);
    bTakeProfit = NormalizeDouble(Bid-TP*Point(),(int)Digits);
 
  
   
   if(type==OP_BUY)
   {
      for(c=0;c<10;c++)
      {  
         ticket=OrderSend(symbol,OP_BUY,openlot,Ask,5,aStopLoss,aTakeProfit,"",MagicNumber,0);
         err=GetLastError();
         if(err==0)
         { 
            if(ticket>0) break;
         **
         else
         {
            if(err==0 || err==4 || err==136 || err==137 || err==138 || err==146) //Busy errors
            {
               Sleep(5000);
               continue;
            **
            else //normal error
            {
               if(ticket>0) break;
            **  
         **
      **   
   **
   
   if(type==OP_SELL)
   {   
      for(c=0;c<10;c++)
      {
         ticket=OrderSend(symbol,OP_SELL,openlot,Bid,5,bStopLoss,bTakeProfit,"",MagicNumber,0);
         err=GetLastError();
         if(err==0)
         { 
            if(ticket>0) break;
         **
         else
         {
            if(err==0 || err==4 || err==136 || err==137 || err==138 || err==146) //Busy errors
            {
               Sleep(5000);
               continue;
            **
            else //normal error
            {
               if(ticket>0) break;
            **  
         **
      **   
   **  
   return(ticket);
**

void subCheckError(int ticket, string Type)
{
    if(ticket>0) 
    {
      if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
      {
      Print(Type + " order opened : ",OrderOpenPrice());
    **
    else Print("Error opening " + Type + " order : (",GetLastError(),") ", ErrorDescription(GetLastError()));
    **
**



//----------------------- 
int subTotalTrade()
{
   int cnt;
   int total = 0;

   for(cnt=0;cnt<OrdersTotal();cnt++)
   {
      if(OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES)==true){
      if(OrderType()<=OP_SELL &&
         OrderMagicNumber()==MagicNumber) total++;**
   **
   return(total);
 **
 
tq tuan

ea ni bagus kalau market trending
pasti asek tp 10 pip
 
Ada buat improvement sikit, create dua counter buytpcounter & selltp counter. pastu lot yang dibuka ikut ratio berapa byk counter2 tersebut. tujuannya supaya kalau buy selalu kena tp, lot untuk buy lebih besar sedikit dari lot untuk sell dan sebaliknya. adaptive trend following. ratio ni pakai total buy + sell tp as denominator dari mula ea execute.. saya dpt idea baru tadi, buat ratio 10 total buy & sell tp yang terakhir lagi bagus kot...ada masa baru coding yang ni...



Code: 
//+------------------------------------------------------------------+
//|                                       ThreeDemonsLotBalancer.mq4 |
//|                                          Copyright 2017, Izham87 |
//|                                          https://www.Izham87.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, Izham87"
#property link      "https://www.Izham87.com"
#property version   "1.00"
#property strict

#include <stderror.mqh>
#include <stdlib.mqh>


extern double TP = 100;
extern double Lot = 0.06;
extern int MagicNumber = 77;
extern double minlot = 0.01;
extern double maxlot = 100.0;

int lastbuyticket = 0;
int lastsellticket = 0;

int BuyTPCounter = 0;
int SellTPCounter = 0;

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  **
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  **
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
  
if(subTotalTrade()==0)  
subDoubleDose();
else
{
//start check lastbuy ticket
if(OrderSelect(lastbuyticket,SELECT_BY_TICKET)==true)
{
if(OrderCloseTime()>0) //buy order was closed
{
subModifyOrder(lastsellticket); //modify sell order tp to BE
BuyTPCounter+=1;
subDoubleDose();
**
**
else
Print("OrderSelect lastbuyticket="+lastbuyticket+" returned the error of ",GetLastError());
//end check lastbuy ticket

//start check lastsell ticket
if(OrderSelect(lastsellticket,SELECT_BY_TICKET)==true)
{
if(OrderCloseTime()>0)
{
subModifyOrder(lastbuyticket);
SellTPCounter+=1;
subDoubleDose();
**
**
else
Print("OrderSelect lastsellticket="+lastsellticket+" returned the error of ",GetLastError());
//end check lastsell ticket

**
    
**

//+------------------------------------------------------------------+
void subModifyOrder(int ticketmodify)
{
double takeprofit=0;
if(OrderSelect(ticketmodify,SELECT_BY_TICKET)==true)
{
 takeprofit=OrderOpenPrice();
 bool res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderStopLoss(),takeprofit,0,CLR_NONE);
 if(!res)
 Print("Error in OrderModify. Error code=",GetLastError());
 else
 Print("Order modified successfully."); 
**
else
Print("OrderSelect ticketmodify returned the error of ",GetLastError());
**


//+------------------------------------------------------------------+
void subDoubleDose()
{
 int ticket;
 double orderlot;
  
  if(BuyTPCounter==0 || SellTPCounter==0) orderlot=Lot*0.5;
  else orderlot=WithinMinMax((BuyTPCounter*Lot)/(BuyTPCounter+SellTPCounter),minlot,maxlot);
   
  ticket = subOpenOrder(OP_BUY, Symbol(), NormalizeDouble(orderlot,2));
  subCheckError(ticket, "BUY");
   if(ticket>0) lastbuyticket=ticket;
  
  if(BuyTPCounter==0 || SellTPCounter==0) orderlot=Lot*0.5;
  else orderlot=WithinMinMax((SellTPCounter*Lot)/(BuyTPCounter+SellTPCounter),minlot,maxlot); 
  
  ticket = subOpenOrder(OP_SELL, Symbol(), NormalizeDouble(orderlot,2));
  subCheckError(ticket, "SELL");
  if(ticket>0) lastsellticket=ticket;
  
 

  
**

//+------------------------------------------------------------------+
int subOpenOrder(int type, string symbol, double openlot)
{
   int
         ticket      = 0,
         err         = 0,
         c           = 0;
         
   double         
         aStopLoss   = 0,
         aTakeProfit = 0,
         bStopLoss   = 0,
         bTakeProfit = 0;


   aTakeProfit = NormalizeDouble(Ask+TP*Point(),(int)Digits);
    bTakeProfit = NormalizeDouble(Bid-TP*Point(),(int)Digits);
 
   
   if(type==OP_BUY)
   {
      for(c=0;c<10;c++)
      {  
         ticket=OrderSend(symbol,OP_BUY,openlot,Ask,5,aStopLoss,aTakeProfit,"",MagicNumber,0);
         err=GetLastError();
         if(err==0)
         { 
            if(ticket>0) break;
         **
         else
         {
            if(err==0 || err==4 || err==136 || err==137 || err==138 || err==146) //Busy errors
            {
               Sleep(5000);
               continue;
            **
            else //normal error
            {
               if(ticket>0) break;
            **  
         **
      **   
   **
   
   if(type==OP_SELL)
   {   
      for(c=0;c<10;c++)
      {
         ticket=OrderSend(symbol,OP_SELL,openlot,Bid,5,bStopLoss,bTakeProfit,"",MagicNumber,0); 
         err=GetLastError();
         if(err==0)
         { 
            if(ticket>0) break;
         **
         else
         {
            if(err==0 || err==4 || err==136 || err==137 || err==138 || err==146) //Busy errors
            {
               Sleep(5000);
               continue;
            **
            else //normal error
            {
               if(ticket>0) break;
            **  
         **
      **   
   **  
   return(ticket);
**

void subCheckError(int ticket, string Type)
{
    if(ticket>0) 
    {
      if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
      {
      Print(Type + " order opened : ",OrderOpenPrice());
    **
    else Print("Error opening " + Type + " order : (",GetLastError(),") ", ErrorDescription(GetLastError()));
    **
**




//----------------------- 
int subTotalTrade()
{
   int cnt;
   int total = 0;

   for(cnt=0;cnt<OrdersTotal();cnt++)
   {
      if(OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES)==true){
      if(OrderType()<=OP_SELL &&
         OrderMagicNumber()==MagicNumber) total++;**
   **
   return(total);
 **
 
 
 double WithinMinMax(double lot, double min, double max) { 
   double retval = lot;
   if (lot < min) retval = min;
   if (lot > max) retval = max;
   return (retval);
**
 

Similar threads

S
Kenapa byk EA Gold hujung2 mesti sangkut loss?
Replies
2
Views
177
dell
dell
T
NEW EA TRADE EA
Replies
2
Views
446
RainbowRain
RainbowRain
dhani1812
FuturesTrade EA + StoneX Broker
Replies
3
Views
246
dhani1812
dhani1812
Greg44
Rhuva Gold EA Delivers Strong Results on XAUUSD – Recent Performance & Key Tweaks
Replies
2
Views
90
Greg44
Greg44
M
EA trading bot InvestCox100
Replies
1
Views
413
MaestroFX
M

Forex News

Latest Posts

Live Forex Chart

Currency
Rates
EUR / USD
1.14898
USD / JPY
157.282
GBP / USD
1.33803
USD / CHF
0.82232
USD / CAD
1.40170
EUR / JPY
180.636
AUD / USD
0.71297

Welcome to the one of the largest online investment & business portal in South-East Asia. You currently view about 1/3 of our forum sections. In order to enter all sections without restrictions, you may have to register to get full view and more functions available.

Forum statistics

Threads
792,648
Messages
26,709,486
Members
175,543
Latest member
manui

What's new

Copyright ©2005 - 2026, CariGold.com

Disclaimer: All posts published herein are merely based on individual views, and they do not expressly or by implications represent those of CariGold.com or its owner. It is hereby made clear that CariGold.com does not endorse, support, adopt or vouch any views, programs and/or business opportunities posted herein. CariGold.com also does not give and/or offer any investment advice to any members and/or readers. All members and readers are advised to independently consult their own consultants, lawyers and/or families before making any investment and/or business decisions. This forum is merely a place for general discussions. It is hereby agreed by all members and/or readers that CariGold. com is in no way responsible and/or liable for any damages and/or losses suffered by anyone of you.

Back
Top
Log in Register