Pine script conversion using ChatGPT 4

LucasBest · Mon, 11 Sep 2023 21:44:26 +0000

Spent few hours with chatgpt helping me (or maybe i was helping him?:-)) to translate an indicator from tradingview. Finally we did it, but it tooks twice or 3 times more times than if i did it alone… Original code : https://fr.tradingview.com/script/5zoE62bC-TKP-T3-Trend-With-Psar-Barcolor/ //this script is intended to help identify reversals and attempt to anticiapate them. Psar and Tilson templates are from Chris Moody and TKP Trader //@Bjorgum on Stocktwits //Bull trends are identified by blue bars, while bear trades are identified by red. Points of reversal are indicated with yellow candles. //Bars change to yellow as bar close crosses the Tilson moving averages. Blue or red is confrimed as the two Tilson avergaes themselves cross. //Buy and sell signal is given on yellow bars //TURN CANDLE BORDERS OFF //Psar helps identify reversals and provide stop loss values //Arrows appear above or below candles to incorporate a momentum aspect. This condition is based on a rising or falling TSI value while under or over the signal line. //This can show momentum 'headwinds' or 'tailwinds' as TSI 'curls'. //@version=4 // TSI Inputs short = 5 signal = 14 // Calculate TSI pc = close - close[1] // Calculate double smoothed PC firstsmooth = ExponentialAverage[long](pc) doublesmoothedpc = ExponentialAverage[short](firstsmooth) // Calculate double smoothed absolute PC abspc = abs(pc) firstsmoothabs = ExponentialAverage[long](abspc) doublesmoothedabspc = ExponentialAverage[short](firstsmoothabs) tsivalue = 100 * (doublesmoothedpc / doublesmoothedabspc) // Calculate Signals data = tsivalue > tsivalue[1] AND tsivalue < ExponentialAverage[signal](tsivalue) dtat = tsivalue < tsivalue[1] AND tsivalue > ExponentialAverage[signal](tsivalue) // Define ATR atr = AverageTrueRange[14](close) // Plot Upward-Pointing Triangle using drawtext for "Curl Up" with color "green" IF data THEN DRAWTEXT("▴", barindex, low - atr / 2, dialog, bold, 25) coloured(0, 255, 0, 255) ENDIF // Plot Downward-Pointing Triangle using drawtext for "Curl Down" with color "orange" IF dtat THEN DRAWTEXT("▾", barindex, high + atr / 2, dialog, bold, 25) coloured(255, 165, 0, 255) ENDIF // Parabolic Stop and Reverse startValue = 0.043 incrementValue = 0.043 maximumValue = 0.34 // Calculate PSAR sarUp = SAR[startValue, incrementValue, maximumValue] sarDown = SAR[startValue, incrementValue, maximumValue] // Define Colors colUpR = 100 colUpG = 181 colUpB = 246 colDownR = 239 colDownG = 83 colDownB = 80 // Condition to check if close is greater or equal to sarDown IF close >= sarDown THEN DRAWPOINT(barindex, sarUp, 3) coloured(colUpR, colUpG, colUpB, 255) ENDIF // Condition to check if close is less or equal to sarUp IF close <= sarUp THEN DRAWPOINT(barindex, sarDown, 3) coloured(colDownR, colDownG, colDownB, 255) ENDIF // T3 MA5 aLength = 5 AxPrice = close axe1 = ExponentialAverage[aLength](AxPrice) axe2 = ExponentialAverage[aLength](axe1) axe3 = ExponentialAverage[aLength](axe2) axe4 = ExponentialAverage[aLength](axe3) axe5 = ExponentialAverage[aLength](axe4) axe6 = ExponentialAverage[aLength](axe5) ab = 0.7 ac1 = -ab * ab * ab ac2 = 3 * ab * ab + 3 * ab * ab * ab ac3 = -6 * ab * ab - 3 * ab - 3 * ab * ab * ab ac4 = 1 + 3 * ab + ab * ab * ab + 3 * ab * ab anT3Average = ac1 * axe6 + ac2 * axe5 + ac3 * axe4 + ac4 * axe3 p2 = anT3Average colOne = anT3Average > anT3Average[1] colTwo = anT3Average < anT3Average[1] IF colOne THEN T3ColorR = 100 T3ColorG = 181 T3ColorB = 246 ELSIF colTwo THEN T3ColorR = 239 T3ColorG = 83 T3ColorB = 80 ELSE T3ColorR = undefined T3ColorG = undefined T3ColorB = undefined ENDIF // T3 MA8 Length = 8 xPrice = close xe1 = ExponentialAverage[Length](xPrice) xe2 = ExponentialAverage[Length](xe1) xe3 = ExponentialAverage[Length](xe2) xe4 = ExponentialAverage[Length](xe3) xe5 = ExponentialAverage[Length](xe4) xe6 = ExponentialAverage[Length](xe5) b = 0.7 c1 = -b * b * b c2 = 3 * b * b + 3 * b * b * b c3 = -6 * b * b - 3 * b - 3 * b * b * b c4 = 1 + 3 * b + b * b * b + 3 * b * b nT3Average = c1 * xe6 + c2 * xe5 + c3 * xe4 + c4 * xe3 p1 = nT3Average upCol = nT3Average > nT3Average[1] downCol = nT3Average < nT3Average[1] IF upCol THEN myColorR = 100 myColorG = 181 myColorB = 246 ELSIF downCol THEN myColorR = 239 myColorG = 83 myColorB = 80 ELSE myColorR = undefined myColorG = undefined myColorB = undefined ENDIF // T3 area fill fillData = nT3Average < anT3Average fillDtat = nT3Average > anT3Average IF fillData THEN FillColorR = 100 FillColorG = 181 FillColorB = 246 ELSIF fillDtat THEN FillColorR = 239 FillColorG = 83 FillColorB = 80 ELSE FillColorR = undefined FillColorG = undefined FillColorB = undefined ENDIF COLORBETWEEN(nT3Average, anT3Average, FillColorR, FillColorG, FillColorB, 80) // Heikin-Ashi Bar Input haClose = (open + high + low + close) / 4 haOpen = (open + close) / 2 IF NOT haOpen[1] = undefined THEN haOpen = (haOpen[1] + haClose[1]) / 2 ENDIF haHigh = MAX(high, MAX(haOpen, haClose)) haLow = MIN(low, MIN(haOpen, haClose)) // Define colors BullTrendColorR = 100 BullTrendColorG = 181 BullTrendColorB = 246 BearTrendColorR = 239 BearTrendColorG = 83 BearTrendColorB = 80 BullReversalColorR = 255 BullReversalColorG = 241 BullReversalColorB = 118 BearReversalColorR = 255 BearReversalColorG = 241 BearReversalColorB = 118 // Bar Color uc = (close > nT3Average) AND (anT3Average >= nT3Average) dc = (close < nT3Average) AND (anT3Average <= nT3Average) dr = (close < nT3Average) AND (anT3Average >= nT3Average) ur = (close > nT3Average) AND (anT3Average <= nT3Average) hauc = (haClose > nT3Average) AND (anT3Average >= nT3Average) hadc = (haClose < nT3Average) AND (anT3Average <= nT3Average) hadr = (haClose < nT3Average) AND (anT3Average >= nT3Average) haur = (haClose > nT3Average) AND (anT3Average <= nT3Average) hadu = haClose >= haOpen hadd = haClose < haOpen IF uc THEN BarColorR = BullTrendColorR BarColorG = BullTrendColorG BarColorB = BullTrendColorB ELSIF dc THEN BarColorR = BearTrendColorR BarColorG = BearTrendColorG BarColorB = BearTrendColorB ELSIF dr THEN BarColorR = BearReversalColorR BarColorG = BearReversalColorG BarColorB = BearReversalColorB ELSIF ur THEN BarColorR = BullReversalColorR BarColorG = BullReversalColorG BarColorB = BullReversalColorB ELSE BarColorR = undefined BarColorG = undefined BarColorB = undefined ENDIF // Heikin-Ashi Bar Color IF hauc THEN HABarColorR = BullTrendColorR HABarColorG = BullTrendColorG HABarColorB = BullTrendColorB ELSIF hadc THEN HABarColorR = BearTrendColorR HABarColorG = BearTrendColorG HABarColorB = BearTrendColorB ELSIF hadr THEN HABarColorR = BearReversalColorR HABarColorG = BearReversalColorG HABarColorB = BearReversalColorB ELSIF haur THEN HABarColorR = BullReversalColorR HABarColorG = BullReversalColorG HABarColorB = BullReversalColorB ELSIF hadu THEN HABarColorR = BullTrendColorR HABarColorG = BullTrendColorG HABarColorB = BullTrendColorB ELSE HABarColorR = BearTrendColorR HABarColorG = BearTrendColorG HABarColorB = BearTrendColorB ENDIF haover = 0 // Overlays HA bars in place of regular candles. rPrice = 0 // Displays 'real close' level IF haover THEN DRAWCANDLE(haOpen, haHigh, haLow, haClose) COLOURED(HABarColorR, HABarColorG, HABarColorB, 255) ELSE DRAWCANDLE(haOpen, haHigh, haLow, haClose) COLOURED(255, 255, 255, 255) // Default color (white) when haover is not active. ENDIF IF rPrice THEN DRAWsegment(barindex - 1, close, barindex, close) COLOURED(HABarColorR, HABarColorG, HABarColorB, 255) // Displaying the real close level ENDIF c = (close > nT3Average[1] AND close[1] < nT3Average) OR (close < nT3Average[1] AND close[1] > nT3Average) d = (nT3Average > anT3Average[1] AND nT3Average[1] < anT3Average) OR (nT3Average < anT3Average[1] AND nT3Average[1] > anT3Average) // These conditions can be used in ProRealTime to create alerts. RETURN nT3Average coloured(myColorR, myColorG, myColorB, 255), anT3Average coloured(T3ColorR, T3ColorG, T3ColorB, 255)

This topic has 41 replies, 7 voices, and was last updated 6 months ago by LucasBest.

Viewing 12 posts - 31 through 42 (of 42 total)

← 1 2 3

09/21/2023 at 12:22 PM #221384

GraHal

I am also in favour of conversion of Banker Fund Swing … may even be easier than the 2 Support and Resistance indicators mentioned above?

LucasBest you are doing a fantastic job sharing your hard work with us … Big Thank You from Us All!

GraHal

Participant

Topics: 204

Replies: 8401

Been thanked: 2042 times

09/21/2023 at 10:01 PM #221414

LucasBest

GraHal wrote:

I am also in favour of conversion of Banker Fund Swing … may even be easier than the 2 Support and Resistance indicators mentioned above?

LucasBest you are doing a fantastic job sharing your hard work with us … Big Thank You from Us All!

It is for sure easier and shorter than the 2 others… But it is also less accurate for trading 🙁

Whatever, i translated it :

// © blackcat1402
//@version=4

ma5 = average[5](close)
ma10 = average[10](close)
ma30 = average[30](close)
ma40 = average[40](close)
ma60 = average[60](close)
ma120 = average[120](close)
angel = exponentialaverage[2](close)

len = 21
lrc = LinearRegression[len](close)
lrprev = LinearRegression[len](close[1])
xslValue = (lrc - lrprev)
devil = exponentialaverage[42]((xslValue * 20) + close)

long = angel CROSSES OVER devil
short = angel CROSSES UNDER devil

IF short THEN
DRAWTEXT("SELL", barindex, high + 10, SansSerif, Bold, 12) COLOURED(255, 0, 0) // Using red color for "SELL"
ENDIF

IF long THEN
DRAWTEXT("BUY", barindex, low - 10, SansSerif, Bold, 12) COLOURED(0, 255, 0) // Using green color for "BUY"
ENDIF

IF angel >= devil THEN
DRAWCANDLE(open, high, low, close) COLOURED(0,255,0) BORDERCOLOR(0,255,0) // Green candle
ELSE
DRAWCANDLE(open, high, low, close) COLOURED(255,0,0) BORDERCOLOR(255,0,0) // Red candle
ENDIF

IF long THEN
DRAWCANDLE(open, high, low, close) COLOURED(255,255,0) BORDERCOLOR(255,255,0) // Yellow candle when 'long' condition (crossover) is true
ENDIF

rma10 = average[10](close)
rma20 = average[20](close)
rma40 = average[40](close)
rma60 = average[60](close)
rma120 = average[120](close)
rangel = exponentialaverage[2](close)

len = 21
lrc = LinearRegression[len](close)
lrprev = LinearRegression[len](close[1])
xslValue = (lrc - lrprev)
rdevil = exponentialaverage[42]((xslValue * 20) + close)

n = 7 // short term period
m = 5 // middle term period

lbuy = angel CROSSES OVER devil

var1 = (close - lowest[60](low)) / (highest[60](high) - lowest[60](low)) * 100

//b = xsa(var1,n,1)
once ma = undefined
once b = undefined

sum = sum[1] - var1[n] + var1

IF var1[n] > 0 THEN
ma = sum / n
ENDIF

If b[1] = undefined then
b = ma
else
b = (var1 + b[1] * (n - 1)) / n
Endif

//var2 = xsa(b,m,1)
once ma2 = undefined
once var2 = undefined

sum2 = sum2[1] - b[m] + b

IF b[m] > 0 THEN
ma2 = sum2 / m
ENDIF

IF var2[1] = undefined THEN
var2 = ma2
ELSE
var2 = (b + var2[1] * (m - 1)) / m
ENDIF

mar1 = (2*close + high + low + open) / 5
mar2 = LOWEST[34](low)
mar3 = HIGHEST[34](high)

sk = EXPONENTIALAVERAGE[13]((mar1 - mar2) / (mar3 - mar2) * 100)

IF b[1] <> 0 THEN
prevB = b[1]
ELSE
prevB = b
ENDIF

IF sk[1] <> 0 THEN
prevSk = sk[1]
ELSE
prevSk = sk
ENDIF

ldb = (b <= 10) AND (sk <= 10) AND (b > prevB) AND (sk > prevSk)

swingBuy = lbuy AND ldb

IF lbuy THEN
DRAWCANDLE(open, high, low, close) COLOURED(255, 255, 0) BORDERCOLOR(255, 255, 0) // 255, 255, 0 is the RGB code for yellow
ENDIF

RETURN ma5 STYLE(LINE, 2) COLOURED(255, 255, 0) AS "MA5", ma10 STYLE(LINE, 2)COLOURED(255, 0, 255) AS "MA10", ma30 STYLE(LINE, 2) COLOURED(0, 255, 255) AS "MA30"

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

// © blackcat1402

//@version=4

ma5 = average[5](close)

ma10 = average[10](close)

ma30 = average[30](close)

ma40 = average[40](close)

ma60 = average[60](close)

ma120 = average[120](close)

angel = exponentialaverage[2](close)

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc - lrprev)

devil = exponentialaverage[42]((xslValue * 20) + close)

long = angel CROSSES OVER devil

short = angel CROSSES UNDER devil

IF short THEN

DRAWTEXT("SELL", barindex, high + 10, SansSerif, Bold, 12) COLOURED(255, 0, 0) // Using red color for "SELL"

ENDIF

IF long THEN

DRAWTEXT("BUY", barindex, low - 10, SansSerif, Bold, 12) COLOURED(0, 255, 0) // Using green color for "BUY"

ENDIF

IF angel >= devil THEN

DRAWCANDLE(open, high, low, close) COLOURED(0,255,0) BORDERCOLOR(0,255,0) // Green candle

ELSE

DRAWCANDLE(open, high, low, close) COLOURED(255,0,0) BORDERCOLOR(255,0,0) // Red candle

ENDIF

IF long THEN

DRAWCANDLE(open, high, low, close) COLOURED(255,255,0) BORDERCOLOR(255,255,0) // Yellow candle when 'long' condition (crossover) is true

ENDIF

rma10 = average[10](close)

rma20 = average[20](close)

rma40 = average[40](close)

rma60 = average[60](close)

rma120 = average[120](close)

rangel = exponentialaverage[2](close)

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc - lrprev)

rdevil = exponentialaverage[42]((xslValue * 20) + close)

n = 7 // short term period

m = 5 // middle term period

lbuy = angel CROSSES OVER devil

var1 = (close - lowest[60](low)) / (highest[60](high) - lowest[60](low)) * 100

//b = xsa(var1,n,1)

once ma = undefined

once b = undefined

sum = sum[1] - var1[n] + var1

IF var1[n] > 0 THEN

ma = sum / n

ENDIF

If b[1] = undefined then

b = ma

else

b = (var1 + b[1] * (n - 1)) / n

Endif

//var2 = xsa(b,m,1)

once ma2 = undefined

once var2 = undefined

sum2 = sum2[1] - b[m] + b

IF b[m] > 0 THEN

ma2 = sum2 / m

ENDIF

IF var2[1] = undefined THEN

var2 = ma2

ELSE

var2 = (b + var2[1] * (m - 1)) / m

ENDIF

mar1 = (2*close + high + low + open) / 5

mar2 = LOWEST[34](low)

mar3 = HIGHEST[34](high)

sk = EXPONENTIALAVERAGE[13]((mar1 - mar2) / (mar3 - mar2) * 100)

IF b[1] <> 0 THEN

prevB = b[1]

ELSE

prevB = b

ENDIF

IF sk[1] <> 0 THEN

prevSk = sk[1]

ELSE

prevSk = sk

ENDIF

ldb = (b <= 10) AND (sk <= 10) AND (b > prevB) AND (sk > prevSk)

swingBuy = lbuy AND ldb

IF lbuy THEN

DRAWCANDLE(open, high, low, close) COLOURED(255, 255, 0) BORDERCOLOR(255, 255, 0) // 255, 255, 0 is the RGB code for yellow

ENDIF

RETURN ma5 STYLE(LINE, 2) COLOURED(255, 255, 0) AS "MA5", ma10 STYLE(LINE, 2)COLOURED(255, 0, 255) AS "MA10", ma30 STYLE(LINE, 2) COLOURED(0, 255, 255) AS "MA30"

I hope it will be usefull for your trading…

1 user thanked author for this post.

GraHal

LucasBest

Participant

Topics: 16

Replies: 207

Been thanked: 71 times

09/21/2023 at 10:08 PM #221416

LucasBest

For me these kind of indicators are far more usefull… but just my opinion

LucasBest

Participant

Topics: 16

Replies: 207

Been thanked: 71 times

09/22/2023 at 8:14 AM #221423

Nicolas

Don't be sectarian, some will see an interest in it! Everyone is different 🙂

Nicolas

Keymaster

Topics: 81

Replies: 20828

Been thanked: 4742 times

09/22/2023 at 8:19 AM #221425

LucasBest

Nicolas wrote:

Don’t be sectarian, some will see an interest in it! Everyone is different 🙂

Certainly. i just gave my opinion… Late signal with no range filter might kill thee capital slowly but surely, in my point of view.
I try not to be sectarian though, that is why i translated it even if i will never use it myself. 😉

2 users thanked author for this post.

GraHal,

pror

LucasBest

Participant

Topics: 16

Replies: 207

Been thanked: 71 times

09/22/2023 at 2:06 PM #221450

supertiti

¡ Thank you so much Lucas, you are … the best !

Here is the ALD stock

supertiti

Participant

Topics: 121

Replies: 717

Been thanked: 72 times

09/22/2023 at 5:37 PM #221456

LaMaille

An other oscillator converted from Pine Script to Probuilder with Chat GPT v4 which does not improve from the begining….

https://www.tradingview.com/script/Ap9HknuH-Bulls-v-Bears/

// Bulls v Bears

// Input settings
len = 14 // BvB Period: 1-200
barsBack = 120 // Normalized bars back: 1-200
tline = 80 // Line Height: 1-200
tlineinv = -tline

// Calculation
ma = Average[len](close)
bulls = high - ma
bears = ma - low

// Normalize the values between -100 and 100
minBulls = Lowest[barsBack](bulls)
maxBulls = Highest[barsBack](bulls)
normBulls = ((bulls - minBulls) / (maxBulls - minBulls) - 0.5) * 200

minBears = Lowest[barsBack](bears)
maxBears = Highest[barsBack](bears)
normBears = ((bears - minBears) / (maxBears - minBears) - 0.5) * 200

// Calculate the total and add signals
total = normBulls - normBears
bullishO = total > tline
bearishO = total < tlineinv

IF total >= 0 THEN
r = 0
g = 255
b = 0 // Green
ELSE
r = 255
g = 0
b = 0 // Red
ENDIF



// Bullish Crossover circle
IF bullishO THEN
Drawpoint(barindex,tline,3) coloured(255,0,212,255)
ENDIF

// Bearish Crossover circle
IF bearishO THEN
Drawpoint(barindex,tlineinv,3) coloured(238,255,0,255)
ENDIF

RETURN total STYLE(HISTOGRAM) COLOURED(r,g,b), tline style(dottedline2,2) coloured("grey",200), tlineinv style(dottedline2,2) coloured("grey",200)

// Bulls v Bears

// Input settings

len = 14 // BvB Period: 1-200

barsBack = 120 // Normalized bars back: 1-200

tline = 80 // Line Height: 1-200

tlineinv = -tline

// Calculation

ma = Average[len](close)

bulls = high - ma

bears = ma - low

// Normalize the values between -100 and 100

minBulls = Lowest[barsBack](bulls)

maxBulls = Highest[barsBack](bulls)

normBulls = ((bulls - minBulls) / (maxBulls - minBulls) - 0.5) * 200

minBears = Lowest[barsBack](bears)

maxBears = Highest[barsBack](bears)

normBears = ((bears - minBears) / (maxBears - minBears) - 0.5) * 200

// Calculate the total and add signals

total = normBulls - normBears

bullishO = total > tline

bearishO = total < tlineinv

IF total >= 0 THEN

r = 0

g = 255

b = 0 // Green

ELSE

r = 255

g = 0

b = 0 // Red

ENDIF

// Bullish Crossover circle

IF bullishO THEN

Drawpoint(barindex,tline,3) coloured(255,0,212,255)

ENDIF

// Bearish Crossover circle

IF bearishO THEN

Drawpoint(barindex,tlineinv,3) coloured(238,255,0,255)

ENDIF

RETURN total STYLE(HISTOGRAM) COLOURED(r,g,b), tline style(dottedline2,2) coloured("grey",200), tlineinv style(dottedline2,2) coloured("grey",200)

LaMaille

Participant

Topics: 1

Replies: 18

Been thanked: 12 times

09/22/2023 at 5:50 PM #221457

supertiti

// BANKER SWING YELLOW SCREENER 22.09.2023

// L3 BANKER FUND SWING by Lucasbest 22.09.2023

// © blackcat1402 //@version=4

angel = exponentialaverage[2](close)

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc – lrprev)

devil = exponentialaverage[42]((xslValue * 20) + close)

long = angel CROSSES OVER devil

//short = angel CROSSES UNDER devil

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc – lrprev)

n = 7 // short term period

m = 5 // middle term period

//lbuy = angel CROSSES OVER devil

var1 = (close – lowest[60](low)) / (highest[60](high) – lowest[60](low)) * 100

once ma = undefined

once b = undefined

sum = sum[1] – var1[n] + var1

IF var1[n] > 0 THEN

ma = sum / n

ENDIF

If b[1] = undefined then

b = ma

else

b = (var1 + b[1] * (n – 1)) / n

Endif

//var2 = xsa(b,m,1)

once ma2 = undefined

once var2 = undefined

sum2 = sum2[1] – b[m] + b

IF b[m] > 0 THEN

ma2 = sum2 / m

ENDIF

IF var2[1] = undefined THEN

var2 = ma2

ELSE

var2 = (b + var2[1] * (m – 1)) / m

ENDIF

mar1 = (2*close + high + low + open) / 5

mar2 = LOWEST[34](low)

mar3 = HIGHEST[34](high)

sk = EXPONENTIALAVERAGE[13]((mar1 – mar2) / (mar3 – mar2) * 100)

IF b[1] <> 0 THEN

//prevB = b[1]

ELSE

//prevB = b

ENDIF

IF sk[1] <> 0 THEN

//prevSk = sk[1]

ELSE

//prevSk = sk

ENDIF

c1 = long

SCREENER [c1]

supertiti

Participant

Topics: 121

Replies: 717

Been thanked: 72 times

09/22/2023 at 6:28 PM #221459

supertiti

/ BANKER SWING YELLOW ONLY 22.09.2023

// L3 BANKER FUND SWING bu Lucasbest 22.09.2023

// © blackcat1402 //@version=4

angel = exponentialaverage[2](close)

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc – lrprev)

devil = exponentialaverage[42]((xslValue * 20) + close)

long = angel CROSSES OVER devil

short = angel CROSSES UNDER devil

IF long THEN

DRAWTEXT(“B”, barindex, low – 5, SansSerif, Bold, 25) COLOURED(255, 255, 0) // Using yellow color for “BUY”

ENDIF

IF long THEN

DRAWCANDLE(open, high, low, close) COLOURED(255,255,0) BORDERCOLOR(255,255,0) // Yellow candle when ‘long’ condition (crossover) is true

ENDIF

len = 21

lrc = LinearRegression[len](close)

lrprev = LinearRegression[len](close[1])

xslValue = (lrc – lrprev)

rdevil = exponentialaverage[42]((xslValue * 20) + close)

n = 7 // short term period

m = 5 // middle term period

lbuy = angel CROSSES OVER devil

var1 = (close – lowest[60](low)) / (highest[60](high) – lowest[60](low)) * 100

once ma = undefined

once b = undefined

sum = sum[1] – var1[n] + var1

IF var1[n] > 0 THEN

ma = sum / n

ENDIF

If b[1] = undefined then

b = ma

else

b = (var1 + b[1] * (n – 1)) / n

Endif

//var2 = xsa(b,m,1)

once ma2 = undefined

once var2 = undefined

sum2 = sum2[1] – b[m] + b

IF b[m] > 0 THEN

ma2 = sum2 / m

ENDIF

IF var2[1] = undefined THEN

var2 = ma2

ELSE

var2 = (b + var2[1] * (m – 1)) / m

ENDIF

mar1 = (2*close + high + low + open) / 5

mar2 = LOWEST[34](low)

mar3 = HIGHEST[34](high)

sk = EXPONENTIALAVERAGE[13]((mar1 – mar2) / (mar3 – mar2) * 100)

IF b[1] <> 0 THEN

prevB = b[1]

ELSE

prevB = b

ENDIF

IF sk[1] <> 0 THEN

prevSk = sk[1]

ELSE

prevSk = sk

ENDIF

ldb = (b <= 10) AND (sk <= 10) AND (b > prevB) AND (sk > prevSk)

swingBuy = lbuy AND ldb

IF lbuy THEN

DRAWCANDLE(open, high, low, close) COLOURED(255, 255, 0) BORDERCOLOR(255, 255, 0) // 255, 255, 0 is the RGB code for yellow

ENDIF

RETURN

ESSO stock

supertiti

Participant

Topics: 121

Replies: 717

Been thanked: 72 times

09/22/2023 at 7:17 PM #221461

Meta Signals Pro

LucasBest wrote:

For me these kind of indicators are far more usefull… but just my opinion

nice can you give us the links if they are on PRC?

Meta Signals Pro

Participant

Topics: 40

Replies: 310

Been thanked: 37 times

09/22/2023 at 7:55 PM #221462

LucasBest

Meta Signals Pro wrote:

LucasBest wrote:

For me these kind of indicators are far more usefull… but just my opinion

nice can you give us the links if they are on PRC?

They are not in PRC. Maybe i’ll put them in the Marketplace, when they will be finish (still have lot of work on them)

LucasBest

Participant

Topics: 16

Replies: 207

Been thanked: 71 times

10/20/2023 at 8:00 AM #222678

LucasBest

This is the conversion of this indicator : Bull Bear Power Trend by Dreadblitz
https://in.tradingview.com/script/wjlDy5tV-Bull-Bear-Power-Trend/

// by Dreadblitz

once niv2 = 2
once niv0 = 0
once niv22 = -2

// Computations
BullTrend = (close - lowest[50](low)) / AverageTrueRange[5](close)
BearTrend = (highest[50](high) - close) / AverageTrueRange[5](close)
BearTrend2 = -1 * BearTrend

BearTrendHist = (BullTrend<2)*(bulltrend-2)
BullTrendHist = (Beartrend2>-2)*(Beartrend2+2)

Trend = BullTrend - Beartrend

if bulltrend>2 then
bullR = 0
BullG = 128
BullB = 0
else
bullR = 128
BullG = 128
BullB = 128
endif
colorbetween(BullTrend,niv2,BullR,BullG,BullB,50)

if beartrend2<-2 then
bearR = 255
bearG = 0
bearB = 0
else
bearR = 128
bearG = 128
bearB = 128
endif
colorbetween(beartrend2,niv22,bearR,bearG,bearB,50)

If regTrendOn = 0 then
drawsegment(barindex-1,Trend[1],barindex,Trend) style(line,2) coloured("black",255)
else
//alexgrover-Regression Line Formula
x = barindex
y = Trend
xx = Average[length](x)
yy = Average[length](y)
mx = std[length](x)
my = std[length](y)
 
lenMinusOne = length - 1
meanx = 0.0
meany = 0.0
for i=0 to lenMinusOne
meanx = meanx + (x[i])
meany = meany + (y[i])
next
meanx = meanx / length
meany = meany / length
sumxy=0.0
sumx=0.0
sumy=0.0
for i=0  to lenMinusOne
sumxy = sumxy +    ((x[i]) - meanx) * ((y[i]) - meany)
sumx  = sumx  + pow((x[i]) - meanx, 2)
sumy  = sumy  + pow((y[i]) - meany, 2)
next
c = sumxy / sqrt(sumy * sumx)

slope = c * (my / mx)
inter = yy - slope * xx
regtrend = x * slope + inter

drawsegment(barindex-1,regtrend[1],barindex,regtrend) style(line,2) coloured("black",255)
Endif

Return niv0 style(line,1) coloured("black",255), niv2 style(line,1) coloured("green",255), niv22 style(line,1) coloured("red",255), BullTrend style(line,1) coloured("green",255), BearTrend2 style(line,1) coloured("red",255), BullTrendHist style(histogram) coloured("green",255), BearTrendHist style(histogram) coloured("red",255)

// by Dreadblitz

once niv2 = 2

once niv0 = 0

once niv22 = -2

// Computations

BullTrend = (close - lowest[50](low)) / AverageTrueRange[5](close)

BearTrend = (highest[50](high) - close) / AverageTrueRange[5](close)

BearTrend2 = -1 * BearTrend

BearTrendHist = (BullTrend<2)*(bulltrend-2)

BullTrendHist = (Beartrend2>-2)*(Beartrend2+2)

Trend = BullTrend - Beartrend

if bulltrend>2 then

bullR = 0

BullG = 128

BullB = 0

else

bullR = 128

BullG = 128

BullB = 128

endif

colorbetween(BullTrend,niv2,BullR,BullG,BullB,50)

if beartrend2<-2 then

bearR = 255

bearG = 0

bearB = 0

else

bearR = 128

bearG = 128

bearB = 128

endif

colorbetween(beartrend2,niv22,bearR,bearG,bearB,50)

If regTrendOn = 0 then

drawsegment(barindex-1,Trend[1],barindex,Trend) style(line,2) coloured("black",255)

else

//alexgrover-Regression Line Formula

x = barindex

y = Trend

xx = Average[length](x)

yy = Average[length](y)

mx = std[length](x)

my = std[length](y)

lenMinusOne = length - 1

meanx = 0.0

meany = 0.0

for i=0 to lenMinusOne

meanx = meanx + (x[i])

meany = meany + (y[i])

meanx = meanx / length

meany = meany / length

sumxy=0.0

sumx=0.0

sumy=0.0

for i=0 to lenMinusOne

sumxy = sumxy + ((x[i]) - meanx) * ((y[i]) - meany)

sumx = sumx + pow((x[i]) - meanx, 2)

sumy = sumy + pow((y[i]) - meany, 2)

c = sumxy / sqrt(sumy * sumx)

slope = c * (my / mx)

inter = yy - slope * xx

regtrend = x * slope + inter

drawsegment(barindex-1,regtrend[1],barindex,regtrend) style(line,2) coloured("black",255)

Endif

Return niv0 style(line,1) coloured("black",255), niv2 style(line,1) coloured("green",255), niv22 style(line,1) coloured("red",255), BullTrend style(line,1) coloured("green",255), BearTrend2 style(line,1) coloured("red",255), BullTrendHist style(histogram) coloured("green",255), BearTrendHist style(histogram) coloured("red",255)