通达信天数共振源码

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

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