相關標簽:

?

INPUT:幾月(1,1,6),牛人(1),進日期(91120,90000,100000),N(1,0,10);
{找股東---------港澳資訊F10用}
股東名稱:='劉芳';{選填要找的股東名稱}
////********//////////
當前月:=MONTH;
季末:=SUMBARS(CROSS(MOD(當前月,3),0.5),1);
VERTLINE(CROSS(MOD(當前月,3),0.5)),LINEDASHDOT,COLOR888888;
當季均價:=MA(C,季末),LINETHICK;
上季均價:=REF(當季均價,季末),LINETHICK;
估算成本:=上季均價*(10-0.618)/10,LINETHICK;
季均漲幅:=(HHV(當季均價,季末)-上季均價)/上季均價*100,LINETHICK;
月均價:=MA(C,SUMBARS(當前月<>REF(當前月,1),1)),LINETHICK0;
上月均價:=REF(月均價,SUMBARS(當前月<>REF(當前月,1),1)),LINETHICK0;
PARTLINE(上月均價=REF(上月均價,1),月均價),COLORFFFFFF,LINETHICK2;
PARTLINE(上月均價=REF(上月均價,1),上月均價),COLORFFFFFF,LINETHICK1;
PARTLINE(上季均價=REF(上季均價,1),當季均價),COLORFFBB88,LINETHICK1;
PARTLINE(上季均價=REF(上季均價,1),上季均價),COLORFFBB88,LINETHICK1;;
PARTLINE(估算成本=REF(估算成本,1),估算成本),COLORccaaaa,LINETHICK1;;
KLINE(O,H,L,C,0);
{綜合評級---------港澳資訊F10用}
{評級說明：
評級系數: 1.0=買入 2.0=增持 3.0=中性 4.0=減持 5.0=賣出
綜合評級指數：1.00~1.09買入； 1.10~2.09增持；2.10~3.09中性；3.10~4.09減持；4.10~5.00賣出。}
股票名稱:=STKNAME;
股票代碼:=STKLABEL;
{【高管買賣本公司股票情況】---------港澳資訊F10用}
起0:=F10FIND('【1.高管買賣本公司股票情況】',1);
起:=F10FIND('最近一年',起0+20);
止:=F10FIND('【2.高管列表】',起);
起止2:=F10TEXT(起,止-起);
找職務:=STRFIND(起止2,'職務',1),LINETHICK0 ;
無數據:=STRFIND(起止2,'無數據',1),LINETHICK0 ;
IF 找職務>0 AND 無數據=0 THEN BEGIN
起1:=F10FIND('├───┼────┼────┼────┼───┼─────┼──────┤',起+20);
起｜1:=F10FIND('｜',起1);
起｜2:=F10FIND('｜',起｜1+2);
起｜3:=F10FIND('｜',起｜2+2);
起｜4:=F10FIND('｜',起｜3+2);
起｜5:=F10FIND('｜',起｜4+2);
起｜6:=F10FIND('｜',起｜5+2);
起｜7:=F10FIND('｜',起｜6+2);
起｜8:=F10FIND('｜',起｜7+2);
姓名:=LTRIM(RTRIM(F10TEXT(起｜1+2,起｜2-起｜1-2)));
IF STRCMP(姓名,'姓名')<>0 THEN BEGIN
職務:=RTRIM(F10TEXT(起｜2+2,起｜3-起｜2-2));
變動數:=RTRIM(F10TEXT(起｜3+2,起｜4-起｜3-2));
變動后:=RTRIM(F10TEXT(起｜4+2,起｜5-起｜4-2));
變動均價:=RTRIM(F10TEXT(起｜5+2,起｜6-起｜5-2));
變動日期:=RTRIM(F10TEXT(起｜6+2,起｜7-起｜6-2));
變動原因:=RTRIM(F10TEXT(起｜7+2,起｜8-起｜7-2));
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,10,' 【'+股票代碼+股票名稱+'高管買賣本公司股票情況】 ' ),COLOR9999FF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,100,'姓名 職務 變動數 變動后 變動均價 變動日期 變動原因 ' ),COLORFFFFFF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,180, 姓名+' '+職務+變動數+'(股)'+變動后+'(股)'+' ' +變動均價+' ' +變動日期+' ' +變動原因),COLORFFFFFF;
年0:=STRFIND(變動日期,'-',1);
年:=STRTONUM(STRLEFT(變動日期,年0-1))*10000-20000000;
月0:=STRFIND(變動日期,'-',5);
月:=STRTONUM(STRMID(變動日期,月0+1,2))*100;
日0:=STRRIGHT(變動日期,2);
日:=STRTONUM(日0);
最近進出日期:(年+月+日),COLORAAAAAA,LINETHICK0;
找最近進日期:IF(STRTONUM(變動數)>0,(年+月+日),0),COLORFFFFFF,LINETHICK0;{選股或排序,選股時選大于日期,如選大于2009年11月20日就填大于91120}
PARTLINE(最近進出日期+1000000<DATE,STRTONUM(變動均價)),COLOR9999FF,LINETHICK2;
;END;END;
PJ起點:=F10FIND('┌────┬───────────┬──────────────┐｜ ｜ 綜合評級 ｜ 評級分布 ｜',1);
PJ止點:=F10FIND('└────┴────┴──────┴──┴──┴──┴──┴──┘',PJ起點);
PJ起止:=F10TEXT(PJ起點,PJ止點-PJ起點);
前或內:=IF(幾月=1,'內','前');
時間段:=NUMTOSTR(幾月,0)+'月'+前或內;{}
時間:=F10FIND(時間段,1);
PJ找到│1:=F10FIND('｜',時間);
PJ找到│2:=F10FIND('｜',PJ找到│1+3);
PJ找到│3:=F10FIND('｜',PJ找到│2+3);
PJ找到│4:=F10FIND('｜',PJ找到│3+2);x1:=F10FIND('市場關注度排名',1);
x2:=F10FIND('說明：關注度是基于機構研究報告以及各大財經網站個股關注數據經過計算得出。
',x1);
z1:=IF(x1>1,F10TEXT(x1,x2-x1),'');
t1:=F10FIND('第',x1);
t2:=F10FIND('位 較前日',T1);
z2:=F10TEXT(T1+2,T2-T1-4);
綜合評級指數:=LTRIM(F10TEXT(PJ找到│2+2,PJ找到│3-PJ找到│2-2));
綜合評級:STRTONUM(LTRIM(F10TEXT(PJ找到│1+2,PJ找到│2-PJ找到│1-2))),LINETHICK;{越小越好}
空格:=' ';
《》:=' 【 投 資 評 級 】';
評級說明:=IF( 綜合評級=0,《》+'\n \n '+股票代碼+空格+股票名稱+空格+時間段+空格+'沒有評級',
《》+'\n \n '+股票代碼+' '+股票名稱+' '+時間段+' '+
'綜合評級 '+NUMTOSTR(綜合評級,2)+' (越小越好) '+' '+'綜合評級指數 '+綜合評級指數) ;
DRAWTEXTEX(綜合評級>0 OR X1>0,1,10,480,評級說明+'\n \n '+z1),COLOR66ccff;
起點0:=F10FIND('本欄包括【1.控股股東與實際控制人】【2.股東變化】【3.基金持股】',1);
起點:=F10FIND('【2.股東變化】',起點0+20);
止點:=F10FIND('──────────────┴─────┴─────┴────┴─────',起點);
起止:=F10TEXT(起點,止點-起點);
【】:=STRFIND(起止,股東名稱,1);
IF 【】=0 THEN BEGIN EXIT;END;
DRAWTEXTEX(【】>0,1,10,270,' 牛 人 持 股 情 況'),COLOR00FFFF;
找到股東:=F10FIND(股東名稱,1);
找到│1:=F10FIND('｜',找到股東);
找到│2:=F10FIND('｜',找到│1+3);
找到│3:=F10FIND('｜',找到│2+3);
找到│4:=F10FIND('｜',找到│3+2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
比例:=STRTONUM(F10TEXT(找到│2+2,找到│3-找到│2));
進出:=SUM(V,季末)/100000*比例*季均漲幅/100;
狀態:=LTRIM(F10TEXT(找到│4+2,0));
IF STRTONUM(狀態)<>0 THEN BEGIN 增或減:=IF(STRTONUM(狀態)>0,'增持','減持');END;
該股東持（萬）股:STRTONUM(持股),LINETHICK;{用排序法}
DRAWTEXTEX(該股東持（萬）股>0,1,10,360,'上季末'+股東名稱+'持有'+' '+股票代碼+' '+股票名稱
+持股+'（萬）股,'+''+'占流通股比(%)'+' '+NUMTOSTR(比例,2)+' '+'\n \n季均價漲跌幅 '+NUMTOSTR(季均漲幅,2)+
' 上季'+增或減+' '+狀態+' 本季可能出 '+NUMTOSTR(進出,2)+'（萬）股'),COLORFFCCDF;{選股選擇}
牛人持股:該股東持（萬）股>牛人,LINETHICK0;
高管進:找最近進日期>=進日期,LINETHICK0;
機構評級:綜合評級<=N,LINETHICK0;
市場關注度排名:STRTONUM(Z2),LINETHICK0;{可用于排序}{將以下所有文字復制粘貼到參數精靈里******【選擇選股參數】*********
牛人(在原碼里修改股東名稱) Param#2 (選擇0或1)
選擇高管進貨日期 Param#3
(例如要選擇2009年11月20日后的日期,就填 91120)
評 級 時 間 段:Param#1 月(1月內或幾月前)
綜 合 評 級: Param#4 (越小越好,最小是1)在下面選擇選股指標線
}

{程序化交易 www.kzuj.com.cn }

{程序化交易 www.kzuj.com.cn }

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?