EdgeTalk

Here is my jazzed up version

Thirty:30,ColorGreen;
Fifty:50,ColorBlack;
Seventy:70,ColorRed;

LC :=REF(C,1);
TL :=MIN(L,LC);
BP :=C-TL;
TR := MAX(H-L,ABS(LC-H),ABS(LC-L));
BPSum1 := MA(BP,N1);
BPSum2 := MA(BP,N2);
BPSum3 := MA(BP,N3);
TRSum1 := MA(TR,N1);
TRSum2 := MA(TR,N2);
TRSum3 := MA(TR,N3);
RawUO :=4*(BPSum1/TRSum1)+2*(BPSum2/TRSum2)+(BPSum3/TRSum3);
D:(RawUO/(4+2+1))*100,Width2,HighQuality;
Signal: MA(D,2),width2,ColorBlue;
UZ: MA(D,34) + (1.3185*STD(D,34)),width2,ColorViolet;
LZ: MA(D,34) - (1.3185*STD(D,34)),width2,ColorViolet;

FillRgn(D>50,50,D),Brush#50008000;
FillRgn(D<50,50,D),Brush#50800000;