- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- //| 3c_JRSX_H.mq4 |
- //| JRSX: Copyright © 2005, Weld, Jurik Research |
- //| http://weld.torguem.net |
- //| MQL4+3color: Copyright © 2005, Nikolay Kositsin |
- //| Khabarovsk, violet@mail.kht.ru |
- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- #property copyright "Copyright © 2005, Weld, Jurik Research"
- #property link " http://weld.torguem.net"
- #property indicator_separate_window
- #property indicator_buffers 3
- #property indicator_color1 Blue
- #property indicator_color2 Magenta
- #property indicator_color3 Gray
- #property indicator_level1 0.5
- #property indicator_level2 -0.5
- #property indicator_level3 0.0
- #property indicator_maximum 1
- #property indicator_minimum -1
- //---- input parameters
- extern int Lengh = 14;
- extern int CountBars = 300;
- //---- buffers
- double JRSX_Up [];
- double JRSX_Down[];
- double JRSX_St [];
- //----
- int shift,r,w,k,counted_bars,T0,T1,Tnew;
- //----
- double v4,v8,v10,v14,v18,v20,v0C,v1C,v8A,minuse;
- double F28,F30,F38,F40,F48,F50,F58,F60,F68,F70,F78,F80,JRSX;
- double f0,f28,f30,f38,f40,f48,f50,f58,f60,f68,f70,f78,f80,Kg,Hg;
- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- //| Custom indicator initialization function |
- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- int init()
- {
- //---- indicators
- SetIndexStyle(0,DRAW_HISTOGRAM, STYLE_SOLID);
- SetIndexStyle(1,DRAW_HISTOGRAM, STYLE_SOLID);
- SetIndexStyle(2,DRAW_HISTOGRAM, STYLE_SOLID);
- //----
- SetIndexBuffer(0,JRSX_Up);
- SetIndexBuffer(1,JRSX_Down);
- SetIndexBuffer(2,JRSX_St);
- //----
- IndicatorShortName("RSX("+Lengh+")");
- //----
- SetIndexDrawBegin(0,Bars-CountBars);
- SetIndexDrawBegin(1,Bars-CountBars);
- SetIndexDrawBegin(2,Bars-CountBars);
- IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
- //----
- if (Lengh-1>=5) w=Lengh-1; else w=5; Kg=3/(Lengh+2.0); Hg=1.0-Kg;
- //----
- return(0);
- }
- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- //| Custom indicator initialization function |
- //+SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- int start()
- {
- counted_bars=IndicatorCounted();
- if (counted_bars<0) return(-1);
- if (counted_bars>Lengh) shift=Bars-counted_bars-1;
- else shift=Bars-Lengh-1;
- Tnew=Time[shift+1];
- //+--- aîññòàíîaëåíèå ïåeåìåííûõ +=====================+
- if((Tnew!=T0)&&(shift<Bars-Lengh-1))
- {
- if (Tnew==T1)
- {
- f28=F28; f30=F30; f38=F38; f40=F40; f48=F48; f50=F50;
- f58=F58; f60=F60; f68=F68; f70=F70; f78=F78; f80=F80;
- } else return(-1);
- }
- //+--- +===============================================+
- if (Lengh-1>=5)w=Lengh-1;else w=5; Kg=3/(Lengh+2.0); Hg=1.0-Kg;
- while (shift>=0)
- {
- //+-------------------+
- if (r==0){r=1; k=0;}
- else
- {
- //++++++++++++++++++++
- if (r>=w) r=w+1; else r=r+1;
- v8 = Close[shift]-Close[shift+1]; v8A=MathAbs(v8);
- //---- aû÷èñëåíèå V14 ------
- f28 = Hg * f28 + Kg * v8;
- f30 = Kg * f28 + Hg * f30;
- v0C = 1.5 * f28 - 0.5 * f30;
- f38 = Hg * f38 + Kg * v0C;
- f40 = Kg * f38 + Hg * f40;
- v10 = 1.5 * f38 - 0.5 * f40;
- f48 = Hg * f48 + Kg * v10;
- f50 = Kg * f48 + Hg * f50;
- v14 = 1.5 * f48 - 0.5 * f50;
- //---- aû÷èñëåíèå V20 ------
- f58 = Hg * f58 + Kg * v8A;
- f60 = Kg * f58 + Hg * f60;
- v18 = 1.5 * f58 - 0.5 * f60;
- f68 = Hg * f68 + Kg * v18;
- f70 = Kg * f68 + Hg * f70;
- v1C = 1.5 * f68 - 0.5 * f70;
- f78 = Hg * f78 + Kg * v1C;
- f80 = Kg * f78 + Hg * f80;
- v20 = 1.5 * f78 - 0.5 * f80;
- //-------wwwwwwwwww---------
- if ((r <= w) && (v8!= 0)) k = 1;
- if ((r == w) && (k == 0)) r = 0;
- }//++++++++++++++++++++
- if ((r>w)&&(v20>0.0000000001)){v4=(v14/v20+1.0)*50.0;if(v4>100.0)v4=100.0;if(v4<0.0)v4=0.0;}else v4=50.0;
- JRSX=(v4/50)-1;
- //+--- Ñîõeàíåíèå ïåeåìåííûõ +========================+
- if (shift==1)
- {
- T1=Time[1];T0=Time[0];
- F28=f28; F30=f30; F38=f38; F40=f40; F48=f48; F50=f50;
- F58=f58; F60=f60; F68=f68; F70=f70; F78=f78; F80=f80;
- }
- //+---+===============================================+
- //---- +SSSSSSSSSSSSSSSSSSS Three Colour code +SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- minuse = JRSX - JRSX_Up[shift+1]-JRSX_Down[shift+1]-JRSX_St[shift+1];
- JRSX_Up[shift]=0.0;JRSX_Down[shift]=0.0;JRSX_St[shift]=0.0;
- if (minuse>0.0)JRSX_Up[shift]=JRSX;else{if (minuse<0.0)JRSX_Down[shift]=JRSX;else JRSX_St[shift]=JRSX;}
- //---- +SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS+
- shift--;
- }
- //+-------------------+
- return(0);
- }
复制代码
3c_JRSX_H.zip
|