Calling an indicator

• 02/12/2025 at 12:50 PM #243745
  kanonmicke

  Im new to the coding language in prorealtime and hope somebody could give me a hint on this issue.

  I have an indicator that draw stochastic divergence lines, see below.
  From an automatic trading robot I know I can CALL this indicator by:

  myStoch, my0 = CALL "mydivergence4"[14, 1, 3, 100]

  1	myStoch, my0 = CALL "mydivergence4"[14, 1, 3, 100]

  In my trading system that calls the indicator, how can I know exactly when a divergence line is drawn so I can make a decision if I want to buy or sell.
  Is it possible to find out from the myStoch variable that is returned in the CALL request, or, do I have to incorporate the indicator code into my trading robot and do SELL or BUY instead of drawsegment?

  StochPrd = 9 KPrd = 1 DPrd = 3 N = 100 StochD = Stochasticd[StochPrd,KPrd,DPrd](close) Offset = .01 IF (BarIndex > 10+1+N) THEN // short IF (StochD[1]>StochD AND StochD[1]>StochD[2]) THEN extremum2=StochD[1] extremum1=highest[N](StochD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if StochD[i]=extremum1 then zz=i drawsegment (barindex[1], StochD[1]+Offset, barindex[zz], StochD[zz]+Offset) coloured(200,0,0) endif next endif endif // long IF (StochD[1]<StochD AND StochD[1]<StochD[2]) THEN extremum22=StochD[1] extremum11=lowest[N](StochD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if StochD[i2]=extremum11[1] then zz2=i2 drawsegment(barindex[1], StochD[1]-Offset, barindex[zz2], StochD[zz2]-Offset) coloured(0,200,0) endif next ENDIF ENDIF endif return StochD as "Stoch", 0 as "0"

  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

  StochPrd = 9 KPrd = 1 DPrd = 3 N = 100 StochD = Stochasticd[StochPrd,KPrd,DPrd](close) Offset = .01 IF (BarIndex > 10+1+N) THEN // short IF (StochD[1]>StochD AND StochD[1]>StochD[2]) THEN extremum2=StochD[1] extremum1=highest[N](StochD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if StochD[i]=extremum1 then zz=i drawsegment (barindex[1], StochD[1]+Offset, barindex[zz], StochD[zz]+Offset) coloured(200,0,0) endif next endif endif // long IF (StochD[1]<StochD AND StochD[1]<StochD[2]) THEN extremum22=StochD[1] extremum11=lowest[N](StochD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if StochD[i2]=extremum11[1] then zz2=i2 drawsegment(barindex[1], StochD[1]-Offset, barindex[zz2], StochD[zz2]-Offset) coloured(0,200,0) endif next ENDIF ENDIF endif return StochD as "Stoch", 0 as "0"

  

  kanonmicke

  Participant

  Topics: 3

  Replies: 4

  Been thanked: 2 times
  02/12/2025 at 2:51 PM #243747
  robertogozzi

  Use this modified version:

  StochPrd = 9 KPrd = 1 DPrd = 3 N = 100 StochD = Stochasticd[StochPrd,KPrd,DPrd](close) Offset = .01 Signal = 0 IF (BarIndex > 10+1+N) THEN // short IF (StochD[1]>StochD AND StochD[1]>StochD[2]) THEN extremum2=StochD[1] extremum1=highest[N](StochD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if StochD[i]=extremum1 then Signal = -1 zz=i drawsegment (barindex[1], StochD[1]+Offset, barindex[zz], StochD[zz]+Offset) coloured(200,0,0) endif next endif endif // long IF (StochD[1]<StochD AND StochD[1]<StochD[2]) THEN extremum22=StochD[1] extremum11=lowest[N](StochD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if StochD[i2]=extremum11[1] then Signal = 1 zz2=i2 drawsegment(barindex[1], StochD[1]-Offset, barindex[zz2], StochD[zz2]-Offset) coloured(0,200,0) endif next ENDIF ENDIF endif return StochD as "Stoch", 0 as "0",Signal AS "Signal"

  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

  StochPrd = 9 KPrd = 1 DPrd = 3 N = 100 StochD = Stochasticd[StochPrd,KPrd,DPrd](close) Offset = .01 Signal = 0 IF (BarIndex > 10+1+N) THEN // short IF (StochD[1]>StochD AND StochD[1]>StochD[2]) THEN extremum2=StochD[1] extremum1=highest[N](StochD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if StochD[i]=extremum1 then Signal = -1 zz=i drawsegment (barindex[1], StochD[1]+Offset, barindex[zz], StochD[zz]+Offset) coloured(200,0,0) endif next endif endif // long IF (StochD[1]<StochD AND StochD[1]<StochD[2]) THEN extremum22=StochD[1] extremum11=lowest[N](StochD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if StochD[i2]=extremum11[1] then Signal = 1 zz2=i2 drawsegment(barindex[1], StochD[1]-Offset, barindex[zz2], StochD[zz2]-Offset) coloured(0,200,0) endif next ENDIF ENDIF endif return StochD as "Stoch", 0 as "0",Signal AS "Signal"

  then modify the calling line into:

  myStoch, my0, mySignal = CALL "mydivergence4"[14, 1, 3, 100]

  1	myStoch, my0, mySignal = CALL "mydivergence4"[14, 1, 3, 100]

  then use mySignal to know when a Divergence occurred (1=bullish,  -1=bearish).

   

  1 user thanked author for this post.

  Iván

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17685

  Been thanked: 4394 times
  02/12/2025 at 3:05 PM #243749
  kanonmicke

  Thank you very much!

  1 user thanked author for this post.

  robertogozzi

  

  kanonmicke

  Participant

  Topics: 3

  Replies: 4

  Been thanked: 2 times
• Author
  Posts