通达信修改整理的宝塔主副图糸列精品源码无未来

宝塔主图

B1:=REF(C,1);B2:=REF(C,2);
SS:=IF(C>REF(C,1) AND REF(C,1)>=REF(C,2),1,IF(C<REF(C,1) AND REF(C,1)<=REF(C,2),-1,IF(C>REF(C,2) AND REF(C,2)>REF(C,1),2,IF(C<REF(C,2) AND REF(C,2)<REF(C,1),-2,0))));
SM:=IF(REF(SS,1)!=0,REF(SS,1),IF(REF(SS,2)!=0,REF(SS,2),IF(REF(SS,3)!=0,REF(SS,3),IF(REF(SS,5)!=0,REF(SS,5),IF(REF(SS,6)!=0,REF(SS,6),IF(REF(SS,7)!=0,REF(SS,7),0))))));
STICKLINE(SS=1 OR SM>=1 AND SS=0,B1,C,3,0),COLORRED;
STICKLINE(SS=-1 OR SM<=-1 AND SS=0,B1,C,3,0),COLORFFCC66;
STICKLINE(SS=2,B2,C,3,0),COLORRED;
STICKLINE(SS=-2,B2,C,3,0),COLORFFCC66;
STICKLINE((SS=-1 OR SS=-2) AND SM>0,B2,B1,3,0),COLORRED;
STICKLINE((SS=1 OR SS=2) AND SM<0,B2,B1,3,0),COLORFFCC66;
AA:=CLOSE>REF(CLOSE,1) AND REF(CLOSE,1)>REF(CLOSE,2) AND REF(CLOSE,1)<REF(CLOSE,3) AND IF(REF(CLOSE,3)<REF(CLOSE,4),1,IF(REF(CLOSE,4)<REF(CLOSE,5),REF(CLOSE,1)<REF(CLOSE,4) OR (REF(CLOSE,2)<REF(CLOSE,4) AND REF(CLOSE,3)>=REF(CLOSE,5)),IF(REF(CLOSE,5)<REF(CLOSE,6),1,REF(CLOSE,6)<REF(CLOSE,7))));
BB:=CLOSE<REF(CLOSE,1) AND REF(CLOSE,1)<REF(CLOSE,2) AND REF(CLOSE,1)>REF(CLOSE,3) AND IF(REF(CLOSE,3)>REF(CLOSE,4),1,IF(REF(CLOSE,4)>REF(CLOSE,5),REF(CLOSE,1)>REF(CLOSE,4) OR (REF(CLOSE,2)>REF(CLOSE,4) AND REF(CLOSE,3)<=REF(CLOSE,5)),IF(REF(CLOSE,5)>REF(CLOSE,6),1,REF(CLOSE,6)>REF(CLOSE,7))));
DRAWICON(AA AND CLOSE>REF(OPEN,2),0.99*LOW,1);
DRAWICON(BB AND CLOSE<REF(CLOSE,2),HIGH*1.01,2);
DRAWTEXT(AA AND CLOSE>REF(OPEN,2),LOW*0.98,'三平底'),COLORYELLOW;
DRAWTEXT(BB AND CLOSE<REF(CLOSE,2),HIGH*1.02,'三平顶'),COLOR00FF00;

活筹宝塔

VAR11:=SMA(AMOUNT,15,1)/5670000;
VAR22:=MA(REF(CLOSE,1),5);
VAR2:=VAR11*CLOSE/VAR22;
B0:=REF(VAR2-O,2);
B1:=REF(VAR2,1);
B2:=REF(VAR2,2);
B3:=REF(VAR2,3);
B4:=REF(VAR2,4);
VAR2MAX:=MAX(MAX(MAX(VAR2,B1),B2),B3);
VAR2MIN:=MIN(MIN(MIN(VAR2,B1),B2),B3);
RS1:=(VAR2=VAR2MAX AND (B1>=B2 OR B1>=B3)) OR (B1=VAR2MAX AND (B2=VAR2MIN OR B3=VAR2MIN) AND VAR2>=B2) OR (B2=VAR2MAX AND B3=VAR2MIN AND VAR2>=B1) OR (B3=VAR2MAX AND VAR2>=B1 AND VAR2>=B2);
RS2:=VAR2=VAR2MAX AND B1=VAR2MIN;
RS3:=(B1=VAR2MAX AND VAR2<B2) OR (B2=VAR2MAX AND B1>B3) OR (B3=VAR2MAX AND B1>B2 AND B2>=B4 AND VAR2<B1);
STICKLINE(RS1,B1,VAR2,2,1),COLORRED;
STICKLINE(RS2,B2,VAR2,2,1),COLORRED;
STICKLINE(RS3,B1,B2,2,1),COLORRED;
GS1:=(VAR2=VAR2MIN AND (B1<B2 OR B1<B3)) OR (B1=VAR2MIN AND (B2=VAR2MAX OR B3=VAR2MAX) AND VAR2<B2) OR (B2=VAR2MIN AND B3=VAR2MAX AND VAR2<B1) OR (B3=VAR2MIN AND VAR2<B1 AND VAR2<B2);
GS2:=B1=VAR2MAX AND VAR2=VAR2MIN;
GS3:=(B1=VAR2MIN AND VAR2>=B2) OR (B2=VAR2MIN AND B1<=B3) OR (B3=VAR2MIN AND B1<=B2 AND B2<B4 AND VAR2>=B1);
STICKLINE(GS1,B1,VAR2,2,0),COLORGREEN;
STICKLINE(GS2,B2,VAR2,2,0),COLORGREEN;
STICKLINE(GS3,B1,B2,2,0),COLORGREEN;

活筹指数

{0AMV活筹指数}
VAR1:=AMOUNT;
VAR2:=SMA(VAR1,10,1);
VAR3:=REF(VAR2,1);
STICKLINE(VAR2>VAR3,VAR2,VAR3,3,0),COLORRED;
STICKLINE(VAR2<VAR3,VAR2,VAR3,3,0),COLORGREEN;