All,
Something new to play with. Here are the ARBR and CR indicators for ThinkOrSwim. They have not been extensively backtested or even tested at all. Just something I found while poking around in some other software and thought "hey, what's that?" So I wrote them up for ToS.
There is a little bit on the internet about how to use these indicators of you search for it. A lot of it seems to be badly translated to English and I haven't taken the time to rewrite the instructions for use.
Any thoughts?
Eye Candy:
-mashume
Shareable link: http://tos.mx/Wc6ko8m
Shareable link: http://tos.mx/VePvscg
P.S. I have started looking at scans based on these, but they're not quite ready for prime time (not that these are necessarily either)
Something new to play with. Here are the ARBR and CR indicators for ThinkOrSwim. They have not been extensively backtested or even tested at all. Just something I found while poking around in some other software and thought "hey, what's that?" So I wrote them up for ToS.
There is a little bit on the internet about how to use these indicators of you search for it. A lot of it seems to be badly translated to English and I haven't taken the time to rewrite the instructions for use.
Any thoughts?
Eye Candy:
-mashume
ArBr Indicator:
Code:
############################################
#
# ArBr Indicator
# Emotion Index and Willingness Indicator
#
# released under GPL 3 as applicable
# January 2021
# V1.0
# @mashume
#
############################################
declare lower;
input n = 26;
# AR=SUM(HIGH-OPEN,N)/SUM(OPEN-LOW,N)*100
# The sum of the difference between the highest price and the opening price in the last N days is divided by the sum of the difference between the opening price and the lowest price, and the ratio is multiplied by 100.
plot AR = (sum( high - open , n) / sum( open - low , n )) * 100;
AR.SetDefaultColor(Color.RED);
addCloud(120, 80, color.gray);
plot AR_Top = 120;
AR_Top.SetStyle(Curve.SHORT_DASH);
AR_TOP.SetDefaultColor(Color.Red);
AR.SetLineWeight(2);
plot AR_Low = 80;
AR_Low.SetStyle(Curve.SHORT_DASH);
AR_Low.SetDefaultColor(Color.Red);
# BR=SUM(MAX(0,HIGH-REF(CLOSE,1)),N)/SUM(MAX(0,REF(CLOSE,1)-LOW),N)*100
# In the last N days, if the highest price of a certain day is higher than the closing price of the previous day, the difference between the highest price of the day and the previous closing will be added to the strong days sum. If the lowest price of a certain day is lower than the previous closing, the previous closing will be combined with the difference in the lowest price of the day is added to the weak days sum. Finally, divide the strong sum by the weakdayssum, and the resulting ratio is enlarged by 100. Where N=26
plot BR = (sum(max(0, high - close[1]), n) / sum(max(0, close[1] - low), n)) * 100;
BR.SetDefaultColor(color.blue);
BR.SetLineWeight(2);
addCloud(150, 70, color.gray);
plot Center = 100;
Center.SetDefaultColor(Color.White);
Center.SetStyle(CURVE.LoNG_DASH);
plot br_top = 150;
br_top.setDefaultColor(color.blue);
br_top.SetStyle(CURve.SHORT_DASH);
plot br_low = 70;
br_low.setDefaultColor(color.blue);
br_low.SetStyle(CURve.SHORT_DASH);
AddLabel(Yes, "Ar", color.RED);
AddLabel(Yes, "Br", color.Blue);
AddLabel(BR < AR and AR < 50, "Buy Condition", Color.Dark_Green);
AddLabel(AR Crosses Below BR and AR < 100, "Buy on Dip", color.Dark_Green);
AddLabel(BR > 300, "Br Warning", Color.RED);
AddLabel(AR > 150, "Ar Warning", Color.RED);
AddLabel(BR < 50, "Br Entry Watch", Color.Dark_Green);
AddLabel(AR < 70, "Ar Entry Watch", Color.Dark_Green);
addLabel(AR > 80 and AR < 120, "Ar Neutral", color.Gray);
addLabel(BR > 70 and BR < 150, "Br Neutral", color.Gray);
Shareable link: http://tos.mx/Wc6ko8m
CR Indicator:
Code:
############################################
#
# Cr Indicator
# Emotion Index and Willingness Indicator
#
# released under GPL 3 as applicable
# January 2021
# V1.0
# @mashume
#
############################################
declare lower;
input n = 30;
input YM = HL2;
input a_len = 10;
input B_len = 20;
input C_len = 40;
input D_len = 60;
plot CR = (sum(max(0, high - YM[1]), n) / sum(max(0, YM[1] - low), n)) * 100;
CR.SetDefaultColor(color.PLUM);
CR.SetLineWeight(2);
plot a = SimpleMovingAvg(CR, a_len);
plot B = SimpleMovingAvg(CR, b_len);
plot C = SimpleMovingAvg(CR, c_len);
plot D = SimpleMovingAvg(CR, d_len);
a.setDefaultColor(Color.Dark_Gray);
b.setDefaultColor(Color.Dark_Gray);
b.setStyle(Curve.MEDIUM_DASH);
c.setDefaultColor(Color.Gray);
d.setDefaultColor(Color.Gray);
d.SetStyle(Curve.MEDIUM_DASH);
AddCloud (C, D, Color.Gray, Color.Gray);
AddLabel(Yes, "CR", color.PLUM);
AddLabel(CR > 150, "CR Warning", Color.RED);
AddLabel(CR < 70, "CR Entry Watch", Color.Dark_Green);
plot Center = 100;
Center.SetDefaultColor(Color.White);
Center.SetStyle(Curve.LONG_DASH);
Shareable link: http://tos.mx/VePvscg
P.S. I have started looking at scans based on these, but they're not quite ready for prime time (not that these are necessarily either)
Last edited by a moderator: