// --- Cálculo del periodo previo (semana o mes)
ph = highest[1](high)
pl = lowest[1](low)
pc = close[1]
// --- Punto Pivote Principal
pp = (ph + pl + pc) / 3
// --- Resistencias clásicas
r1 = 2*pp - pl
r02 = pp + (ph - pl)
r3 = ph + 2*(pp - pl)
// --- Soportes clásicos
s1 = 2*pp - ph
s2 = pp - (ph - pl)
s3 = pl - 2*(ph - pp)
// --- Niveles intermedios entre PP y R1
r025 = pp + (r1 - pp) * 0.25
r050 = pp + (r1 - pp) * 0.50
r075 = pp + (r1 - pp) * 0.75
// --- Niveles intermedios entre PP y S1
s025 = pp - (pp - s1) * 0.25
s050 = pp - (pp - s1) * 0.50
s075 = pp - (pp - s1) * 0.75
RETURN pp COLOURED(255,255,255) AS "PP",r1 COLOURED(0,200,0) AS "R1",r025 COLOURED(0,255,0) AS "R0.25",r050 COLOURED(0,150,0) AS "R0.50",r075 COLOURED(0,100,0) AS "R0.75", r02 COLOURED(0,150,150) AS "R2", r3 COLOURED(0,100,200) AS "R3",s1 COLOURED(200,0,0) AS "S1",s025 COLOURED(255,0,0) AS "S0.25", s050 COLOURED(150,0,0) AS "S0.50",s075 COLOURED(100,0,0) AS "S0.75",s2 COLOURED(150,0,150) AS "S2",s3 COLOURED(100,0,200) AS "S3"