4 Weighted MA Rank

This is the place to discuss EdgeRater Chart Script

Moderator: Chris White

Post Reply
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

4 Weighted MA Rank

Post by henry1224 »

Under the parameters tab

N1 Double 5 2 200
N2 Double 20 4 250
N3 Double 60 8 300
N4 Double 120 16 350

Here is the code


Price:= (O+H+L+C)/4;
SMA1:=WeightedMA(Price,N1);
SMA2:=WeightedMA(Price,N2);
SMA3:=WeightedMA(Price,N3);
SMA4:=WeightedMA(Price,N4);
P5:=If(SMA1 > SMA2 & SMA2 > SMA3 & SMA3 > SMA4,5,0),Width2,PointDot,ColorGreen;
Con4A:= If(SMA1 > SMA2 & SMA2 > SMA4 & SMA4 > SMA3,4,0);
Con4B:= If(SMA1 > SMA3 & SMA3 > SMA2 & SMA2 > SMA4,4,0);
Con4C:= If(SMA2 > SMA1 & SMA1 > SMA3 & SMA3 > SMA4,4,0);
P4:= (Con4A + Con4B + Con4C),Width2,PointDot,ColorGreen;
P3:= If(SMA2 > SMA1 & SMA1 > SMA4 & SMA4 > SMA3, 3,0),Width2,PointDot,ColorGreen;
Con2A:=If(SMA1 > SMA3 & SMA3 > SMA4 & SMA4 > SMA2,2,0);
Con2B:=If( SMA1 > SMA4 & SMA4 > SMA2 & SMA2 > SMA3,2,0);
Con2C:=If(SMA2 > SMA3 & SMA3 > SMA1 & SMA1 > SMA4,2,0);
Con2D:=If(SMA3 > SMA1 & SMA1 > SMA2 & SMA2 > SMA4,2,0);
P2:= (Con2A + Con2B + Con2C + Con2D),Width2,PointDot,ColorGreen;
Con1A:=If(SMA1 > SMA4 & SMA4 > SMA3 & SMA3 > SMA2,1,0);
Con1B:=If(SMA3 > SMA2 & SMA2 > SMA1 & SMA1 > SMA4,1,0);
P1:= (Con1A + Con1B),Width2,PointDot,ColorGreen;
M5:= If(SMA4 > SMA3 & SMA3 > SMA2 & SMA2 > SMA1, -5,0),Width2,PointDot,ColorRed;
ConM4A:=If(SMA3 > SMA4 & SMA4 > SMA2 & SMA2 > SMA1,-4,0);
ConM4B:=If(SMA4 > SMA2 & SMA2 > SMA3 & SMA3 > SMA1,-4,0);
ConM4C:=If(SMA4 > SMA3 & SMA3 > SMA1 & SMA1 > SMA2,-4,0);
M4:= (ConM4A +ConM4B + ConM4C),Width2,PointDot,ColorRed;
M3:= If(SMA3 > SMA4 & SMA4 > SMA1 & SMA1 > SMA2,-3,0),Width2,PointDot,ColorRed;
ConM2A:=If(SMA2 > SMA4 & SMA4 > SMA3 & SMA3 > SMA1,-2,0);
ConM2B:=If(SMA3 > SMA2 & SMA2 > SMA4 & SMA4 > SMA1,-2,0);
ConM2C:=If(SMA4 > SMA1 & SMA1 > SMA3 & SMA3 > SMA2,-2,0);
ConM2D:=If(SMA4 > SMA2 & SMA2 > SMA1 & SMA1 > SMA3,-2,0);
M2:=(ConM2A + ConM2B + ConM2C + ConM2D),Width2,PointDot,ColorRed;
ConM1A:=If(SMA2 > SMA3 & SMA3 > SMA4 & SMA4 > SMA1,-1,0);
ConM1B:=If(SMA4 > SMA1 & SMA1 > SMA2 & SMA2 > SMA3,-1,0);
M1:=(ConM1A + ConM1B),Width2,PointDot,ColorRed;
Total: (P5+P4+P3+P2+P1+M5+M4+M3+M2+M1),ColorBlack;
PlotUp1: FILLRGN(P1>0,0, 1),ExtendLR,Brush#80ADFF2F;
PlotUp2: FILLRGN(P2>0,0, 2),ExtendLR,Brush#8000FF7F;
PlotUp3: FILLRGN(P3>0,0, 3),ExtendLR,Brush#8000FF00;
PlotUp4: FILLRGN(P4>0,0, 4),ExtendLR,Brush#803CB371;
PlotUp5: FILLRGN(P5>0,0, 5),ExtendLR,Brush#80006400;
PlotDn1: FILLRGN(M1<0,-1,0),ExtendLR,Brush#80FFA500;
PlotDn2: FILLRGN(M2<0,-2, 0),ExtendLR,Brush#80FF69B4;
PlotDn3: FILLRGN(M3<0,-3, 0),ExtendLR,Brush#80FA8072;
PlotDn4: FILLRGN(M4<0,-4, 0),ExtendLR,Brush#80FF0000;
PlotDn5: FILLRGN(M5<0,-5, 0),ExtendLR,Brush#908B008B;
Top
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: 4 Weighted MA Rank

Post by henry1224 »

here is another version Wilders 4 MA Rank

using the same parameters from above indicator


Price:= (O+H+L+C)/4;
SMA1:=WMA(Price,N1);
SMA2:=WMA(Price,N2);
SMA3:=WMA(Price,N3);
SMA4:=WMA(Price,N4);
P5:=If(SMA1 > SMA2 & SMA2 > SMA3 & SMA3 > SMA4,5,0),Width2,PointDot,ColorGreen;
Con4A:= If(SMA1 > SMA2 & SMA2 > SMA4 & SMA4 > SMA3,4,0);
Con4B:= If(SMA1 > SMA3 & SMA3 > SMA2 & SMA2 > SMA4,4,0);
Con4C:= If(SMA2 > SMA1 & SMA1 > SMA3 & SMA3 > SMA4,4,0);
P4:= (Con4A + Con4B + Con4C),Width2,PointDot,ColorGreen;
P3:= If(SMA2 > SMA1 & SMA1 > SMA4 & SMA4 > SMA3, 3,0),Width2,PointDot,ColorGreen;
Con2A:=If(SMA1 > SMA3 & SMA3 > SMA4 & SMA4 > SMA2,2,0);
Con2B:=If( SMA1 > SMA4 & SMA4 > SMA2 & SMA2 > SMA3,2,0);
Con2C:=If(SMA2 > SMA3 & SMA3 > SMA1 & SMA1 > SMA4,2,0);
Con2D:=If(SMA3 > SMA1 & SMA1 > SMA2 & SMA2 > SMA4,2,0);
P2:= (Con2A + Con2B + Con2C + Con2D),Width2,PointDot,ColorGreen;
Con1A:=If(SMA1 > SMA4 & SMA4 > SMA3 & SMA3 > SMA2,1,0);
Con1B:=If(SMA3 > SMA2 & SMA2 > SMA1 & SMA1 > SMA4,1,0);
P1:= (Con1A + Con1B),Width2,PointDot,ColorGreen;
M5:= If(SMA4 > SMA3 & SMA3 > SMA2 & SMA2 > SMA1, -5,0),Width2,PointDot,ColorRed;
ConM4A:=If(SMA3 > SMA4 & SMA4 > SMA2 & SMA2 > SMA1,-4,0);
ConM4B:=If(SMA4 > SMA2 & SMA2 > SMA3 & SMA3 > SMA1,-4,0);
ConM4C:=If(SMA4 > SMA3 & SMA3 > SMA1 & SMA1 > SMA2,-4,0);
M4:= (ConM4A +ConM4B + ConM4C),Width2,PointDot,ColorRed;
M3:= If(SMA3 > SMA4 & SMA4 > SMA1 & SMA1 > SMA2,-3,0),Width2,PointDot,ColorRed;
ConM2A:=If(SMA2 > SMA4 & SMA4 > SMA3 & SMA3 > SMA1,-2,0);
ConM2B:=If(SMA3 > SMA2 & SMA2 > SMA4 & SMA4 > SMA1,-2,0);
ConM2C:=If(SMA4 > SMA1 & SMA1 > SMA3 & SMA3 > SMA2,-2,0);
ConM2D:=If(SMA4 > SMA2 & SMA2 > SMA1 & SMA1 > SMA3,-2,0);
M2:=(ConM2A + ConM2B + ConM2C + ConM2D),Width2,PointDot,ColorRed;
ConM1A:=If(SMA2 > SMA3 & SMA3 > SMA4 & SMA4 > SMA1,-1,0);
ConM1B:=If(SMA4 > SMA1 & SMA1 > SMA2 & SMA2 > SMA3,-1,0);
M1:=(ConM1A + ConM1B),Width2,PointDot,ColorRed;
Total: (P5+P4+P3+P2+P1+M5+M4+M3+M2+M1),ColorBlack;
PlotUp1: FILLRGN(P1>0,0, 1),ExtendLR,Brush#80ADFF2F;
PlotUp2: FILLRGN(P2>0,0, 2),ExtendLR,Brush#8000FF7F;
PlotUp3: FILLRGN(P3>0,0, 3),ExtendLR,Brush#8000FF00;
PlotUp4: FILLRGN(P4>0,0, 4),ExtendLR,Brush#803CB371;
PlotUp5: FILLRGN(P5>0,0, 5),ExtendLR,Brush#80006400;
PlotDn1: FILLRGN(M1<0,-1,0),ExtendLR,Brush#80FFA500;
PlotDn2: FILLRGN(M2<0,-2, 0),ExtendLR,Brush#80FF69B4;
PlotDn3: FILLRGN(M3<0,-3, 0),ExtendLR,Brush#80FA8072;
PlotDn4: FILLRGN(M4<0,-4, 0),ExtendLR,Brush#80FF0000;
PlotDn5: FILLRGN(M5<0,-5, 0),ExtendLR,Brush#908B008B;
Last edited by henry1224 on Fri Jul 29, 2016 7:03 am, edited 1 time in total.
Top
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: 4 Weighted MA Rank

Post by henry1224 »

here is the EMA Version

Price:= (O+H+L+C)/4;
SMA1:=EMA(Price,N1);
SMA2:=EMA(Price,N2);
SMA3:=EMA(Price,N3);
SMA4:=EMA(Price,N4);
P5:=If(SMA1 > SMA2 & SMA2 > SMA3 & SMA3 > SMA4,5,0),Width2,PointDot,ColorGreen;
Con4A:= If(SMA1 > SMA2 & SMA2 > SMA4 & SMA4 > SMA3,4,0);
Con4B:= If(SMA1 > SMA3 & SMA3 > SMA2 & SMA2 > SMA4,4,0);
Con4C:= If(SMA2 > SMA1 & SMA1 > SMA3 & SMA3 > SMA4,4,0);
P4:= (Con4A + Con4B + Con4C),Width2,PointDot,ColorGreen;
P3:= If(SMA2 > SMA1 & SMA1 > SMA4 & SMA4 > SMA3, 3,0),Width2,PointDot,ColorGreen;
Con2A:=If(SMA1 > SMA3 & SMA3 > SMA4 & SMA4 > SMA2,2,0);
Con2B:=If( SMA1 > SMA4 & SMA4 > SMA2 & SMA2 > SMA3,2,0);
Con2C:=If(SMA2 > SMA3 & SMA3 > SMA1 & SMA1 > SMA4,2,0);
Con2D:=If(SMA3 > SMA1 & SMA1 > SMA2 & SMA2 > SMA4,2,0);
P2:= (Con2A + Con2B + Con2C + Con2D),Width2,PointDot,ColorGreen;
Con1A:=If(SMA1 > SMA4 & SMA4 > SMA3 & SMA3 > SMA2,1,0);
Con1B:=If(SMA3 > SMA2 & SMA2 > SMA1 & SMA1 > SMA4,1,0);
P1:= (Con1A + Con1B),Width2,PointDot,ColorGreen;
M5:= If(SMA4 > SMA3 & SMA3 > SMA2 & SMA2 > SMA1, -5,0),Width2,PointDot,ColorRed;
ConM4A:=If(SMA3 > SMA4 & SMA4 > SMA2 & SMA2 > SMA1,-4,0);
ConM4B:=If(SMA4 > SMA2 & SMA2 > SMA3 & SMA3 > SMA1,-4,0);
ConM4C:=If(SMA4 > SMA3 & SMA3 > SMA1 & SMA1 > SMA2,-4,0);
M4:= (ConM4A +ConM4B + ConM4C),Width2,PointDot,ColorRed;
M3:= If(SMA3 > SMA4 & SMA4 > SMA1 & SMA1 > SMA2,-3,0),Width2,PointDot,ColorRed;
ConM2A:=If(SMA2 > SMA4 & SMA4 > SMA3 & SMA3 > SMA1,-2,0);
ConM2B:=If(SMA3 > SMA2 & SMA2 > SMA4 & SMA4 > SMA1,-2,0);
ConM2C:=If(SMA4 > SMA1 & SMA1 > SMA3 & SMA3 > SMA2,-2,0);
ConM2D:=If(SMA4 > SMA2 & SMA2 > SMA1 & SMA1 > SMA3,-2,0);
M2:=(ConM2A + ConM2B + ConM2C + ConM2D),Width2,PointDot,ColorRed;
ConM1A:=If(SMA2 > SMA3 & SMA3 > SMA4 & SMA4 > SMA1,-1,0);
ConM1B:=If(SMA4 > SMA1 & SMA1 > SMA2 & SMA2 > SMA3,-1,0);
M1:=(ConM1A + ConM1B),Width2,PointDot,ColorRed;
Total: (P5+P4+P3+P2+P1+M5+M4+M3+M2+M1),ColorBlack;
PlotUp1: FILLRGN(P1>0,0, 1),ExtendLR,Brush#80ADFF2F;
PlotUp2: FILLRGN(P2>0,0, 2),ExtendLR,Brush#8000FF7F;
PlotUp3: FILLRGN(P3>0,0, 3),ExtendLR,Brush#8000FF00;
PlotUp4: FILLRGN(P4>0,0, 4),ExtendLR,Brush#803CB371;
PlotUp5: FILLRGN(P5>0,0, 5),ExtendLR,Brush#80006400;
PlotDn1: FILLRGN(M1<0,-1,0),ExtendLR,Brush#80FFA500;
PlotDn2: FILLRGN(M2<0,-2, 0),ExtendLR,Brush#80FF69B4;
PlotDn3: FILLRGN(M3<0,-3, 0),ExtendLR,Brush#80FA8072;
PlotDn4: FILLRGN(M4<0,-4, 0),ExtendLR,Brush#80FF0000;
PlotDn5: FILLRGN(M5<0,-5, 0),ExtendLR,Brush#908B008B;
Top
Post Reply

Return to “EdgeRater Scripting”