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 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | //PRC_Scalping with Parabolic SAR and Fibonacci | indicator //03.09.2019 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge // --- settings plotbar=10 //bars duration for plotting the fib zones // --- end of settings sarfast=SAR[0.02,0.02,0.2] sarslow=SAR[0.005,0.005,0.05] //colors if close>sarfast then //bullish trend r=0 g=255 else //bearish trend r=255 g=0 endif //highs and lows if close<sarfast then ll=min(ll,low) else hh=max(hh,high) endif if close>sarfast and close[1]<sarfast[1]then //new bullish signal fibo0=ll ll=sarslow //reset ll if close>sarslow then startbar=barindex irange=high-fibo0 entry = fibo0+(irange/2) itarget = fibo0+irange*1.618 istop = fibo0-2*pointsize drawarrowup(startbar,fibo0) coloured(0,255,0) drawtext("50% (entry)",barindex,entry-2*pointsize,dialog,standard,20) coloured(0,255,0) drawtext("SL",barindex,istop-2*pointsize,dialog,standard,20) coloured(255,0,0) drawtext("TP",barindex,itarget-2*pointsize,dialog,standard,20) coloured(0,0,255) endif endif if close<sarfast and close[1]>sarfast[1] then //new bearish signal fibo0=hh hh=0 //reset hh ifclose<sarslow then startbar=barindex irange=fibo0-low entry = fibo0-(irange/2) itarget = fibo0-irange*1.618 istop = fibo0+2*pointsize drawarrowdown(startbar,fibo0) coloured(255,0,0) drawtext("50% (entry)",barindex,entry+2*pointsize,dialog,standard,20) coloured(0,255,0) drawtext("SL",barindex,istop+2*pointsize,dialog,standard,20) coloured(255,0,0) drawtext("TP",barindex,itarget+2*pointsize,dialog,standard,20) coloured(0,0,255) endif endif //plot fib zones if barindex-startbar<=plotbar then if close>sarslow then //bullish trend drawsegment(startbar,istop,barindex,istop) coloured(255,0,0) //stoploss drawsegment(startbar,entry,barindex,entry) coloured(0,255,0) //entry at 50% fibo drawsegment(startbar,itarget,barindex,itarget) coloured(0,0,255) //target at 161.8% fibo endif if close<sarslow then //bearish trend drawsegment(startbar,istop,barindex,istop) coloured(255,0,0) //stoploss drawsegment(startbar,entry,barindex,entry) coloured(0,255,0) //entry at 50% fibo drawsegment(startbar,itarget,barindex,itarget) coloured(0,0,255) //target at 161.8% fibo endif endif return sarfast coloured(r,g,0) style(point,5),sarslow coloured(0,195,255)style(point,5) |
