通达信高点回落幅度主图指标源码

该指示为近期创业板下跌而写，编写指标源码，用不着吹牛吸引眼球。～～～如图所示。

指标原理说明：13个交易日的最高点，基本上能反应了………自高点回落以来跌10% 、20%，25%，30%，40%，50%相对应跌幅的价格


HN:=CONST(BARSLAST(H=HHV(H,13))+1);
H_:=CONST(REF(H,HN-1)); L_:=CONST(LLV(L,100));
A:IF(CURRBARSCOUNT<=13 AND H_*1.00>=L_,H_*1.00,DRAWNULL),DOTLINE,COLOR5F5F5F;
B:IF(CURRBARSCOUNT<=12 AND H_*0.90>=L_,H_*0.90,DRAWNULL),DOTLINE,COLOR5F5F5F;
E:IF(CURRBARSCOUNT<=10 AND H_*0.80>=L_,H_*0.80,DRAWNULL),DOTLINE,COLOR5F5F5F;
F:IF(CURRBARSCOUNT<=8 AND H_*0.75>=L_,H_*0.75,DRAWNULL),DOTLINE,COLOR5F5F5F;
G:IF(CURRBARSCOUNT<=6 AND H_*0.70>=L_,H_*0.70,DRAWNULL),DOTLINE,COLOR5F5F5F;
Y:IF(CURRBARSCOUNT<=5 AND H_*0.60>=L_,H_*0.60,DRAWNULL),DOTLINE,COLOR5F5F5F;
Z:IF(CURRBARSCOUNT<=3 AND H_*0.50>=L_,H_*0.50,DRAWNULL),DOTLINE,COLOR5F5F5F;
DRAWTEXT(ISLASTBAR AND H_*1.00>=L_,H_*1.00,STRCAT(' 10% ',CON2STR(H_*1.00,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.90>=L_,H_*0.90,STRCAT(' 15% ',CON2STR(H_*0.90,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.80>=L_,H_*0.80,STRCAT(' 20% ',CON2STR(H_*0.80,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.75>=L_,H_*0.75,STRCAT(' 25% ',CON2STR(H_*0.75,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.70>=L_,H_*0.70,STRCAT(' 30% ',CON2STR(H_*0.70,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.60>=L_,H_*0.60,STRCAT(' 40% ',CON2STR(H_*0.60,2))),COLORGRAY;
DRAWTEXT(ISLASTBAR AND H_*0.50>=L_,H_*0.50,STRCAT(' 50% ',CON2STR(H_*0.50,2))),COLORGRAY;