免费股票书籍：实用技术指标公式（图）

昵称8718616 2012-02-04

展开全文

实用技术指标公式（图）
(文章来源：股市马经)

实用指标2：

CODE:[Copy to clipboard]{板块涨跌排名}
PARTLINE(1,0),COLORBLACK;
N:=datacount-SYSPARAM(1);
BK:='板块指数';//'A股板块';
BKS:=STKCOUNT(BK);//板块中的证券数量
HSL:='涨幅.zf';//'涨幅.hs';//指标
TT:='涨幅.rq';//日期定位
DD:=date;//
SS:=DATACOUNT;//
variable:DM1[BKS]='',VarX1[BKS]=0,VarH1[BKS]=0
,DM2[BKS]='',VarX2[BKS]=0,VarH2[BKS]=0
,DM3[BKS]='',VarX3[BKS]=0,VarH3[BKS]=0;//

for i=1 to BKS do begin
D:=STRRIGHT(STKFROMBLK(BK,i),6);//板块中第i个成员的代码
E:=if(STRFIND(bk,'板块指数',0),4,6);

DM1[i]:=strright(D,E);
TMP1:=ref(STKINDI(D,HSL,0,6),N);//板块中第i个成员在最后周期前N天的指标值
TMPP1:=ref(STKINDI(D,TT,0,6),N);//板块中第i个成员在最后周期前N天的日期
tmpPP1:=ref(stkindi('1A0001',tt,0,6),N);//在最后周期前N天大盘的日期
VarX1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);
VarH1[i]:=IF(tmpPP1[ss]=TMPP1[SS],TMP1[SS],0);

DM2[i]:=strright(D,e);
TMP2:=ref(STKINDI(D,HSL,0,6),N+1);//板块中第i个成员在最后周期前N天的指标值
TMPP2:=ref(STKINDI(D,TT,0,6),N+1);//板块中第i个成员在最后周期前N天的日期
tmpPP2:=ref(stkindi('1A0001',tt,0,6),N+1);//在最后周期前N天大盘的日期
VarX2[i]:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);
VarH2[i]:=IF(tmpPP2[ss]=TMPP2[SS],TMP2[SS],0);

DM3[i]:=strright(D,e);
TMP3:=ref(STKINDI(D,HSL,0,6),N+2);//板块中第i个成员在最后周期前N天的指标值
TMPP3:=ref(STKINDI(D,TT,0,6),N+2);//板块中第i个成员在最后周期前N天的日期
tmpPP3:=ref(stkindi('1A0001',tt,0,6),N+2);//在最后周期前N天大盘的日期
VarX3[i]:=IF(tmpPP3[ss]=TMPP3[SS],TMP3[SS],0);
VarH3[i]:=IF(tmpPP3[ss]=TMPP3[SS],TMP3[SS],0);
end;
Nu1:=SORTPOS(VarX1,1,1,BKS);
Nu2:=SORTPOS(VarX2,1,1,BKS);
Nu3:=SORTPOS(VarX3,1,1,BKS);
xss:='';
xs:='';
xsss1:='';
xss1:='';
xsss2:='';
xss2:='';
xsss3:='';
xss3:='';
for j=1 to bks do BEGIN
ff:=if(j=2,' 今天',' ');
ff1:=' ';
ff2:=if(j=2,' 昨天',' ');
ff3:=if(j=2,'前天',' ');
sf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(j,0)+'.';
ssf:=if(j<10,' ',if(j<100,' ',''))+NUMTOSTR(bks-j+1,0)+'.';
xsss1:=xsss1+DM1[VarX1[j]];
aa:=STRLEFT(STKNAMEEX(DM1[VarX1[j]]),8)+'('+DM1[VarX1[j]]+')'+'='
+NUMTOSTR(VarH1[VarX1[j]],3)+'% '+'\n';
XSS1:=XSS1+ff1+ff+sf+aa;
if bks-j<17 then XSS:=ssf+aa+xss;
if j<19 then xs:=xs+sf+aa;
xsss2:=xsss2+DM2[VarX2[j]];
XSS2:=XSS2+ff2+sf+STRLEFT(STKNAMEEX(DM2[VarX2[j]]),8)+'('+DM2[VarX2[j]]+')'+'='
+NUMTOSTR(VarH2[VarX2[j]],3)+'% '+'\n';

xsss3:=xsss3+DM3[VarX3[j]];
XSS3:=XSS3+ff3+sf+STRLEFT(STKNAMEEX(DM3[VarX3[j]]),8)+'('+DM3[VarX3[j]]+')'+'='
+NUMTOSTR(VarH3[VarX3[j]],3)+'% '+'\n';
end;
ee:=if(e=4,3,5);
a3:=STRFIND(xsss3,STKLABEL,0);
前天:tmppp3[datacount],LINETHICK,COLORGREEN;
前排名:=if(a3>0,(a3+ee)/e,0),COLORGREEN,LINETHICK;
涨幅c:=VarH3[VarX3[前排名]],COLORGREEN,LINETHICK;

a2:=STRFIND(xsss2,STKLABEL,0);
昨天:tmppp2[datacount],LINETHICK,COLORYELLOW;
昨排名:=if(a2>0,(a2+ee)/e,0),COLORYELLOW,LINETHICK;
涨幅b:=VarH2[VarX2[昨排名]],COLORYELLOW,LINETHICK;

a1:=STRFIND(xsss1,STKLABEL,0);
今天:tmppp1[datacount],LINETHICK,COLORRED;
今排名:=if(a1>0,(a1+ee)/e,0),COLORRED,LINETHICK;
涨幅a:=VarH1[VarX1[今排名]],COLORRED,LINETHICK;

DRAWTEXT(barpos=SYSPARAM(2),10,xss1);
DRAWTEXT(barpos=SYSPARAM(2),10,xss2);
DRAWTEXT(barpos=SYSPARAM(2),10,xss3);
EXPLAIN(1,'今天'+NUMTOSTR(今天,0)+'\n 涨幅排序前18名\n'+xs),COLORRED;
EXPLAIN(1,'\n跌幅排序前17名\n'+xss),COLORBLUE;

//

附：

千古绝技—从每一波行情中总结出的“相马术” — 作者：逍遥浪子

一个股市精英的选股历程

股市精英的用大把钞票、血与泪换来的千古绝技—从每一波行情中总结出的“相马术”。
1、从过往经验“极端孕育黑马”。
极端：一曰超跌（否极泰来）、一曰强势（强者恒强）。
2、从主力软肋和终极目标：获得超额利润必须在一波上升行情中强于大势，也必然在平均利润基础上开拓一定获利空间，为自身安全撤离留下一定的空间。
第一步：精准把握大势的机会（见拙作——《股市机会把握与策略的抉择》。