_SECTION_BEGIN("007");
n= Param("WMA", 0, 0, 100);
Var1=HHV(High,9)-LLV(Low,9);
Var2=HHV(High,9)-Close;
Var3=Close-LLV(Low,9);
Var4=Var2/Var1*100-70;
Var5=(Close-LLV(Low,60))/(HHV(High,60)-LLV(Low,60))*100;
Var6=(2*Close+High+Low)/4;
Var7=WMA(Var3/Var1*100,3);
Var8=LLV(Low,34);
Var9=WMA(Var7,3)-WMA(Var4,9);
VarA=IIf(Var9>100,Var9-100,0);
VarB=HHV(High,34);
AA= VarA*2;
BB= EMA((Var6-Var8)/(VarB-Var8)*100,13);
VarC=EMA(0.667*Ref(BB,-1)+0.333*BB,2);
VAR1a=(HHV(High,9)-Close)/(HHV(High,9)-LLV(Low,9))*100-70;
VAR2a=WMA(VAR1a,9)+100;
VAR3a=(Close-LLV(Low,9))/(HHV(High,9)-LLV(Low,9))*100;
VAR4a=WMA(VAR3a,3);
VAR5a=WMA(VAR4a,3)+100;
VAR6a=VAR5a-VAR2a;
S = IIf(VAR6a>n,VAR6a-n,Var6a);
barcolor=IIf(Ref(S,-1)<S, colorBrightGreen, colorRed);
Oo=IIf(Ref(S,-1)<s,Ref(s,-1),s);
Hh=Oo;
Ll=IIf(Ref(S,-1)>s,Ref(s,-1),s);
Hor=Ll;
_SECTION_END();
_SECTION_BEGIN("007");
a0=MA(Close,3);
a1=(H+L+C)/3;
a2=HHV(a1,15);
a3=LLV(a1,15);
a4=a2-a3;
Orion=MA((a1-a3)/a4,2)*148;
a6=HHV(a1,4*15);
a7=LLV(a1,4*15);
a8=a6-a7;
Aries=MA((a1-a7)/a8,2)*148;
aA=HHV(a1,16*15);
aB=LLV(a1,16*15);
aC=aA-aB;
Cru=MA((a1-aB)/aC,2)*148;
bot=1;
top=5;
W= Param("Sell1_adj", 98, 70, 120);//adjust sell signal
X= Param("Sell1_A_adj", 80, 70, 120);//adjust sell signal
Y= Param("Sell2_adj", 120, 70, 140);//adjust sell signal
Buy1 = Orion>Ref(Orion,-1) AND Orion<5 AND Aries>Ref(Aries,-1) AND Aries<5 AND Cru>Ref(Cru,-1) AND Cru<5 OR Cross (Orion,Cru) AND Cru < 12;
Buy2=(Cross(Orion,bot) AND a0>Ref(a0,-1)) OR (Cross(Orion,Aries) AND Orion<Cru AND Aries<Cru );
Buy = Buy1 OR Buy2;
Sell1 = Cross(Hor,Orion) AND Hor > W OR Cross(Aries,Orion) AND Aries>X;
Sell2 = Cross(Orion,Hor) AND Hor > Y;
Sell = Sell1 OR Sell2;
PlotShapes( IIf( Buy, shapeHollowUpArrow, shapeNone ), colorDarkGrey, layer = 0, yposition = -45 );
PlotShapes( IIf( Sell, shapeHollowDownArrow, shapeNone ), colorGrey40, layer = 0, yposition = 45 );
_N(Title =EncodeColor(colorWhite) + " " +EncodeColor(colorLavender)+"Open " + O + " " + "High " + H + " " + "Low " + L + " " + EncodeColor( colorGold ) +
"Close " + C + " ( " + WriteVal( ( C - Ref( C, -1 ) ) * 100 / Ref( C, -1 ), 1.1 ) + " %)" + EncodeColor( colorTurquoise ) + " Volume = " + WriteVal( V, 1.0 ) + EncodeColor( colorLavender ) + Interval ( 2 ) +
" " + Date( ) + EncodeColor( colorOrange )
+"
O =" + EncodeColor( colorOrange ) + WriteVal( Orion )
+ EncodeColor( colorTan ) + " A =" + EncodeColor( colorTan ) + WriteVal( Aries)
+ EncodeColor( colorTurquoise ) + " C =" + EncodeColor( colorTurquoise ) + WriteVal( Cru)
+ EncodeColor( colorRed) + " H =" + EncodeColor( colorRed ) + WriteVal( Hor)
);
n= Param("WMA", 0, 0, 100);
Var1=HHV(High,9)-LLV(Low,9);
Var2=HHV(High,9)-Close;
Var3=Close-LLV(Low,9);
Var4=Var2/Var1*100-70;
Var5=(Close-LLV(Low,60))/(HHV(High,60)-LLV(Low,60))*100;
Var6=(2*Close+High+Low)/4;
Var7=WMA(Var3/Var1*100,3);
Var8=LLV(Low,34);
Var9=WMA(Var7,3)-WMA(Var4,9);
VarA=IIf(Var9>100,Var9-100,0);
VarB=HHV(High,34);
AA= VarA*2;
BB= EMA((Var6-Var8)/(VarB-Var8)*100,13);
VarC=EMA(0.667*Ref(BB,-1)+0.333*BB,2);
VAR1a=(HHV(High,9)-Close)/(HHV(High,9)-LLV(Low,9))*100-70;
VAR2a=WMA(VAR1a,9)+100;
VAR3a=(Close-LLV(Low,9))/(HHV(High,9)-LLV(Low,9))*100;
VAR4a=WMA(VAR3a,3);
VAR5a=WMA(VAR4a,3)+100;
VAR6a=VAR5a-VAR2a;
S = IIf(VAR6a>n,VAR6a-n,Var6a);
barcolor=IIf(Ref(S,-1)<S, colorBrightGreen, colorRed);
Oo=IIf(Ref(S,-1)<s,Ref(s,-1),s);
Hh=Oo;
Ll=IIf(Ref(S,-1)>s,Ref(s,-1),s);
Hor=Ll;
_SECTION_END();
_SECTION_BEGIN("007");
a0=MA(Close,3);
a1=(H+L+C)/3;
a2=HHV(a1,15);
a3=LLV(a1,15);
a4=a2-a3;
Orion=MA((a1-a3)/a4,2)*148;
a6=HHV(a1,4*15);
a7=LLV(a1,4*15);
a8=a6-a7;
Aries=MA((a1-a7)/a8,2)*148;
aA=HHV(a1,16*15);
aB=LLV(a1,16*15);
aC=aA-aB;
Cru=MA((a1-aB)/aC,2)*148;
bot=1;
top=5;
W= Param("Sell1_adj", 98, 70, 120);//adjust sell signal
X= Param("Sell1_A_adj", 80, 70, 120);//adjust sell signal
Y= Param("Sell2_adj", 120, 70, 140);//adjust sell signal
Buy1 = Orion>Ref(Orion,-1) AND Orion<5 AND Aries>Ref(Aries,-1) AND Aries<5 AND Cru>Ref(Cru,-1) AND Cru<5 OR Cross (Orion,Cru) AND Cru < 12;
Buy2=(Cross(Orion,bot) AND a0>Ref(a0,-1)) OR (Cross(Orion,Aries) AND Orion<Cru AND Aries<Cru );
Buy = Buy1 OR Buy2;
Sell1 = Cross(Hor,Orion) AND Hor > W OR Cross(Aries,Orion) AND Aries>X;
Sell2 = Cross(Orion,Hor) AND Hor > Y;
Sell = Sell1 OR Sell2;
PlotShapes( IIf( Buy, shapeHollowUpArrow, shapeNone ), colorDarkGrey, layer = 0, yposition = -45 );
PlotShapes( IIf( Sell, shapeHollowDownArrow, shapeNone ), colorGrey40, layer = 0, yposition = 45 );
_N(Title =EncodeColor(colorWhite) + " " +EncodeColor(colorLavender)+"Open " + O + " " + "High " + H + " " + "Low " + L + " " + EncodeColor( colorGold ) +
"Close " + C + " ( " + WriteVal( ( C - Ref( C, -1 ) ) * 100 / Ref( C, -1 ), 1.1 ) + " %)" + EncodeColor( colorTurquoise ) + " Volume = " + WriteVal( V, 1.0 ) + EncodeColor( colorLavender ) + Interval ( 2 ) +
" " + Date( ) + EncodeColor( colorOrange )
+"
O =" + EncodeColor( colorOrange ) + WriteVal( Orion )
+ EncodeColor( colorTan ) + " A =" + EncodeColor( colorTan ) + WriteVal( Aries)
+ EncodeColor( colorTurquoise ) + " C =" + EncodeColor( colorTurquoise ) + WriteVal( Cru)
+ EncodeColor( colorRed) + " H =" + EncodeColor( colorRed ) + WriteVal( Hor)
);