Convert/Create Reverse Engineering Williams %R for upper chart

[chewie76]

ThinkorSwim already has a Reverse Engineering RSI and MACD for the upper chart. Is it possible to create/convert a Williams %R to display on the upper chart in similar fashion? Ideally I'd like to see bands displayed for the 0, -5, -95, -100 levels. Thanks!

 

[halcyonguy]

ThinkorSwim already has a Reverse Engineering RSI and MACD for the upper chart. Is it possible to create/convert a Williams %R to display on the upper chart in similar fashion? Ideally I'd like to see bands displayed for the 0, -5, -95, -100 levels. Thanks!

sorry , no idea what these are.
can you post a link that talks about them, so we know what exactly you are after?
Reverse Engineering RSI and MACD

 

[chewie76]

sorry , no idea what these are.
can you post a link that talks about them, so we know what exactly you are after?
Reverse Engineering RSI and MACD

Below is the standard code for the ReverseEngineeringRSI. Instead of using RSI, can you code a Williams%R for the upper chart, similar to the ReverseEngineeringRSI, and also add bands?

#
# Charles Schwab & Co. (c) 2009-2024
#

input length = 14;
input price = close;
input rsiValue = 50.0;
input smoothingType = {default Wilders, EMA};

def coeff = rsiValue / (100 - rsiValue);
def chg = price - price[1];
def diff;
switch (smoothingType) {
case Wilders:
    diff =  (length - 1) * (WildersAverage(Max(-chg, 0), length) * coeff - WildersAverage(Max(chg, 0), length));
case EMA:
    diff =  (length - 1) * (ExpAverage(Max(-chg, 0), length) * coeff - ExpAverage(Max(chg, 0), length)) / 2;
}

def value = price + if diff >= 0 then diff else diff / coeff;
plot RevEngRSI = compoundValue(1, value[1], Double.NaN);

RevEngRSI.SetDefaultColor(GetColor(8));

 

[halcyonguy]

thanks for posting that. i was away from computer and should have waited to post till after looking in TOS.
i will see what i can do

ref - Reverse Engineering studies

ReverseEngineeringRSI
input a set RSI number to calc price values
https://toslc.thinkorswim.com/cente...ors/studies-library/R-S/ReverseEngineeringRSI

ReverseEngineeringMACD
input a set MACD number to calc price values
https://toslc.thinkorswim.com/cente...rs/studies-library/R-S/ReverseEngineeringMACD

 

[halcyonguy]

i didn't get too far.

trying to invert these, would create 10 random numbers for each.
i don't know what to do with them.
def hh = Highest(high, length);
def ll = Lowest(low, length);

here is something,
input a value for the output , -50
i made a formula to solve for ll , but it uses original hh.

#reverse_williamsperr

#https://usethinkscript.com/threads/convert-create-reverse-engineering-williams-r-for-upper-chart.19595/
#Convert/Create Reverse Engineering Williams %R for upper chart
#chewie76  9/6

#1
#ThinkorSwim already has a Reverse Engineering RSI and MACD for the upper chart. Is it possible to create/convert a Williams %R to display on the upper chart in similar fashion? Ideally I'd like to see bands displayed for the 0, -5, -95, -100 levels. Thanks!


# WilliamsPercentR
# Charles Schwab & Co. (c) 2007-2024

#declare lower;

input length = 10;
input overBought = -20;
input overSold = -80;

def hh = Highest(high, length);
def ll = Lowest(low, length);

def result = if hh == ll then -100 else (hh - close) / (hh - ll) * (-100);

#plot WR = if result > 0 then 0 else result;
plot WR = if result > 0 then 0 else result+100;
WR.SetDefaultColor(GetColor(1));

#plot Over_Sold = overSold;
#Over_Sold.SetDefaultColor(GetColor(8));
#plot Over_Bought = overBought;
#Over_Bought.SetDefaultColor(GetColor(8));


#----------------------------------

# number 0 to -100
input wpr2 = -50.0;

# def result = if hh == ll then -100 else (hh - close) / (hh - ll) * (-100);
#  wpr =  if hh == ll then -100 else (hh - close) / (hh - ll) * (-100);
#  wpr =   (hh - close) / (hh - ll) * (-100);
#  wpr x (hh - ll) x (-100) =   (hh - close) 
#  -100wpr x (hh - ll) =   (hh - close) 
#  -100wpr*hh - ll*(-100wpr) =   (hh - close) 
#  -100wpr*hh + 100wpr*ll =  (hh - close) 
#   + 100wpr*ll =  (hh - close) + 100wpr*hh
#   ll =  ((hh - close) + 100wpr*hh) / 100wpr

def hh2 = Highest(high, length);
def ll2 = ((hh2 - close) + (100 * wpr2 * hh2)) / (100 * wpr2);

plot z = ll2;


# how to invert these ?
#def hh = Highest(high, length);
#def ll = Lowest(low, length);


#def hh = Highest(high, length);
#  length = 10 ,  many vars to 1
#def hh = max( high1, high2, high3,...  high10 )
# rev would be  1 var to many... 

#