Bull and bear scoring labels

[JOSHTHEBANKER]

Looking to see if anybody has a scoring system they use for stocks, looking to to create label different underlying that shows a bull score or a bear score of a certain number?

 

[TRADERSAM]

This ThinkScript estimates buy and sell volume percentages based on how close the price closes to the high or low within a period. It’s a rough approximation, not exact, since it assumes all volume moves uniformly between high and low.

# Show SELL and BUY Volume and percentage
declare upper;
input timeframe = AggregationPeriod.day;
def Vol = volume(period = timeframe);
def at_High = high(period = timeframe);
def at_Open = open(period = timeframe);
def at_Close = close(period = timeframe);
def at_Low = low(period = timeframe);
def Vol1 = volume(period = timeframe);
def at_High1 = high(period = timeframe);
def at_Open1 = open(period = timeframe);
def at_Close1 = close(period = timeframe);
def at_Low1 = low(period = timeframe);
# Buy_Volume forumla is volume * (close_price minus low_price) / (High_price minus low_price)
def Buy_Volume = roundup(Vol * (at_close - at_low) / (at_High - at_Low));
def Buy_percent = roundup((Buy_volume / Vol) * 100);
#Sell_Volume forumla is volume * (High_price minus Close_price) / (High_price minus Low_price)
def Sell_Volume = rounddown(Vol1 * (at_High1 - at_Close1) / (at_High1 - at_low1));
def Sell_percent = roundup((Sell_Volume / Vol1) * 100);

AddLabel(yes, "Buy % " + Buy_percent, Color.Green);
Addlabel(yes, "Sell % " + Sell_percent, Color.Red);