//+------------------------------------------------------------------+ //| Vigruzka_H4_EURUSD.mq4 | //| Copyright 2018, MetaQuotes Software Corp. | //| https://www.mql5.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2009, MetaQuotes Software Corp." #property link "http://www.metaquotes.net" #property indicator_chart_window //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ //static int prevtime = 0; extern int MaxBars = 13800; extern int prevtime = 1; //extern int P_1 = 340; extern int P_2 = 120; extern int P_3 = 12; extern int Kizm_4H = 700; //extern double Kob_5 = 700; extern int Krez = 400; //extern int Krez_Close=3; extern int Vix_shag=3; double PArray01[69000],PArray02[69000],PArray03[69000],PArray04[69000],PArray05[69000], PArray06[69000],PArray07[69000],PArray08[69000],PArray09[69000],PArray10[69000], PArray11[69000],PArray12[69000],PArray13[69000],PArray14[69000],PArray15[69000], PArray16[69000],PArray17[69000],PArray18[69000],PArray19[69000],PArray20[69000], PArray21[69000],PArray22[69000],PArray23[69000],PArray24[69000],PArray25[69000], PArray26[69000],PArray27[69000],PArray28[69000],PArray29[69000],PArray30[69000], PArray31[69000],PArray32[69000],PArray33[69000],PArray34[69000],PArray35[69000], PArray36[69000]; //,PArray27[69000],PArray28[69000],PArray29[69000]; double V_Min,V_Max,Volume_min,Volume_max,Hig,Los,hi,lo; int i,i2,h1,v1; //,v2,v3,v4,v5,hi1,hi2,hi3,hi4,hi5,l1,l2,l3,l4,l5; string CString, x, x2, FileName, FileName1,FilePatch,FilePatch1, FirstLine; int init(){//1 x="\""; x2="\\"; FilePatch = "Export_Dannyh"+x2+Symbol()+x2; FilePatch1 = "Spravochnie_dannye"+x2+Symbol()+x2; FileName = FilePatch1+"_"+Symbol()+"Vigruzka NC_4 H"+".csv"; //FileName1 = FilePatch1+"_"+Symbol()+"_Ind_6"+".csv"; FirstLine = "Izm 1"+";"+"Izm 2"+";" +"Izm 3"+";"+"Izm 4"+";"+"Izm 5"+";" +"Izm 6"+";"+"Izm 7"+";" +"Izm 8"+";"+"Izm 11"+";"+"Izm 21"+";"+"Izm 31"+";"+"Izm 41"+";"+"Izm 51"+";" +"Izm 61"+";"+"Izm 71"+";"+"Izm 81"+";"+"STOH 1"+";"+"STOH 2"+";"+"STOH 3"+";" +"STOH 4"+";"+"STOH 5"+";"+"STOH 6"+";"+"STOH 7"+";" +"STOH 8"+";"+"STOH 9"+";"+"Zn23"+";" +"Zn24"+";"+"Zn25"+";"+"Zn26"+";"+"Zn27"+";"+"Zn28"+";"+"Zn29"+";" +"Zn30"+";"+"Zn31"+";"//+"Zn32" //+";"+"Zn33"+";"+"Zn34"+";"+"Zn35"+";" //+"Zn36"+";"+"Zn37"+";"+"Zn38"+";"+"Zn39"+";"+"Zn40"+";"+"Zn41"+";" +"Значение 1"+";"+"Значение -1";//+";"+"Izm minus"+";"+"Izm plus"; return(0);}//1 int deinit(){return(0);} int start() {//1 if(prevtime<0) return(0); prevtime = -1; Alert("Начало"); Loading(); //---- //if(TimeCurrent( )-time>9600) // {Loading();time=TimeCurrent( );} // else // { //2 // return(0); // }//2 return(0); }//1 //////////////////////////////////////////////////////////////////////////////// //****************************************************************************************** // loading history data from M1 void Loading(){//1 for ( i2=MaxBars; i2>=Vix_shag; i2-- ) {//2 //----------вычисляем изменение цены = PArray01[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+1))/Point)/Kizm_4H); PArray02[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+2))/Point)/Kizm_4H); PArray03[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+3))/Point)/Kizm_4H); PArray04[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+4))/Point)/Kizm_4H); PArray05[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+5))/Point)/Kizm_4H); PArray06[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+6))/Point)/Kizm_4H); PArray07[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+7))/Point)/Kizm_4H); PArray08[i2]=MathArctan(((iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2)-iMA(NULL,PERIOD_H4,2,0,MODE_EMA,PRICE_WEIGHTED,i2+8))/Point)/Kizm_4H); ///------- PArray09[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2)-50)/50; PArray10[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+2)-50)/50; PArray11[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+4)-50)/50; PArray12[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+6)-50)/50; PArray13[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+8)-50)/50; PArray14[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+10)-50)/50; PArray15[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+12)-50)/50; PArray16[i2]=(iStochastic(NULL,PERIOD_H4,P_2,3,3,MODE_EMA,1,MODE_MAIN,i2+14)-50)/50; ///------------------ PArray17[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2)-50)/50; PArray18[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+1)-50)/50; PArray19[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+2)-50)/50; PArray20[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+3)-50)/50; PArray21[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+4)-50)/50; PArray22[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+5)-50)/50; PArray23[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+6)-50)/50; PArray24[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+7)-50)/50; PArray25[i2]=(iMFI(NULL,PERIOD_H4,P_3,i2+8)-50)/50; ///------------------ PArray26[i2]=MathArctan((iATR(NULL,0,12,i2)-0.0035)/0.0035); PArray27[i2]=MathArctan((iATR(NULL,0,12,i2+1)-0.0035)/0.0035); PArray28[i2]=MathArctan((iATR(NULL,0,12,i2+2)-0.0035)/0.0035); PArray29[i2]=MathArctan((iATR(NULL,0,12,i2+3)-0.0035)/0.0035); PArray30[i2]=MathArctan((iATR(NULL,0,12,i2+4)-0.0035)/0.0035); PArray31[i2]=MathArctan((iATR(NULL,0,12,i2+5)-0.0035)/0.0035); PArray32[i2]=MathArctan((iATR(NULL,0,12,i2+6)-0.0035)/0.0035); PArray33[i2]=MathArctan((iATR(NULL,0,12,i2+7)-0.0035)/0.0035); PArray34[i2]=MathArctan((iATR(NULL,0,12,i2+8)-0.0035)/0.0035); //---вычисляем выходные параметры PArray35[i2]=0; Hig=0; for (v1=i2-1; v1>=i2-Vix_shag; v1-- ) { hi=(iHigh(NULL,PERIOD_H4,v1)-iClose(NULL,PERIOD_H4,i2))/Point; if(hi>Hig)Hig=hi; } if(Hig>=Krez)PArray35[i2]=1; PArray36[i2]=0; Los=0; for (v1=i2-1; v1>=i2-Vix_shag; v1-- ) { lo=(iLow(NULL,PERIOD_H4,v1)-iClose(NULL,PERIOD_H4,i2))/Point; if(lo=i2-Vix_shag_5; v1-- ) // { // Volume_max= Volume_max+(iClose(NULL,PERIOD_H4,v1)-iClose(NULL,PERIOD_H4,i2))/Point; // } // Volume_max=Volume_max/Vix_shag_5; // if(Volume_max >Krez_Close)PArray28[i2]=1; // if(Volume_max <-Krez_Close)PArray28[i2]=-1; // // PArray29[i2]=0; // if((iClose(NULL,PERIOD_H4,i2-5)-iClose(NULL,PERIOD_H4,i2))/Point>Krez_Close)PArray29[i2]=1; // Volume_min=0; // for (v1=i2-1; v1>=i2-Vix_shag_5; v1-- ) // { // Volume_min=Volume_min+(iClose(NULL,PERIOD_H4,v1)-iClose(NULL,PERIOD_H4,i2))/Point;; // } // Volume_min=Volume_min/Vix_shag_5; // if(Volume_min>Krez_Close)PArray29[i2]=1; // if(Volume_min<-Krez_Close)PArray29[i2]=-1; } //------------------------------------------------- h1 = FileOpen(FileName,FILE_CSV|FILE_WRITE); FileWrite(h1,FirstLine); for (i=MaxBars; i>=Vix_shag; i-- ) {//4 CString=CString+PArray01[i]+";"; CString=CString+PArray02[i]+";"; CString=CString+PArray03[i]+";"; CString=CString+PArray04[i]+";"; CString=CString+PArray05[i]+";"; CString=CString+PArray06[i]+";"; CString=CString+PArray07[i]+";"; CString=CString+PArray08[i]+";"; CString=CString+PArray09[i]+";"; CString=CString+PArray10[i]+";"; CString=CString+PArray11[i]+";"; CString=CString+PArray12[i]+";"; CString=CString+PArray13[i]+";"; CString=CString+PArray14[i]+";"; CString=CString+PArray15[i]+";"; CString=CString+PArray16[i]+";"; CString=CString+PArray17[i]+";"; CString=CString+PArray18[i]+";"; CString=CString+PArray19[i]+";"; CString=CString+PArray20[i]+";"; CString=CString+PArray21[i]+";"; CString=CString+PArray22[i]+";"; CString=CString+PArray23[i]+";"; CString=CString+PArray24[i]+";"; CString=CString+PArray25[i]+";"; CString=CString+PArray26[i]+";"; CString=CString+PArray27[i]+";"; CString=CString+PArray28[i]+";"; CString=CString+PArray29[i]+";"; CString=CString+PArray30[i]+";"; CString=CString+PArray31[i]+";"; CString=CString+PArray32[i]+";"; CString=CString+PArray33[i]+";"; CString=CString+PArray34[i]+";"; CString=CString+PArray35[i]+";"; CString=CString+PArray36[i]; // Volume // CString=CString+PArrayM5[i][23]; FileWrite(h1,CString); CString=""; }//4 FileClose(h1); Alert("Выгрузка файла НС-4 H завершена"); //------------------------------------------------- return; }//1