indicateur Tendance TKP T3 avec Psar Barcolor

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #224272 quote
    Samir pluquin
    Participant
    Junior

    Bonjour a tous =)

    je suis en train de tester un nouvelle indicateur ( indicateur trouver dans prorealcode), je souhaiterais prendre position à l’achat lorsque la première boule bleue apparait et prendre position à la vente lorsque la première boule rouge apparait,

    pouvez vous m’aider à coder le code svp

    merci beaucoup

    
    //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'.
     
    // TSI Inputs
    long = 25
    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)
    #225529 quote
    Jean FX
    Moderator
    New

    Et voilà :

    // Parabolic Stop and Reverse
    startValue = 0.043
    incrementValue = 0.043
    maximumValue = 0.34
     
    // Calculate PSAR
    MySAR = SAR[startValue, incrementValue, maximumValue]
    
     
    if close crosses over MySAR then
    buy at market
    endif
    
    if close crosses under MySAR then
    sellshort at market
    endif
    Samir pluquin thanked this post
Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.

indicateur Tendance TKP T3 avec Psar Barcolor


ProOrder : Trading Automatique & Backtests

New Reply
Author
Summary

This topic contains 1 reply,
has 2 voices, and was last updated by Jean FX
2 years, 2 months ago.

Topic Details
Forum: ProOrder : Trading Automatique & Backtests
Language: French
Started: 11/24/2023
Status: Active
Attachments: No files
Logo Logo
Loading...