編程思路破譯輸出INPUT:M1(5,1,10),M2(10,5,30),M3(20,10,60) 輸出成交量:成交量(手),PRECIS0,線寬為0 輸出成交額:成交額(元)/100000000,PRECIS2,線寬為0 今天成交額賦值:成交額(元)/10000 昨天成交額賦值:1日前的今天成交額 交易分鐘數(shù)賦值:如果CURRENTTIME>93000ANDCURRENT時間(時分)<150000ANDDYNAINFO(7)=CLOSEANDDYNAINF開盤價=成交額(元),返回如果CURRENTTIME<113000,返回(TIMETOT0(CURRENTTIME)-34200)/60,否則返回如果CURRENTTIME>130000,返回(TIMETOT0(CURRENTTIME)-39600)/60,否則返回120,否則返回240 預測今天賦值:今天成交額/交易分鐘數(shù)*240 JE賦值:成交量(手) SJ賦值:如果CURRENTTIME>93000ANDCURRENT時間(時分)<150000,返回如果CURRENTTIME<113000,返回(TIMETOT0(CURRENTTIME)-34200)/60,否則返回如果CURRENTTIME>130000,返回(TIMETOT0(CURRENTTIME)-39600)/60,否則返回120,否則返回240 輸出預測量:如果數(shù)據(jù)位置狀態(tài)=2,返回JE/SJ*240,否則返回JE,COLOR00FFFF,線寬為0 當滿足條件數(shù)據(jù)位置狀態(tài)=2時,在0和預測量位置之間畫柱狀線,寬度為10,1不為0則畫空心柱.,畫綠色,DOTLINE,LAYER7 輸出五日均量:成交量(手)的M1日簡單移動平均,PRECIS2,線寬為1 輸出十日均量:成交量(手)的M2日簡單移動平均,PRECIS2,線寬為1 輸出廿日均量:成交量(手)的M3日簡單移動平均,PRECIS2,線寬為1 輸出預估今日成交量:如果(現(xiàn)價=收盤價),返回市盈(靜)*量比,否則返回成交量/10000,COLOR0000FF,線寬為0,PRECIS2 FILLRGN(五日均量,十日均量,五日均量>=十日均量,自定色,五日均量<=十日均量,自定色) TODAY賦值:"大單動向的DDX"不等于0 特大買入賦值:如果TODAY,返回BIGORDER(1,3),否則返回"DATA@DDE"(4) 特大賣出賦值:如果TODAY,返回BIGORDER(2,3),否則返回"DATA@DDE"(5) 特大凈買賦值:特大買入-特大賣出 大單買入賦值:如果TODAY,返回BIGORDER(1,2)-BIGORDER(1,3),否則返回"DATA@DDE"(6)-"DATA@DDE"(4) 大單賣出賦值:如果TODAY,返回BIGORDER(2,2)-BIGORDER(2,3),否則返回"DATA@DDE"(7)-"DATA@DDE"(5) 大單凈買賦值:大單買入-大單賣出 中單買入賦值:如果TODAY,返回BIGORDER(1,1)-BIGORDER(1,2),否則返回"DATA@DDE"(8)-"DATA@DDE"(6) 中單賣出賦值:如果TODAY,返回BIGORDER(2,1)-BIGORDER(2,2),否則返回"DATA@DDE"(9)-"DATA@DDE"(7) 中單凈買賦值:中單買入-中單賣出 小單買入賦值:如果TODAY,返回1-BIGORDER(1,1),否則返回1-"DATA@DDE"(8) 小單賣出賦值:如果TODAY,返回1-BIGORDER(2,1),否則返回1-"DATA@DDE"(9) 小單凈買賦值:小單買入-小單賣出 總凈賦值:如果特大凈買>0,返回特大凈買,否則返回0+如果大單凈買>0,返回大單凈買,否則返回0+如果中單凈買>0,返回中單凈買,否則返回0+如果小單凈買>0,返回小單凈買,否則返回0 特凈賦值:如果特大凈買>0,返回(特大凈買/總凈)*成交量(手),否則返回0 大凈賦值:如果大單凈買>0,返回(大單凈買/總凈)*成交量(手)+特凈,否則返回0 中凈賦值:如果中單凈買>0,返回(中單凈買/總凈)*成交量(手)+特凈+大凈,否則返回0 小凈賦值:如果小單凈買>0,返回(小單凈買/總凈)*成交量(手)+特凈+大凈+中凈,否則返回0 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為7.5,0不為0則畫空心柱.,COLOR0E96A9 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR10A7BC 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR11B5CC 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR13C6DF 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR1CD2EC 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR39D8EE 當滿足條件成交量>0時,在成交量和0位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFFFF 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為7.5,0不為0則畫空心柱.,COLOR006400 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR007500 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR008400 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR009900 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00AE00 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR00BD00 當滿足條件小凈>0時,在0和小凈位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR8EFF8E 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為7.5,0不為0則畫空心柱.,COLORCA6500 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORE17100 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORF27900 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF850B 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF9326 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFFA042 當滿足條件中凈>0時,在0和中凈位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF00 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為7.5,0不為0則畫空心柱.,COLORA200A2 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLORB700B7 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORCE00CE 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORE800E8 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFF00FF 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLORFF60FF 當滿足條件大凈>0時,在0和大凈位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFD2FF 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為7.5,0不為0則畫空心柱.,COLOR070084 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為7,0不為0則畫空心柱.,COLOR0000A3 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR0000B7 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLOR0000CD 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000E9 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,COLOR0754E9 當滿足條件特凈>0時,在0和特凈位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR68B8FF 交易分時賦值:交易分鐘數(shù)/60的小數(shù)部分 剩余分時賦值:交易分時*60 剩余秒賦值:剩余分時的小數(shù)部分 剩余秒時賦值:剩余秒*60 交易小時賦值:交易分鐘數(shù)/60 DRAWTEXTABS(125,0,'昨天金額：'+NUMTOSTRN(昨天成交額/10000,2)+'億'),COLORF5FF00,線寬為1 DRAWTEXTABS(125,13,'預計今天：'+NUMTOSTRN(預測今天/10000,2)+'億'),COLOR00FFFF,線寬為1 DRAWTEXTABS(450,2,'交易時間：'+交易小時的整數(shù)部分+'小時'+NUMTOSTRN(剩余分時,0)+'分'+NUMTOSTRN(剩余秒時,0)+'秒'+' 已成交金額'+'：'+NUMTOSTRN(今天成交額/10000,2)+'億元'),COLORF5FF00,線寬為2,PRECIS2 DRAWFLAGTEXT(1,成交量(手),'<*T=80FF00*><*收盤價=0000FF*><*P=95*>'+DATESTR(日期)+'\N'+'<*T=E7FFFF*><*收盤價=111100*><*P=95*>'+'成交量 '+成交量+'<*T=E7FFFF*><*收盤價=0000FF*><*P=95*>'+' 成交額'+NUMTOSTRN(成交額*10000,0)+'萬元') 圖長度像素賦值:230*0.5 昨天圖長度賦值:230+圖長度像素 預測今天圖賦值:(預測今天/昨天成交額)*圖長度像素+230 目前成交圖賦值:(今天成交額/昨天成交額)*圖長度像素+230 DRAWRECTABS(230,1,昨天圖長度,9 ,自定色) DRAWRECTABS(230,13,目前成交圖, 23 ,自定色) DRAWRECTABS(230,16,預測今天圖,20 ,自定色) 相對位置上畫矩形 相對位置上畫矩形 DRAWTEXTREL(20,180,'散戶'),COLOR00FF00 相對位置上畫矩形 DRAWTEXTREL(20,320,'中戶'),COLORFFFF00 相對位置上畫矩形 DRAWTEXTREL(20,460,'大戶'),COLORFF00FF 相對位置上畫矩形 DRAWTEXTREL(20,600,'超戶'),COLOR0025FF DRAWTEXTREL(0,0,'成交量'),畫黃色 DRAWTEXTABS(35,0,'《夏衛(wèi)東-自編》'),COLOR0000FF 程序源碼{VOL,VOLSTICK;} INPUT:M1(5,1,10),M2(10,5,30),M3(20,10,60); 成交量:VOL,PRECIS0,LINETHICK0; 成交額:AMOUNT/100000000,PRECIS2,LINETHICK0; {預計今天成交量} 今天成交額:=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; JE:=VOL; SJ:=IF(CURRENTTIME>93000 AND CURRENTTIME<150000, IF(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60, IF(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240); 預測量:IF(BARSTATUS=2,JE/SJ*240,JE),COLOR00FFFF,LINETHICK0; STICKLINE(BARSTATUS=2,0,預測量,10,1),COLORGREEN,DOTLINE,LAYER7; 五日均量:MA(VOL,M1),PRECIS2,LINETHICK1; 十日均量:MA(VOL,M2),PRECIS2,LINETHICK1; 廿日均量:MA(VOL,M3),PRECIS2,LINETHICK1; 預估今日成交量:IF((DYNAINFO(7)=CLOSE), DYNAINFO(38)*DYNAINFO(17),成交量)/10000,COLOR0000FF,LINETHICK0,PRECIS2; {如果最新價=收盤價，選五日均量*量比，否則就選成交量} FILLRGN(五日均量,十日均量,五日均量>=十日均量,RGB(255,0,0),五日均量<=十日均量,RGB(0,255,0)); {當五日均量>=十日均量時為紅色飄帶，反之為綠色飄帶} TODAY:="DDX.DDX"<>0;{判斷是否有正版數(shù)據(jù)} 特大買入:=IF(TODAY,BIGORDER(1,3),"DATA@DDE"(4)); 特大賣出:=IF(TODAY,BIGORDER(2,3),"DATA@DDE"(5)); 特大凈買:=特大買入-特大賣出; 大單買入:=IF(TODAY,BIGORDER(1,2)-BIGORDER(1,3),"DATA@DDE"(6)-"DATA@DDE"(4)); 大單賣出:=IF(TODAY,BIGORDER(2,2)-BIGORDER(2,3),"DATA@DDE"(7)-"DATA@DDE"(5)); 大單凈買:=大單買入-大單賣出; 中單買入:=IF(TODAY,BIGORDER(1,1)-BIGORDER(1,2),"DATA@DDE"(8)-"DATA@DDE"(6)); 中單賣出:=IF(TODAY,BIGORDER(2,1)-BIGORDER(2,2),"DATA@DDE"(9)-"DATA@DDE"(7)); 中單凈買:=中單買入-中單賣出; 小單買入:=IF(TODAY,1-BIGORDER(1,1),1-"DATA@DDE"(8)); 小單賣出:=IF(TODAY,1-BIGORDER(2,1),1-"DATA@DDE"(9)); 小單凈買:=小單買入-小單賣出; 總凈:=IF(特大凈買>0,特大凈買,0)+IF(大單凈買>0,大單凈買,0)+IF(中單凈買>0,中單凈買,0)+IF(小單凈買>0,小單凈買,0); 特凈:=IF(特大凈買>0,(特大凈買/總凈)*VOL,0); 大凈:=IF(大單凈買>0,(大單凈買/總凈)*VOL+特凈,0); 中凈:=IF(中單凈買>0,(中單凈買/總凈)*VOL+特凈+大凈,0); 小凈:=IF(小單凈買>0,(小單凈買/總凈)*VOL+特凈+大凈+中凈,0); STICKLINE(成交量>0,成交量,0,7.5,0),COLOR0E96A9;{黃色柱表示主力的凈買量} STICKLINE(成交量>0,成交量,0,7,0),COLOR10A7BC;{黃色框2} STICKLINE(成交量>0,成交量,0,6,0),COLOR11B5CC;{黃色框3} STICKLINE(成交量>0,成交量,0,5,0),COLOR13C6DF;{黃色框4} STICKLINE(成交量>0,成交量,0,4,0),COLOR1CD2EC;{黃色框5} STICKLINE(成交量>0,成交量,0,2,0),COLOR39D8EE;{黃色框6} STICKLINE(成交量>0,成交量,0,0.5,0),COLORFFFFFF;{黃色框7} STICKLINE(小凈>0,0,小凈,7.5,0),COLOR006400;{綠色柱為散戶的凈買量} STICKLINE(小凈>0,0,小凈,7,0),COLOR007500;{綠柱2} STICKLINE(小凈>0,0,小凈,6,0),COLOR008400;{綠柱3} STICKLINE(小凈>0,0,小凈,5,0),COLOR009900;{綠柱4} STICKLINE(小凈>0,0,小凈,4,0),COLOR00AE00;{綠柱5} STICKLINE(小凈>0,0,小凈,2,0),COLOR00BD00;{綠柱6} STICKLINE(小凈>0,0,小凈,0.5,0),COLOR8EFF8E;{綠柱7} STICKLINE(中凈>0,0,中凈,7.5,0),COLORCA6500;{藍色柱為中戶的凈買量} STICKLINE(中凈>0,0,中凈,7,0),COLORE17100;{藍柱2} STICKLINE(中凈>0,0,中凈,6,0),COLORF27900;{藍柱3} STICKLINE(中凈>0,0,中凈,5,0),COLORFF850B;{藍柱4} STICKLINE(中凈>0,0,中凈,4,0),COLORFF9326;{藍柱5} STICKLINE(中凈>0,0,中凈,2,0),COLORFFA042;{藍柱6} STICKLINE(中凈>0,0,中凈,0.5,0),COLORFFFF00;{藍柱7} STICKLINE(大凈>0,0,大凈,7.5,0),COLORA200A2;{玫紅柱為大戶的凈買量} STICKLINE(大凈>0,0,大凈,7,0),COLORB700B7;{玫紅柱2} STICKLINE(大凈>0,0,大凈,6,0),COLORCE00CE;{玫紅柱3} STICKLINE(大凈>0,0,大凈,5,0),COLORE800E8;{玫紅柱4} STICKLINE(大凈>0,0,大凈,4,0),COLORFF00FF;{玫紅柱5} STICKLINE(大凈>0,0,大凈,2,0),COLORFF60FF;{玫紅柱6} STICKLINE(大凈>0,0,大凈,0.5,0),COLORFFD2FF;{玫紅柱7} STICKLINE(特凈>0,0,特凈,7.5,0),COLOR070084;{紅柱為特戶的凈買量} STICKLINE(特凈>0,0,特凈,7,0),COLOR0000A3;{紅柱2} STICKLINE(特凈>0,0,特凈,6,0),COLOR0000B7;{紅柱3} STICKLINE(特凈>0,0,特凈,5,0),COLOR0000CD;{紅柱4} STICKLINE(特凈>0,0,特凈,4,0),COLOR0000E9;{紅柱5} STICKLINE(特凈>0,0,特凈,2,0),COLOR0754E9;{紅柱6} STICKLINE(特凈>0,0,特凈,0.5,0),COLOR68B8FF;{紅柱7} 交易分時:=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; DRAWFLAGTEXT(1,V,'<*T=80FF00*><*C=0000FF*><*P=95*>'+DATESTR(DATE)+'\N'+'<*T=E7FFFF*><*C=111100*><*P=95*>'+'成交量 '+成交量+'<*T=E7FFFF*><*C=0000FF*><*P=95*>'+' 成交額'+NUMTOSTRN(成交額*10000,0)+'萬元'); {柱圖} 圖長度像素:=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,50,700,RGB(20,20,20)); DRAWRECTREL( 0,140,15,280,RGB(0,255,0)); DRAWTEXTREL(20,180,'散戶'),COLOR00FF00; DRAWRECTREL( 0,280,15,420,RGB(0,255,255)); DRAWTEXTREL(20,320,'中戶'),COLORFFFF00; DRAWRECTREL( 0,420,15,560,RGB(200,0,200)); DRAWTEXTREL(20,460,'大戶'),COLORFF00FF; DRAWRECTREL( 0,560,15,700,RGB(255,25,0)); DRAWTEXTREL(20,600,'超戶'),COLOR0025FF; DRAWTEXTREL(0,0,'成交量'),COLORYELLOW; {DRAWTEXTREL(600,900,'證券代碼: '+STKLABEL+' 證券名稱: '+STKNAME+''),COLORFFAA00;} DRAWTEXTABS(35,0,'《夏衛(wèi)東-自編》'),COLOR0000FF; 風險提示該公式包含未來函數(shù):DYNAINFO |
|
|
