自從分享了10日資金出入表源碼,有朋友私信能否分享一個“成交量占流通盤百分比”指標。沒啥好說的,安排! 這個分時“成交量占流通盤百分比”幅圖指標只為解決成交量變化監控的問題,請勿作為買賣依據! 成交量占流通盤百分比 VAR1:='分時引用.AAQ#DAY'; VAR2:=IF(HOUR<13,TIME-0929-(HOUR-9)*40,TIME-1180-(HOUR-13)*40); 分時量比:SUM(V,VAR2)/(VAR2)/VAR1,COLORWHITE; 競價金額:=分時引用.競價金額#DAY,NODRAW;{集合競價 單位元}; 競額:競價金額/10000,COLORRED,NODRAW; 競量:=競價金額/OPEN/100; 今量:=SUM(V,0),NODRAW;{今天量能,具體到每分鐘,可用于分時回看} 昨量:=分時引用.昨量#DAY,NODRAW;{昨天量能} 股本Z:=分時引用.股本Z#DAY; 今換手Z:今量*10000/股本Z,LINETHICK2,COLORCYAN; DRAWNUMBER(ISLASTBAR,今換手Z,今換手Z),COLORCYAN; 今昨量比:今量/昨量,LINETHICK2,COLORYELLOW;{今日量能與昨天量能比} DRAWNUMBER(ISLASTBAR,今昨量比,今昨量比),COLORYELLOW; 今開:分時引用.今開#DAY,COLORCYAN,NODRAW; 昨開:分時引用.昨開#DAY,COLORWHITE,NODRAW; 今低:分時引用.今低#DAY,COLORGREEN,NODRAW; LTP:=IF(CAPITAL<100000,100000,CAPITAL); 競價換手率:=競量/LTP*10000; 競價動能:=今開 * 競價換手率,COLORYELLOW,NODRAW; 競價漲停:=分時引用.競價漲停#DAY,COLORWHITE; HL:=MAX(HHV(今換手Z,240),HHV(分時量比,240)); NOTEXT昨量線:1,DOTLINE,LINETHICK1,COLORLIGREEN; NOTEXT活躍線:3,DOTLINE,LINETHICK1,COLORMAGENTA; NOTEXT高潮線:IF(HL>=7,7,DRAWNULL)DOTLINE,LINETHICK1,COLORRED; STICKLINE(CROSS(今昨量比,1),0,HL/2,2,0),COLORRED; DRAWTEXT(CROSS(今昨量比,1),HL/2,' 平量')COLORMAGENTA; STICKLINE(CROSS(今昨量比,2),0,HL/2,2,0),COLORRED; DRAWTEXT(CROSS(今昨量比,2),HL/2,' 倍量')COLORMAGENTA; STICKLINE(CROSS(今昨量比,3),0,HL/2,2,0),COLORRED; DRAWTEXT(CROSS(今昨量比,3),HL/2,' 高量')COLORMAGENTA; V1:=REF(今量,BARSCOUNT(C)-0);{開盤9:30分鐘量能} V5:=REF(今量,BARSCOUNT(C)-5);{開盤前5分鐘量能} V10:=REF(今量,BARSCOUNT(C)-10);{開盤前10分鐘量能} V15:=REF(今量,BARSCOUNT(C)-15);{開盤前15分鐘量能} V30:=REF(今量,BARSCOUNT(C)-30);{開盤前15分鐘量能} 漲停:=分時引用.漲停1#DAY; 首次漲停:=BARSSINCE(H=漲停); 首次漲停前總量:=SUM(V,0)-SUM(V,首次漲停); 首停昨比:首次漲停前總量/昨量,COLORRED,NODRAW;{首次漲停量能與昨天量能比} HS0:=STRCAT('9:25→',STRCAT(CON2STR(競量*10000/FINANCE(46),2),'')); HS1:=STRCAT(' 9:30→',STRCAT(CON2STR(V1*10000/FINANCE(46),2),'')); HS2:=STRCAT(' 9:35→',STRCAT(CON2STR(V5*10000/FINANCE(46),2),'')); HS3:=STRCAT(' 9:40→',STRCAT(CON2STR(V10*10000/FINANCE(46),2),'')); HS4:=STRCAT(' 9:45→',STRCAT(CON2STR(V15*10000/FINANCE(46),2),'')); HS5:=STRCAT(' 10:00→',STRCAT(CON2STR(V30*10000/FINANCE(46),2),'')); HS6:=STRCAT(' 首停→',STRCAT(CON2STR(首次漲停前總量*10000/FINANCE(46),2),'%')); 換手Z:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(HS0,HS1),HS2),HS3),HS4),HS5); DRAWTEXT_FIX(ISLASTBAR,0.0,0.0,0,STRCAT('換手Z(%):',換手Z)),COLORLIRED; LB0:=STRCAT('9:25→',STRCAT(CON2STR(競量/昨量,2),'')); LB1:=STRCAT(' 9:30→',STRCAT(CON2STR(V1/昨量,2),'')); LB2:=STRCAT(' 9:35→',STRCAT(CON2STR(V5/昨量,2),'')); LB3:=STRCAT(' 9:40→',STRCAT(CON2STR(V10/昨量,2),'')); LB4:=STRCAT(' 9:45→',STRCAT(CON2STR(V15/昨量,2),'')); LB5:=STRCAT(' 10:00→',STRCAT(CON2STR(V30/昨量,2),'')); LB6:=STRCAT(' 首停→',STRCAT(CON2STR(首次漲停前總量/昨量,2),'')); LLB:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(LB0,LB1),LB2),LB3),LB4),LB5); DRAWTEXT_FIX(ISLASTBAR,0.0,0.20,0,STRCAT('今昨量比:',LLB)),COLORLIBLUE; 版權聲明:本文內容由互聯網用戶貢獻,該文觀點僅代表作者本人。本站不擁有所有權,不承擔相關法律責任。如發現有侵權/違規的內容, 聯系QQ15101117,本站將立刻清除。 |
|
來自: 昵稱36658425 > 《待分類》