DRAWGBK(1, COLORRGB(180,180,180),COLORRGB(250,250,250),1); {時間} variable:wday[7]=''星期六''; wday[1]:=''星期日''; wday[2]:=''星期一''; wday[3]:=''星期二''; wday[4]:=''星期三''; wday[5]:=''星期四''; wday[6]:=''星期五''; fy:=YEAR; fm:=MONTH; fd:=DAY; wd:=WEEKDAY; p:=SYSPARAM(1); str1:=''今日: ''+NUMTOSTR(fy[p],0)+''年''+NUMTOSTR(fm[p],0)+''月''+NUMTOSTR(fd[p],0)+''日 ''+wday[wd[p]+1]; {指標:-------------------☆功能開關--------------------} {龍虎榜} 主動買入單:=EXTDATA(1); //對應擴展數(shù)據(jù)序號1 主動賣出單:=EXTDATA(2); //對應擴展數(shù)據(jù)序號2 大買手數(shù):=EXTDATA(3); //對應擴展數(shù)據(jù)序號3 大買金額:=EXTDATA(4); //對應擴展數(shù)據(jù)序號4 大賣手數(shù):=EXTDATA(5); //對應擴展數(shù)據(jù)序號5 大賣金額:=EXTDATA(6); //對應擴展數(shù)據(jù)序號6 撤買:=EXTDATA(7); //對應擴展數(shù)據(jù)序號7 撤賣:=EXTDATA(8); //對應擴展數(shù)據(jù)序號8 對敲買單:=EXTDATA(9); //對應擴展數(shù)據(jù)序號9 對敲賣單:=EXTDATA(10); //對應擴展數(shù)據(jù)序號10 上掃單:=EXTDATA(11); //對應擴展數(shù)據(jù)序號11 下掃單:=EXTDATA(12); //對應擴展數(shù)據(jù)序號12 主力資金進出:={(大買金額-大賣金額)}EXTDATA(13)/100000; //對應擴展數(shù)據(jù)序號13 散買:=主動買入單-大買手數(shù); 散賣:=主動賣出單-大賣手數(shù); 差:=(大買手數(shù)-大賣手數(shù))/1000; 大單買均價:=大買金額/(大買手數(shù)*100); 大單賣均價:=大賣金額/(大賣手數(shù)*100); 散戶跟風系數(shù):=散買/(大買手數(shù)*10-大賣手數(shù))*100,LINETHICK;//? 變換:=IF(CLOSE>OPEN,1,-1); 總:=EXTDATA(1)+EXTDATA(2)+EXTDATA(3)+EXTDATA(5); 總1:=V; {趨勢} X_L1:=reverse((3*C+2*O+L+H)/7)+2*wma(wma((3*C+2*O+L+H)/7,1),5); 皓翁:= 3*X_L1-2*sma(X_L1,2,1); yyh1:=IF(C>=皓翁 or O>=皓翁,1,0);//多 yyh2:=IF(C<=皓翁 or O<=皓翁,1,0);//空 yyh3:=O<C;//多 yyh4:=O>C;//空 xL1:=散戶跟風系數(shù)*變換; xL2:=IF(xL1>60,1,IF(xL1<-60,1,0)); xL3:=IF(BARPOS=SYSPARAM(1)&&xL2>0,1,0);//散 xL4:=IF(xL1<31&&xL1>-31&&OPEN<CLOSE,1,IF(xL1>-31&&xL1<31&&OPEN>CLOSE,1,0)); xL5:=IF(BARPOS=SYSPARAM(1)&&xL4>0,1,0);//主 QD:=LBOUND(主動買入單); IF P<QD THEN EXIT; {-----------------【圖解模板】---------------------} DRAWTEXT(BARPOS=SYSPARAM(2),總[p],''★代碼:''+STKLABEL+'' ★名稱:''+STKNAME+'' ★流通盤:''+NUMTOSTR(FINANCE(1)/10000,4)+''(億股)''),PXDN8,align4,COLORBLACK; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n■■大單買:''+NUMTOSTR(大買手數(shù)[p],0)),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n ■■占:''+NUMTOSTR(大買手數(shù)[p]/總[p]*100,0)+''%''),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n ■■大單買均價:''+NUMTOSTR(大單買均價[p],2)+''(元)''),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n■■大單賣:''+NUMTOSTR(大賣手數(shù)[p],0)),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n ■■占:''+NUMTOSTR(大賣手數(shù)[p]/總[p]*100,0)+''%''),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n ■■大單賣均價:''+NUMTOSTR(大單賣均價[p],2)+''(元)''),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n■■散單買:''+NUMTOSTR(散買[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n ■■散單賣:''+NUMTOSTR(散賣[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n■■散戶跟風系數(shù):''+NUMTOSTR(散戶跟風系數(shù)[p]*變換[p],2)+''%''),PXDN6,align4,COLORBLACK; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n ■■大單差:''+NUMTOSTR(差[p],2)+''(萬股)''),PXDN6,align4,Color0C1B16; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n■■對敲買單:''+NUMTOSTR(對敲買單[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n ■■對敲賣單:''+NUMTOSTR(對敲賣單[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n■■撤買:''+NUMTOSTR(撤買[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n ■■撤賣:''+NUMTOSTR(撤賣[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n■■上掃單:''+NUMTOSTR(上掃單[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n ■■下掃單:''+NUMTOSTR(下掃單[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n \n■■主力資金進出:''+NUMTOSTR(主力資金進出[p],2)+''(萬元)''),PXDN6,align4,COLORBLUE; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n \n \n ■■''+str1),PXUP8,align4,COLORBROWN; {柱線} STICKLINE(BARPOS=SYSPARAM(3)-8,0,總[p]*1.02,196,0),SHIFT1,ALIGN2,COLORBLUE; STICKLINE(BARPOS=SYSPARAM(3)-8,0,總[p]*0.99,188,0),SHIFT1,ALIGN2,COLORWHITE; STICKLINE(BARPOS=DATACOUNT,1,主動買入單[p],18,0),COLORRED; STICKLINE(BARPOS=DATACOUNT-3,0,主動賣出單[p],18,0),COLOR8000; STICKLINE(BARPOS=DATACOUNT-6,0,大買手數(shù)[p],18,0),COLORRED; STICKLINE(BARPOS=DATACOUNT-9,0,大賣手數(shù)[p],18,0),COLOR8000; STICKLINE(BARPOS=DATACOUNT-12,0,散買[p],18,0),COLORMAGENTA; STICKLINE(BARPOS=DATACOUNT-15,0,散賣[p],18,0),COLOR8000; DRAWTEXT(BARPOS=DATACOUNT-16,總[p],''散 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-13,總[p],''散 \n買''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-10,總[p],''大 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT -7,總[p],''大 \n買''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT- 4,總[p],''總 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT - 1,總[p],''總 \n買''),PXUP38,align5,COLORBLACK; STICKLINE(BARPOS=SYSPARAM(3)-7,總[p]/2,總[p]/2,238,0),ALIGN2,Color008293;//中線 DRAWTEXT(BARPOS=DATACOUNT-16 and xL3[p],總[p]*0.99,'' \n今日漲跌:散戶所為'' ),PXDN16,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-16 and xL5[p],總[p]*0.99,'' \n今日漲跌:主力所為'' ),PXDN16,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-16&&yyh2[p]&&yyh4[p],總[p]*0.99,''■趨勢: →跌'' ),PXDN8,COLORBLUE;//空 DRAWTEXT(BARPOS=DATACOUNT-16&&yyh1[p]&&yyh3[p],總[p]*0.99,''■趨勢: →漲'' ),PXDN8,COLORRED;//多 換手率:IF(CAPITAL=0,VOL/SUM(VOL,100)*100,VOL/FINANCE(7)),PRECISION2,LINETHICK, |
DRAWGBK(1, COLORRGB(180,180,180),COLORRGB(250,250,250),1); {時間} variable:wday[7]=''星期六''; wday[1]:=''星期日''; wday[2]:=''星期一''; wday[3]:=''星期二''; wday[4]:=''星期三''; wday[5]:=''星期四''; wday[6]:=''星期五''; fy:=YEAR; fm:=MONTH; fd:=DAY; wd:=WEEKDAY; p:=SYSPARAM(1); str1:=''今日: ''+NUMTOSTR(fy[p],0)+''年''+NUMTOSTR(fm[p],0)+''月''+NUMTOSTR(fd[p],0)+''日 ''+wday[wd[p]+1]; {指標:-------------------☆功能開關--------------------} {龍虎榜} 主動買入單:=EXTDATA(1); //對應擴展數(shù)據(jù)序號1 主動賣出單:=EXTDATA(2); //對應擴展數(shù)據(jù)序號2 大買手數(shù):=EXTDATA(3); //對應擴展數(shù)據(jù)序號3 大買金額:=EXTDATA(4); //對應擴展數(shù)據(jù)序號4 大賣手數(shù):=EXTDATA(5); //對應擴展數(shù)據(jù)序號5 大賣金額:=EXTDATA(6); //對應擴展數(shù)據(jù)序號6 撤買:=EXTDATA(7); //對應擴展數(shù)據(jù)序號7 撤賣:=EXTDATA(8); //對應擴展數(shù)據(jù)序號8 對敲買單:=EXTDATA(9); //對應擴展數(shù)據(jù)序號9 對敲賣單:=EXTDATA(10); //對應擴展數(shù)據(jù)序號10 上掃單:=EXTDATA(11); //對應擴展數(shù)據(jù)序號11 下掃單:=EXTDATA(12); //對應擴展數(shù)據(jù)序號12 主力資金進出:={(大買金額-大賣金額)}EXTDATA(13)/100000; //對應擴展數(shù)據(jù)序號13 散買:=主動買入單-大買手數(shù); 散賣:=主動賣出單-大賣手數(shù); 差:=(大買手數(shù)-大賣手數(shù))/1000; 大單買均價:=大買金額/(大買手數(shù)*100); 大單賣均價:=大賣金額/(大賣手數(shù)*100); 散戶跟風系數(shù):=散買/(大買手數(shù)*10-大賣手數(shù))*100,LINETHICK;//? 變換:=IF(CLOSE>OPEN,1,-1); 總:=EXTDATA(1)+EXTDATA(2)+EXTDATA(3)+EXTDATA(5); 總1:=V; {趨勢} X_L1:=reverse((3*C+2*O+L+H)/7)+2*wma(wma((3*C+2*O+L+H)/7,1),5); 皓翁:= 3*X_L1-2*sma(X_L1,2,1); yyh1:=IF(C>=皓翁 or O>=皓翁,1,0);//多 yyh2:=IF(C<=皓翁 or O<=皓翁,1,0);//空 yyh3:=O<C;//多 yyh4:=O>C;//空 xL1:=散戶跟風系數(shù)*變換; xL2:=IF(xL1>60,1,IF(xL1<-60,1,0)); xL3:=IF(BARPOS=SYSPARAM(1)&&xL2>0,1,0);//散 xL4:=IF(xL1<31&&xL1>-31&&OPEN<CLOSE,1,IF(xL1>-31&&xL1<31&&OPEN>CLOSE,1,0)); xL5:=IF(BARPOS=SYSPARAM(1)&&xL4>0,1,0);//主 QD:=LBOUND(主動買入單); IF P<QD THEN EXIT; {-----------------【圖解模板】---------------------} DRAWTEXT(BARPOS=SYSPARAM(2),總[p],''★代碼:''+STKLABEL+'' ★名稱:''+STKNAME+'' ★流通盤:''+NUMTOSTR(FINANCE(1)/10000,4)+''(億股)''),PXDN8,align4,COLORBLACK; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n■■大單買:''+NUMTOSTR(大買手數(shù)[p],0)),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n ■■占:''+NUMTOSTR(大買手數(shù)[p]/總[p]*100,0)+''%''),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n ■■大單買均價:''+NUMTOSTR(大單買均價[p],2)+''(元)''),align4,COLORRED; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n■■大單賣:''+NUMTOSTR(大賣手數(shù)[p],0)),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n ■■占:''+NUMTOSTR(大賣手數(shù)[p]/總[p]*100,0)+''%''),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n ■■大單賣均價:''+NUMTOSTR(大單賣均價[p],2)+''(元)''),PXDN3,align4,Color005200; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n■■散單買:''+NUMTOSTR(散買[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n ■■散單賣:''+NUMTOSTR(散賣[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n■■散戶跟風系數(shù):''+NUMTOSTR(散戶跟風系數(shù)[p]*變換[p],2)+''%''),PXDN6,align4,COLORBLACK; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n ■■大單差:''+NUMTOSTR(差[p],2)+''(萬股)''),PXDN6,align4,Color0C1B16; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n■■對敲買單:''+NUMTOSTR(對敲買單[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n ■■對敲賣單:''+NUMTOSTR(對敲賣單[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n■■撤買:''+NUMTOSTR(撤買[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n ■■撤賣:''+NUMTOSTR(撤賣[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n■■上掃單:''+NUMTOSTR(上掃單[p],0)),PXDN6,align4,COLORMAGENTA; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n ■■下掃單:''+NUMTOSTR(下掃單[p],0)),PXDN6,align4,ColorFF0066; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n \n■■主力資金進出:''+NUMTOSTR(主力資金進出[p],2)+''(萬元)''),PXDN6,align4,COLORBLUE; DRAWTEXT(BARPOS=SYSPARAM(2),總[p],'' \n \n \n \n \n \n \n \n \n \n ■■''+str1),PXUP8,align4,COLORBROWN; {柱線} STICKLINE(BARPOS=SYSPARAM(3)-8,0,總[p]*1.02,196,0),SHIFT1,ALIGN2,COLORBLUE; STICKLINE(BARPOS=SYSPARAM(3)-8,0,總[p]*0.99,188,0),SHIFT1,ALIGN2,COLORWHITE; STICKLINE(BARPOS=DATACOUNT,1,主動買入單[p],18,0),COLORRED; STICKLINE(BARPOS=DATACOUNT-3,0,主動賣出單[p],18,0),COLOR8000; STICKLINE(BARPOS=DATACOUNT-6,0,大買手數(shù)[p],18,0),COLORRED; STICKLINE(BARPOS=DATACOUNT-9,0,大賣手數(shù)[p],18,0),COLOR8000; STICKLINE(BARPOS=DATACOUNT-12,0,散買[p],18,0),COLORMAGENTA; STICKLINE(BARPOS=DATACOUNT-15,0,散賣[p],18,0),COLOR8000; DRAWTEXT(BARPOS=DATACOUNT-16,總[p],''散 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-13,總[p],''散 \n買''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-10,總[p],''大 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT -7,總[p],''大 \n買''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT- 4,總[p],''總 \n賣''),PXUP38,align5,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT - 1,總[p],''總 \n買''),PXUP38,align5,COLORBLACK; STICKLINE(BARPOS=SYSPARAM(3)-7,總[p]/2,總[p]/2,238,0),ALIGN2,Color008293;//中線 DRAWTEXT(BARPOS=DATACOUNT-16 and xL3[p],總[p]*0.99,'' \n今日漲跌:散戶所為'' ),PXDN16,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-16 and xL5[p],總[p]*0.99,'' \n今日漲跌:主力所為'' ),PXDN16,COLORBLACK; DRAWTEXT(BARPOS=DATACOUNT-16&&yyh2[p]&&yyh4[p],總[p]*0.99,''■趨勢: →跌'' ),PXDN8,COLORBLUE;//空 DRAWTEXT(BARPOS=DATACOUNT-16&&yyh1[p]&&yyh3[p],總[p]*0.99,''■趨勢: →漲'' ),PXDN8,COLORRED;//多 換手率:IF(CAPITAL=0,VOL/SUM(VOL,100)*100,VOL/FINANCE(7)),PRECISION2,LINETHICK, |