宝塔趋势副图，源码分享

{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),Color000088;

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),Color0000EE;

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),Color0033FF;

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),Color0000FF;

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),Color8A8A00;

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),ColorC6C600;

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),ColorF0F000;

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),ColorFFFF07;

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),Color007B7B;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,0),Color00E8E8;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),Color44FFFF;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),1,0),Color00FFFF;

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),Color008A00;

STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),6,1),Color00BD00;

STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),4,1),Color09FF09;

STICKLINE(AA,REF(CLOSE,1),REF(CLOSE,2),2,1),Color00FF00;

宝塔趋势: MA(C,4),ColorFF26FF;

byx:=宝塔趋势;

FILLRGN(byx,REF(byx,1),byx>REF(byx,1),RGB(255,0,255),byx<REF(byx,1),RGB(0,0,255));