人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

您現(xiàn)在的位置：程序化交易>> 股票公式>> 其他>> 其他軟件公式>>正文內(nèi)容

領(lǐng)漲板塊及個(gè)股排序－飛狐精品[其他軟件公式]

作者：飛狐 來源：cxh99.com 發(fā)布時(shí)間：2012年08月04日 點(diǎn)擊數(shù)： 　【收藏到本網(wǎng)的會(huì)員中心】

相關(guān)標(biāo)簽: 領(lǐng)漲板塊及個(gè)股排序 、 飛狐個(gè)股監(jiān)測指標(biāo) 、 飛狐交易師板塊指數(shù) 、 飛狐最新板塊文件下載 、 通達(dá)信板塊轉(zhuǎn)入飛狐 、 飛狐2012板塊文件下載 、 飛狐板塊及成份股 、 飛狐板塊指標(biāo) 、 飛狐快速建立板塊指數(shù) 、

 

領(lǐng)漲板塊及個(gè)股排序

領(lǐng)漲板塊及個(gè)股排序---飛狐副圖，引用網(wǎng)友bajatje（懶漢）及網(wǎng)友1949提供的指標(biāo)，謝謝懶漢及1949網(wǎng)友
1.板塊指數(shù)需盤中瀏覽、刷新之后，顯示的結(jié)果才是正確的。
2.指標(biāo)公式運(yùn)行錯(cuò)誤，最根本的原因可能是找不到板塊名稱、板塊指數(shù)或自選股數(shù)量少于9個(gè)。
 

{先單獨(dú)建立上面指標(biāo)名為"漲幅引用xx"的指標(biāo)，再建下列指標(biāo)}

{//漲幅引用xx
HH:HIGH;LL:LOW;CC:CLOSE;
A0:DYNAINFO(14)*100;
DD:DATE;
ZDF:(CC/ref(CC,1)-1)*100;
HSH:VOL/IF(CAPITAL>0,CAPITAL,SUM(VOL,120))*100;
//}
///////////////////////////////////////////////////////////


{領(lǐng)漲板塊及個(gè)股排序---飛狐副圖，引用網(wǎng)友bajatje（懶漢）及網(wǎng)友1949提供的指標(biāo)，謝謝懶漢及1949網(wǎng)友}
//////////////////////////////////////////////////////////
INPUT:X(1,1,3);
RQ:=DATE;//取日期
A:=BLKNAME;
HY:=IF(STRFIND(A,',',1)>0,STRLEFT(A,STRFIND(A,',',1)-1),A);//DRAWTEXT(BARPOS=SYSPARAM(2),2,HY); {內(nèi)容來至程序化交易網(wǎng) CXH99.COM}
HYs:=STKCOUNT(HY);
DYZB:=IF(X=1,'漲幅引用xx.ZDF',IF(X=2,'漲幅引用xx.HSH','漲幅引用xx.CC'));
DAS:=DATACOUNT;
D0:=RQ[DAS];//取最后日期
variable:DM[HYs]='',vcp[HYs]=0,vci[HYs]=0,TP=0;
for k=1 to HYs dobegin
DDD:=STKFROMBLK(HY,k);
DM[k]:=DDD;
TMP:=STKINDI(DDD,DYZB,0,6);
TMPD:=STKINDI(DDD,'漲幅引用xx.DD',0,6);
vcp[k]:=TMP[DAS];
vci[k]:=IF(TMPD[DAS]=D0,TMP[DAS],-1000);//去除當(dāng)天停牌股
TP:=TP+IF(vci[k]=-1000,1,0);
end;
PX1:=SORTPOS(vci,1,1,HYs);
KHYS:=HYS-TP,LINETHICK;
BKXS:='當(dāng)前股所屬行業(yè): '+HY+' 包含個(gè)股數(shù)：'+NUMTOSTR(HYs,0);
ZF:=IF(X=3,' 元',' %');
LBS:=IF(X=3,'收盤價(jià)',IF(X=1,'漲跌幅','換手率'));
DRAWTEXT(SYSPARAM(2)=BARPOS,h,BKXS),colorAFFF,ALIGN4;

WZ:=INTPART((SYSPARAM(3)-SYSPARAM(2))/10);
HST:=' \n\n';
kg:=' ';
//
IF KHYS<2 THEN EXIT; {本文來至程序化交易網(wǎng) cxh99.com}
COL1:=HST+kg+' ①'+STKNAMEEX(DM[vci[1]])+' '+numtostr(vcp[vci[1]],2)+ZF+
' ②'+STKNAMEEX(DM[vci[2]])+' '+numtostr(vcp[vci[2]],2)+ZF+
IF(KHYS>3,' ③'+STKNAMEEX(DM[vci[3]])+' '+numtostr(vcp[vci[3]],2)+ZF,'')+
IF(KHYS>4,' ④'+STKNAMEEX(DM[vci[4]])+' '+numtostr(vcp[vci[4]],2)+ZF+' ⑤'+STKNAMEEX(DM[vci[5]])+' '+numtostr(vcp[vci[5]],2)+ZF+'\n'+kg
+' ⑥'+STKNAMEEX(DM[vci[6]])+' '+numtostr(vcp[vci[6]],2)+ZF+' ⑦'+STKNAMEEX(DM[vci[7]])+' '+numtostr(vcp[vci[7]],2)+ZF
+' ⑧'+STKNAMEEX(DM[vci[8]])+' '+numtostr(vcp[vci[8]],2)+ZF+' ⑨'+STKNAMEEX(DM[vci[9]])+' '+numtostr(vcp[vci[9]],2)+ZF
+' ⑩'+STKNAMEEX(DM[vci[10]])+' '+numtostr(vcp[vci[10]],2)+ZF,'');//領(lǐng)先股
COL2:=HST+HST+kg+IF(KHYS>6,' ①'+STKNAMEEX(DM[vci[KHYs]])+' '+numtostr(vcp[vci[KHYs]],2)+ZF+
' ②'+STKNAMEEX(DM[vci[KHYs-1]])+' '+numtostr(vcp[vci[KHYs-1]],2)+ZF+
' ③'+STKNAMEEX(DM[vci[KHYs-2]])+' '+numtostr(vcp[vci[KHYs-2]],2)+ZF+
' ④'+STKNAMEEX(DM[vci[KHYs-3]])+' '+numtostr(vcp[vci[KHYs-3]],2)+ZF+
' ⑤'+STKNAMEEX(DM[vci[KHYs-4]])+' '+numtostr(vcp[vci[KHYs-4]],2)+ZF+'\n'+kg+
' ⑥'+STKNAMEEX(DM[vci[KHYs-5]])+' '+numtostr(vcp[vci[KHYs-5]],2)+ZF+
' ⑦'+STKNAMEEX(DM[vci[KHYs-6]])+' '+numtostr(vcp[vci[KHYs-6]],2)+ZF+
' ⑧'+STKNAMEEX(DM[vci[KHYs-7]])+' '+numtostr(vcp[vci[KHYs-7]],2)+ZF+
' ⑨'+STKNAMEEX(DM[vci[KHYs-8]])+' '+numtostr(vcp[vci[KHYs-8]],2)+ZF+
' ⑩'+STKNAMEEX(DM[vci[KHYs-9]])+' '+numtostr(vcp[vci[KHYs-9]],2)+ZF,'');//滯后股

DRAWTEXT(BARPOS=SYSPARAM(2),h,HST+'領(lǐng)先股：'),COLORred,ALIGN4;
DRAWTEXT(BARPOS=SYSPARAM(2),h,COL1),Colorred,ALIGN4;
DRAWTEXT(BARPOS=SYSPARAM(2),h,HST+HST+HST+'滯后股：'),COLORFF00,ALIGN4; {本文來至CXH99.COM}
DRAWTEXT(BARPOS=SYSPARAM(2),h,HST+COL2
+'\n'+'*********************************************************************************************************************************'),COLORFFFF00,ALIGN4;

//////////////////////////////////////////////////////////////

{指定板塊內(nèi)個(gè)股排序，引用網(wǎng)友bajatje（懶漢）提供的指標(biāo)，謝謝懶漢網(wǎng)友}
bk:='自選股'; //可任意指定版塊，板塊內(nèi)個(gè)股數(shù)需大于9個(gè)
stkSUM:=STKCOUNT(bk);dCOUNT:=DATACOUNT;yygs4:='漲幅引用xx.A0';
variable:dmstr[stkSUM]='',var_px[stkSUM]=0,var_indi[stkSUM]=0;
for k=1 to stkSUM do
begin
dn:=stkfromblk(bk,k);
dmstr[k]:=dn;
temp1:=stkindi(dn,yygs4,0,-1);
var_px[k]:=temp1[dCOUNT];
var_indi[k]:=temp1[dCOUNT];
end;
Num1:=sortpos(var_indi,1,1,stkSUM);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3];dm_max4:=var_indi[4];
dm_max5:=var_indi[5];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8]; {本文來至程序化交易網(wǎng) cxh99.com}
max1:=var_px[dm_max1];max2:=var_px[dm_max2];max3:=var_px[dm_max3];
max4:=var_px[dm_max4];max5:=var_px[dm_max5];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
max8:=var_px[dm_max8];
DRAWTEXT(BARPOS=SYSPARAM(2),100,hst+hst+hst+hst+hst+hst+'自選前排序%'+'['+STKNAMEEX(dmstr[dm_max1])+''+NUMTOSTR(max1,2)
+']['+STKNAMEEX(dmstr[dm_max2])+''+NUMTOSTR(max2,2)
+']['+STKNAMEEX(dmstr[dm_max3])+''+NUMTOSTR(max3,2)
+']['+STKNAMEEX(dmstr[dm_max4])+''+NUMTOSTR(max4,2)
+']['+STKNAMEEX(dmstr[dm_max5])+''+NUMTOSTR(max5,2)
+']['+STKNAMEEX(dmstr[dm_max6])+''+NUMTOSTR(max6,2)
+']['+STKNAMEEX(dmstr[dm_max7])+''+NUMTOSTR(max7,2)
+']['+STKNAMEEX(dmstr[dm_max8])+''+NUMTOSTR(max8,2)
+']'),ColorFF99ff,align4;
yygs5:='漲幅引用xx.A0';
variable:dmstr[stkSUM]='',var_px[stkSUM]=0,var_indi[stkSUM]=0;
for k=1 to stkSUM do
begin
dn:=stkfromblk(bk,k);
dmstr[k]:=dn;
temp1:=stkindi(dn,yygs5,0,-1);
var_px[k]:=temp1[dCOUNT];
var_indi[k]:=temp1[dCOUNT];
end;
Num1:=sortpos(var_indi,0,1,stkSUM);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3];dm_max4:=var_indi[4];
dm_max5:=var_indi[5];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8];
max1:=var_px[dm_max1];max2:=var_px[dm_max2];max3:=var_px[dm_max3];
max4:=var_px[dm_max4];max5:=var_px[dm_max5];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
max8:=var_px[dm_max8]; {本文來至程序化交易網(wǎng) cxh99.com}
DRAWTEXT(BARPOS=SYSPARAM(2),h,hst+hst+hst+hst+hst+hst+hst+'自選后排序%'+'['+STKNAMEEX(dmstr[dm_max1])+''+NUMTOSTR(max1,2)
+']['+STKNAMEEX(dmstr[dm_max2])+''+NUMTOSTR(max2,2)
+']['+STKNAMEEX(dmstr[dm_max3])+''+NUMTOSTR(max3,2)
+']['+STKNAMEEX(dmstr[dm_max4])+''+NUMTOSTR(max4,2)
+']['+STKNAMEEX(dmstr[dm_max5])+''+NUMTOSTR(max5,2)
+']['+STKNAMEEX(dmstr[dm_max6])+''+NUMTOSTR(max6,2)
+']['+STKNAMEEX(dmstr[dm_max7])+''+NUMTOSTR(max7,2)
+']['+STKNAMEEX(dmstr[dm_max8])+''+NUMTOSTR(max8,2)
+']'
+'\n'+'===============================================================
=================================================================='),Colorffff,align4;
/////////////////////////////////////////////////////////////////////////
{板塊指數(shù)個(gè)股前8，引用1949網(wǎng)友提供的指標(biāo)，}
BKNAME:='板塊指數(shù)';
STKC:=stkCOUNT(BKNAME);
variable:s=0,ZFSZ[STKC]=0,ZFNAME[10]='',ZFNumber[10]=0; {本文來至CXH99.COM}
for p=1 to stkc do begin
Ty1:=STKFROMBLK(BKNAME,p);
Ty2:=DYNAINFO2(14,ty1)*100;
ZFSZ[p]:=Ty2;
if Ty2>=0 thens:=s+1;
end
NWY:=sortpos(ZFSZ,0,1,stkc);
for p1 =1 to 10 do begin
ZFDM:=STKFROMBLK(BKNAME,ZFSZ[stkc-(p1-1)]);
Te:=stknameex(ZFDM);
ZFNAME[p1]:=strleft(te,strlen(te)-4);
ZFNumber[p1]:=DYNAINFO2(14,ZFDM)*100;
end;
DRAWTEXT(BARPOS=SYSPARAM(2),h,hst+hst+hst+hst+hst+hst+hst+hst+hst+ZFNAME[1]+'('+ numtostr(stkCOUNT(ZFNAME[1]),0)+ ')' + numtostr(ZFNumber[1],2) + ' ％'
+'\n'+ZFNAME[2]+'('+ numtostr(stkCOUNT(ZFNAME[2]),0)+ ')' +numtostr(ZFNumber[2],2) + ' ％'
+'\n'+ZFNAME[3]+'('+ numtostr(stkCOUNT(ZFNAME[3]),0)+ ')' +numtostr(ZFNumber[3],2) + ' ％'
+'\n'+ZFNAME[4]+'('+ numtostr(stkCOUNT(ZFNAME[4]),0)+ ')' +numtostr(ZFNumber[4],2) + ' ％'
+'\n'+ZFNAME[5]+'('+ numtostr(stkCOUNT(ZFNAME[5]),0)+ ')' + numtostr(ZFNumber[5],2) + ' ％'
+'\n'+ZFNAME[6]+'('+ numtostr(stkCOUNT(ZFNAME[6]),0)+ ')' + numtostr(ZFNumber[6],2) + ' ％'
+'\n'+ZFNAME[7]+'('+ numtostr(stkCOUNT(ZFNAME[7]),0)+ ')' + numtostr(ZFNumber[7],2) + ' ％'
+'\n'+ZFNAME[8]+'('+ numtostr(stkCOUNT(ZFNAME[8]),0)+ ')' + numtostr(ZFNumber[8],2) + ' ％'
+'\n'+ZFNAME[9]+'('+ numtostr(stkCOUNT(ZFNAME[9]),0)+ ')' + numtostr(ZFNumber[9],2) + ' ％'
+'\n'+ZFNAME[10]+'('+ numtostr(stkCOUNT(ZFNAME[10]),0)+ ')' + numtostr(ZFNumber[10],2) + ' ％'),color5050ff,align4;
variable:MinZFStr[10]='';
paa:=0;
WHILE Paa<10 do begin
PAA:=Paa+1;
MinStkName:=ZFNAME[paa];
STKNum:=stkCOUNT(MinStkName);
variable:ZF[STKNum]=0;
for p2=1 to stkNum do begin
Ty1:=STKFROMBLK(MinStkName,p2);
Ty2:=if(DYNAINFO2(8,ty1)>0,DYNAINFO2(14,ty1)*100,-10);
ZF[p2]:=Ty2;
end
NWY:=sortpos(ZF,0,1,stkNum );
ub:=if(STKNum>=8,8,STKNum);
for p3 =1 to UB do begin
ZFDM:=STKFROMBLK(MinStkName,ZF[STKNum-(p3-1)]);
Te:=stknameex(ZFDM);
MinZFStr[paa]:=MinZFStr[paa] +'('+Te + numtostr(DYNAINFO2(14,ZFDM)*100,2) +'％'+')'+ ' ';//
end;
end;
DRAWTEXT(BARPOS=SYSPARAM(2),h,hst+hst+hst+hst+hst+hst+hst+hst+hst+' '+MinZFStr[1]
+'\n'+' '+MinZFStr[2] {文章來至程序化交易網(wǎng) cxh99.com}
+'\n'+' '+MinZFStr[3]
+'\n'+' '+MinZFStr[4]
+'\n'+' '+MinZFStr[5]
+'\n'+' '+MinZFStr[6]
+'\n'+' '+MinZFStr[7]
+'\n'+' '+MinZFStr[8]
+'\n'+' '+MinZFStr[9]
+'\n'+' '+MinZFStr[10]),colorff00ff,align4;

 

 

如果以上指標(biāo)公式不適用于您常用的行情軟件

或者您想改編成選股公式，以便快速選出某種形態(tài)個(gè)股的話，

可以聯(lián)系我們相關(guān)技術(shù)人員 QQ: 262069696  點(diǎn)擊在線交流進(jìn)行 有償 改編！

 


【字體：小 大】【打印文章】【查看評(píng)論】

相關(guān)文章

    沒有相關(guān)內(nèi)容
　 主站蜘蛛池模板： 日日操夜夜操免费视频 | 天堂黄色 | 午夜窝窝 | 500福利国产精品导航在线 | 色迷迷网免费站视频在线观看 | 免费看的黄视频 | 久久免费看 | 永久免费毛片 | 福利在线观看视频 | 天天摸天天操 | 亚洲天堂色视频 | 乱人伦中文视频在线 | 国产成人午夜视频 | 日本乱人伦片中文三区 | 成人免费毛片观看 | 国产在线观看一区二区三区四区 | 福利片在线观看免费高清 | 亚洲日比视频 | 91久久线看在观草草青青 | 521a久久九九久久精品 | 午夜在线视频免费观看 | 日本高清不卡码 | 亚洲图片自拍偷拍 | 成人免费一区二区三区在线观看 | 香蕉视频久久 | 水中色av综合 | 1024人成软件色www | 一级毛片在线观看视频 | 国产制服丝袜91在线 | 日本视频二区 | 亚洲欧美视频在线 | 九色综合久久综合欧美97 | 99精品视频免费在线观看 | 国产日韩欧美中文字幕 | 中国嫩模一级毛片 | 午夜草草 | 亚洲国产成人精品一区二区三区 | 亚洲综合在线观看一区www | 亚洲香蕉一区二区三区在线观看 | 欧美性xxx极品 | 激情五月视频 |