QuantNomad - Heikin-Ashi PSAR Alerts for ThinkOrSwim

samer800

samer800

Moderator - Expert
VIP
Lifetime
dbFn0N6.png


Heikin-Ashi PSAR Strategy

CODE:
CSS: 
#https://www.tradingview.com/v/OBOvLOxW/
#study("QuantNomad - Heikin-Ashi PSAR Alerts", shorttitle = "HA-PSAR[QN]", overlay = false)
# Converted and mod by Sam4Cok@Samer800    - 05/2023
declare lower;
input BarColors  = yes;
input start      = 0.02;#, title = "PSAR Start")
input increment  = 0.02;#, title = "PSAR Increment")
input maximum    = 0.2;#,  title = "PSAR Max")

def na = Double.NaN;
#// Calculation HA Values

#def haOpen;#  = 0.0
def haclose = (open + high + low + close) / 4;
def haOpen  = if (IsNaN(haOpen[1]) or haOpen[1] == 0) then (open + close) / 2 else (haOpen[1] + haclose[1]) / 2;
def hahigh  = Max(high, Max(haOpen, haclose));
def halow   = Min(low,  Min(haOpen, haclose));

#// HA colors
def up = haclose > haOpen;
def upOp; def dnOp;
if up {
    upOp = haOpen;
    } else {
    upOp = na;
}
if !up {
    dnOp = haOpen;
    } else {
    dnOp = na;
}

def psar;        # // PSAR
def af;          # // Acceleration Factor
def trend_dir;   # // Current direction of PSAR
def ep;          # // Extreme point
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1  and haclose <= psar[1];  #// PSAR switches from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];  #// PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

##// Calculate trend direction
trend_dir    = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
               if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
               if sar_long_to_short then -1 else
               if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
             if sar_short_to_long then  1 else
             if trend_dir ==  1   then trend_bars[1] + 1 else
             if trend_dir == -1   then trend_bars[1] - 1 else trend_bars[1];

#// Calculate  Acceleration Factor
af = if trend_change then start else
     if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
         Min(maximum, af[1] + increment) else af[1];
#// Calculate extreme point
ep = if trend_change and trend_dir == 1 then hahigh else 
     if trend_change and trend_dir == -1 then halow else
     if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

#// Calculate PSAR
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
       if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
       if trend_change then ep[1] else   
       if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Plot the new Chart

AddChart(high = if up then hahigh else na, low = halow , open = haclose,  close = upOp,
         type = ChartType.CANDLE, growcolor =  CreateColor(38, 166, 154));

AddChart(high = if up then na else hahigh , low = halow , open = dnOp,  close = haclose,
         type = ChartType.CANDLE, growcolor =  CreateColor(239, 83, 80));


plot parSar = psar;
parSar.AssignValueColor(if trend_dir == 1 then Color.GREEN else Color.RED);
parSar.SetPaintingStrategy(PaintingStrategy.POINTS);

AddChartBubble(sar_short_to_long, halow, "Long", Color.GREEN, no);
AddChartBubble(sar_long_to_short, hahigh, "Short", Color.RED, yes);

AssignPriceColor(if !BarColors then Color.CURRENT else
                 if trend_dir>0 then Color.GREEN else
                 if trend_dir<0 then Color.RED else Color.GRAY);


#--- END of CODE
 
samer800 said:
dbFn0N6.png


Heikin-Ashi PSAR Strategy

CODE:
CSS: 
#https://www.tradingview.com/v/OBOvLOxW/
#study("QuantNomad - Heikin-Ashi PSAR Alerts", shorttitle = "HA-PSAR[QN]", overlay = false)
# Converted and mod by Sam4Cok@Samer800    - 05/2023
declare lower;
input BarColors  = yes;
input start      = 0.02;#, title = "PSAR Start")
input increment  = 0.02;#, title = "PSAR Increment")
input maximum    = 0.2;#,  title = "PSAR Max")

def na = Double.NaN;
#// Calculation HA Values

#def haOpen;#  = 0.0
def haclose = (open + high + low + close) / 4;
def haOpen  = if (IsNaN(haOpen[1]) or haOpen[1] == 0) then (open + close) / 2 else (haOpen[1] + haclose[1]) / 2;
def hahigh  = Max(high, Max(haOpen, haclose));
def halow   = Min(low,  Min(haOpen, haclose));

#// HA colors
def up = haclose > haOpen;
def upOp; def dnOp;
if up {
    upOp = haOpen;
    } else {
    upOp = na;
}
if !up {
    dnOp = haOpen;
    } else {
    dnOp = na;
}

def psar;        # // PSAR
def af;          # // Acceleration Factor
def trend_dir;   # // Current direction of PSAR
def ep;          # // Extreme point
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1  and haclose <= psar[1];  #// PSAR switches from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];  #// PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

##// Calculate trend direction
trend_dir    = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
               if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
               if sar_long_to_short then -1 else
               if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
             if sar_short_to_long then  1 else
             if trend_dir ==  1   then trend_bars[1] + 1 else
             if trend_dir == -1   then trend_bars[1] - 1 else trend_bars[1];

#// Calculate  Acceleration Factor
af = if trend_change then start else
     if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
         Min(maximum, af[1] + increment) else af[1];
#// Calculate extreme point
ep = if trend_change and trend_dir == 1 then hahigh else
     if trend_change and trend_dir == -1 then halow else
     if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

#// Calculate PSAR
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
       if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
       if trend_change then ep[1] else  
       if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Plot the new Chart

AddChart(high = if up then hahigh else na, low = halow , open = haclose,  close = upOp,
         type = ChartType.CANDLE, growcolor =  CreateColor(38, 166, 154));

AddChart(high = if up then na else hahigh , low = halow , open = dnOp,  close = haclose,
         type = ChartType.CANDLE, growcolor =  CreateColor(239, 83, 80));


plot parSar = psar;
parSar.AssignValueColor(if trend_dir == 1 then Color.GREEN else Color.RED);
parSar.SetPaintingStrategy(PaintingStrategy.POINTS);

AddChartBubble(sar_short_to_long, halow, "Long", Color.GREEN, no);
AddChartBubble(sar_long_to_short, hahigh, "Short", Color.RED, yes);

AssignPriceColor(if !BarColors then Color.CURRENT else
                 if trend_dir>0 then Color.GREEN else
                 if trend_dir<0 then Color.RED else Color.GRAY);


#--- END of CODE
Click to expand...

Thankyou Samer800
 
Last edited by a moderator:
What is the difference between this (QuantNomad - Heikin-Ashi PSAR)
and ATR Parabolic SAR Strategy [QuantNomad]?
 
Zlotko said:
What is the difference between this (QuantNomad - Heikin-Ashi PSAR)
and ATR Parabolic SAR Strategy [QuantNomad]?
Click to expand...
The easier question to answer is what do they have in common.
1. They were created by the same scripter QuantNomad
2. They both reference the PSAR indicator

Other than that, nothing in common.
The script in this thread is a trending indicator,
the 2nd:
https://usethinkscript.com/threads/atr-parabolic-sar-strategy-quantnomad-for-thinkorswim.14237/
measures market volatility. It can be helpful for traders who want to adjust their trading strategy based on market conditions.
 
Last edited:
I've converted this to a Strategy for backtesting in the code below.

Code: 
#https://www.tradingview.com/v/OBOvLOxW/
#study("QuantNomad - Heikin-Ashi PSAR Alerts", shorttitle = "HA-PSAR[QN]", overlay = false)
# Converted and mod by Sam4Cok@Samer800    - 05/2023
# Converted from Study to Strategy by thinkorJim - 05/2023

input BarColors  = yes;
input start      = 0.02;#, title = "PSAR Start")
input increment  = 0.02;#, title = "PSAR Increment")
input maximum    = 0.2;#,  title = "PSAR Max")
input orderSize = 1;

def na = Double.NaN;
#// Calculation HA Values

#def haOpen;#  = 0.0
def haclose = (open + high + low + close) / 4;
def haOpen  = if (IsNaN(haOpen[1]) or haOpen[1] == 0) then (open + close) / 2 else (haOpen[1] + haclose[1]) / 2;
def hahigh  = Max(high, Max(haOpen, haclose));
def halow   = Min(low,  Min(haOpen, haclose));

#// HA colors
def up = haclose > haOpen;
def upOp; def dnOp;
if up {
    upOp = haOpen;
    } else {
    upOp = na;
}
if !up {
    dnOp = haOpen;
    } else {
    dnOp = na;
}

def psar;        # // PSAR
def af;          # // Acceleration Factor
def trend_dir;   # // Current direction of PSAR
def ep;          # // Extreme point
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1  and haclose <= psar[1];  #// PSAR switches from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];  #// PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

##// Calculate trend direction
trend_dir    = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
               if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
               if sar_long_to_short then -1 else
               if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
             if sar_short_to_long then  1 else
             if trend_dir ==  1   then trend_bars[1] + 1 else
             if trend_dir == -1   then trend_bars[1] - 1 else trend_bars[1];

#// Calculate  Acceleration Factor
af = if trend_change then start else
     if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
         Min(maximum, af[1] + increment) else af[1];
#// Calculate extreme point
ep = if trend_change and trend_dir == 1 then hahigh else
     if trend_change and trend_dir == -1 then halow else
     if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

#// Calculate PSAR
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
       if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
       if trend_change then ep[1] else   
       if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Trade Logic
def long = trend_dir>0;
def short = trend_dir<0;

# Order Logic
AddOrder(OrderType.BUY_AUTO, long, open[-1], orderSize);
AddOrder(OrderType.SELL_AUTO,short, open[-1], orderSize);

#--- END of CODE
 
samer800 said:
dbFn0N6.png


Heikin-Ashi PSAR Strategy

CODE:
CSS: 
#https://www.tradingview.com/v/OBOvLOxW/
#study("QuantNomad - Heikin-Ashi PSAR Alerts", shorttitle = "HA-PSAR[QN]", overlay = false)
# Converted and mod by Sam4Cok@Samer800    - 05/2023
declare lower;
input BarColors  = yes;
input start      = 0.02;#, title = "PSAR Start")
input increment  = 0.02;#, title = "PSAR Increment")
input maximum    = 0.2;#,  title = "PSAR Max")

def na = Double.NaN;
#// Calculation HA Values

#def haOpen;#  = 0.0
def haclose = (open + high + low + close) / 4;
def haOpen  = if (IsNaN(haOpen[1]) or haOpen[1] == 0) then (open + close) / 2 else (haOpen[1] + haclose[1]) / 2;
def hahigh  = Max(high, Max(haOpen, haclose));
def halow   = Min(low,  Min(haOpen, haclose));

#// HA colors
def up = haclose > haOpen;
def upOp; def dnOp;
if up {
    upOp = haOpen;
    } else {
    upOp = na;
}
if !up {
    dnOp = haOpen;
    } else {
    dnOp = na;
}

def psar;        # // PSAR
def af;          # // Acceleration Factor
def trend_dir;   # // Current direction of PSAR
def ep;          # // Extreme point
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1  and haclose <= psar[1];  #// PSAR switches from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];  #// PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

##// Calculate trend direction
trend_dir    = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
               if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
               if sar_long_to_short then -1 else
               if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
             if sar_short_to_long then  1 else
             if trend_dir ==  1   then trend_bars[1] + 1 else
             if trend_dir == -1   then trend_bars[1] - 1 else trend_bars[1];

#// Calculate  Acceleration Factor
af = if trend_change then start else
     if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
         Min(maximum, af[1] + increment) else af[1];
#// Calculate extreme point
ep = if trend_change and trend_dir == 1 then hahigh else
     if trend_change and trend_dir == -1 then halow else
     if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

#// Calculate PSAR
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
       if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
       if trend_change then ep[1] else  
       if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Plot the new Chart

AddChart(high = if up then hahigh else na, low = halow , open = haclose,  close = upOp,
         type = ChartType.CANDLE, growcolor =  CreateColor(38, 166, 154));

AddChart(high = if up then na else hahigh , low = halow , open = dnOp,  close = haclose,
         type = ChartType.CANDLE, growcolor =  CreateColor(239, 83, 80));


plot parSar = psar;
parSar.AssignValueColor(if trend_dir == 1 then Color.GREEN else Color.RED);
parSar.SetPaintingStrategy(PaintingStrategy.POINTS);

AddChartBubble(sar_short_to_long, halow, "Long", Color.GREEN, no);
AddChartBubble(sar_long_to_short, hahigh, "Short", Color.RED, yes);

AssignPriceColor(if !BarColors then Color.CURRENT else
                 if trend_dir>0 then Color.GREEN else
                 if trend_dir<0 then Color.RED else Color.GRAY);


#--- END of CODE
Click to expand...
is there a way this could be changed to a regular candle stick pattern instead heikin ashi
 
El bago said:
is there a way this could be changed to a regular candle stick pattern instead heikin ashi
Click to expand...
find below.

CSS: 
#https://www.tradingview.com/v/OBOvLOxW/
#study("QuantNomad - Heikin-Ashi PSAR Alerts", shorttitle = "HA-PSAR[QN]", overlay = false)
# Converted and mod by Sam4Cok@Samer800    - 05/2023
declare lower;
input BarColors  = yes;
input CandleStyle = {Default "Heikin-Ashi", "Candle"};
input start      = 0.02;#, title = "PSAR Start")
input increment  = 0.02;#, title = "PSAR Increment")
input maximum    = 0.2;#,  title = "PSAR Max")

def na = Double.NaN;
def ha = CandleStyle==CandleStyle."Heikin-Ashi";
#// Calculation HA Values

#def haOpen;#  = 0.0
def haclose = if ha then (open + high + low + close) / 4 else close;
def haOpen  = if ha then if (IsNaN(haOpen[1]) or haOpen[1]==0) then (open + close) / 2 else
                    (haOpen[1] + haclose[1]) / 2 else open;
def hahigh  = if ha then Max(high, Max(haOpen, haclose)) else high;
def halow   = if ha then Min(low,  Min(haOpen, haclose)) else low;

#// HA colors
def up = haclose > haOpen;
def upOp; def dnOp;
if up {
    upOp = haOpen;
    } else {
    upOp = na;
}
if !up {
    dnOp = haOpen;
    } else {
    dnOp = na;
}

def psar;        # // PSAR
def af;          # // Acceleration Factor
def trend_dir;   # // Current direction of PSAR
def ep;          # // Extreme point
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1  and haclose <= psar[1];  #// PSAR switches from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];  #// PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

##// Calculate trend direction
trend_dir    = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
               if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
               if sar_long_to_short then -1 else
               if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
             if sar_short_to_long then  1 else
             if trend_dir ==  1   then trend_bars[1] + 1 else
             if trend_dir == -1   then trend_bars[1] - 1 else trend_bars[1];

#// Calculate  Acceleration Factor
af = if trend_change then start else
     if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
         Min(maximum, af[1] + increment) else af[1];
#// Calculate extreme point
ep = if trend_change and trend_dir == 1 then hahigh else 
     if trend_change and trend_dir == -1 then halow else
     if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

#// Calculate PSAR
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
       if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
       if trend_change then ep[1] else   
       if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Plot the new Chart

AddChart(high = if up then hahigh else na, low = halow , open = haclose,  close = upOp,
         type = ChartType.CANDLE, growcolor =  CreateColor(38, 166, 154));

AddChart(high = if up then na else hahigh , low = halow , open = dnOp,  close = haclose,
         type = ChartType.CANDLE, growcolor =  CreateColor(239, 83, 80));


plot parSar = psar;
parSar.AssignValueColor(if trend_dir == 1 then Color.GREEN else Color.RED);
parSar.SetPaintingStrategy(PaintingStrategy.POINTS);

AddChartBubble(sar_short_to_long, halow, "L", Color.GREEN, no);
AddChartBubble(sar_long_to_short, hahigh,"S", Color.RED, yes);

AssignPriceColor(if !BarColors then Color.CURRENT else
                 if trend_dir>0 then Color.GREEN else
                 if trend_dir<0 then Color.RED else Color.GRAY);


#--- END of CODE
 
Hi @samer800 is it possible to set up a scan that would indicate when a short or long bubble goes into play? Thanks.

IT'S OKAY CHAT GBT 5 WROTE IT FOR ME: I THOUGHT CHAT GBT COULD NOT WRITE THINKSCRIPT??!!!
Click to expand...
Code: 
# Heikin-Ashi PSAR Flip Scan
# Based on: QuantNomad - Heikin-Ashi PSAR Alerts
# Scan version by ChatGPT

input start = 0.02;
input increment = 0.02;
input maximum = 0.2;

def na = Double.NaN;

# --- Heikin Ashi Values
def haclose = (open + high + low + close) / 4;
def haOpen = if (IsNaN(haOpen[1]) or haOpen[1] == 0)
then (open + close) / 2
else (haOpen[1] + haclose[1]) / 2;
def hahigh = Max(high, Max(haOpen, haclose));
def halow = Min(low, Min(haOpen, haclose));

# --- Variables for PSAR
def psar;
def af;
def trend_dir;
def ep;
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1 and haclose <= psar[1];
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1];
def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

trend_dir = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
if sar_long_to_short then -1 else
if sar_short_to_long then 1 else trend_dir[1];

trend_bars = if sar_long_to_short then -1 else
if sar_short_to_long then 1 else
if trend_dir == 1 then trend_bars[1] + 1 else
if trend_dir == -1 then trend_bars[1] - 1 else trend_bars[1];

af = if trend_change then start else
if (trend_dir == 1 and hahigh > ep[1]) or
(trend_dir == -1 and low < ep[1]) then
Min(maximum, af[1] + increment)
else af[1];

ep = if trend_change and trend_dir == 1 then hahigh else
if trend_change and trend_dir == -1 then halow else
if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
if trend_change then ep[1] else
if trend_dir == 1 then psar[1] + af * (ep - psar[1])
else psar[1] - af * (psar[1] - ep);

# --- Scan Conditions ---
# Start of LONG bubble
def longSignal = sar_short_to_long;
# Start of SHORT bubble
def shortSignal = sar_long_to_short;

# --- Pick one depending on what you want ---
# Uncomment to scan for long start
plot scan = longSignal;

# Uncomment to scan for short start
# plot scan = shortSignal;
 
Last edited by a moderator:
Hi here is @samer800 Lower study converted into an UPPER STUDY which represents only candlesticks and the LONG and SHORT BUBBLES written by CHAT GBT 5:

Code: 
Hi here is @samer800 Lower study converted into an UPPER STUDY which represents only candlesticks and the LONG and SHORT BUBBLES written by CHAT GBT 5:

# PSAR Long/Short Bubbles (Candlestick version only)

# Based on QuantNomad - Heikin-Ashi PSAR Alerts

# Converted to upper study and candlestick-only by ChatGPT



declare upper;


input start = 0.02; # PSAR Start

input increment = 0.02; # PSAR Increment

input maximum = 0.2; # PSAR Max


def na = Double.NaN;


# Use regular candlestick prices

def haclose = close;

def haOpen = open;

def hahigh = high;

def halow = low;



# Trend variables

def psar;

def af;

def trend_dir;

def ep;

def trend_bars;



def sar_long_to_short = trend_dir[1] == 1 and haclose <= psar[1]; # PSAR switches from long to short

def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1]; # PSAR switches from short to long

def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;



# Trend direction

trend_dir = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else

if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else

if sar_long_to_short then -1 else

if sar_short_to_long then 1 else trend_dir[1];



# Trend bars count (not used for plotting but needed for PSAR logic)

trend_bars = if sar_long_to_short then -1 else

if sar_short_to_long then 1 else

if trend_dir == 1 then trend_bars[1] + 1 else

if trend_dir == -1 then trend_bars[1] - 1 else trend_bars[1];



# Acceleration Factor

af = if trend_change then start else

if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then

Min(maximum, af[1] + increment) else af[1];



# Extreme Point

ep = if trend_change and trend_dir == 1 then hahigh else

if trend_change and trend_dir == -1 then halow else

if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);



# PSAR Calculation

psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else

if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else

if trend_change then ep[1] else

if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);



# Bubbles only

AddChartBubble(sar_short_to_long, low, "L", Color.GREEN, no);

AddChartBubble(sar_long_to_short, high, "S", Color.RED, yes);
Screenshot 2025-08-12 at 10.51.42 AM.png
 
Last edited by a moderator:
And here is the SCAN for the above UPPER STUDY CANDLESTICK LONG & SHORT BUBBLE script:
Code: 
# PSAR Long/Short Bubble Scan (Candlestick version only)
# Returns true when a new Long or Short signal just occurred

input start = 0.02; # PSAR Start
input increment = 0.02; # PSAR Increment
input maximum = 0.2; # PSAR Max

def na = Double.NaN;

# Use regular candlestick prices
def haclose = close;
def haOpen = open;
def hahigh = high;
def halow = low;

# Trend variables
def psar;
def af;
def trend_dir;
def ep;
def trend_bars;

def sar_long_to_short = trend_dir[1] == 1 and haclose <= psar[1]; # Switch from long to short
def sar_short_to_long = trend_dir[1] == -1 and haclose >= psar[1]; # Switch from short to long
def trend_change = IsNaN(psar[2]) or sar_long_to_short or sar_short_to_long;

# Trend direction
trend_dir = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then 1 else
if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then -1 else
if sar_long_to_short then -1 else
if sar_short_to_long then 1 else trend_dir[1];

# Trend bars count (not used for plotting but needed for PSAR logic)
trend_bars = if sar_long_to_short then -1 else
if sar_short_to_long then 1 else
if trend_dir == 1 then trend_bars[1] + 1 else
if trend_dir == -1 then trend_bars[1] - 1 else trend_bars[1];

# Acceleration Factor
af = if trend_change then start else
if (trend_dir == 1 and hahigh > ep[1]) or (trend_dir == -1 and low < ep[1]) then
Min(maximum, af[1] + increment) else af[1];

# Extreme Point
ep = if trend_change and trend_dir == 1 then hahigh else
if trend_change and trend_dir == -1 then halow else
if trend_dir == 1 then Max(ep[1], hahigh) else Min(ep[1], halow);

# PSAR Calculation
psar = if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] > haOpen[1] then halow[1] else
if (IsNaN(psar[2]) or psar[2] == 0) and haclose[1] <= haOpen[1] then hahigh[1] else
if trend_change then ep[1] else
if trend_dir == 1 then psar[1] + af * (ep - psar[1]) else psar[1] - af * (psar[1] - ep);

# Signals
def longSignal = sar_short_to_long;
def shortSignal = sar_long_to_short;

# Choose which signal to scan for:
# Set "true" for long only, short only, or both
input scanLong = yes;
input scanShort = yes;

plot scan = (scanLong and longSignal) or (scanShort and shortSignal);
 
Last edited by a moderator:
You must log in or register to reply here.

Join useThinkScript to post your question to a community of 21,000+ developers and traders.

SIGN UP NOW LEARN MORE
Thread starter Similar threads Forum Replies Date
samer800 ATR Parabolic SAR (PSAR ) Strategy [QuantNomad] for ThinkOrSwim Custom 2
SugarTrader Heikin Ashi RSI candlesticks For ThinkOrSwim Custom 2
samer800 Standardized MACD Heikin-Ashi Transformed for ThinkOrSwim Custom 11
samer800 Z-Score Heikin-Ashi Transformed for ThinkOrSwim Custom 8
C Repaints Heikin/Kaufman For ThinkOrSwim Custom 7

Similar threads

Not the exact question you're looking for?

Start a new thread and receive assistance from our community.

87k+ Posts
466 Online
Create Post

Similar threads

Similar threads

The Market Trading Game Changer

Join 2,500+ subscribers inside the useThinkScript VIP Membership Club
  • Exclusive indicators
  • Proven strategies & setups
  • Private Discord community
  • ‘Buy The Dip’ signal alerts
  • Exclusive members-only content
  • Add-ons and resources
  • 1 full year of unlimited support
Try VIP Club Today

Frequently Asked Questions

What is useThinkScript?

useThinkScript is the #1 community of stock market investors using indicators and other tools to power their trading strategies. Traders of all skill levels use our forums to learn about scripting and indicators, help each other, and discover new ways to gain an edge in the markets.

How do I get started?

We get it. Our forum can be intimidating, if not overwhelming. With thousands of topics, tens of thousands of posts, our community has created an incredibly deep knowledge base for stock traders. No one can ever exhaust every resource provided on our site.

If you are new, or just looking for guidance, here are some helpful links to get you started.

What are the benefits of VIP Membership?
VIP members get exclusive access to these proven and tested premium indicators: Buy the Dip, Advanced Market Moves 2.0, Take Profit, and Volatility Trading Range. In addition, VIP members get access to over 50 VIP-only custom indicators, add-ons, and strategies, private VIP-only forums, private Discord channel to discuss trades and strategies in real-time, customer support, trade alerts, and much more. Learn all about VIP membership here.
How can I access the premium indicators?
To access the premium indicators, which are plug and play ready, sign up for VIP membership here.
Back
Top