相關標簽:

 

{基本面\高送轉選股要求}
//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]:='星期五';
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);{程序化交易 www.kzuj.com.cn }