天数共振(大智慧L2公式)
有时很神奇的时间共振。网上下来的,自己做了修改,大家共享吧!——
大智慧L2公式源码: 天数共振 总天数:=HHVBARS(H,90); 交换次数:=FLOOR(总天数/21); 判断:=IF(交换次数>0,交换次数,0); 判定:=IF(判断-REF(判断,1)>0,判断,0); 距上次交换:BARSLAST(判定)+1,linethick0,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,linethick0,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,linethick0,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,linethick0,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,linethick0,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,linethick0,COLORGREEN; STICKLINE(判定55,200,100,2,0),COLORFFF00F; STICKLINE(距上次交换212+距上次交换34+距上次交换55=3 ,200 ,100 ,2 ,0 ),COLORMAGENTA;
通达信源码:
总天数:=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;
(补充说明:原作是赵班长的。希望赵班长修改得更好用一点。2010/1/23){点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |