//+------------------------------------------------------------------+ //| MultiCCI PRICE.mq4 | //| Copyright © 2009, MetaQuotes Software Corp. | //| http://www.metaquotes.net | //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ #property copyright "Copyright © 2009, MetaQuotes Software Corp." #property link "http://www.mql4.com/ru/users/costy_" #property indicator_separate_window #property indicator_buffers 8 extern string xxxxxxхxxxxxxxxxxxxxxxxxxxxxxx = "---------------------------------------------------------"; extern string _0_CCI_PRICE__1_CCI = " 2 RSI 3 MFI 4 WPR"; extern int Индикатор=0; extern string xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx = "---------------------------------------------------------"; extern string PEriod="Период ССI"; extern int Период_CCI=55;//0 1 extern int Период_RSI=14;//2 extern int Период_MFI=14;//3 extern int Период_WPR=14;//4 extern string xxxxxxxxxxxxxxxxxxxxxxxxxxxxxх = "---------------------------------------------------------"; extern string Метод_вычисления = "0 Прост 1 Экс 2 Сгл 3 Лин-взвешенное"; extern int Метод_Вычисления=0; extern string xxхxxxxxxxxxxxxxxxxxxxxxxxxxxх = "---------------------------------------------------------"; extern string Используемая_цена = "0CLOSE,1OPEN,2HIGH,3LOW,4MEDIAN,5TYPICAL"; extern int Используемая_цeна=4; extern string xxxxxxxxxxxxxxxxxxxхxxxxxxxxxx = "---------------------------------------------------------"; extern string Т="Таймфрейм 0-текущий"; extern int T=0; extern string Только_для_CCI_PRICE="Коэф. Шума "; extern int X=3; //---- double ma1_buffer [];double ma2_buffer [];double ma3_buffer [];double ma4_buffer []; double ma5_buffer []; double ma6_buffer []; double ma7_buffer []; double ma8_buffer []; extern color Color1 = Red;extern color Color2 = Chocolate;extern color Color3 = Orange; extern color Color4 = ForestGreen;extern color Color5 = RoyalBlue;extern color Color6 = Blue; extern color Color7 = DarkOrchid;extern color Color8 = Magenta; string Short;int Offset, SymbolsNumber; double double_bufer_8[8]; int init() { //---- SetIndexBuffer(0, ma1_buffer); SetIndexBuffer(1, ma2_buffer); SetIndexBuffer(2, ma3_buffer); SetIndexBuffer(3, ma4_buffer); SetIndexBuffer(4, ma5_buffer); SetIndexBuffer(5, ma6_buffer); SetIndexBuffer(6, ma7_buffer); SetIndexBuffer(7, ma8_buffer); if(Индикатор==0){ if(WindowFind("MultiCCI PRICE #1")>0)Short="MultiCCI PRICE #2"; else Short="MultiCCI PRICE #1";} if(Индикатор==1){ if(WindowFind("MultiCCI("+Период_CCI+") #1")>0)Short="MultiCCI("+Период_CCI+") #2"; else Short="MultiCCI("+Период_CCI+") #1";} if(Индикатор==2){ if(WindowFind("MultiRSI("+Период_RSI+") #1")>0)Short="MultiRSI("+Период_RSI+") #2"; else Short="MultiRSI("+Период_RSI+") #1";} if(Индикатор==3){ if(WindowFind("MultiMFI("+Период_MFI+") #1")>0)Short="MultiMFI("+Период_MFI+") #2"; else Short="MultiMFI("+Период_MFI+") #1";} if(Индикатор==4){ if(WindowFind("Период_WPR("+Период_WPR+") #1")>0)Short="Период_WPR("+Период_WPR+") #2"; else Short="Период_WPR("+Период_WPR+") #1";} IndicatorShortName(Short); return(0); } //+------------------------------------------------------------------+ int deinit() {ObjectsDeleteAll(WindowFind(Short),OBJ_LABEL); //---- return(0); } //+------------------------------------------------------------------+ int SymbolsList(string &Symbols[], bool Selected) { string SymbolsFileName; if(Selected) SymbolsFileName = "symbols.sel"; else SymbolsFileName = "symbols.raw"; int hFile = FileOpenHistory(SymbolsFileName, FILE_BIN|FILE_READ); if(hFile < 0) return(-1); if(Selected) { SymbolsNumber = (FileSize(hFile) - 4) / 128; Offset = 116; } else { SymbolsNumber = FileSize(hFile) / 1936; Offset = 1924; } ArrayResize(Symbols, SymbolsNumber); if(Selected) FileSeek(hFile, 4, SEEK_SET); for(int i = 0; i < SymbolsNumber; i++) { Symbols[i] = FileReadString(hFile, 12); FileSeek(hFile, Offset, SEEK_CUR); } FileClose(hFile); return(SymbolsNumber); } int start(){ string SymbolsList[]; if(SymbolsList(SymbolsList, true) > 0) int pos = Bars-IndicatorCounted() ; if(IndicatorCounted()==0) pos--; if(Индикатор==0){ while(pos >= 0) { ma1_buffer[pos] = (iMA(SymbolsList[0], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[0], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[0],MODE_POINT); ma2_buffer[pos] = (iMA(SymbolsList[1], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[1], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[1],MODE_POINT); ma3_buffer[pos] = (iMA(SymbolsList[2], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[2], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[2],MODE_POINT); ma4_buffer[pos] = (iMA(SymbolsList[3], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[3], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[3],MODE_POINT); ma5_buffer[pos] = (iMA(SymbolsList[4], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[4], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[4],MODE_POINT); ma6_buffer[pos] = (iMA(SymbolsList[5], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[5], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[5],MODE_POINT); ma7_buffer[pos] = (iMA(SymbolsList[6], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[6], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[6],MODE_POINT); ma8_buffer[pos] = (iMA(SymbolsList[7], T , X, 0, Метод_Вычисления, Используемая_цeна, pos)-iMA(SymbolsList[7], T , Период_CCI, 0, Метод_Вычисления, Используемая_цeна, pos))/MarketInfo(SymbolsList[7],MODE_POINT); pos--;}} if(Индикатор==1){ while(pos >= 0) { ma1_buffer[pos] = iCCI(SymbolsList[0], T , Период_CCI, Используемая_цeна, pos); ma2_buffer[pos] = iCCI(SymbolsList[1], T , Период_CCI, Используемая_цeна, pos); ma3_buffer[pos] = iCCI(SymbolsList[2], T , Период_CCI, Используемая_цeна, pos); ma4_buffer[pos] = iCCI(SymbolsList[3], T , Период_CCI, Используемая_цeна, pos); ma5_buffer[pos] = iCCI(SymbolsList[4], T , Период_CCI, Используемая_цeна, pos); ma6_buffer[pos] = iCCI(SymbolsList[5], T , Период_CCI, Используемая_цeна, pos); ma7_buffer[pos] = iCCI(SymbolsList[6], T , Период_CCI, Используемая_цeна, pos); ma8_buffer[pos] = iCCI(SymbolsList[7], T , Период_CCI, Используемая_цeна, pos); pos--;}} if(Индикатор==2){ while(pos >= 0) { ma1_buffer[pos] = iRSI(SymbolsList[0], T , Период_RSI, Используемая_цeна, pos); ma2_buffer[pos] = iRSI(SymbolsList[1], T , Период_RSI, Используемая_цeна, pos); ma3_buffer[pos] = iRSI(SymbolsList[2], T , Период_RSI, Используемая_цeна, pos); ma4_buffer[pos] = iRSI(SymbolsList[3], T , Период_RSI, Используемая_цeна, pos); ma5_buffer[pos] = iRSI(SymbolsList[4], T , Период_RSI, Используемая_цeна, pos); ma6_buffer[pos] = iRSI(SymbolsList[5], T , Период_RSI, Используемая_цeна, pos); ma7_buffer[pos] = iRSI(SymbolsList[6], T , Период_RSI, Используемая_цeна, pos); ma8_buffer[pos] = iRSI(SymbolsList[7], T , Период_RSI, Используемая_цeна, pos); pos--;}} if(Индикатор==3){ while(pos >= 0) { ma1_buffer[pos] = iMFI(SymbolsList[0], T , Период_MFI, pos); ma2_buffer[pos] = iMFI(SymbolsList[1], T , Период_MFI, pos); ma3_buffer[pos] = iMFI(SymbolsList[2], T , Период_MFI, pos); ma4_buffer[pos] = iMFI(SymbolsList[3], T , Период_MFI, pos); ma5_buffer[pos] = iMFI(SymbolsList[4], T , Период_MFI, pos); ma6_buffer[pos] = iMFI(SymbolsList[5], T , Период_MFI, pos); ma7_buffer[pos] = iMFI(SymbolsList[6], T , Период_MFI, pos); ma8_buffer[pos] = iMFI(SymbolsList[7], T , Период_MFI, pos); pos--;}} if(Индикатор==4){ while(pos >= 0) { ma1_buffer[pos] = iWPR(SymbolsList[0], T , Период_WPR, pos); ma2_buffer[pos] = iWPR(SymbolsList[1], T , Период_WPR, pos); ma3_buffer[pos] = iWPR(SymbolsList[2], T , Период_WPR, pos); ma4_buffer[pos] = iWPR(SymbolsList[3], T , Период_WPR, pos); ma5_buffer[pos] = iWPR(SymbolsList[4], T , Период_WPR, pos); ma6_buffer[pos] = iWPR(SymbolsList[5], T , Период_WPR, pos); ma7_buffer[pos] = iWPR(SymbolsList[6], T , Период_WPR, pos); ma8_buffer[pos] = iWPR(SymbolsList[7], T , Период_WPR, pos); pos--;}} color colore[8]; colore[0] = Color1;colore[1] = Color2;colore[2] = Color3;colore[3] = Color4; colore[4] = Color5;colore[5] = Color6;colore[6] = Color7;colore[7] = Color8; int labe[8]; labe[0]=0; labe[1]=13; labe[2]=26; labe[3]=39; labe[4]=52; labe[5]=65; labe[6]=78; labe[7]=91; double ma_buffer[8]; ma_buffer[0]= ma1_buffer [0]; ma_buffer[1]= ma2_buffer [0]; ma_buffer[2]= ma3_buffer [0]; ma_buffer[3]= ma4_buffer [0]; ma_buffer[4]= ma5_buffer [0]; ma_buffer[5]= ma6_buffer [0]; ma_buffer[6]= ma7_buffer [0]; ma_buffer[7]= ma8_buffer [0]; string text[8]; text[0]=DoubleToStr(ma_buffer[0],2) ; text[1]=DoubleToStr(ma_buffer[1],2) ; text[2]=DoubleToStr(ma_buffer[2],2) ; text[3]=DoubleToStr(ma_buffer[3],2) ; text[4]=DoubleToStr(ma_buffer[4],2) ; text[5]=DoubleToStr(ma_buffer[5],2) ; text[6]=DoubleToStr(ma_buffer[6],2) ;text[7]=DoubleToStr(ma_buffer[7],2) ; if(SymbolsNumber>ArraySize(labe)) { SymbolsNumber=ArraySize(labe); } int толщина=1,разшриф=10;if(Short=="MultiCCI PRICE #1"){ for (int i_4 = 0; i_4 < SymbolsNumber; i_4++) {толщина=1;разшриф=10; if (SymbolsList[i_4] == Symbol()) {толщина = 2;разшриф=12;} ObjectDelete(SymbolsList[i_4]); ObjectCreate(SymbolsList[i_4], OBJ_LABEL, WindowFind(Short), 0, 0); ObjectSet(SymbolsList[i_4], OBJPROP_CORNER, 1); ObjectSet(SymbolsList[i_4], OBJPROP_YDISTANCE, labe[i_4 ] + 5); ObjectSet(SymbolsList[i_4], OBJPROP_XDISTANCE, 5); ObjectSetText(SymbolsList[i_4],text[i_4]+" "+SymbolsList[i_4],разшриф, "Times New Roman", colore[i_4]); SetIndexStyle(i_4, DRAW_LINE, STYLE_SOLID, толщина, colore[i_4]); SetIndexLabel(i_4, SymbolsList[i_4]);}} else{for (i_4 = 0; i_4 < SymbolsNumber; i_4++) {толщина=1;разшриф=10; if (SymbolsList[i_4] == Symbol()) {толщина = 2;разшриф=12;} ObjectDelete(SymbolsList[i_4]+"2"); ObjectCreate(SymbolsList[i_4]+"2", OBJ_LABEL, WindowFind(Short), 0, 0); ObjectSet(SymbolsList[i_4]+"2", OBJPROP_CORNER, 1); ObjectSet(SymbolsList[i_4]+"2", OBJPROP_YDISTANCE, labe[i_4 ] + 5); ObjectSet(SymbolsList[i_4]+"2", OBJPROP_XDISTANCE, 5); ObjectSetText(SymbolsList[i_4]+"2",text[i_4]+" "+SymbolsList[i_4],разшриф, "Times New Roman", colore[i_4]); SetIndexStyle(i_4, DRAW_LINE, STYLE_SOLID, толщина, colore[i_4]); SetIndexLabel(i_4, SymbolsList[i_4]);}} return(0); } //+------------------------------------------------------------------+