打印本文
關閉窗口
相關標簽:
?
說明：不是飛狐系統平時顯示的又長又臭的“所屬板塊”，而是自定義的股票所屬證監會行業板塊！比如：電力、房地產……等。
?
原理解析：
源碼：
?
{漲停價、跌停價（支持ST、*ST、S股）}
AA1:=STRFIND(STKNAME,'S',0)=0;
gws:=FRACPART(ref(c,1)*IF(AA1,10,5));
qz:=INTPART(ref(c,1)*IF(AA1,10,5))/100;
漲停價:=ref(c,1)+qz+if(gws>0.4,0.01,0),COLORRED,LINETHICK;
跌停價:=ref(c,1)-qz-if(gws>0.4,0.01,0),COLORGREEN,LINETHICK;
DRAWTEXTEX(C,0,410,0,'▲漲停價:'+數字轉化為字符串(漲停價,2)),COLORRED;
DRAWTEXTEX(C,0,410,10,'▼跌停價:'+數字轉化為字符串(跌停價,2)),COLORGREEN;
DRAWTEXTEX(CLOSE,1,1,0,'上漲:'+NUMTOSTR(INDEXADV,0)+'家'),COLOR0066FF;
DRAWTEXTEX(CLOSE,1,80,0,' 下跌:'+NUMTOSTR(INDEXDEC,0)+'家'),COLOR99FF99;
DRAWTEXTEX(CLOSE,1,160,0,' 平盤:'+NUMTOSTR(PINGPAN,0)+'家'),COLOREEEEEE;
DRAWTEXTEX(c,1,1,60,'所屬板塊:'+STRLEFT(BLKNAME,STRFIND(BLKNAME,',',1)-1)+'\n'+'流通股:'+NUMTOSTR(FINANCE(7)/10000,2)+'億'+'\n'+'流通比:'+NUMTOSTR(FINANCE(7)/FINANCE(1)*100,0)+'%'+'\n'+'股收益:'+NUMTOSTR(FINANCE(33),3)+'元'+'\n'+'市盈率:'+NUMTOSTR(DYNAINFO(39),0)+'\n'+'凈資產:'+NUMTOSTR(FINANCE(34),2)+'元'+'\n'+'主營收:'+NUMTOSTR(FINANCE(20)/10000,2)+'億'+'\n'+'上市:'+NUMTOSTR(REF(YEAR,(BARSCOUNT(CLOSE) - 1)),0)+ '(' + NUMTOSTR(BARSCOUNT(C),0 )+')'+'\n'+'更新:'+ NUMTOSTR(FINANCE( 0),0 )+'\n'),ALIGN4,colorCCFFCC;
DRAWTEXTEX(C,1,480,960,'歷史最高價:'+NUMTOSTR(hhv(h,datacount),2)+'('+NUMTOSTR((C-hhv(H,datacount))/hhv(H,datacount)*100,0)+'%)'),COLORFFCC00;
DRAWTEXTEX(C,1,480,1000,'歷史最低價:'+NUMTOSTR(llv(l,datacount),2)+'('+NUMTOSTR((C-llv(L,datacount))/llv(L,datacount)*100,0)+'%)'),COLORFFCC00;
DRAWTEXTEX(C,1,650,960,'年內最高價:'+NUMTOSTR(HHV(H,250),2)+'('+NUMTOSTR((C-hhv(H,250))/hhv(H,250)*100,0)+'%)'),COLOR99FF66;
DRAWTEXTEX(C,1,650,1000,'年內最低價:'+NUMTOSTR(LLV(L,250),2)+'('+NUMTOSTR((C-llv(L,250))/llv(L,250)*100,0)+'%)'),COLOR99FF66;
DRAWTEXTEX(C,1,820,960,'半年最高價:'+NUMTOSTR(HHV(H,120),2)+'('+NUMTOSTR((C-hhv(H,120))/hhv(H,120)*100,0)+'%)'),COLORFFCC00;
DRAWTEXTEX(C,1,820,1000,'半年最低價:'+NUMTOSTR(LLV(L,120),2)+'('+NUMTOSTR((C-llv(L,120))/llv(L,120)*100,0)+'%)'),COLORFFCC00;
DRAWTEXTEX(C,1,310,960,'所見最高價:'+NUMTOSTR(SYSPARAM(4),2)+'('+NUMTOSTR((C-SYSPARAM(4))/SYSPARAM(4)*100,0)+'%)'),COLOR99FF66;
DRAWTEXTEX(C,1,310,1000,'所見最低價:'+NUMTOSTR(SYSPARAM(5),2)+'('+NUMTOSTR((C-SYSPARAM(5))/SYSPARAM(5)*100,0)+'%)'),COLOR99FF66;
{來源:www.kzuj.com.cn 程序化交易}
?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?