时间共振(通达信)

源码正文：

时间共振点是转折点。
上排不含未来，下排有未来，但不会致信号漂移——

无总天数:=HHVBARS(H,120){XG51};
无交换次数5:=FLOOR(无总天数/5){XG51};
无判断5:=IF(无交换次数5>0,无交换次数5,0){XG51};
无判定5:=IF(无判断5-REF(无判断5,1)>0,无判断5,0){XG51};
无距上次交换5:=BArslAst(无判定5)+1{XG51};
无交换次数6:=FLOOR(无总天数/6){XG51};
无判断6:=IF(无交换次数6>0,无交换次数6,0){XG51};
无判定6:=IF(无判断6-REF(无判断6,1)>0,无判断6,0){XG51};
无距上次交换6:=BARSLAST(无判定6)+1{XG51};
无交换次数9:=FLOOR(无总天数/9){XG51};
无判断9:=IF(无交换次数9>0,无交换次数9,0){XG51};
无判定9:=IF(无判断9-REF(无判断9,1)>0,无判断9,0){XG51};
无距上次交换9:=BARSLAST(无判定9)+1{XG51};
无顶56:(无距上次交换5+无距上次交换6=2)*80,NODRAW,COLOR3399FF{XG51};
STICKLINE(无距上次交换5+无距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3399FF{XG51};
无顶69:(无距上次交换6+无距上次交换9=2)*80,NODRAW,COLOR33FF00{XG51};
STICKLINE(无距上次交换6+无距上次交换9=2 ,200 ,120 ,2 ,0 ),COLOR33FF00;

无底总天数:=LLVBARS(L,120){XG51};
无底交换次数5:=FLOOR(无底总天数/5){XG51};
无底判断5:=IF(无底交换次数5>0,无底交换次数5,0){XG51};
无底判定5:=IF(无底判断5-REF(无底判断5,1)>0,无底判断5,0){XG51};
无底距上次交换5:=BARSLAST(无底判定5)+1{XG51};
无底交换次数6:=FLOOR(无底总天数/6){XG51};
无底判断6:=IF(无底交换次数6>0,无底交换次数6,0){XG51};
无底判定6:=IF(无底判断6-REF(无底判断6,1)>0,无底判断6,0){XG51};
无底距上次交换6:=BARSLAST(无判定6)+1{XG51};
无底交换次数9:=FLOOR(无底总天数/9){XG51};
无底判断9:=IF(无底交换次数9>0,无底交换次数9,0){XG51};
无底判定9:=IF(无底判断9-REF(无底判断9,1)>0,无底判断9,0){XG51};
无底距上次交换9:=BARSLAST(无底判定9)+1{XG51};
无底56:(无底距上次交换5+无底距上次交换6=2)*80,NODRAW,COLOR3333FF{XG51};
STICKLINE(无底距上次交换5+无底距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3333FF{XG51};
无底69:(无底距上次交换6+无底距上次交换9=2)*80,NODRAW,COLORFFFF00{XG51};
STICKLINE(无底距上次交换6+无底距上次交换9=2 ,200 ,120 ,2 ,0 ),COLORFFFF00;

顶转点:=PEAKBARS(1,10,5){XG51};
顶总天数:=顶转点{XG51};
交换次数5:=FLOOR(顶总天数/5){XG51};
判断5:=IF(交换次数5>0,交换次数5,0){XG51};
判定5:=IF(判断5-REF(判断5,1)>0,判断5,0){XG51};
距上次交换5:=BARSLAST(判定5)+1{XG51};
交换次数6:=FLOOR(顶总天数/6){XG51};
判断6:=IF(交换次数6>0,交换次数6,0){XG51};
判定6:=IF(判断6-REF(判断6,1)>0,判断6,0){XG51};
距上次交换6:=BARSLAST(判定6)+1{XG51};
交换次数9:=FLOOR(顶总天数/9){XG51};
判断9:=IF(交换次数9>0,交换次数9,0){XG51};
判定9:=IF(判断9-REF(判断9,1)>0,判断9,0){XG51};
距上次交换9:=BARSLAST(判定9)+1{XG51};
有未顶56:(距上次交换5+距上次交换6=2)*80,NODRAW,COLOR3399FF{XG51};
STICKLINE(距上次交换5+距上次交换6=2 ,0 ,80 ,2 ,0 ),COLOR3399FF{XG51};
有未顶69:(距上次交换6+距上次交换9=2)*80,NODRAW,COLOR33FF00{XG51};
STICKLINE(距上次交换6+距上次交换9=2 ,0 ,80 ,2 ,0 ),COLOR33FF00;

底转点:=TROUGHBARS(1,10,5){XG51};
底总天数:=底转点{XG51};
交换次数55:=FLOOR(底总天数/5){XG51};
判断55:=IF(交换次数55>0,交换次数55,0){XG51};
判定55:=IF(判断55-REF(判断55,1)>0,判断55,0){XG51};
距上次交换55:=BARSLAST(判定55)+1{XG51};
交换次数66:=FLOOR(底总天数/6){XG51};
判断66:=IF(交换次数66>0,交换次数66,0){XG51};
判定66:=IF(判断66-REF(判断66,1)>0,判断66,0){XG51};
距上次交换66:=BARSLAST(判定66)+1{XG51};
交换次数99:=FLOOR(底总天数/99){XG51};
判断99:=IF(交换次数99>0,交换次数99,0){XG51};
判定99:=IF(判断99-REF(判断99,1)>0,判断99,0){XG51};
距上次交换99:=BARSLAST(判定99)+1{XG51};
有未底56:(距上次交换55+距上次交换66=2)*80,NODRAW,COLOR3333FF{XG51};
STICKLINE(距上次交换55+距上次交换66=2 ,0 ,80 ,2 ,0 ),COLOR3333FF{XG51};
有未底69:(距上次交换66+距上次交换99=2)*80,NODRAW,COLORFFFF00{XG51};
STICKLINE(距上次交换66+距上次交换99=2 ,0 ,80 ,2 ,0 ),COLORFFFF00{X-G+5?1-C-N-{};

源码正文：

R:=vol/((H-L)*2-Abs(O-C)){XG51};
买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,VOL,R*(C-L)){XG51};
买%:买/VOL*100,COLORWHITE,NODRAW{XG51};
流入亿元:AMOUNT*买%/10000000000,COLORmaGENTA,NODRAW{XG51};
流出亿元:AMOUNT/100000000-流入亿元,COLORCYAN,NODRAW{XG51};
净流亿元:流入亿元-流出亿元,COLORGREEN,NODRAW{XG51};
stICKLINE(VOL,0,VOL,2,1),COLORCYAN{XG51};
STICKLINE(买,0,买,2,0),COLORWHITE{XG51};
A:MA(买,3)COLORBLUE{XG51};
B:MA(买,5)COLORLIMAGENTA{X_G~5-1_C_N_{};