M1:=5; M2:=10; M3:=20; 成交量:VOL,LINETHICK0; 五日均量:MA(VOL,M1); 十日均量:MA(VOL,M2); 廿日均量:MA(VOL,M3); 預估今日成交量:IF((DYNAINFO(7)=CLOSE), DYNAINFO(38)*DYNAINFO(17),成交量),Color0000FF,LINETHICK0; {如果最新價=收盤價,選五日均量*量比,否則就選成交量} FILLRGN(五日均量,十日均量,五日均量>=十日均量,RGB(255,0,0),五日均量<=十日均量,RGB(0,255,0)); {當五日均量>=十日均量時為紅色飄帶,反之為綠色飄帶} AAA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));{系數(shù)=成交量/((最高價-最低價)*2-絕對值(收盤價-開盤價))} 主買:=IF(CLOSE>OPEN,AAA*(HIGH-LOW),IF(CLOSE<OPEN,AAA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); 主賣:=-IF(CLOSE>OPEN,0-AAA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AAA*(HIGH-LOW),0-成交量/2)); STICKLINE(主買>=主賣,成交量,0,7.5,0),Color0E96A9;{黃色柱表示主力的凈買量} STICKLINE(主買>=主賣,成交量,0,7,0),Color10A7BC;{黃色框2} STICKLINE(主買>=主賣,成交量,0,6,0),Color11B5CC;{黃色框3} STICKLINE(主買>=主賣,成交量,0,5,0),Color13C6DF;{黃色框4} STICKLINE(主買>=主賣,成交量,0,4,0),Color1CD2EC;{黃色框5} STICKLINE(主買>=主賣,成交量,0,2,0),Color39D8EE;{黃色框6} STICKLINE(主買>=主賣,成交量,0,0.5,0),ColorFFFFFF;{黃色框7} STICKLINE(主買<主賣,成交量,0,7.5,0),ColorCA6500;{藍色柱主力的凈賣量} STICKLINE(主買<主賣,成交量,0,7,0),ColorE17100;{藍色框2} STICKLINE(主買<主賣,成交量,0,6,0),ColorF27900;{藍色框3} STICKLINE(主買<主賣,成交量,0,5,0),ColorFF850B;{藍色框4} STICKLINE(主買<主賣,成交量,0,4,0),ColorFF9326;{藍色框5} STICKLINE(主買<主賣,成交量,0,2,0),ColorFFA042;{藍色框6} STICKLINE(主買<主賣,成交量,0,0.5,0),colorFFFF00;{藍色框7} STICKLINE(1>0,0,主買,7.5,0),ColorA200A2;{玫紅柱1} STICKLINE(1>0,0,主買,7,0),ColorB700B7;{玫紅柱2} STICKLINE(1>0,0,主買,6,0),ColorCE00CE;{玫紅柱3} STICKLINE(1>0,0,主買,5,0),ColorE800E8;{玫紅柱4} STICKLINE(1>0,0,主買,4,0),ColorFF00FF;{玫紅柱5} STICKLINE(1>0,0,主買,2,0),ColorFF60FF;{玫紅柱6} STICKLINE(1>0,0,主買,0.5,0),ColorFFD2FF;{玫紅柱7} BBB:=LONGCROSS(成交量,五日均量,4);{全紅柱表示今天的成交量超過五日均量} STICKLINE(BBB,0,成交量,7.5,0),color070084;{全紅柱1} STICKLINE(BBB,0,成交量,7,0),color0000A3;{全紅柱2} STICKLINE(BBB,0,成交量,6,0),color0000B7;{全紅柱3} STICKLINE(BBB,0,成交量,5,0),color0000CD;{全紅柱4} STICKLINE(BBB,0,成交量,4,0),color0000E9;{全紅柱5} STICKLINE(BBB,0,成交量,2,0),color0754E9;{全紅柱6} STICKLINE(BBB,0,成交量,0.5,0),Color68B8FF;{全紅柱7} DL:=FILTER(成交量=LLV(成交量,20),5);{全綠柱表示今天是最近5天的成交量中是20日均量的最低量} STICKLINE(DL,0,成交量,7.5,0),Color006400;{全綠柱1} STICKLINE(DL,0,成交量,7,0),Color007500;{全綠柱2} STICKLINE(DL,0,成交量,6,0),Color008400;{全綠柱3} STICKLINE(DL,0,成交量,5,0),Color009900;{全綠柱4} STICKLINE(DL,0,成交量,4,0),Color00AE00;{全綠柱5} STICKLINE(DL,0,成交量,2,0),Color00BD00;{全綠柱6} STICKLINE(DL,0,成交量,0.5,0),Color8EFF8E;{全綠柱7} DRAWTEXTREL(0,0,'成交量'),COLORYELLOW; {DRAWTEXTREL(600,900,'證券代碼: '+STKLABEL+' 證券名稱: '+STKNAME+''),ColorFFAA00;} {預計今天成交量} 今天成交額:=AMOUNT/10000; 昨天成交額:=REF(今天成交額,1); 交易分鐘數(shù):=if(CURRENTTIME>93000 and CURRENTTIME<150000 and DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT, if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60, if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240); 預測今天:=今天成交額/交易分鐘數(shù)*240; 交易分時:=FRACPART( 交易分鐘數(shù)/60); 剩余分時:=交易分時*60; 剩余秒:=FRACPART( 剩余分時); 剩余秒時:=剩余秒*60; 交易小時:=交易分鐘數(shù)/60 ; {顯示文字} DRAWTEXTABS(125,0,'昨天金額:'+NUMTOSTRN(昨天成交額/10000,2)+'億'),ColorF5FF00,LINETHICK1; DRAWTEXTABS(125,13,'預計今天:'+NUMTOSTRN(預測今天/10000,2)+'億'),COLOR00FFFF,LINETHICK1; DRAWTEXTABS(450,2,'交易時間:'+INTPART(交易小時)+'小時'+NUMTOSTRN(剩余分時,0)+'分 '+NUMTOSTRN(剩余秒時,0)+'秒'+' 已成交金額'+':'+NUMTOSTRN(今天成交額/10000,2)+'億元 '),ColorF5FF00,LINETHICK2,PRECIS2; {柱圖} 圖長度像素:=230*0.5; 昨天圖長度:=230+圖長度像素; 預測今天圖:=(預測今天/昨天成交額)*圖長度像素+230; 目前成交圖:=(今天成交額/昨天成交額)*圖長度像素+230; DRAWRECTABS(230,1,昨天圖長度,9 ,RGB(0,255,150)); DRAWRECTABS(230,13,目前成交圖, 23 ,RGB(255,73,20)); DRAWRECTABS(230,16,預測今天圖,20 ,RGB(255,255,0)); {立柱說明} DRAWRECTREL( 0,140,115,860,RGB(20,20,20)); DRAWRECTREL( 0,140,15,280,RGB(255,255,0)); DRAWTEXTREL(20,140,'主力的凈買量'),COLORYELLOW; DRAWRECTREL( 0,280,15,420,RGB(0,255,255)); DRAWTEXTREL(20,280,'主力的凈賣量'),COLORFFFF00; DRAWRECTREL( 0,420,15,560,RGB(255,25,0)); DRAWTEXTREL(20,420,'超過五日均量'),COLOR0025FF; DRAWRECTREL( 0,560,15,700,RGB(0,255,0)); DRAWTEXTREL(20,560,'低于廿日均量'),COLOR00FF00; DRAWRECTREL( 0,700,15,840,RGB(200,0,200)); DRAWTEXTREL(20,700,'主力外成交量'),COLORFF00FF; |
|