新编宝塔天王

宝塔天王同花顺版源码发布如下：
同花顺系统宝塔线在附图，此指标也可以设置为附图，对分析没有影响，如果想设置为主图，建议先调入收盘价线，然后再调入本指标，这样会有不错的视觉效果。
SSL:=EMA(CLOSE,3);
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
MM:=MMV;
SA:=(MM * 0.985);
捞钱手:=IF(((SSL MM)),MM,SA),LINETHICK2,colorwhite;
PARTLINE(捞钱手,CLOSE REF(捞钱手,1),RGB(200,0,0),CLOSE =REF(捞钱手,1),RGB(0,200,0)),LINETHICK2;
A1:=EMA(CLOSE,5) EMA(CLOSE,6) AND EMA(CLOSE,6) EMA(CLOSE,7) AND EMA(CLOSE,7) EMA(CLOSE,8) AND EMA(CLOSE,8) EMA(CLOSE,9)
AND EMA(CLOSE,9) EMA(CLOSE,10) AND EMA(CLOSE,10) EMA(CLOSE,11) AND EMA(CLOSE,11) EMA(CLOSE,12)
AND EMA(CLOSE,12) EMA(CLOSE,13) AND EMA(CLOSE,13) EMA(CLOSE,14) AND EMA(CLOSE,14) EMA(CLOSE,15)
AND EMA(CLOSE,15) EMA(CLOSE,20) AND EMA(CLOSE,20) EMA(CLOSE,30) AND EMA(CLOSE,30) EMA(CLOSE,60) AND EMA(CLOSE,60) EMA(CLOSE,90)
AND EMA(CLOSE,90) EMA(CLOSE,120) AND EMA(CLOSE,120) EMA(CLOSE,250);
a2:=EMA(CLOSE,5) EMA(CLOSE,6) AND EMA(CLOSE,6) EMA(CLOSE,7) AND EMA(CLOSE,7) EMA(CLOSE,8) AND EMA(CLOSE,8) EMA(CLOSE,9)
AND EMA(CLOSE,9) EMA(CLOSE,10) AND EMA(CLOSE,10) EMA(CLOSE,11) AND EMA(CLOSE,11) EMA(CLOSE,12)
AND EMA(CLOSE,12) EMA(CLOSE,13) AND EMA(CLOSE,13) EMA(CLOSE,14);
b1:=IF(A1,1,2);
VAR1:=((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,2)));
VAR2:=((REF(VAR1,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR3:=((REF(VAR2,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR4:=((REF(VAR3,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR5:=((REF(VAR4,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR6:=((REF(VAR5,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR7:=((REF(VAR6,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR8:=((REF(VAR7,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR9:=((REF(VAR8,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VARA:=((REF(VAR9,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VARB:=((REF(VARA,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VARC:=((REF(VARB,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),10,0),Color0000D5;
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),8,0),Color0000FF;
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),6,0),Color2B2BFF;
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),4,0),Color5555FF;
STICKLINE((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),CLOSE,REF(CLOSE,1),2,0),Color8080FF;
VARD:=((CLOSE REF(CLOSE,1)) AND (CLOSE REF(CLOSE,2)));
VARE:=((REF(VARD,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VARF:=((REF(VARE,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR10:=((REF(VARF,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR11:=((REF(VAR10,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR12:=((REF(VAR11,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR13:=((REF(VAR12,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR14:=((REF(VAR13,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR15:=((REF(VAR14,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR16:=((REF(VAR15,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR17:=((REF(VAR16,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
VAR18:=((REF(VAR17,1) AND (CLOSE = REF(CLOSE,1))) AND (CLOSE = REF(CLOSE,2)));
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),10,0 ),ColorD56A00;
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),8,0 ),ColorFF8000;
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),6 ,0 ),ColorFF952B;
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),4,0 ),ColorFFAA55;
STICKLINE((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),CLOSE,REF(CLOSE,1),2 ,0 ),ColorFFBF80;
VAR19:=(REF((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),1) AND VAR1);
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),10 ,0 ),ColorBFBFBF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),8 ,0 ),ColorCECECE;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),6 ,0 ),ColorDFDFDF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4 ,0 ),ColorEFEFEF;
STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0 ),ColorFFFFFF;
VAR1A:=(REF((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),1) AND VARD);
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),10,0),ColorD500D5;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),8,0),ColorFF00FF;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),6,0),ColorFF2BFF;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),4,0),ColorFF55FF;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),2,0),ColorFF80FF;