Central Pivot point with Top and bottom Buffer

• 08/14/2021 at 10:48 AM #175302
  oyinloyea

  I wrote a code shown below

  DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPRT=((H1 + L1)/2 )-10 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay TCPRT=((PPDay-BCPR)+PPDay) +10 DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) drawtext(“TCPR”,barindex,TCPR,SansSerif,Bold,13) drawtext(“BCPR”,barindex,BCPR,SansSerif,Bold,13) drawtext(“PPDay”,barindex,PPDay,SansSerif,Bold,13) //drawtext(“PDC”,barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS ” TCPR” ,BCPR AS “BCPR”, PPDay as “PPDay”

  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

  DefParam DrawOnLastBarOnly = true   H1 = DHigh(1)   L1 = DLow(1)   C1 = DClose(1)   PDC=c1   PDH=H1   PDL=L1   PPDAY = (H1 + L1 + C1) / 3   BCPRT=((H1 + L1)/2 )-10   BCPR= (H1 + L1)/2   TCPR =(PPDay-BCPR)+PPDay   TCPRT=((PPDay-BCPR)+PPDay) +10   DRAWsegment(barindex-1,PPDay,barindex,PPDay)   DRAWsegment(barindex-1,BCPR,barindex,BCPR)   DRAWsegment(barindex-1,TCPR,barindex,TCPR)   drawtext(“TCPR”,barindex,TCPR,SansSerif,Bold,13)   drawtext(“BCPR”,barindex,BCPR,SansSerif,Bold,13)   drawtext(“PPDay”,barindex,PPDay,SansSerif,Bold,13)   //drawtext(“PDC”,barindex,PDC,SansSerif,Bold,13)     RETURN TCPR AS ” TCPR” ,BCPR AS “BCPR”, PPDay as “PPDay”

  I  want to put condition on this code

  At times BCPR is greater than TCPR

  So I will like to add

  If BCPR is greater than TCPR then

   

  BCPR=((H1 + L1)/2 )+10

  TCPR=((PPDay-BCPR)+PPDay) -10

   

  If TCPR is greater than BTCPR then

  TCPR=((H1 + L1)/2 )+10

  BCPR=((PPDay-BCPR)+PPDay) -10

   

   

   

  

  oyinloyea

  Participant

  Topics: 24

  Replies: 24

  Been thanked: 1 time
  08/14/2021 at 11:23 AM #175306
  robertogozzi

  There you go:

  DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPRT=((H1 + L1)/2 )-10 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay TCPRT=((PPDay-BCPR)+PPDay) +10 /////////////////////////////// If BCPR > TCPR then BCPR=((H1 + L1)/2 )+10 TCPR=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPR=((H1 + L1)/2 )+10 BCPR=((PPDay-BCPR)+PPDay) -10 ENDIF ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) drawtext("TCPR",barindex,TCPR,SansSerif,Bold,13) drawtext("BCPR",barindex,BCPR,SansSerif,Bold,13) drawtext("PPDay",barindex,PPDay,SansSerif,Bold,13) //drawtext("PDC",barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS " TCPR" ,BCPR AS "BCPR", PPDay as "PPDay"

  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

  DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPRT=((H1 + L1)/2 )-10 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay TCPRT=((PPDay-BCPR)+PPDay) +10 /////////////////////////////// If BCPR > TCPR then BCPR=((H1 + L1)/2 )+10 TCPR=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPR=((H1 + L1)/2 )+10 BCPR=((PPDay-BCPR)+PPDay) -10 ENDIF ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) drawtext("TCPR",barindex,TCPR,SansSerif,Bold,13) drawtext("BCPR",barindex,BCPR,SansSerif,Bold,13) drawtext("PPDay",barindex,PPDay,SansSerif,Bold,13) //drawtext("PDC",barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS " TCPR" ,BCPR AS "BCPR", PPDay as "PPDay"

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17151

  Been thanked: 4040 times
  08/14/2021 at 12:23 PM #175314
  oyinloyea

  Thanks for the prompt response.I have re-written it but it is showing blank. Please help

  //DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay /////////////////////////////// If BCPR > TCPR then BCPRT=((H1 + L1)/2 )+10 TCPRT=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPRT=((H1 + L1)/2 )+10 BCPRT=((PPDay-BCPR)+PPDay) -10 ENDIF ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) DRAWsegment(barindex-1,BCPRT,barindex,BCPRt) DRAWsegment(barindex-1,TCPRT,barindex,TCPRT) drawtext(“TCPR”,barindex,TCPR,SansSerif,Bold,13) drawtext(“BCPR”,barindex,BCPR,SansSerif,Bold,13) drawtext(“PPDay”,barindex,PPDay,SansSerif,Bold,13) drawtext(“TCPRT”,barindex,TCPRT,SansSerif,Bold,13) drawtext(“BCPRT”,barindex,BCPRT,SansSerif,Bold,13) //drawtext(“PDC”,barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS ” TCPR” ,BCPR AS “BCPR”, PPDay as “PPDay”,TCPRT AS ” TCPRT” ,BCPRT AS “BCPRT”

  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

  //DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay   /////////////////////////////// If BCPR > TCPR then BCPRT=((H1 + L1)/2 )+10 TCPRT=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPRT=((H1 + L1)/2 )+10 BCPRT=((PPDay-BCPR)+PPDay) -10 ENDIF   ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) DRAWsegment(barindex-1,BCPRT,barindex,BCPRt) DRAWsegment(barindex-1,TCPRT,barindex,TCPRT) drawtext(“TCPR”,barindex,TCPR,SansSerif,Bold,13) drawtext(“BCPR”,barindex,BCPR,SansSerif,Bold,13) drawtext(“PPDay”,barindex,PPDay,SansSerif,Bold,13) drawtext(“TCPRT”,barindex,TCPRT,SansSerif,Bold,13) drawtext(“BCPRT”,barindex,BCPRT,SansSerif,Bold,13) //drawtext(“PDC”,barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS ” TCPR” ,BCPR AS “BCPR”, PPDay as “PPDay”,TCPRT AS ” TCPRT” ,BCPRT AS “BCPRT”

  

  oyinloyea

  Participant

  Topics: 24

  Replies: 24

  Been thanked: 1 time
  08/14/2021 at 1:21 PM #175329
  robertogozzi

  I’ll check next week.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17151

  Been thanked: 4040 times
  08/17/2021 at 10:56 AM #175526
  robertogozzi

  It works fine, with 10K units (if you use 200K units, then you’ll have to wait some time).

  I added +5 to BARINDEX when displaying text, so it is plotted in the future (a feature added in v11) and doesn’t make a mess with data lines:

  DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay /////////////////////////////// If BCPR > TCPR then BCPRT=((H1 + L1)/2 )+10 TCPRT=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPRT=((H1 + L1)/2 )+10 BCPRT=((PPDay-BCPR)+PPDay) -10 ENDIF ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) DRAWsegment(barindex-1,BCPRT,barindex,BCPRt) DRAWsegment(barindex-1,TCPRT,barindex,TCPRT) drawtext("TCPR",barindex+5,TCPR,SansSerif,Bold,13) drawtext("BCPR",barindex+5,BCPR,SansSerif,Bold,13) drawtext("PPDay",barindex+5,PPDay,SansSerif,Bold,13) drawtext("TCPRT",barindex+5,TCPRT,SansSerif,Bold,13) drawtext("BCPRT",barindex+5,BCPRT,SansSerif,Bold,13) //drawtext("PDC",barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS " TCPR" ,BCPR AS "BCPR", PPDay as "PPDay",TCPRT AS " TCPRT" ,BCPRT AS "BCPRT"

  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

  DefParam DrawOnLastBarOnly = true H1 = DHigh(1) L1 = DLow(1) C1 = DClose(1) PDC=c1 PDH=H1 PDL=L1 PPDAY = (H1 + L1 + C1) / 3 BCPR= (H1 + L1)/2 TCPR =(PPDay-BCPR)+PPDay /////////////////////////////// If BCPR > TCPR then BCPRT=((H1 + L1)/2 )+10 TCPRT=((PPDay-BCPR)+PPDay) -10 ELSIf TCPR > BCPR then TCPRT=((H1 + L1)/2 )+10 BCPRT=((PPDay-BCPR)+PPDay) -10 ENDIF ////////////////////////////// DRAWsegment(barindex-1,PPDay,barindex,PPDay) DRAWsegment(barindex-1,BCPR,barindex,BCPR) DRAWsegment(barindex-1,TCPR,barindex,TCPR) DRAWsegment(barindex-1,BCPRT,barindex,BCPRt) DRAWsegment(barindex-1,TCPRT,barindex,TCPRT) drawtext("TCPR",barindex+5,TCPR,SansSerif,Bold,13) drawtext("BCPR",barindex+5,BCPR,SansSerif,Bold,13) drawtext("PPDay",barindex+5,PPDay,SansSerif,Bold,13) drawtext("TCPRT",barindex+5,TCPRT,SansSerif,Bold,13) drawtext("BCPRT",barindex+5,BCPRT,SansSerif,Bold,13) //drawtext("PDC",barindex,PDC,SansSerif,Bold,13) RETURN TCPR AS " TCPR" ,BCPR AS "BCPR", PPDay as "PPDay",TCPRT AS " TCPRT" ,BCPRT AS "BCPRT"

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17151

  Been thanked: 4040 times
• Author
  Posts