defparam drawonlastbaronly=true
//-----------------------------------------------//
//PRC_TrendLine pivots
//version = 0
//25.09.24
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//-----------------------------------------------//
//-----Inputs------------------------------------//
//-----------------------------------------------//
maxLines=4
pivLen=9
//-----------------------------------------------//
//-----Pivots High and Low-----------------------//
//-----------------------------------------------//
src1 = low
src2 = high
leftbars=pivLen
rightbars=pivLen
//---Pivots low
if src1 > src1[rightbars] and lowest[rightbars](src1) > src1[rightbars] and src1[rightbars] < lowest[leftbars](src1)[rightbars+1] then
$ply[z+1] = src1[rightbars]
$plx[z+1] = barindex[rightbars]
//drawpoint(barindex[rightbars],src1[rightbars],2)coloured("red",80)
$crossdw[z+1]=0
z = z + 1
endif
//---Pivots high
if src2 < src2[rightbars] and highest[rightbars](src2)<src2[rightbars] and src2[rightbars]>highest[leftbars](src2)[rightbars+1] then
$phy[t+1]=src2[rightbars]
$phx[t+1]=barindex[rightbars]
//drawpoint(barindex[rightbars],src2[rightbars],2)coloured("blue",80)
$crossup[t+1]=0
t=t+1
endif
//-----------------------------------------------//
//-----Line definition---------------------------//
//-----------------------------------------------//
//(x-x1)/(x2-x1) = (y-y1)/(y2-y1)
//x = barindex
//y = y1+(barindex-x1)*(y2-y1)/(x2-x1)
if islastbarupdate then
//---Pivots low line
for i=z-maxLines*2 to z do
$y2[i] = $ply[i]
$x2[i] = $plx[i]
$y1[i] = $ply[max(i-1,0)]
$x1[i] = $plx[max(i-1,0)]
for j=$plx[i] downto 0 do
$xl[i] = barindex[j]
$yl[i] = $y1[i]+(barindex[j]-$x1[i])*($y2[i]-$y1[i])/($x2[i]-$x1[i])
if $xl[i]>$x2[i] and $y2[i]>$y1[i] and low[j] < $yl[i] then
$crossdw[i]=1
drawsegment($x1[i],$y1[i],barindex[j],$yl[i])style(dottedline,2)coloured("blue")
break
elsif $xl[i]>$x2[i] and $y2[i]>$y1[i] and $crossdw[i]=0 then
drawsegment($x1[i],$y1[i],barindex,$ply[max(i-1,0)]+(barindex-$plx[max(i-1,0)])*($ply[i]-$ply[max(i-1,0)])/($plx[i]-$plx[max(i-1,0)]))style(line,2)coloured("green")
endif
next
next
//---Pivots high line
for k=t-maxLines*2 to t do
$y22[k] = $phy[k]
$x22[k] = $phx[k]
$y11[k] = $phy[max(k-1,0)]
$x11[k] = $phx[max(k-1,0)]
for n=$phx[k] downto 0 do
$xh[k] = barindex[n]
$yh[k] = $y11[k]+(barindex[n]-$x11[k])*($y22[k]-$y11[k])/($x22[k]-$x11[k])
if $xh[k]>$x22[k] and $y22[k]<$y11[k] and high[n] > $yh[k] then
$crossup[k]=1
drawsegment($x11[k],$y11[k],barindex[n],$yh[k])style(dottedline,2)coloured("orange")
break
elsif $xh[k]>$x22[k] and $y22[k]<$y11[k] and $crossup[k]=0 then
drawsegment($x11[k],$y11[k],barindex,$y11[k]+(barindex-$x11[k])*($y22[k]-$y11[k])/($x22[k]-$x11[k]))style(line,2)coloured("red")
endif
next
next
endif
//-----------------------------------------------//
return
.
