stochastic indicator

• 10/26/2019 at 5:08 PM #111282
  Trebor

  Hello,

  Can someone help me how to code an indicator that returns the difference in pips between enter at < 20 and exit at >80.

  Thank you.

  

  Trebor

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  10/26/2019 at 6:12 PM #111285
  Vonasi

  Trebor – Welcome to the forums.

  You may need to give a little more info. What do you mean exactly by pips between >80 and < 20? Do we start counting when the stochastic crosses up or when it crosses down over each of these values? What do we do if it recrosses the 20 – do we start counting again or ignore it?

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  10/26/2019 at 6:32 PM #111286
  Trebor

  Hi Vonasi,

  Thank you for your answer and thank you for the welcome

  I would like to get it start to count when %K enters <20 and stop count when it becomes >80. I would like to get the difference between entering <20 and to entering >80. Also as you write, I would not like it to start to recount if it reenters <20 before it has entered >80. Hope this is enough information.

  

  Trebor

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  10/26/2019 at 9:02 PM #111290
  Vonasi

  Try this:

  mystoch = Stochastic[10,3](close) if not on and mystoch crosses under 20 then myopen = close on = 1 endif if on and mystoch crosses over 80 then myclose = close diff = myclose - myopen on = 0 endif return diff

  1 2 3 4 5 6 7 8 9 10 11 12 13 14

  mystoch = Stochastic[10,3](close)   if not on and mystoch crosses under 20 then myopen = close on = 1 endif   if on and mystoch crosses over 80 then myclose = close diff = myclose - myopen on = 0 endif   return diff

   

  1 user thanked author for this post.

  Trebor

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  10/27/2019 at 7:50 AM #111310
  Trebor

  Thank you.

  

  Trebor

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  10/27/2019 at 10:22 AM #111317
  GraHal

  Added as Log 182 to here …

  Snippet Link Library

  1 user thanked author for this post.

  Trebor

  

  GraHal

  Participant

  Topics: 214

  Replies: 8884

  Been thanked: 2224 times
  10/27/2019 at 11:23 AM #111322
  Vonasi

  Just for fun I turned it into something that draws lines on the chart from the open to the close of the simulated trade. The total gain or loss is also displayed on the chart at the close of each trade. Lines and values are red for losers and green for winners.

  I also added a spread value that is subtracted from the results to more accurately simulate what the gain or loss might be. Change it to match whatever instrument you are using the indicator on or set to zero to test with no spread.

  Apply the indicator to the price chart.

  Spread = 1.5 StochN = 10 StochK = 3 mystoch = Stochastic[StochN,StochK](customclose) if not on and mystoch crosses under 20 then myopen = close openindex = barindex on = 1 endif if on and mystoch crosses over 80 then diff = close - myopen - spread r = 0 g = 128 if diff <= 0 then r = 128 g = 0 endif drawsegment(openindex, myopen,barindex,close) coloured(r,g,0) drawtext("#diff#",barindex,high+average[500](high-low)/2,SansSerif,Bold,12) coloured(r,g,0) on = 0 endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

  Spread = 1.5 StochN = 10 StochK = 3   mystoch = Stochastic[StochN,StochK](customclose)   if not on and mystoch crosses under 20 then myopen = close openindex = barindex on = 1 endif   if on and mystoch crosses over 80 then diff = close - myopen - spread r = 0 g = 128 if diff <= 0 then r = 128 g = 0 endif drawsegment(openindex, myopen,barindex,close) coloured(r,g,0) drawtext("#diff#",barindex,high+average[500](high-low)/2,SansSerif,Bold,12) coloured(r,g,0) on = 0 endif   return

   

   

  1 user thanked author for this post.

  Trebor

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  10/27/2019 at 1:10 PM #111327
  Vonasi

  I must be really bored because I developed it a bit further. This version also calculated the returns for going long or short and displays them on the chart. It displays the gain or loss on this trade, the average gain per trade, the win rate for all trades and the total gain or loss for all trades.

  • G = Total gain
  • AvgG = Average Gain per Trade
  • WR = % Win Rate
  • Unlabelled = The gain or loss for this trade.

   

  Long trade results are above the candle in green and short trade results are below in red.

  Spread = 1.5 StochN = 10 StochK = 3 UpperLevel = 80 LowerLevel = 20 mystoch = Stochastic[StochN,StochK](customclose) if not on and mystoch crosses under lowerlevel then myopen = close openindex = barindex on = 1 endif if on and mystoch crosses over upperlevel then diff = close - myopen - spread sdiff = myopen - close - spread count = count + 1 if sdiff > 0 then r = 128 g = 0 swin = swin + 1 endif if diff > 0 then r = 0 g = 128 lwin = lwin + 1 endif ltotal = ltotal + diff stotal = stotal + sdiff lwinrate = round(((lwin/count)*100)*10)/10 swinrate = round(((swin/count)*100)*10)/10 lavgwin = round((ltotal/count)*10)/10 savgwin = round((stotal/count)*10)/10 ltotalr = round(ltotal*10)/10 stotalr = round(stotal*10)/10 drawsegment(openindex, myopen,barindex,close) coloured(r,g,0) drawtext("G #ltotalr#",barindex,high+(average[500](high-low)/2)*4,SansSerif,Standard,12) coloured(0,128,0) drawtext("AvgG #lavgwin#",barindex,high+(average[500](high-low)/2)*3,SansSerif,Standard,12) coloured(0,128,0) drawtext("WR #lwinrate#%",barindex,high+(average[500](high-low)/2)*2,SansSerif,Standard,12) coloured(0,128,0) drawtext("#diff#",barindex,high+(average[500](high-low)/2),SansSerif,Standard,12) coloured(0,128,0) drawtext("#sdiff#",barindex,low-(average[500](high-low)/2),SansSerif,Standard,12) coloured(128,0,0) drawtext("WR #swinrate#%",barindex,low-(average[500](high-low)/2)*2,SansSerif,Standard,12) coloured(128,0,0) drawtext("AvgG #savgwin#",barindex,low-(average[500](high-low)/2)*3,SansSerif,Standard,12) coloured(128,0,0) drawtext("G #stotalr#",barindex,low-(average[500](high-low)/2)*4,SansSerif,Standard,12) coloured(128,0,0) on = 0 endif return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

  Spread = 1.5 StochN = 10 StochK = 3 UpperLevel = 80 LowerLevel = 20   mystoch = Stochastic[StochN,StochK](customclose)   if not on and mystoch crosses under lowerlevel then myopen = close openindex = barindex on = 1 endif   if on and mystoch crosses over upperlevel then diff = close - myopen - spread sdiff = myopen - close - spread count = count + 1 if sdiff > 0 then r = 128 g = 0 swin = swin + 1 endif if diff > 0 then r = 0 g = 128 lwin = lwin + 1 endif ltotal = ltotal + diff stotal = stotal + sdiff lwinrate = round(((lwin/count)*100)*10)/10 swinrate = round(((swin/count)*100)*10)/10 lavgwin = round((ltotal/count)*10)/10 savgwin = round((stotal/count)*10)/10 ltotalr = round(ltotal*10)/10 stotalr = round(stotal*10)/10   drawsegment(openindex, myopen,barindex,close) coloured(r,g,0)   drawtext("G #ltotalr#",barindex,high+(average[500](high-low)/2)*4,SansSerif,Standard,12) coloured(0,128,0) drawtext("AvgG #lavgwin#",barindex,high+(average[500](high-low)/2)*3,SansSerif,Standard,12) coloured(0,128,0) drawtext("WR #lwinrate#%",barindex,high+(average[500](high-low)/2)*2,SansSerif,Standard,12) coloured(0,128,0) drawtext("#diff#",barindex,high+(average[500](high-low)/2),SansSerif,Standard,12) coloured(0,128,0) drawtext("#sdiff#",barindex,low-(average[500](high-low)/2),SansSerif,Standard,12) coloured(128,0,0) drawtext("WR #swinrate#%",barindex,low-(average[500](high-low)/2)*2,SansSerif,Standard,12) coloured(128,0,0) drawtext("AvgG #savgwin#",barindex,low-(average[500](high-low)/2)*3,SansSerif,Standard,12) coloured(128,0,0) drawtext("G #stotalr#",barindex,low-(average[500](high-low)/2)*4,SansSerif,Standard,12) coloured(128,0,0) on = 0 endif   return

   

  I also turned the code into a line chart to show the historical results. You can turn on or off which of the three line types are displayed.

  Really it would be easier just to write a strategy to get all this same information but like I said I was bored!

   

  DisplayTotal = 1 //0=off 1=on DisplayWinRate = 1 //0=off 1=on DisplayAvgGain = 1 //0=off 1=on Spread = 1.5 StochN = 10 StochK = 3 UpperLevel = 80 LowerLevel = 20 mystoch = Stochastic[StochN,StochK](customclose) if not on and mystoch crosses under lowerlevel then myopen = close on = 1 endif if on and mystoch crosses over upperlevel then diff = close - myopen - spread sdiff = myopen - close - spread count = count + 1 if sdiff > 0 then swin = swin + 1 endif if diff > 0 then lwin = lwin + 1 endif ltotal = ltotal + diff stotal = stotal + sdiff lwinrate = round(((lwin/count)*100)*10)/10 swinrate = round(((swin/count)*100)*10)/10 lavgwin = round((ltotal/count)*10)/10 savgwin = round((stotal/count)*10)/10 on = 0 endif once ltotalr = undefined once lwinrater = undefined once lavgwinr = undefined once stotalr = undefined once swinrater = undefined once savgwinr = undefined if DisplayTotal then ltotalr = ltotal stotalr = stotal endif if DisplayWinRate then lwinrater = lwinrate swinrater = swinrate endif if DisplayAvgGain then lavgwinr = lavgwin savgwinr = savgwin endif return 0,ltotalr coloured(0,128,0) as "LGain",stotalr coloured(128,0,0) as "SGain",lwinrater coloured(0,128,0) as "LWR%", swinrater coloured(128,0,0) as "SWR%",lavgwinr coloured(0,128,0) as "LAvgG", savgwinr coloured(128,0,0) as "SAvgG"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

  DisplayTotal = 1 //0=off 1=on DisplayWinRate = 1 //0=off 1=on DisplayAvgGain = 1 //0=off 1=on   Spread = 1.5 StochN = 10 StochK = 3 UpperLevel = 80 LowerLevel = 20   mystoch = Stochastic[StochN,StochK](customclose)   if not on and mystoch crosses under lowerlevel then myopen = close on = 1 endif   if on and mystoch crosses over upperlevel then diff = close - myopen - spread sdiff = myopen - close - spread count = count + 1 if sdiff > 0 then swin = swin + 1 endif if diff > 0 then lwin = lwin + 1 endif   ltotal = ltotal + diff stotal = stotal + sdiff lwinrate = round(((lwin/count)*100)*10)/10 swinrate = round(((swin/count)*100)*10)/10 lavgwin = round((ltotal/count)*10)/10 savgwin = round((stotal/count)*10)/10 on = 0 endif   once ltotalr = undefined once lwinrater = undefined once lavgwinr = undefined once stotalr = undefined once swinrater = undefined once savgwinr = undefined   if DisplayTotal then ltotalr = ltotal stotalr = stotal endif   if DisplayWinRate then lwinrater = lwinrate swinrater = swinrate endif   if DisplayAvgGain then lavgwinr = lavgwin savgwinr = savgwin endif   return 0,ltotalr coloured(0,128,0) as "LGain",stotalr coloured(128,0,0) as "SGain",lwinrater coloured(0,128,0) as "LWR%", swinrater coloured(128,0,0) as "SWR%",lavgwinr coloured(0,128,0) as "LAvgG", savgwinr coloured(128,0,0) as "SAvgG"

   

   

  1 user thanked author for this post.

  Trebor

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
• Author
  Posts