Old good code for Chande's Trendscore indicator to be fixed

• 11/24/2017 at 9:36 AM #53799
  andreapedrotta

  Hi,

  I have this code for Chande’s Trendscore indicator which worked very well with old versions of prorealtime but gives error with the new. I dont know how to adjust the formula.

  Can anyone help please?

  Thanks

  Andrea

   

  Once False = 0
  Once True = 1
  Once Noft = -1
  Once PI = 3.141592653

  If False = True and Noft = False and Not True Then
  endif

  P2=Round(3 * PI)
  AB=P2 + 1

  TS=False
  C=False
  P1=AB
  P3=10
  P4=100

  Noft = Noft + True and Not False

  For Q=1 to P1 Do
  If Close >= Close[P2 – C] Then
  TS=TS+1
  endif
  c=c+True
  Next

  C=False

  For Q=True to P1 Do
  If close<close[P2-c] Then
  TS=TS-True
  Endif
  c=c+True
  next

  TT= TriangularAverage[P3](TS)
  TV=TriangularAverage[P4](TS)

  If Barindex<P2 Then
  TS=undefined
  TV=undefined
  TT=undefined
  Endif

  Return TS Coloured(100,25,250) as “Slow”,TT Coloured(250,10,250) as “Quick”,TV Coloured(155,255,0) as “Median Line”

  

  andreapedrotta

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  11/24/2017 at 9:46 AM #53803
  robertogozzi

  Please use the “Insert PRT code” identified by “<>” on the grey bar above your text when posting, to make your code  more readable:

  Once False = 0 Once True = 1 Once Noft = -1 Once PI = 3.141592653 If False = True and Noft = False and Not True Then endif P2=Round(3 * PI) AB=P2 + 1 TS=False C=False P1=AB P3=10 P4=100 Noft = Noft + True and Not False For Q=1 to P1 Do If Close >= Close[P2 – C] Then TS=TS+1 endif c=c+True Next C=False For Q=True to P1 Do If close<close[P2-c] Then TS=TS-True Endif c=c+True next TT= TriangularAverage[P3](TS) TV=TriangularAverage[P4](TS) If Barindex<P2 Then TS=undefined TV=undefined TT=undefined Endif Return TS Coloured(100,25,250) as "Slow",TT Coloured(250,10,250) as "Quick",TV Coloured(155,255,0) as "Median Line"

  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

  Once False = 0 Once True = 1 Once Noft = -1 Once PI = 3.141592653   If False = True and Noft = False and Not True Then endif   P2=Round(3 * PI) AB=P2 + 1   TS=False C=False P1=AB P3=10 P4=100   Noft = Noft + True and Not False   For Q=1 to P1 Do If Close >= Close[P2 – C] Then TS=TS+1 endif c=c+True Next   C=False   For Q=True to P1 Do If close<close[P2-c] Then TS=TS-True Endif c=c+True next   TT= TriangularAverage[P3](TS) TV=TriangularAverage[P4](TS)   If Barindex<P2 Then TS=undefined TV=undefined TT=undefined Endif   Return TS Coloured(100,25,250) as "Slow",TT Coloured(250,10,250) as "Quick",TV Coloured(155,255,0) as "Median Line"

    Roberto

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17150

  Been thanked: 4039 times
  11/27/2017 at 9:02 AM #54068
  Nicolas

  The code is giving error because of the wrong copy/paste of quotation marks on the last line. I changed the code from Roberto in the above post to be perfectly usable. Let us know if it still doesn’t work for you. 

  1 user thanked author for this post.

  andreapedrotta

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  12/02/2017 at 2:57 PM #54537
  andreapedrotta

  Hi Nicolas,

  thanks for your answer. I tried again but the cose indicates always the same error at each false or true variables.

  

  andreapedrotta

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  12/04/2017 at 1:18 PM #54690
  Nicolas

  Sorry, I haven’t well read the code at the first glance, this is fixed: 

  Once fFalse = 0 Once tTrue = 1 Once Noft = -1 Once PI = 3.141592653 //If fFalse = 1 and Noft = False and Not True Then //endif P2=Round(3 * PI) AB=P2 + 1 TS=fFalse C=fFalse P1=AB P3=10 P4=100 Noft = Noft + tTrue and Not fFalse For Q=1 to P1 Do If Close >= Close[P2 - C] Then TS=TS+1 endif c=c+tTrue Next C=fFalse For Q=tTrue to P1 Do If close<close[P2-c] Then TS=TS-tTrue Endif c=c+tTrue next TT= TriangularAverage[P3](TS) TV=TriangularAverage[P4](TS) If Barindex<P2 Then TS=undefined TV=undefined TT=undefined Endif Return TS Coloured(100,25,250) as "Slow",TT Coloured(250,10,250) as "Quick",TV Coloured(155,255,0) as "Median Line"

  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

  Once fFalse = 0 Once tTrue = 1 Once Noft = -1 Once PI = 3.141592653   //If fFalse = 1 and Noft = False and Not True Then //endif   P2=Round(3 * PI) AB=P2 + 1   TS=fFalse C=fFalse P1=AB P3=10 P4=100   Noft = Noft + tTrue and Not fFalse   For Q=1 to P1 Do If Close >= Close[P2 - C] Then TS=TS+1 endif c=c+tTrue Next   C=fFalse   For Q=tTrue to P1 Do If close<close[P2-c] Then TS=TS-tTrue Endif c=c+tTrue next   TT= TriangularAverage[P3](TS) TV=TriangularAverage[P4](TS)   If Barindex<P2 Then TS=undefined TV=undefined TT=undefined Endif   Return TS Coloured(100,25,250) as "Slow",TT Coloured(250,10,250) as "Quick",TV Coloured(155,255,0) as "Median Line"

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
• Author
  Posts