立庄量(通达信)

源码正文：

源码：
stICKLINE(C>=O,C,O,3,0),COLOR000045{XG51};
STICKLINE(C>=O,C,O,2.5,0),COLOR000065{XG51};
STICKLINE(C>=O,C,O,2,0),COLOR000085{XG51};
STICKLINE(C>=O,C,O,1.5,0),COLOR0000A5{XG51};
STICKLINE(C>=O,C,O,1,0),COLOR0000C5{XG51};
STICKLINE(C>=O,C,O,0.5,0),COLOR0000E5{XG51};
STICKLINE(C>=O,H,L,0,0),COLOR0000F5{XG51};
STICKLINE(C<O,C,O,3,0),COLOR353500{XG51};
STICKLINE(C<O,C,O,2.5,0),COLOR454500{XG51};
STICKLINE(C<O,C,O,2,0),COLOR555500{XG51};
STICKLINE(C<O,C,O,1.5,0),COLOR656500{XG51};
STICKLINE(C<O,C,O,1,0),COLOR757500{XG51};
STICKLINE(C<O,C,O,0.5,0),COLOR858500{XG51};
STICKLINE(C<O,H,L,0,0),COLOR959500{XG51};
AAA:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36{XG51};
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3{XG51};
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3{XG51};
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3{XG51};
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3{XG51};
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3{XG51};
DRAWBAND(VAR1,RGB(155,50,50),VAR6,RGB(250,250,0)){XG51};
短线:VAR1,COLORRED{XG51};
中线:VAR6,COLORBLUE{XG51};
下跌:IF(VAR1=VAR6,VAR6,DRAWNULL),COLORCYAN{XG51};
TJ1:=vol=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1{XG51};
立桩量:=FILTER(TJ1,5){XG51};
TJ2:=IF(BArslAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0))){XG51};
突破:=TJ2=1{XG51};
STICKLINE(CLOSE,REF(HIGH,BARSLAST(立桩量)),REF(HIGH,BARSLAST(立桩量)),1,0),COLORGREEN{XG51};
STICKLINE(CLOSE,REF(LOW,BARSLAST(立桩量)),REF(LOW,BARSLAST(立桩量)),1,0),COLORBLUE{XG51};
TJ3:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(LOW,3),1,0))){XG51};
三天法则:=TJ3=1{XG51};
成立:=三天法则 AND 突破{XG51};
条件成立:=FILTER(成立,3){XG51};
DRAWTEXT(条件成立,L*0.99,'成立'),COLORBLUE;

&nbsp;{X-G_5~1-C-N-{};

源码正文：

有时很神奇的时间共振。网上下来的，自己做了修改，大家共享吧！—&mdash{XG51};
总天数:=HHVBARS(H,90){XG51};
交换次数:=FLOOR(总天数/21){XG51};
判断:=IF(交换次数>0,交换次数,0){XG51};
判定:=IF(判断-REF(判断,1)>0,判断,0){XG51};
距上次交换:BArslAst(判定)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定,0,50,2,0),COLORCYAN{XG51};
交换次数13:=FLOOR(总天数/34){XG51};
判断13:=IF(交换次数13>0,交换次数13,0){XG51};
判定13:=IF(判断13-REF(判断13,1)>0,判断13,0){XG51};
距上次交换13:BARSLAST(判定13)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定13,0,80,2,0),COLORFFFFFF{XG51};
交换次数21:=FLOOR(总天数/55){XG51};
判断21:=IF(交换次数21>0,交换次数21,0){XG51};
判定21:=IF(判断21-REF(判断21,1)>0,判断21,0){XG51};
距上次交换21:BARSLAST(判定21)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定21,0,100,2,0),COLORFFF00F{XG51};
STICKLINE(距上次交换+距上次交换13+距上次交换21=3 ,0 ,100 ,2 ,0 ),COLORWHITE;

总天数2:=LLVBARS(L,90){XG51};
交换次数212:=FLOOR(总天数2/21){XG51};
判断212:=IF(交换次数212>0,交换次数212,0){XG51};
判定212:=IF(判断212-REF(判断212,1)>0,判断212,0){XG51};
距上次交换212:BARSLAST(判定212)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定212,200,150,2,0),COLORCYAN{XG51};
交换次数34:=FLOOR(总天数2/34){XG51};
判断34:=IF(交换次数34>0,交换次数34,0){XG51};
判定34:=IF(判断34-REF(判断34,1)>0,判断34,0){XG51};
距上次交换34:BARSLAST(判定34)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定34,200,120,2,0),COLORFFFFFF{XG51};
交换次数55:=FLOOR(总天数2/55){XG51};
判断55:=IF(交换次数55>0,交换次数55,0){XG51};
判定55:=IF(判断55-REF(判断55,1)>0,判断55,0){XG51};
距上次交换55:BARSLAST(判定55)+1,NODRAW,COLORCYAN{XG51};
STICKLINE(判定55,200,100,2,0),COLORFFF00F{XG51};
STICKLINE(距上次交换212+距上次交换34+距上次交换55=3 ,200 ,100 ,2 ,0 ),COLORmaGENTA;

 {X=G+5-1=C=N={};