%>
{基本面\高送转选股要求}
//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;
{股票教程网-股票公式网站 www.gwgz.net}
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]:='星期五';
fyTT:=YEAR;
fmTT:=MONTH;
fdTT:=DAY;
wdTT:=WEEKDAY;
pTT:=SYSPARAM(1);
str1:=''+'今日: '+NUMTOSTR(fyTT[pTT],0)+'年'+NUMTOSTR(fmTT[pTT],0)+'月'+NUMTOSTR(fdTT[pTT],0)+'日 '+wday[wdTT[pTT]+1];
DRAWTEXTEX(CLOSE,1,1,210,str1),Color888888;DRAWTEXTEX(高送转概念选股=1,100,1,210,'该股具有高送转概念'),Color0000aa;
DRAWTEXTEX(基本面选股=1,1,1,210,str1),Color008888;
N:=13;
无办法:=COST(75)*1;
天份高:=COST(89)*1;
FILLRGN(CLOSE,无办法,天份高),color556633;
你老板1:=EMA(CLOSE,10);
你老板2:=EMA(CLOSE,14);
STICKLINE(你老板1,你老板1,你老板2,1,0),color675756;
你老板3:=EMA(CLOSE,15);
你老板4:=EMA(CLOSE,19);
STICKLINE(你老板3,你老板3,你老板4,1,0),color675756;
你老板5:=EMA(CLOSE,20);
你老板6:=EMA(CLOSE,24);
STICKLINE(你老板5,你老板5,你老板6,1,0),color675756;
你老板7:=EMA(CLOSE,25);
你老板8:=EMA(CLOSE,29);
STICKLINE(你老板7,你老板7,你老板8,1,0),color675756;
你老板9:=EMA(CLOSE,30);
你老板10:=EMA(CLOSE,34);
STICKLINE(你老板9,你老板9,你老板10,1,0),color675756;
你老板11:=EMA(CLOSE,35);
你老板12:=EMA(CLOSE,39);
STICKLINE(你老板11,你老板11,你老板12,1,0),color675756;
你老板13:=EMA(CLOSE,40);
你老板14:=EMA(CLOSE,44);
STICKLINE(你老板13,你老板13,你老板14,1,0),color675756;
你1:=EMA(CLOSE,45);
你2:=EMA(CLOSE,50);
STICKLINE(你1,你1,你2,3,0),color675756;
你CC:=EMA(CLOSE,51);
你DD:=EMA(CLOSE,55);
STICKLINE(你CC,你CC,你DD,3,0),color675756;
你C:=EMA(CLOSE,56);
你D:=EMA(CLOSE,60);
STICKLINE(你C,你C,你D,3,0),color675756;
你3:=EMA(CLOSE,61);
你4:=EMA(CLOSE,65);
STICKLINE(你3,你3,你4,3,0),color675756;
你A:=EMA(CLOSE,66);
你B:=EMA(CLOSE,70);
STICKLINE(你A,你A,你B,3,0),color675756;
你5:=EMA(CLOSE,71);
你6:=EMA(CLOSE,75);
STICKLINE(你5,你5,你6,3,0),color675756;
你7:=EMA(CLOSE,76);
你8:=EMA(CLOSE,80);
STICKLINE(你7,你7,你8,3,0),color675756;
你9:=EMA(CLOSE,81);
你10:=EMA(CLOSE,85);
STICKLINE(你9,你9,你10,3,0),color675756;
老1:=EMA(CLOSE,90);
老2:=EMA(CLOSE,95);
老3:=EMA(CLOSE,100);
老4:=EMA(CLOSE,105);
STICKLINE(老1,老1,老2,4,0),color00BB00;
STICKLINE(老3,老3,老4,4,0),color00BB00;
板1:=EMA(CLOSE,110);
板2:=EMA(CLOSE,115);
板3:=EMA(CLOSE,120);
板4:=EMA(CLOSE,125);
板5:=EMA(CLOSE,130);
STICKLINE(板2,板2,板3,4,0),color0000BB;
STICKLINE(板4,板4,板5,4,0),color0000BB;
超级老板1:=EMA(CLOSE,135);
超级老板2:=EMA(CLOSE,139);
STICKLINE(超级老板1,超级老板1,超级老板2,3,0),color0000BB;
超级老板3:=EMA(CLOSE,140);
超级老板4:=EMA(CLOSE,145);
STICKLINE(超级老板3,超级老板3,超级老板4,5.5,0),colorFF0000;
超级老板11:=EMA(CLOSE,146);
超级老板12:=EMA(CLOSE,150);
STICKLINE(超级老板11,超级老板11,超级老板12,5.5,0),colorFF0000;
超级老板13:=EMA(CLOSE,151);
超级老板14:=EMA(CLOSE,155);
STICKLINE(超级老板13,超级老板13,超级老板14,5.5,0),colorFF0000;
超级老板21:=EMA(CLOSE,156);
超级老板22:=EMA(CLOSE,160);
STICKLINE(超级老板21,超级老板21,超级老板22,5.5,0),colorFF0000;
超级老板23:=EMA(CLOSE,161);
超级老板24:=EMA(CLOSE,165);
STICKLINE(超级老板23,超级老板23,超级老板24,5.5,0),colorFF0000;
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA20:=MA(CLOSE,20);
MA40:=MA(CLOSE,40);
MA60:=MA(CLOSE,60);
MA120:=MA(CLOSE,120);
MA250:=MA(CLOSE,250);
MACD公式坛:EMA((3*CLOSE+O+H+L)/6,20),colorBBBBBB;
你老板祝您:EMA((3*CLOSE+O+H+L)/6,25),colorBBBBBB;
财源广进:EMA((3*CLOSE+O+H+L)/6,30),colorBBBBBB;
会用是个宝:EMA((3*CLOSE+O+H+L)/6,35),colorFF00FF,LINETHICK1;
STICKLINE(CLOSE>=OPEN,LOW,HIGH,0.8,0),colorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,0),colorFF;
STICKLINE(CLOSE<=OPEN,LOW,HIGH,0.8,0),colorFF7700;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),colorFF7700;
J:=0;
K:=0;
DR:=0;BEGIN
J:=J+1;
K:=J;
DR:=DR+SUM(CLOSE,K);
END;
Q:=K*(K+1)/2;
WA:=DR/Q;
X1:=(3*CLOSE+HIGH+LOW+OPEN)/6;
X2:=EMA(X1,10);
X3:=REF(X2,1);
PARTLINE(X2>X3,x2),LINETHICK2,colorFFFF;
PARTLINE(X2<X3,x2),LINETHICK2,color55AA;
月价托:=MA5>MA20 AND MA5>MA10 AND CROSS(MA10,MA20);
DRAWTEXT(月价托 AND CLOSE>COST(60)*1,LOW,'← \n牛了'),colorFFFF;
STICKLINE(月价托,LOW,HIGH,0.5,1),colorFFFF;
STICKLINE(月价托,OPEN,CLOSE,5,1),LINETHICK3,colorFFFF;
趋势线:=3*SMA((CLOSE- LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
DRAWICON(趋势线<=10,L,10),ALIGN5;
DRAWICON(CROSS(趋势线,10),L,12),ALIGN5;
无源码又如何:=(LOW+HIGH+CLOSE*2)/4;
我有图你都死:= MA(无源码又如何,2);
仙人指狗屎:=HHV(我有图你都死,10);
partline(仙人指狗屎<ref(仙人指狗屎,1) or 仙人指狗屎=ref(仙人指狗屎,1),仙人指狗屎),color00ff00;
拐点:=MA(CLOSE,4);
拐点1:=MA(CLOSE,4);
GD1:=REF(COUNT(拐点<=REF(拐点,1),5)=5,1) AND 拐点>REF(拐点,1);
GD2:=REF(COUNT(拐点1<=REF(拐点1,1),5)=5,1) AND 拐点1>REF(拐点1,1);
DRAWICON(GD1,LOW*0.99,8);
{股票教程网-http://cgjcw.net承接通达信软件和公式破解,普通加密破解,完全加密破解,导入密码破解,时间限制破解,公式编写,可按您的要求写公式指标,价格按难度不同报价,有需要可以找我们}