Martin Pring's Special K

A forum for all EdgeRater users

Moderator: Chris White

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

Martin Pring's Special K

Post by henry1224 »

Here is my version of Martin Pring's Special K Indicator

SpecKD:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485;
SpecKP:=(MA(RORPCT(C,10),10) +
MA(RORPCT(C,15),10)*2 +
MA(RORPCT(C,20),10)*3 +
MA(RORPCT(C,30),15)*4 +
MA(RORPCT(C,50),50) +
MA(RORPCT(C,65),65)*2 +
MA(RORPCT(C,75),75)*3 +
MA(RORPCT(C,100),100)*4 +
MA(RORPCT(C,195),130) +
MA(RORPCT(C,265),130)*2 +
MA(RORPCT(C,390),130)*3 +
MA(RORPCT(C,530),195)*4) *100/2485;
Plt:=N4;
Zero: 0;
SpecK: If(Plt=1,SpecKD,SpecKP);
SpecKMA: MA(MA(SpecK,N1),N2);
SpecKMA2: MA(SpecK,N3);



Under the Parameters tab

N1 Double 60 3 100
N2 Double 60 3 100
N3 Double 60 3 100
N4 Double 1 1 2
henry1224
Posts: 457
Joined: Wed Feb 24, 2016 12:04 pm

Re: Martin Pring's Special K

Post by henry1224 »

Here is my updated version with events

SpecK:(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2: MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1: MA(SpecK,N1),ColorRed;
UZ: MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ: MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
*********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecK,0);
******************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(0,SpecK);
*******************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecKMA1,0);
**********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(0,SpecKMA1);
*****************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpeckMA2,0);
********************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(0,SpecKMA2);
*********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecK,UZ);
******************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecK,LZ);
*********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(UZ,SpecK);
*******************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(LZ,SpecK);
*********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecK,SpecKMA1);
********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecKMA1,Speck);
*********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecKMA1,SpecKMA2);
********************************************************
SpecK:=(MA(ROR(C,10),10) +
MA(ROR(C,15),10)*2 +
MA(ROR(C,20),10)*3 +
MA(ROR(C,30),15)*4 +
MA(ROR(C,50),50) +
MA(ROR(C,65),65)*2 +
MA(ROR(C,75),75)*3 +
MA(ROR(C,100),100)*4 +
MA(ROR(C,195),130) +
MA(ROR(C,265),130)*2 +
MA(ROR(C,390),130)*3 +
MA(ROR(C,530),195)*4) *100/2485,ColorGreen;
SpecKMA2:= MA(MA(SpecK,N2),N3),ColorBlue;
SpecKMA1:= MA(SpecK,N1),ColorRed;
UZ:= MA(SpecK,34)+(1.3185*STD(SpecK,34)),width2,ColorViolet;
LZ:= MA(SpecK,34)-(1.3185*STD(SpecK,34)),width2,ColorViolet;
Event:Cross(SpecKMA2,SpecKMA1);
********************************************************
Parameters under the parameter tab

N1 double 3 3 100
N2 double 3 3 100
N3 double 3 3 100
Post Reply