Does what it says on the tin.
study(title="DOW vs. GOLD Ratio", shorttitle="DOW/GOLD", overlay=false)
sym(s) => security(s, period, close)
DOWvGOLD = (sym("DOWI") / sym("GC1!"))
len = input(260, minval=1, title="EMA Length")
out = ema(DOWvGOLD, len)
//
lltssrc = DOWvGOLD
lltslen=input(90, minval=1, title="Length")
lltsout = ema(lltssrc, lltslen)
data = lltssrc/lltsout
buy = data > 1
sell = data < 1
lltscolor = buy ? olive : sell ? orange : blue
//
WARNING_HIGH = DOWvGOLD > input(40, title="Equities Too Hot")
SWTCH_2_GLD = DOWvGOLD > input(30, title="Switch to Gold")
TRANSITION = DOWvGOLD > input(6, title="Transition State") // Market middle ground
SWTCH_2_EQTS = DOWvGOLD < input(6, title="Switch to Equities")
WARNING_LOW = DOWvGOLD < input(3.20, title="Gold Too Hot")
custcolor = WARNING_HIGH ? red : SWTCH_2_GLD ? #EBC87A : TRANSITION ? teal : SWTCH_2_EQTS ? purple : WARNING_LOW ? red : navy
plot(out, title="EMA", color=lltscolor)
plot(DOWvGOLD, color=custcolor, linewidth=1, trackprice=true)