Add esearch folder

Author: everget

research/chart_type_identifier.pine

@@ -0,0 +1,127 @@
+//@version=4
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Chart Type Identifier script may be freely distributed under the terms of the GPL-3.0 license.
+study("Chart Type Identifier", overlay=true)
+
+max = max(open, close)
+min = min(open, close)
+body = abs(close - open)
+
+var int horizCount = -1
+if open[1] == close or close[1] == open
+    horizCount := horizCount + 1
+
+var int gapsCount = -1
+if low[1] > high or high[1] < low
+    gapsCount := gapsCount + 1
+
+var int noWicksCount = -1
+if max == high and min == low
+    noWicksCount := noWicksCount + 1
+
+//------------------------------------------------------------------------------
+
+_isHA() =>
+    var int oc2Count = -1
+    oc2Count := open == (open[1] + close[1]) / 2 ? oc2Count + 1 : oc2Count
+    out = oc2Count == bar_index - 1 and oc2Count != -1 and gapsCount == -1
+    out
+
+isHA = _isHA()
+
+_isRenko() =>
+    bodySum = cum(body)
+    avg = bodySum / (bar_index + 1)
+    out = avg == body and gapsCount == -1
+    out
+
+isRenko = _isRenko()
+
+_isKagi() =>
+    out = noWicksCount == bar_index and horizCount == bar_index - 1 and gapsCount == -1
+    out
+
+isKagi = _isKagi()
+
+_isPnF() =>
+    var int sum = 0
+    sum := close > close[1] ? sum + 1 : close < close[1] ? sum - 1 : sum
+    out = (sum == 1 or sum == 0 or sum == -1) and horizCount < bar_index - 1
+    out
+
+isPnF = _isPnF()
+
+_isLineBreak() =>
+    out = noWicksCount == bar_index and horizCount < bar_index - 1 and gapsCount == -1
+    out
+
+isLineBreak = not isPnF and _isLineBreak()
+
+monthData = security(syminfo.tickerid, "M", close)
+weekData = security(syminfo.tickerid, "W", close)
+dayData = security(syminfo.tickerid, "D", close)
+hourData = security(syminfo.tickerid, "60", close)
+minuteData = security(syminfo.tickerid, "1", close)
+
+_isRangeBars() =>
+    out =
+         timeframe.period != "S" and
+         minuteData == monthData and
+         minuteData == weekData and
+         minuteData == dayData and
+         minuteData == hourData and
+         minuteData == close
+    out
+
+isRangeBars = _isRangeBars()
+
+isClassic =
+     not isHA and
+     not isRenko and
+     not isKagi and
+     not isPnF and
+     not isLineBreak and
+     not isRangeBars
+
+labelText =
+     bar_index < 2 ? "\nNot enough bars to identify Chart Type\n" :
+     isHA ? "\nThis is Heikin-Ashi Chart\n" :
+     isRenko ? "\nThis is Renko Chart\n" :
+     isKagi ? "\nThis is Kagi Chart\n" :
+     isRangeBars ? "\nThis is Range Bars Chart\n" :
+     isPnF ? "\nThis is P&F Chart\n" :
+     isLineBreak ? "\nThis is Line Break Chart\n" :
+     isClassic ? "\nThis is Classic Chart\n" :
+     "\nUnknown Chart Type\n"
+
+labelColor = #1e90ff
+whiteColor = color.white
+
+var label l = label.new(
+     x=bar_index,
+     y=na,
+     text="",
+     color=labelColor,
+     textcolor=whiteColor,
+     style=label.style_labeldown,
+     size=size.normal
+     )
+
+_highest(length) =>
+    out = high
+    for i = 1 to length - 1
+        prev = nz(high[i])
+        out := out < prev ? prev : out
+    out
+
+lookback = min(bar_index + 2, 50)
+yPos = _highest(lookback)
+
+// debug =
+//      "\nBar Index: " + tostring(int(bar_index)) +
+//      "\nGaps: " + tostring(gapsCount) +
+//      "\nHoriz: " + tostring(horizCount) +
+//      "\nNo Wicks: " + tostring(noWicksCount)
+
+label.set_text(l, labelText) // + debug
+label.set_xy(l, bar_index, yPos)

research/custom_median_vs_built_in_median.pine

@@ -0,0 +1,41 @@
+//@version=3
+// Copyright (c) 2018-present, Alex Orekhov (everget)
+// Custom Median vs Built-in Median script may be freely distributed under the GPL-3.0 license.
+study("Custom Median vs Built-in Median", shorttitle="CMvsBM")
+
+length = input(title="Length", type=integer, minval=1, defval=14)
+src = input(title="Source", type=source, defval=close)
+
+// Built-in Median
+median(src, length) =>
+    percentile_nearest_rank(src, length, 50)
+
+sort(src, length, i) =>
+	min = -10000.0
+
+	for j = 0 to i
+		min_local = 10000.0
+
+		for l = 0 to length - 1
+			if (nz(src[l]) <= min)
+				continue
+
+			min_local := min(min_local, max(min, nz(src[l])))
+
+		if min_local != 10000
+			min := min_local
+	min
+
+// Custom Median
+customMedian(src, length) =>
+	out = 0.0
+
+	if length % 2 == 0
+		out := (sort(src, length, length / 2 - 1) + sort(src, length, length / 2)) / 2
+	else
+		out := sort(src, length, length / 2 - 0.5)
+	out
+
+diff = median(src, length) - customMedian(src, length)
+
+plot(diff, title="CMvsBM", transp=0)

research/dashed_line_style.pine

@@ -0,0 +1,8 @@
+//@version=3
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Dashed Line Style script may be freely distributed under the GPL-3.0 license.
+study("Dashed Line Style", overlay=true)
+
+sma = sma(close, 14)
+
+plot(n % 3 != 0 ? sma : na, style=linebr, linewidth=3, color=black, transp=0)

research/fancy_shapes.pine

@@ -0,0 +1,67 @@
+//@version=4
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Fancy Shapes script may be freely distributed under the terms of the GPL-3.0 license.
+study("Fancy Shapes")
+
+y0 = 0
+offset0 = 0
+
+y1 = 0
+offset1 = -20
+
+y2 = 0
+offset2 = -40
+
+y3 = 0
+offset3 = -60
+
+y4 = 0
+offset4 = -80
+
+y5 = 0
+offset5 = -100
+
+y6 = 0
+offset6 = -120
+
+plotshape(y0, location=location.absolute, style=shape.flag, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset0)
+plotshape(y0, location=location.absolute, style=shape.flag, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset0)
+plotshape(y0, location=location.absolute, style=shape.flag, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset0)
+plotshape(y0, location=location.absolute, style=shape.flag, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset0)
+plotshape(y0, location=location.absolute, style=shape.flag, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset0)
+
+plotshape(y1, location=location.absolute, style=shape.square, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset1)
+plotshape(y1, location=location.absolute, style=shape.square, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset1)
+plotshape(y1, location=location.absolute, style=shape.square, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset1)
+plotshape(y1, location=location.absolute, style=shape.square, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset1)
+plotshape(y1, location=location.absolute, style=shape.square, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset1)
+
+plotshape(y2, location=location.absolute, style=shape.diamond, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset2)
+plotshape(y2, location=location.absolute, style=shape.diamond, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset2)
+plotshape(y2, location=location.absolute, style=shape.diamond, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset2)
+plotshape(y2, location=location.absolute, style=shape.diamond, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset2)
+plotshape(y2, location=location.absolute, style=shape.diamond, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset2)
+
+plotshape(y3, location=location.absolute, style=shape.triangleup, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset3)
+plotshape(y3, location=location.absolute, style=shape.triangleup, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset3)
+plotshape(y3, location=location.absolute, style=shape.triangleup, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset3)
+plotshape(y3, location=location.absolute, style=shape.triangleup, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset3)
+plotshape(y3, location=location.absolute, style=shape.triangleup, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset3)
+
+plotshape(y4, location=location.absolute, style=shape.circle, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset4)
+plotshape(y4, location=location.absolute, style=shape.circle, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset4)
+plotshape(y4, location=location.absolute, style=shape.circle, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset4)
+plotshape(y4, location=location.absolute, style=shape.circle, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset4)
+plotshape(y4, location=location.absolute, style=shape.circle, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset4)
+
+plotshape(y5, location=location.absolute, style=shape.labelup, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset5)
+plotshape(y5, location=location.absolute, style=shape.labelup, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset5)
+plotshape(y5, location=location.absolute, style=shape.labelup, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset5)
+plotshape(y5, location=location.absolute, style=shape.labelup, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset5)
+plotshape(y5, location=location.absolute, style=shape.labelup, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset5)
+
+plotshape(y6, location=location.absolute, style=shape.labeldown, size=size.huge, color=color.blue, transp=80, show_last=1, offset=offset6)
+plotshape(y6, location=location.absolute, style=shape.labeldown, size=size.large, color=color.blue, transp=80, show_last=1, offset=offset6)
+plotshape(y6, location=location.absolute, style=shape.labeldown, size=size.normal, color=color.blue, transp=80, show_last=1, offset=offset6)
+plotshape(y6, location=location.absolute, style=shape.labeldown, size=size.small, color=color.blue, transp=80, show_last=1, offset=offset6)
+plotshape(y6, location=location.absolute, style=shape.labeldown, size=size.tiny, color=color.blue, transp=80, show_last=1, offset=offset6)

research/heikin_ashi_chart_identifier.pine

@@ -0,0 +1,33 @@
+//@version=4
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Heikin-Ashi Chart Identifier script may be freely distributed under the terms of the GPL-3.0 license.
+study("Heikin-Ashi Chart Identifier", overlay=true)
+
+var int gapsCount = -1
+gapsCount := low[1] > high or high[1] < low ? gapsCount + 1 : gapsCount
+
+var int matchedCandles = -1
+matchedCandles := open == (open[1] + close[1]) / 2 ? matchedCandles + 1 : matchedCandles
+
+isHA = matchedCandles == bar_index - 1 and matchedCandles != -1 and gapsCount == -1
+
+labelText = isHA ? "This is Heikin-Ashi Chart" : "This is not Heikin-Ashi Chart"
+stats = "\n------------------------------------" +
+         "\nBar Index: " + tostring(int(bar_index)) +
+         "\nMatched: " + tostring(matchedCandles)
+         
+labelColor = #1e90ff
+whiteColor = color.white
+
+var label l = label.new(
+     x=bar_index,
+     y=na,
+     text="",
+     color=labelColor,
+     textcolor=whiteColor,
+     style=label.style_labeldown,
+     size=size.normal
+     )
+
+label.set_text(l, labelText + stats)
+label.set_xy(l, bar_index, highest(high, 50))

research/kagi_chart_identifier.pine

@@ -0,0 +1,40 @@
+//@version=4
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Kagi Chart Identifier script may be freely distributed under the terms of the GPL-3.0 license.
+study("Kagi Chart Identifier", overlay=true)
+
+var ocCount = -1
+if open[1] == close or close[1] == open
+    ocCount := ocCount + 1
+
+var hCount = -1
+if open == high or close == high
+    hCount := hCount + 1
+
+var lCount = -1
+if open == low or close == low
+    lCount := lCount + 1
+
+isKagi = hCount == bar_index and lCount == bar_index and ocCount == bar_index - 1
+
+labelText = isKagi ? "This is Kagi Chart" : "This is not Kagi Chart"
+stats = "\n------------------------------" +
+         "\nBar Index: " + tostring(int(bar_index)) +
+         "\nO==C Candles: " + tostring(ocCount) +
+         "\nOC==H Candles: " + tostring(hCount) +
+         "\nOC==L Candles: " + tostring(lCount)
+labelColor = #1e90ff
+whiteColor = color.white
+
+var label kagiLabel = label.new(
+     x=bar_index,
+     y=na,
+     text="",
+     color=labelColor,
+     textcolor=whiteColor,
+     style=label.style_labeldown,
+     size=size.normal
+     )
+
+label.set_text(kagiLabel, labelText + stats)
+label.set_xy(kagiLabel, bar_index, highest(close, 10))

research/litecoin_halving_utc_countdown.pine

@@ -0,0 +1,36 @@
+//@version=4
+// Copyright (c) 2019-present, Alex Orekhov (everget)
+// Litecoin Halving UTC Countdown script may be freely distributed under the terms of the GPL-3.0 license.
+study("Litecoin Halving UTC Countdown", overlay=true)
+
+halvingDay = input(title="Halving Day", minval=1, maxval=31, defval=5)
+halvingHour = input(title="Halving Hour", minval=1, maxval=24, defval=11)
+halvingMinute = input(title="Halving Minute", minval=1, maxval=60, defval=55)
+
+halvingStamp = timestamp('GMT', 2019, 8, halvingDay, halvingHour, halvingMinute)
+
+secondsRaw = floor((halvingStamp - timenow) / 1000)
+minutesRaw = floor(secondsRaw / 60)
+hoursRaw = floor(minutesRaw / 60)
+
+seconds = secondsRaw % 60
+minutes = minutesRaw % 60
+hours = hoursRaw % 24
+days = floor(hoursRaw / 24)
+
+f_format(_val) =>
+    (0 < _val and _val < 10 ? "0" : "") + tostring(_val, "##") + (_val == 0 ? "0" : "")
+
+labelText = f_format(days) + "d  " + f_format(hours) + ":" + f_format(minutes) + ":" + f_format(seconds)
+
+var label l = label.new(
+     x=bar_index,
+     y=na,
+     text="",
+     textcolor=color.black,
+     style=label.style_none,
+     size=size.huge
+     )
+
+label.set_text(l, labelText)
+label.set_xy(l, bar_index, highest(100))

research/mean_absolute_deviation.pine

@@ -0,0 +1,33 @@
+//@version=3
+// Copyright (c) 2018-present, Alex Orekhov (everget)
+// Mean Absolute Deviation script may be freely distributed under the GPL-3.0 license.
+study("Mean Absolute Deviation", shorttitle="MAD")
+
+src = close
+len = 14
+
+sma = sma(src, len)
+
+median(src, length) =>
+    percentile_nearest_rank(src, length, 50)
+
+dev0 = dev(src, len)
+dev1 = src - sma
+dev2 = sum(abs(src - sma), len) / len
+dev3 = abs(src - sma) / len
+dev4 = (src - sma) / len
+dev5 = median(src - median(src, len), len)
+
+sum = 0.0
+for i = 0 to len - 1
+    sum := sum + abs(src[i] - sma)
+
+dev6 = sum / len
+
+plot(dev0, title="Built-in", color=purple)
+plot(dev1, title="1", color=olive)
+plot(dev2, title="2", color=teal)
+plot(dev3, title="3", color=green)
+plot(dev4, title="4", color=red)
+plot(dev5, title="5", color=blue)
+plot(dev6, title="6", color=orange)