|
以下是通达信时间共振源码幅图（无源码的请下载附件导入）
时间共振点是转折点。
上排不含未来，下排有未来，但不会致信号漂移——
无总天数:=HHVBARS(H,120);
无交换次数5:=FLOOR(无总天数/5);{5}
无判断5:=IF(无交换次数5>0,无交换次数5,0);
无判定5:=IF(无判断5-REF(无判断5,1)>0,无判断5,0);
无距上次交换5:=BARSLAST(无判定5)+1;
无交换次数6:=FLOOR(无总天数/6);{6}
无判断6:=IF(无交换次数6>0,无交换次数6,0);
无判定6:=IF(无判断6-REF(无判断6,1)>0,无判断6,0);
无距上次交换6:=BARSLAST(无判定6)+1;
无交换次数9:=FLOOR(无总天数/9);{9}
无判断9:=IF(无交换次数9>0,无交换次数9,0);
无判定9:=IF(无判断9-REF(无判断9,1)>0,无判断9,0);
无距上次交换9:=BARSLAST(无判定9)+1;
无顶56:(无距上次交换5+无距上次交换6=2)*80,NODRAW,COLOR3399FF;
STICKLINE(无距上次交换5+无距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3399FF;
无顶69:(无距上次交换6+无距上次交换9=2)*80,NODRAW,COLOR33FF00;
STICKLINE(无距上次交换6+无距上次交换9=2 ,200 ,120 ,2 ,0 ),COLOR33FF00;
无底总天数:=LLVBARS(L,120);
无底交换次数5:=FLOOR(无底总天数/5);{5}
无底判断5:=IF(无底交换次数5>0,无底交换次数5,0);
无底判定5:=IF(无底判断5-REF(无底判断5,1)>0,无底判断5,0);
无底距上次交换5:=BARSLAST(无底判定5)+1;
无底交换次数6:=FLOOR(无底总天数/6);{6}
无底判断6:=IF(无底交换次数6>0,无底交换次数6,0);
无底判定6:=IF(无底判断6-REF(无底判断6,1)>0,无底判断6,0);
无底距上次交换6:=BARSLAST(无判定6)+1;
无底交换次数9:=FLOOR(无底总天数/9);{9}
无底判断9:=IF(无底交换次数9>0,无底交换次数9,0);
无底判定9:=IF(无底判断9-REF(无底判断9,1)>0,无底判断9,0);
无底距上次交换9:=BARSLAST(无底判定9)+1;
无底56:(无底距上次交换5+无底距上次交换6=2)*80,NODRAW,COLOR3333FF;
STICKLINE(无底距上次交换5+无底距上次交换6=2 ,200 ,120 ,2 ,0 ),COLOR3333FF;
无底69:(无底距上次交换6+无底距上次交换9=2)*80,NODRAW,COLORFFFF00;
STICKLINE(无底距上次交换6+无底距上次交换9=2 ,200 ,120 ,2 ,0 ),COLORFFFF00;
顶转点:=PEAKBARS(1,10,5);
顶总天数:=顶转点;
交换次数5:=FLOOR(顶总天数/5);{5}
判断5:=IF(交换次数5>0,交换次数5,0);
判定5:=IF(判断5-REF(判断5,1)>0,判断5,0);
距上次交换5:=BARSLAST(判定5)+1;
交换次数6:=FLOOR(顶总天数/6);{6}
判断6:=IF(交换次数6>0,交换次数6,0);
判定6:=IF(判断6-REF(判断6,1)>0,判断6,0);
距上次交换6:=BARSLAST(判定6)+1;
交换次数9:=FLOOR(顶总天数/9);{9}
判断9:=IF(交换次数9>0,交换次数9,0);
判定9:=IF(判断9-REF(判断9,1)>0,判断9,0);
距上次交换9:=BARSLAST(判定9)+1;
有未顶56:(距上次交换5+距上次交换6=2)*80,NODRAW,COLOR3399FF;
STICKLINE(距上次交换5+距上次交换6=2 ,0 ,80 ,2 ,0 ),COLOR3399FF;
有未顶69:(距上次交换6+距上次交换9=2)*80,NODRAW,COLOR33FF00;
STICKLINE(距上次交换6+距上次交换9=2 ,0 ,80 ,2 ,0 ),COLOR33FF00;
底转点:=TROUGHBARS(1,10,5);
底总天数:=底转点;
交换次数55:=FLOOR(底总天数/5);{5}
判断55:=IF(交换次数55>0,交换次数55,0);
判定55:=IF(判断55-REF(判断55,1)>0,判断55,0);
距上次交换55:=BARSLAST(判定55)+1;
交换次数66:=FLOOR(底总天数/6);{6}
判断66:=IF(交换次数66>0,交换次数66,0);
判定66:=IF(判断66-REF(判断66,1)>0,判断66,0);
距上次交换66:=BARSLAST(判定66)+1;
交换次数99:=FLOOR(底总天数/99);{9}
判断99:=IF(交换次数99>0,交换次数99,0);
判定99:=IF(判断99-REF(判断99,1)>0,判断99,0);
距上次交换99:=BARSLAST(判定99)+1;
有未底56:(距上次交换55+距上次交换66=2)*80,NODRAW,COLOR3333FF;
STICKLINE(距上次交换55+距上次交换66=2 ,0 ,80 ,2 ,0 ),COLOR3333FF;
有未底69:(距上次交换66+距上次交换99=2)*80,NODRAW,COLORFFFF00;
STICKLINE(距上次交换66+距上次交换99=2 ,0 ,80 ,2 ,0 ),COLORFFFF00;
819200065.gif
|
