HERKESE YARDIM !!!

[Silindi] 2010.06.12 19:34 #51

extern string БАЙ = "NASTROI:";
extern int StopLoss = 200; // SL для открываемого ордера
extern int TakeProfit = 40;
extern double TrailingStop = 3;
extern double TrailingStep =0;
extern string ЛОТ = "NASTROI LOT:";
extern double Lots = 0.1; // Жестко заданное колич. лотов
extern double ДОЛЯ_ДЕП_ОСН_ОРД = 0; // доля от свободных средств 
extern double MAX_LOT = 40;
extern bool NORMALIZ = false;
extern string П = "EDGE:";
extern int МАКС_КОЛИЧ_ОРДЕРОВ = 111;
extern double БАЛАНС_МАРЖИ=1;
extern int  TFCLOSE=5;
extern string FLAG = "FLAGS:";
extern int BUY =1; //блок бай
extern int SELL =1; //блок сел
extern int MINIM=1;
extern double F=1;
extern int ДИСТАНЦИЯ_ВЫСТАВЛЕНИЯ_ОТЛОЖ = 5;
extern int MAGA = 7777; //магик № бай
extern double Z=10;

//,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
bool DS=0,DB=0,ZB=0,ZS=0;

void deinit() {
   Comment("");
}

int start()
{
  //bool DS=0,DB=0,ZB=0,ZS=0;
  int R=1,CB=0;
  double Lts,
  FB=F,FS=F,MG,ZL=0,  
  Min_Lot,
  Lts1,
  TPD1;
  bool Cls_B = false,
  Cls_S = false,
  Opn_B = false,
  Opn_S = false;



  
  //00000000000000000000000000000000000000000000000000000
        //+------------РАСЧЁТ СТОИМОСТИ------------------------------------------------------+        
          // Стоимость ордеров
       
        if(БАЛАНС_МАРЖИ>0&&NORMALIZ==false)
        {
        RefreshRates();
        if(AccountFreeMargin()>AccountMargin())MG=AccountFreeMargin();
        //if(AccountFreeMargin()<AccountMargin())MG=0;
        if(БАЛАНС_МАРЖИ*AccountFreeMargin()<AccountMargin())R=0;
        Min_Lot = MarketInfo(Symbol(), MODE_MINLOT);
        
        if(Lots > 0 && ДОЛЯ_ДЕП_ОСН_ОРД == 0)
          Lts = Lots;
        if(ДОЛЯ_ДЕП_ОСН_ОРД > 0)
          Lts=MG/MarketInfo (Symbol(), MODE_MARGINREQUIRED)*ДОЛЯ_ДЕП_ОСН_ОРД;
        if(Lts > MAX_LOT)
          Lts = MAX_LOT;
        if(MG==0)Lts =0;
        if(MG>0&&Lts < Min_Lot&&MINIM==0)
        {
        R=0;
        Lts = 0;// Min_Lot;
        }
        if(MG>0&&Lts < Min_Lot&&MINIM==1)
        {
        Lts = Min_Lot;
        }
        Lts1=Lts;
        }
        //................................
        int m;
        if(NORMALIZ==true&&БАЛАНС_МАРЖИ>0)
        {
        if(AccountFreeMargin()>AccountMargin())MG=AccountFreeMargin();
        if(AccountFreeMargin()<AccountMargin())MG=0;
        Min_Lot = MarketInfo(Symbol(), MODE_MINLOT);
        //........................................................
        if(Lots > 0 && ДОЛЯ_ДЕП_ОСН_ОРД == 0)
          Lts = Lots;
        if(ДОЛЯ_ДЕП_ОСН_ОРД>0)
          m=БАЛАНС_МАРЖИ*MG/MarketInfo (Symbol(), MODE_MARGINREQUIRED)*ДОЛЯ_ДЕП_ОСН_ОРД/Min_Lot;
          Lts = m*Min_Lot;
        
        if(Lts > MAX_LOT)
          Lts = MAX_LOT;
        if(MG==0)Lts =0;
        if(MG>0&&Lts < Min_Lot)
        {
         Lts =Min_Lot;
        // R=O;
        }
         Lts= Lts;
        }
         
        //................................
        
        if(БАЛАНС_МАРЖИ==0)
        {
         RefreshRates();
        Min_Lot = MarketInfo(Symbol(), MODE_MINLOT);       
        if(Lots > 0 && ДОЛЯ_ДЕП_ОСН_ОРД == 0)
          Lts = Lots;
        if(ДОЛЯ_ДЕП_ОСН_ОРД > 0)
          Lts=AccountFreeMargin()/MarketInfo (Symbol(), MODE_MARGINREQUIRED)*ДОЛЯ_ДЕП_ОСН_ОРД;
        if(Lts > MAX_LOT)
          Lts = MAX_LOT;        
        if(Lts < Min_Lot&&MINIM==0)
        {
        R=0;
        Lts = 0;//Min_Lot;
        }
        if(Lts < Min_Lot&&MINIM==1)
        {
        Lts = Min_Lot;
        }
        Lts1=Lts;
        }
        
for(int x = 0; x < OrdersTotal(); x++)
        {
          if(OrderSelect(x, SELECT_BY_POS)&&OrderSymbol()==Symbol()&&OrderMagicNumber()==MAGA)
          switch(OrderType())
          {
          case 0:DB=1;break;
          case 1:DS=1;break;
          case 4:ZB=1;break;
          case 5:ZS=1;break;
          
           }
      //if(OrderType() == OP_BUYSTOP)ZB=1;
      //if(OrderType() == OP_SELLSTOP)ZS=1;
     
      //if(OrderType() == OP_SELL)DB=1;
         
      if(OrderType() == OP_SELLSTOP&&DB==1){OrderDelete(OrderTicket(),CLR_NONE);return(0);}
     
     // if(OrderType() == OP_BUY)DS=1;
      
      if(OrderType() == OP_BUYSTOP&&DS==1){OrderDelete(OrderTicket(),CLR_NONE);return(0);}
      
        
    
      //...................................................................

        //.................ТЕЙК И СТОП....................... 
       
for(int y = 0; y < OrdersTotal(); y++)
  {
    
    if(!OrderSelect(y, SELECT_BY_POS, MODE_TRADES)) continue;
    if(OrderSymbol() != Symbol()) continue;
    if(OrderMagicNumber() != MAGA) continue; 

  }
    if(OrderType() == OP_BUY&&OrderStopLoss()==0||OrderTakeProfit()==0&&StopLoss>0)
    {
      OrderModify(OrderTicket(), OrderOpenPrice(),OrderOpenPrice()-StopLoss*Point ,
       OrderOpenPrice()+TakeProfit*Point ,MAGA, CLR_NONE);
       return(0);
    }

    if(OrderType() == OP_SELL&&OrderStopLoss()==0||OrderTakeProfit()==0&&StopLoss>0)
    {
      OrderModify(OrderTicket(), OrderOpenPrice(),OrderOpenPrice()+StopLoss*Point ,
       OrderOpenPrice()-TakeProfit*Point ,MAGA, CLR_NONE);
       return(0);
    }
    }
 //....................................................................   
   //OOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
 
       if(ZB==0&&ZS==0&&DB==0&&DS==0        
         )          
        {
         Opn_B = true;
         Opn_S = true;
        }     
        
//OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

     // Открытие ордеров
        while(true)
        {     
  //OOOOOOOOOOOOOOOOOOOOOOOO ОСНОВНЫЕ OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

      
     
           if(Opn_B == true && BUY ==1)
          {
           // CS=1; 
           Alert("Попытка BUY");
            if(Opn_B == true && BUY ==1)
            OrderSend(Symbol(), OP_BUYSTOP,FB*Lts,Ask+Z*ДИСТАНЦИЯ_ВЫСТАВЛЕНИЯ_ОТЛОЖ*Point,2,0,0,"",MAGA,0,Aqua); 
                  if(Fun_Error(GetLastError()) == 1)  
              continue;
           // return(0);
          }
          //--------------------------------------------------
           
         
           if(Opn_S == true&&SELL==1)
          {
           // CB=1;
            Alert("Попытка SELL");
            if(Opn_S == true&&SELL==1)
            OrderSend(Symbol(), OP_SELLSTOP, FS*Lts,Bid-Z*ДИСТАНЦИЯ_ВЫСТАВЛЕНИЯ_ОТЛОЖ*Point,2,0,0,"",MAGA,0,Orange);//TimeCurrent()+TIMELIVE*60
                  if(Fun_Error(GetLastError()) == 1)
              continue;
            return(0);
          }                      
          break;
        }
        return(0);
     }
  
//+------------------------------------------------------------------+

int Fun_Error(int Error)
{
  switch(Error)
  {
    case 4:
      Alert("Торговый сервер занят. Пробуем ещё раз..");
    Sleep(3000);
    return(1);
    case 135:
      Alert("Цена изменилась. Пробуем ещё раз..");
    RefreshRates();
    return(1);
    case 136:
      Alert("Нет цен. Ждём новый тик..");
    while(RefreshRates() == false)
      Sleep(1);
    return(1);
    case 137:
      Alert("Брокер занят. Пробуем ещё раз..");
    Sleep(3000);
    return(1);
    case 146:
      Alert("Подсистема торговли занята. Пробуем ещё..");
    Sleep(500);
    return(1);
    case 2:
      Alert("Общая ошибка.");
    return(0);
  }
  
  //+------------------------------------------------------------------+
}

//.............................................................

[Silindi] 2010.06.12 19:37 #52

SADECE ÖNERİLEN SEÇENEKLERDEN HİÇ BİRİYLE ÇALIŞMAK İSTEMİYOR VE SEÇENEKLER ZATEN YAZILDIĞIM GİBİ ÇOK ÇALIŞIYOR..

techno 2010.06.12 19:40 #53

İlk olarak değişkenlere BAŞLANGIÇ FONKSİYONUNUN İÇERİSİNDE bildirilmesini söyledim. ve yine burada 25.

İkincisi, ikinci döngü sizin için ne? Neden benimkine ek kontroller ekledin? gerek yoktur

techno 2010.06.12 19:41 #54

siparişleri yinelediğinizde ve türlerini kaydettiğinizde, 10 yineleme döngüsü yapmak zorunda kalmamak için hem biletlerini hem de duraklarını hemen kaydedin

[Silindi] 2010.06.12 19:41 #55

Techno :
onun kodu çılgınca berbat, aynı kontroller bir döngüde 10 kez yapılıyor, tonlarca hata var, modifikasyon fonksiyonunda bile, gecikme süresi yerine bir sihirbaz var .. tortular daha kısa ve biz iyi anlatamamaktan suçlular..

KONU, ONLARIN KÖTÜ BİR ŞEKİLDE AÇIKLAMALARI DEĞİL, BENİM BAŞINDAKİ SEÇENEKLERİMİN ÇEŞİTLİ SEÇENEKLERİNDE VE AYNI HATAYLA BAKMANIZI YANLIŞ BİR ŞEKİLDE AÇIKLAMALARIDIR.

[Silindi] 2010.06.12 19:43 #56

Techno :

İlk olarak değişkenlerin BAŞLANGIÇ FONKSİYONUNDA bildirilmesini söyledim. ve yine burada 25.

İkincisi, ikinci döngüye ne için ihtiyacınız var? Neden benimkine ek kontroller ekledin? gerek yoktur

GÖRDÜĞÜNÜZ GİBİYDİ VE İŞTE (BAŞLANGIÇ İÇERİSİNDE) SONRA SADECE DEPOZİTÖRLERİ ÇIKARMAYIN AMA DİĞER HER ŞEY AYNI (SIFIRLAMA DEĞİL)

techno 2010.06.12 19:50 #57

sllawa3 :

GÖRDÜĞÜNÜZ GİBİYDİ VE İŞTE (BAŞLANGIÇ İÇERİSİNDE) SONRA SADECE DEPOZİTÖRLERİ ÇIKARMAYIN AMA DİĞER HER ŞEY AYNI (SIFIRLAMA DEĞİL)

Mantıklı düşünelim, bu 4 değişken her tikte sıfırlanıyor değil mi?

ikinci soru, eğer emir yoksa bu değişkenlere hiçbir şey atanmaz ve sıfıra eşit kalır, değil mi?

ve son soru, eğer null iseler, nasıl null olamazlar?

Türkiye'ye uzaktan erişim nasıl Forumu kirletmemek için herhangi Mini bir kase inşa

[Silindi] 2010.06.12 19:53 #58

VE GENEL OLARAK DEĞİŞİKLİK KALDIRILMIŞTIR (İKİNCİ DÖNGÜ İLE BİRLİKTE) ... AYNI

[Silindi] 2010.06.12 19:54 #59

Techno :

Mantıklı düşünelim, bu 4 değişken her tikte sıfırlanıyor değil mi?

ikinci soru, eğer emir yoksa bu değişkenlere hiçbir şey atanmaz ve sıfıra eşit kalır, değil mi?

ve son soru, eğer null iseler, nasıl null olamazlar?

PEKİ DENEYİN KENDİNİZİ GÖRÜN.. BEN DE BÖYLE DÜŞÜNDÜM...

techno 2010.06.12 19:56 #60

rasgele çıkarıp koymak değil, düşünmek gerekir. İşte bir şey var, her şeyi biliyorsun, her şeyi düşünüyorsun ama sonuç saçma.

Kısacası, şimdi bir sipariş döngüsü yazın, her siparişe bileti ve pop'ları eşlik edecek, başka bir şey yazmayın. Kodu buraya gönderin

Tuval harika! Bir piyasa emri nasıl Ticarette makine öğrenimi: teori,

HERKESE YARDIM !!! - sayfa 6