日线龙虎榜[可移动]飞狐指标源码
0
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(9);
券商:=EXTDATA(10);
大户:=EXTDATA(11);
中户:=EXTDATA(12);
散户:=EXTDATA(13);
机金额:=机构*c;
券金额:=券商*c;
大金额:=大户*c;
中金额:=中户*c;
散金额:=散户*c;
主力资金进出:=(机构+券商+大户)*100/100000;
机构均价:=机金额/机构;
券商均价:=券金额/券商;
大户均价:=大金额/大户;
中户均价:=中金额/中户;
散户均价:=散金额/散户;
大盘散户:=EXTDATA(8);
散户跟风系数:=(散户+中户)/(机构+券商+大户)*100,LINETHICK;
变换:=IF(CLOSE>OPEN,1,-1);
总:=机构+券商+大户+中户+散户;
总1:=机构+券商+大户;
总2:=IF(总>0,总,总*-1);
{趋势}
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:=散户跟风系数*变换;
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(EXTDATA(9));
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(机构[p],0)),align4,COLORRED;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n ■■占：'+NUMTOSTR(机构[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(券商[p],0)),PXDN3,align4,Color005200;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n ■■占：'+NUMTOSTR(券商[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],2)+'(元)'),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n■■中户：'+NUMTOSTR(中户[p],0)+''),PXDN6,align4,COLORBLACK;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n ■■均价：'+NUMTOSTR(中户均价[p],2)+'(元)'),PXDN6,align4,COLORBLACK;
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],2)+'(元)'),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n■■委买总量：'+NUMTOSTR(总2[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n ■■散户跟风系数：'+NUMTOSTR(散户跟风系数[p]*变换[p],2)+' %'),PXDN6,align4,ColorFF0066;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n■■主力净买：'+NUMTOSTR(总1[p],0)),PXDN6,align4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2),总[p],' \n \n \n \n \n \n \n \n ■■流通比：'+NUMTOSTR(总1[p]/FINANCE( 7),2)),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),COLORRED;
STICKLINE(BARPOS=DATACOUNT-6,0,券商[p],18,0),COLOR8000;
STICKLINE(BARPOS=DATACOUNT-9,0,大户[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,COLORGREEN;
涨跌幅:(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100,PRECISION2,LINETHICK,COLORYELLOW;
|
