同花顺宝塔趋势副图指标

以下是同花顺宝塔趋势副图指标

同花顺宝塔趋势副图指标

源码

DRAWGBK(DATE>900103,STRIP(RGB(80,120,255),RGB(140,160,255),1));
VAR1:=IF((C>0),1,0);
VAR2:=(((CLOSE > REF(CLOSE,1)) AND (CLOSE > REF(CLOSE,2))) AND VAR1);
VAR3:=(((REF(VAR2,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR4:=(((REF(VAR3,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR5:=(((REF(VAR4,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR6:=(((REF(VAR5,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR7:=(((REF(VAR6,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR8:=(((REF(VAR7,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR9:=(((REF(VAR8,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VARA:=(((REF(VAR9,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VARB:=(((REF(VARA,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VARC:=(((REF(VARB,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VARD:=(((REF(VARC,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),10,1),Culor000088;
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),4,1),Culor0000EE;
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),3,1),Culor0033FF;
STICKLINE((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),CLOSE,REF(CLOSE,1),2,1),Culor0000FF;
VARE:=(((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,2))) AND VAR1);
VARF:=(((REF(VARE,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR10:=(((REF(VARF,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR11:=(((REF(VAR10,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR12:=(((REF(VAR11,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR13:=(((REF(VAR12,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR14:=(((REF(VAR13,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR15:=(((REF(VAR14,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR16:=(((REF(VAR15,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR17:=(((REF(VAR16,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
VAR18:=(((REF(VAR17,1) AND (CLOSE <= REF(CLOSE,1))) AND (CLOSE >= REF(CLOSE,2))) AND VAR1);
VAR19:=(((REF(VAR18,1) AND (CLOSE >= REF(CLOSE,1))) AND (CLOSE <= REF(CLOSE,2))) AND VAR1);
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),10,0),Culor8A8A00;
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),4,0),CulorC6C600;
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),3,0),CulorF0F000;
STICKLINE((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),CLOSE,REF(CLOSE,1),2,0),CulorFFFF07;
VAR1A:=(REF((((((((((((VARE OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18) OR VAR19),1) AND VAR2);
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),10,0),Culor007B7B;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,0),Culor00E8E8;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),Culor44FFFF;
STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),1,0),Culor00FFFF;
AA:=(REF((((((((((((VAR2 OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC) OR VARD),1) AND VARE);
STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),10,1),Culor008A00;
STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),6,1),Culor00BD00;
STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),4,1),Culor09FF09;
STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),2,1),Culor00FF00;
宝塔趋势: MA(C,4),CulorFF26FF;
byx:=宝塔趋势;
FILLRGN(byx,REF(byx,1),byx>REF(byx,1),RGB(255,0,255),byx<REF(byx,1),RGB(0,0,255));