beta.001

Author: ricardosantos79

beta/arrays/test-001.pinescript

@@ -0,0 +1,18 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study("My Script")
+length = 5
+var float[] a = array.newfloat(length, close)
+_length = array.size(a)
+sum = 0
+for _i = _length-1 to 1
+//     _e = array.get(a, _i-1)
+    array.insert(a, _i, _i)
+// array.insert(a, 0, close)
+
+
+plot(array.get(a, 0))
+//plot(close)
+//plot(array.sum(a) / length)

beta/arrays/test-002-push.pinescript

@@ -0,0 +1,20 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study("f_push()")
+
+f_push(_id, _value)=>
+    _e = array.pop(_id)
+    array.insert(_id, 0, _value)
+
+length = input(5)
+
+var float[] a = array.newfloat(length, close)
+
+f_push(a, close)
+
+plot(array.get(a, 0))
+plot(array.get(a, 4), color=color.yellow, offset=-4)
+
+plot(array.sum(a) / length, color=color.red)

beta/arrays/test-003-push_array.pinescript

@@ -0,0 +1,35 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study("My Script")
+
+f_push(_id, _value)=>
+    _e = array.pop(_id)
+    array.insert(_id, 0, _value)
+
+f_push_array(_A, _B)=>
+    for _i = array.size(_B)-1 to 0
+        f_push(_A, array.get(_B, _i))
+
+h = highest(10)
+l = lowest(10)
+avg = (h+l)/2
+newhigh = high >= h ? 1 : 0
+newlow = low <= l ? 1 : 0
+
+length = input(6)
+var float[] A = array.newfloat(length, close)
+float[] B = array.newfloat(2, 0.0)
+
+if change(newhigh) < 0 or change(newlow) < 0
+    //array.set(B, 0, avg)
+    array.set(B, 0, h)
+    array.set(B, 1, l)
+    f_push_array(A, B)
+
+plot(array.sum(A) / length)
+plot(array.max(A), color=color.white)
+plot(array.min(A), color=color.white)
+plot(close, color=color.yellow)
+//plot(array.sum(A))

beta/arrays/test-004-dotproduct.pinescript

@@ -0,0 +1,21 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study("My Script")
+
+f_dot_product(_A, _B)=>
+    int _Alength = array.size(_A)
+    int _Blength = array.size(_B)
+    _dot = 0.0
+    if _Alength == _Blength
+        for _i = 0 to _Alength-1
+            _dot := _dot + array.get(_A, _i) * array.get(_B, _i)
+    _dot
+
+dotlength = input(6)
+float[] A = array.newfloat(dotlength, close)
+float[] B = array.newfloat(dotlength, 1.618)
+
+float dot = f_dot_product(A, B)
+plot(dot)

beta/arrays/test-005-graph.pinescript

@@ -0,0 +1,85 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study("My Script")
+
+f_grad(_value)=>
+    _value >= 11 ? #0002A2 :
+         _value == 10 ? #0045A9 :
+         _value == 09 ? #008EB0 :
+         _value == 08 ? #00B690 :
+         _value == 07 ? #00BD4A :
+         _value == 06 ? #01C400 :
+         _value == 05 ? #52CA00 :
+         _value == 04 ? #A8D100 :
+         _value == 03 ? #D7AC00 :
+         _value == 02 ? #DE5800 :
+         _value == 01 ? #E50000 : color.white
+
+float feature01 = close-close[1]
+float feature02 = round(rsi(close, 14)[1]*10)
+
+int data_range = 10
+int nclusters = 3
+
+float[] X = array.newfloat(data_range, feature01)
+float[] Y = array.newfloat(data_range, feature02)
+
+for _i = 0 to data_range-1
+    array.set(id=X, index=_i, value=feature01[_i])
+    array.set(id=Y, index=_i, value=feature02[_i])
+
+plot(series=array.get(X, 0), color=f_grad(0), linewidth=10, style=plot.style_circles, offset=int(-1000+array.get(Y, 0)), show_last=1)
+plot(series=array.get(X, 1), color=f_grad(1), linewidth=9, style=plot.style_circles, offset=int(-1000+array.get(Y, 1)), show_last=1)
+plot(series=array.get(X, 2), color=f_grad(2), linewidth=8, style=plot.style_circles, offset=int(-1000+array.get(Y, 2)), show_last=1)
+plot(series=array.get(X, 3), color=f_grad(3), linewidth=7, style=plot.style_circles, offset=int(-1000+array.get(Y, 3)), show_last=1)
+plot(series=array.get(X, 4), color=f_grad(4), linewidth=6, style=plot.style_circles, offset=int(-1000+array.get(Y, 4)), show_last=1)
+plot(series=array.get(X, 5), color=f_grad(5), linewidth=5, style=plot.style_circles, offset=int(-1000+array.get(Y, 5)), show_last=1)
+plot(series=array.get(X, 6), color=f_grad(6), linewidth=4, style=plot.style_circles, offset=int(-1000+array.get(Y, 6)), show_last=1)
+plot(series=array.get(X, 7), color=f_grad(7), linewidth=3, style=plot.style_circles, offset=int(-1000+array.get(Y, 7)), show_last=1)
+plot(series=array.get(X, 8), color=f_grad(8), linewidth=2, style=plot.style_circles, offset=int(-1000+array.get(Y, 8)), show_last=1)
+plot(series=array.get(X, 9), color=f_grad(9), linewidth=1, style=plot.style_circles, offset=int(-1000+array.get(Y, 9)), show_last=1)
+
+// plot different shapes:
+// plotshape(series=array.get(X, 9), title='', style=shape.cross, location=location.absolute, color=f_grad(9), transp=25, offset=int(-1000+array.get(Y, 9)), size=size.normal, show_last=1)
+// plotshape(series=array.get(X, 5), title='', style=shape.diamond, location=location.absolute, color=f_grad(5), transp=25, offset=int(-1000+array.get(Y, 5)), size=size.normal, show_last=1)
+
+// not centered location
+//plotchar(series=array.get(X, 2), title='', char='*', location=location.absolute, color=f_grad(2), transp=25, offset=int(-1000+array.get(Y, 2)), size=size.normal, show_last=1)
+
+var line box_top = line.new(x1=bar_index, y1=0.0, x2=bar_index, y2=0.0, xloc=xloc.bar_index, extend=extend.none, color=color.gray, style=line.style_solid, width=1)
+var line box_bot = line.new(x1=bar_index, y1=0., x2=bar_index, y2=0., xloc=xloc.bar_index, extend=extend.none, color=color.gray, style=line.style_solid, width=1)
+var line box_left = line.new(x1=bar_index, y1=0., x2=bar_index, y2=0., xloc=xloc.bar_index, extend=extend.none, color=color.gray, style=line.style_solid, width=1)
+var line box_right = line.new(x1=bar_index, y1=0., x2=bar_index, y2=0., xloc=xloc.bar_index, extend=extend.none, color=color.gray, style=line.style_solid, width=1)
+
+var line box_ob = line.new(x1=bar_index, y1=0., x2=bar_index, y2=0., xloc=xloc.bar_index, extend=extend.none, color=color.olive, style=line.style_dashed, width=1)
+var line box_os = line.new(x1=bar_index, y1=0., x2=bar_index, y2=0., xloc=xloc.bar_index, extend=extend.none, color=color.orange, style=line.style_dashed, width=1)
+
+var float top = 0.0
+var float bot = 0.0
+int left = bar_index-1000
+int right = bar_index
+int ob = bar_index-250
+int os = bar_index-750
+
+top := cum(array.max(id=X)) / (bar_index + 1)//max(nz(top), array.max(id=X))
+bot := cum(array.min(id=X)) / (bar_index + 1)//min(nz(bot), array.min(id=X)) 
+
+// plot(series=top)
+// plot(series=bot)
+hline(0)
+
+line.set_xy1(id=box_top, x=left, y=top)
+line.set_xy2(id=box_top, x=right, y=top)
+line.set_xy1(id=box_bot, x=left, y=bot)
+line.set_xy2(id=box_bot, x=right, y=bot)
+line.set_xy1(id=box_left, x=left, y=top)
+line.set_xy2(id=box_left, x=left, y=bot)
+line.set_xy1(id=box_right, x=right, y=top)
+line.set_xy2(id=box_right, x=right, y=bot)
+line.set_xy1(id=box_ob, x=ob, y=top)
+line.set_xy2(id=box_ob, x=ob, y=bot)
+line.set_xy1(id=box_os, x=os, y=top)
+line.set_xy2(id=box_os, x=os, y=bot)
+

beta/arrays/test-006-initarray.pinescript

@@ -0,0 +1,14 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study(title="test-006-initarray")
+
+var color[] colors = array.newcolor(size=0, initial_value=#eeeeee)
+// if array has no elements, initialize the array with its elements:
+if array.size(id=colors) == 0
+    array.push(id=colors, value=#000000)
+    array.push(id=colors, value=#ffffff)
+
+plot(series=0.0, color=array.get(id=colors, index=0))
+plot(series=1.0, color=array.get(id=colors, index=1))

beta/arrays/test-007-mode.pinescript

@@ -0,0 +1,39 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study(title="test-007-mode")
+
+var label debug = label.new(x=bar_index, y=0.0, text='', style=label.style_label_lower_left)
+f_print(_array, _label)=>
+    int _size = array.size(id=_array) - 1
+    string _t = ''
+    if _size > 0
+        for _i = 0 to _size
+            _t := _t + tostring(_i, '# : ') + tostring(array.get(id=_array, index=_i)) + '\n'
+    label.set_xy(id=_label, x=bar_index, y=0.0)
+    label.set_text(id=_label, text=_t)
+    
+f_push(_id, _value)=>
+    _e = array.pop(id=_id)
+    array.insert(id=_id, index=0, value=_value)
+
+int length = input(10)
+float src = close//bar_index % length
+var float[] prices = array.newfloat(size=length, initial_value=close)
+f_push(prices, src)
+
+f_mode(_id)=>
+    int _size = array.size(id=_id)
+    int _target = _size % 2 == 0 ? _size / 2 : 1 + _size / 2
+    float[] _sorted = array.copy(id=_id)
+    array.sort(id=_sorted, order=true)
+    //f_print(_sorted, debug)
+    float _return = 0.
+    if _size > 0
+        _return := array.get(id=_sorted, index=_target)
+    _return
+
+float mode = f_mode(prices)
+plot(src, color=color.gray)
+plot(mode)

beta/arrays/test-008-fusion.pinescript

@@ -0,0 +1,56 @@
+// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
+// © RicardoSantos
+
+//@version=4
+study(title='test-008-fusion', overlay=true)
+
+var label debug_high = label.new(x=bar_index, y=0.0, text='', style=label.style_label_lower_left)
+var label debug_low = label.new(x=bar_index, y=0.0, text='', style=label.style_label_upper_left)
+var label debug_mid = label.new(x=bar_index, y=0.0, text='', style=label.style_label_right)
+f_print(_array, _label)=>
+    int _size = array.size(id=_array) - 1
+    string _t = ''
+    if _size > 0
+        for _i = 0 to _size
+            _t := _t + tostring(_i, '# : ') + tostring(array.get(id=_array, index=_i)) + '\n'
+    label.set_xy(id=_label, x=bar_index, y=0.0)
+    label.set_text(id=_label, text=_t)
+
+int length = input(10)
+int half = (1 + length) / 2
+// (1 + length) prioritizes the first half (lows) of the array so that at odd values it will have 1 more element.
+
+var float[] extremes = array.newfloat(size=length, initial_value=open)
+
+float[] lows = array.slice(id=extremes, index_from=0, index_to=half)
+float[] highs = array.slice(id=extremes, index_from=half, index_to=length)
+// odd slicing behaviour: when slicing the second part(highs) index_from should be half + 1?
+// right now it seems to be doing so automatically, or not being added into the first part value of "half".
+
+float h = highest(length)
+float l = lowest(length)
+
+bool isnewhigh = high >= h
+bool isnewlow = low <= l
+
+if isnewhigh
+    float _e = array.pop(id=highs)
+    array.insert(id=highs, index=0, value=high)
+if isnewlow
+    float _e = array.pop(id=lows)
+    array.insert(id=lows, index=0, value=low)
+
+float avg_extreme = array.sum(id=extremes) /  array.size(id=extremes)
+
+float avg_high = array.sum(id=highs) / array.size(id=highs)
+float avg_low = array.sum(id=lows) / array.size(id=lows)
+
+plot(avg_high)
+plot(avg_low)
+plot(avg_extreme, color=color.silver)
+
+bool show_debug = input(false)
+if show_debug
+    f_print(highs, debug_high)
+    f_print(lows, debug_low)
+    f_print(extremes, debug_mid)