{基本面\高送转选股要求}
//1、具有长期投资价值、且严重超跌。
//2、企业的现金流量良好、动态市盈率小于静态市盈率。
SJV:=C/FINANCE(34)<5 and FINANCE(33)>0.2;
FZL:=FINANCE(11)/FINANCE(15)>1 and C/FINANCE(33)<40;
基本面选股:=sjv and fzl;
aT1:=F10FIND('主要指标:',1);lTt:=FINANCE(7)/10000;gTb:=FINANCE(1)/10000;
cT1:=F10FIND('每股净资产(元)',aT1);
eT1:=F10FIND('每股现金净流量(元)',aT1);
fT1:=F10FIND('每股资本公积金(元)',aT1);
dT1:=F10FIND('每股未分配利润(元)',aT1);
xTj:=STRTONUM(F10TEXT(eT1+20,10));
gTj:=STRTONUM(F10TEXT(fT1+20,10));
jTz:=STRTONUM(F10TEXT(cT1+20,10));
lTr:=STRTONUM(F10TEXT(dT1+20,10));
tTj:=jTz>=5 and gTj>=1 and lTr>=0.5 and xTj>=0.5 and lTt<3 and gTb<10;
高送转概念选股:=tTj;
DRAWTEXTEX(1,1,5,820,'当前光标下共 '+NUMTOSTR(SYSPARAM(3)-SYSPARAM(2)+1,0)+' 棵K线'),COLOR888888;
DRAWTEXTEX(c,1,1,10,'板块:'+BLKNAME),COLOR888888;
DRAWTEXTEX(c,1,1,60,'总股本:'+NUMTOSTR(FINANCE(1)/10000 ,2 )+'亿'+' 流通A股:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+
'每股收益:'+ NUMTOSTR(FINANCE(33),2)+' 市盈率:'+NUMTOSTR(DYNAINFO(39),2)),COLOR888888;
DRAWTEXTEX(c,1,1,110,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 下跌家数:'+NUMTOSTR(INDEXDEC,0)),COLOR888888;
DRAWTEXTEX(c,1,1,160,'五日换手:'+NUMTOSTR(SUM(((VOL/CAPITAL)*100),5),2)+'五日涨跌:'+NUMTOSTR((c-ref(c,5))/ref(c,5)*100,2)+'%'),COLOR888888;
DRAWTEXTEX(基本面选股=1,1,5,820,'当前光标下共 '+NUMTOSTR(SYSPARAM(3)-SYSPARAM(2)+1,0)+' 棵K线'),COLOR008888;
DRAWTEXTEX(基本面选股=1,1,1,10,'板块:'+BLKNAME),COLOR008888;
DRAWTEXTEX(基本面选股=1,1,1,60,'总股本:'+NUMTOSTR(FINANCE(1)/10000 ,2 )+'亿'+' 流通A股:'+ NUMTOSTR(FINANCE(7)/10000,2)+'亿'+
'每股收益:'+ NUMTOSTR(FINANCE(33),2)+' 市盈率:'+NUMTOSTR(DYNAINFO(39),2)),COLOR008888;
DRAWTEXTEX(基本面选股=1,1,1,110,'上涨家数:'+NUMTOSTR(INDEXADV,0)+' 下跌家数:'+NUMTOSTR(INDEXDEC,0)),COLOR008888;
DRAWTEXTEX(基本面选股=1,1,1,160,'五日换手:'+NUMTOSTR(SUM(((VOL/CAPITAL)*100),5),2)+'五日涨跌:'+NUMTOSTR((c-ref(c,5))/ref(c,5)*100,2)+'%'),COLOR008888;
{时间}
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];
DRAWTEXTEX(CLOSE,1,1,210,str1),Color888888;DRAWTEXTEX(高送转概念选股=1,100,1,210,'该股具有高送转概念'),Color0000aa;
DRAWTEXTEX(基本面选股=1,1,1,210,str1),Color008888;
N:=9;M1:=3;M2:=3;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFFFF00;
STICKLINE((OPEN >= CLOSE),HIGH,LOW,0,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,1),color4040FF;
STICKLINE((CLOSE >= OPEN),CLOSE,HIGH,0,0),color4040FF;
STICKLINE((CLOSE >= OPEN),LOW,OPEN,0,0),color4040FF;
HH:=HHV(H,N);
LL:=LLV(L,N);
F:=(HH-LL)/100;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
J:=((3 * K) - (2 * D));
【KDJ日交叉价】:(((((D * 3) - (K * 2)) * (HHV(HIGH,(N - 1)) - LLV(LOW,(N - 1)))) / 100) + LLV(LOW,(N - 1))),LINETHICK0,colorFF00FF;
●K:K*F+LL,color00FFFF;
●D:=D*F+LL;
●j:=3*●k-2*●d;
●21:=21*F+LL;
上轨:sma(sma(hhv(HIGH,9),3,1),3,1),COLOR00FF00,LINEDOT;
下轨: sma(sma(llv(LOW,9),3,1),3,1),COLOR00FF00,LINEDOT;
中轨:=SMA(c,3,1);
趋势: SMA(中轨,3,1),COLORFF00FF;
DRAWICON(CROSS(●J,●21),下轨*0.97,12);
DRAWICON(CROSS(●K,下轨*1.01),下轨*0.96,10);{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
