input： N（5，1，100）;
DRAWGBKLAST（CLOSE》0，STRIP（RGB（95，95，95），RGB（0，0，0），0））;
A1：=ref（h，N）=hhv（h，2*N+1）;
B1：=filter（A1，N）;
C1：=backset（B1，N+1）;
D1：=filter（C1，n）;{高點}
A2：=ref（l，N）=llv（l，2*N+1）;
B2：=filter（A2，N）;
C2：=backset（B2，N+1）;
D2：=filter（C2，N）;{低點}
E1：=（ref（llv（l，2*N），1）+ref（hhv（h，2*N），1））/2; E2：=（h+l）/2;{高低點出現在同一K線上時可作取舍}
H1：=（D1 AND not（D2 AND E1》=E2）） OR barstatus=2 OR barscount（c）=1;
L1：=（D2 AND not（D1 AND E1《E2））; H2：=D1 AND not（D2 AND E1》=E2）;
X1：=ref（barslast（H1），1）+1; F1：=backset（H1 AND count（L1，X1）》0，llvbars
（if（L1，l，10000），X1））;
G1：=F1》ref（F1，1）; I1：=backset（G1，2）; LD：=I1》ref（I1，1）;{過濾后低點}
L2：=LD OR barstatus=2 OR barscount（c）=1;
X2：=ref（barslast（L2），1）+1; F2：=backset（L2 AND count（H2，X2）》0，hhvbars
（if（H2，h，0），X2））;
G2：=F2》ref（F2，1）; I2：=backset（G2，2）; HD：=I2》ref（I2，1）;{過濾后高點}
R1：=backset（barstatus=2，barslast（HD）+1）; S1：=R1》ref（R1，1）; {前一高}
T1：=backset（barstatus=2，barslast（LD）+1）; U1：=T1》ref（T1，1）; {前一低}
R2：=backset（S1，ref（barslast（HD），1）+2）; S2：=R2》ref（R2，1）; {前二高}
T2：=backset（U1，ref（barslast（LD），1）+2）; U2：=T2》ref（T2，1）; {前二低}
T3：=backset（U2，ref（barslast（LD），1）+2）; U3：=T3》ref（T3，1）; {前三低}
T4：=backset（U3，ref（barslast（LD），1）+2）; U4：=T4》ref（T4，1）; {前四低}
R3：=backset（S2，ref（barslast（HD），1）+2）; S3：=R3》ref（R3，1）; {前三高}
R4：=backset（S3，ref（barslast（HD），1）+2）; S4：=R4》ref（R4，1）; {前四高}
短期壓力：drawline（S2，h，S1，h，1），Colorred;
短期支撐：drawline（U2，l，U1，l，1），Colorgreen;
中期壓力：drawline（S3，h，S2，h，1），Coloryellow;
中期支撐：drawline（U3，l，U2，l，0），Colorgreen;
長期壓力：drawline（S4，h，S3，h，1），COLORwhite;
長期支撐：drawline（U4，l，U3，l，0），Colorgreen;
DRAWICON（S1，H*1.01，10）;
DRAWICON（S2，H*1.01，10）;
DRAWICON（S3，H*1.01，10）;
DRAWICON（S4，H*1.01，10）;
DRAWICON（U1，L*0.99，9）;
DRAWICON（U2，L*0.99，9）;
DRAWICON（U3，L*0.99，9）;
DRAWICON（U4，L*0.99，9）;
（南方財富網SOUTHMONEY.COM）