公式网-网站导航


网站搜索:  

公式在线网 发表于2014/12/18 7:35:05

喜欢KDJ的,来个KDJ通道!(飞狐、主图、源码)

{基本面\高送转选股要求}
 //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);

喜欢KDJ的,来个KDJ通道!(飞狐、主图、源码)



网站搜索:  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved. 
公式网-www.gszx.com.cn-股票指标公式网