#TMO True Momentum Oscillator with Higher Aggregation _Mobius
#Tuesday, May 15, 2018 12:36 PM
## OneNote Archive Name: TMO True Momentum Oscillator with Higher Aggregation _Mobius
## Archive Section: Momentum
## Suggested Tos Name: TrueMomentumOscillator_w_HigherAggregation_Mobius
## Archive Date: 5.15.2018
## Archive Notes:
## 08:43 Mobius: Well give it a few days to get altered, muched, distorted and twisted. Then when it get back to being used as intended someone will start making money with it.
## 08:45 Mobius: Oh and in my view - It's highest and best use is as designed with a secondary aggregation plotted either on it or with it around 5 to 10 time higher.
## "##" indicates an addition or adjustment by the OneNote Archivist
## Original Code Follows
# TMO ((T)rue (M)omentum (O)scillator) With Higher Aggregation
# Mobius
# V01.05.2018
#hint: TMO calculates momentum using the delta of price. Giving a much better picture of trend, tend reversals and divergence than momentum oscillators using price.
input length = 14;
input calcLength = 5;
input smoothLength = 3;
input agg = AggregationPeriod.DAY;
input agg2 = AggregationPeriod.FOUR_DAYS;
input agg3 = AggregationPeriod.THREE_DAYS;
input agg4 = AggregationPeriod.TWO_DAYS;
def o = open(period = agg);
def c = close(period = agg);
def data = fold i = 0 to length
with s
do s + (if c > getValue(o, i)
then 1
else if c < getValue(o, i)
then - 1
else 0);
def EMA5 = ExpAverage(data, calcLength);
def Main = ExpAverage(EMA5, smoothLength);
def Signal = ExpAverage(Main, smoothLength);
def zero = if isNaN(c) then double.nan else 0;
def ob = if isNaN(c) then double.nan else round(length * .8);
def os = if isNaN(c) then double.nan else -round(length * .8);
def o2 = open(period = agg2);
def c2 = close(period = agg2);
def data2 = fold i2 = 0 to length
with s2
do s2 + (if c2 > getValue(o2, i2)
then 1
else if c2 < getValue(o2, i2)
then - 1
else 0);
def EMA52 = ExpAverage(data2, calcLength);
def Main2 = ExpAverage(EMA52, smoothLength);
def Signal2 = ExpAverage(Main2, smoothLength);
def o3 = open(period = agg3);
def c3 = close(period = agg3);
def data3 = fold i3 = 0 to length
with s3
do s3 + (if c3 > getValue(o3, i3)
then 1
else if c3 < getValue(o3, i3)
then - 1
else 0);
def EMA53 = ExpAverage(data3, calcLength);
def Main3 = ExpAverage(EMA53, smoothLength);
def Signal3 = ExpAverage(Main3, smoothLength);
def o4 = open(period = agg4);
def c4 = close(period = agg4);
def data4 = fold i4 = 0 to length
with s4
do s4 + (if c4 > getValue(o4, i4)
then 1
else if c4 < getValue(o4, i4)
then - 1
else 0);
def EMA54 = ExpAverage(data4, calcLength);
def Main4 = ExpAverage(EMA54, smoothLength);
def Signal4 = ExpAverage(Main4, smoothLength);
plot bullish = (Main > Signal) and (Main2 > Signal2) and (Main3 > Signal3) and (Main4 > Signal4);
plot bearish = (Main < Signal) and (Main2 < Signal2) and (Main3 < Signal3) and (Main4 < Signal4);
def sellshort = (Main3 > Signal3);
def selllong = (Main3 < Signal3);
def SSS = if sellshort then 100 else if selllong then -100 else 0;
def SS = if bullish then 100 else if bearish then -100 else 0;
def sBuy = SS crosses above 0;
def sSell = SS crosses below 0;
def sbuysell = SSS crosses below 0;
def SSellbuy = SSS crosses above 0;
AddOrder(OrderType.Buy_TO_OPEN, condition = Sbuy
, price = open[-1], 1, tickcolor = Color.GREEN, arrowcolor = Color.GREEN, name = "BE");
AddOrder(OrderType.Sell_TO_CLOSE, condition = sbuysell
, price = open[-1], 1, tickcolor = Color.RED, arrowcolor = Color.RED, name = "SE");
AddOrder(OrderType.Sell_to_OPEN, condition = SSell
, price = open[-1], 1, tickcolor = Color.GREEN, arrowcolor = Color.GREEN, name = "BE");
AddOrder(OrderType.Buy_TO_CLOSE, condition = sSellbuy
, price = open[-1], 1, tickcolor = Color.RED, arrowcolor = Color.RED, name = "SE");
