股票论坛

标题: 请帮忙做个选股，感谢！ [打印本页]

作者: 方天问 时间: 2016-11-7 16:47
标题: 请帮忙做个选股，感谢！
VAR01:=1;
   VAR02:=1/WINNER(CLOSE);
   VAR03:=MA(CLOSE,13);
   VAR04:=100-ABS((CLOSE-VAR03)/VAR03*100);
   VAR05:=LLV(LOW,75);VAR06:=HHV(HIGH,75);
   VAR07:=(VAR06-VAR05)/100;
   VAR08:=SMA((CLOSE-VAR05)/VAR07,20,1);
   VAR09:=SMA((OPEN-VAR05)/VAR07,20,1);VAR10:=REF(LOW,1);
   VAR11:=SMA(ABS(LOW-VAR10),3,1)/SMA(MAX(LOW-VAR10,0),3,1)*100; VAR12:=EMA(IF(CLOSE*1.2,VAR11*10,VAR11/10),3);
VAR13:=LLV(LOW,38); VAR14:=HHV(VAR12,38);
VAR15:=IF(LLV(LOW,90),1,0); VAR16:=EMA(IF(LOW<=VAR13,(VAR12+VAR14*2)/2,0),3)/618*VAR15;
VARA:=3*VAR08-2*SMA(VAR08,15,1);
   VARB:=3*VAR09-2*SMA(VAR09,15,1);
   VARC:=100-VARB;
   有庄的影子:STICKLINE(VAR16,0,VAR16,1,0),COLORLIRED;
   庄影:VAR16,NODRAW,COLORLIRED;
   新庄:(100-IF(VAR02>5,IF(VAR02<100,VAR02,VAR04-10),0))*VAR01,COLORRED,POINTDOT;
   新庄图标:STICKLINE(1,新庄,100,1,1),COLORRED;
   短线:=MA(WINNER(CLOSE*0.95)*100,3)*VAR01,COLORWHITE,DOTLINE;
   收盘:MEMA((0+VARA)*VAR01,2),COLORRED,LINETHICK1;
   开盘:MEMA((0+VARB)*VAR01,3),COLORGREEN,LINETHICK1;
   {抄底逃顶}
   VAR1控盘:=EMA(EMA(CLOSE,13),13);
   控盘:=(VAR1控盘-REF(VAR1控盘,1))/REF(VAR1控盘,1)*1000;
   控1:=STICKLINE(控盘<0,控盘,0,1,1),COLOR00FF00;
   控2:=STICKLINE(控盘>REF(控盘,1) AND 控盘<0,控盘,0,1,1),COLORFF00FF;
   无庄控盘:=控盘<0;
   控3:=STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF;
   有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
   VAR2控盘:=100*WINNER(CLOSE*0.95);
   控4:=STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00;
   主力出货:=控盘<REF(控盘,1) AND 控盘>0;
   控5:=STICKLINE(VAR2控盘>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF;
   高度控盘:=VAR2控盘>50 AND COST(85)<CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2;
   A101:=CROSS(控盘,0);
   控盘B:=FILTER(IF(A101,1,0),5);
   JJ:=DYNAINFO(11);
   P:=55;S:=8;M11:=3;
   财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK2;
   神:=EMA(财,M11),COLORGREEN,LINETHICK1;
   控6:=DRAWBAND(财,RGB(255,0,0),神,RGB(0,100,50));
   BTJ1:=(C-JJ)/JJ<-0.03;
   BTJ11:=(C-JJ)/JJ<-0.03;
   BTJ12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ<0.005;
   STJ1:=(C-JJ)/JJ>0.005;
   STJ01:=控盘<REF(控盘,1)  AND 控盘>0.5;
   STJ02:=控盘>0;
   BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
   BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;
   BTJ3:=CROSS(财,神) AND  财<-0.3;
   BTJ32:=CROSS(财,神) AND  财<-0.1;
   STJ31:=CROSS(神,财);
   STJ32:=CROSS(神,财) AND  财>1.618;
   BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
   BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
   BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);
   控7:=DRAWTEXT(BTJ81,神,'买'),COLORRED;
   控8:=DRAWTEXT(BTJ811,神*1.2,'庄'),COLORWHITE;
   STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13);
   STJ82:=FILTER(STJ02 AND STJ32 ,13);
   STJ83:=STJ81 AND STJ82;
   控9:=DRAWTEXT(STJ83,神,'顶'),COLOR00FF00;
   DIFF值:=(EMA(CLOSE,8) - EMA(CLOSE,55))*10,COLORRED;
   DEA值:=EMA(DIFF值,3),COLORGREEN;
   庄:=BTJ11 AND BTJ2 AND BTJ3;
   有庄买底:=FILTER(庄,55),COLORWHITE;
   买底:DRAWTEXT(BTJ811 AND BTJ81 AND 收盘<=(15),-45.80,'买底'),COLORLIMAGENTA;
   卖顶:DRAWTEXT(STJ81 AND STJ82 AND 收盘>=(85),104.38,'卖顶'),COLORLIBLUE;
   AT:=IF(CAPITAL=0,AMOUNT/100000000,VOL/CAPITAL*100);
   ATM1:=EMA(AT,5);
   ATM2:=MA(AT,13);
   阶段地量:=AT<REF(LLV(AT,25),1) && ATM1<ATM2;
   地量1:=STICKLINE(阶段地量,0,HHV(V,15),2.21,1),COLORGREEN;
   地量2:=STICKLINE(阶段地量,0,HHV(V,15),2.21,1),COLORGREEN;
   VVOL:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL)COLORWHITE,NODRAW;
   VVOL图标:=STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,-1,-1),COLORLIBLUE;
   VAR2:=REF(LOW,1);
   VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;
   VAR4:=EMA(IF(CLOSE*1.2,VAR3*10,VAR3/10),3);
   VAR5:=LLV(LOW,38);
   VAR6:=HHV(VAR4,38);
   VAR7:=IF(LLV(LOW,90),1,0);
   VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
   DD:=VAR8>5;
   VAR1S:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
   VAR2S:=SMA(ABS(LOW-VAR1S),13,1)/SMA(MAX(LOW-VAR1S,0),10,1);
   VAR3S:=EMA(VAR2S,10);
   VAR4S:=LLV(LOW,33);
   VAR5S:=EMA(IF(LOW<=VAR4S,VAR3S,0),3);
   主力进场:=IF(VAR5S>REF(VAR5S,1),VAR5S,0)*1.1,LINETHICK1,COLORRED;
   进场:STICKLINE(VAR5S>REF(VAR5S,1),0,VAR5S,1,0),COLORRED;
   主力震仓:=IF(VAR5S<REF(VAR5S,1),VAR5S,0),COLORGREEN;
   震仓:STICKLINE(VAR5S<REF(VAR5S,1),0,VAR5S,1,0),COLORGREEN;
   A:=(启动 CROSS 洗盘);
   成交量:=VOL,VOLSTICK,COLORLIBLUE;
   启动5日量:=MA(成交量,5)COLORWHITE;
   洗盘35日量:=MA(成交量,35)COLORYELLOW;
   异动135日量:=MA(成交量,135)COLORMAGENTA;
   AB:=(启动 CROSS 洗盘);
   BB2:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
   主动买:=IF(CLOSE>OPEN,BB2*(HIGH-LOW),IF(CLOSE<OPEN,BB2*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
   主买:主动买/10000,COLORRED,LINETHICK1,NODRAW;
   主动卖:=IF(CLOSE>OPEN,0-BB2*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB2*(HIGH-LOW),0-VOL/2));
   主卖:-主动卖/10000,COLORGREEN,LINETHICK1,NODRAW;
   参与:主买/(主买+主卖),NODRAW,COLORLIBLUE;
   盘比:(主买/主卖),NODRAW,COLORYELLOW;
   量比:DYNAINFO(17),NODRAW,COLORRED;
   买入:=IF((COUNT(DD,2)=2),-20,0)COLORBLACK;
底:IF((CROSS(震仓,主力进场)AND 买入=-20),100,0),STICK,COLORMAGENTA,LINETHICK1;
   底量:DRAWICON(CROSS(震仓,主力进场)AND 买入=-20,-15,5);
   多头量1:=CROSS(REF(启动5日量,0),REF(洗盘35日量,0))COLORRED;
   空头量:=CROSS(REF(洗盘35日量,0),REF(启动5日量,0))COLORLIBLUE;
   多头量2:=CROSS(REF(洗盘35日量,0),REF(异动135日量,0))COLORYELLOW;
   多量1:DRAWTEXT(多头量1,-15,'▲')COLORRED;
   空量:DRAWTEXT(空头量,-16,'▼')COLORLIBLUE;
   多量2:DRAWTEXT(多头量2,-15,'▲')COLORYELLOW;
   底图标1:=STICKLINE(底,0,HHV(V,15),1.23,1),COLORMAGENTA;
   底图标2:=STICKLINE(底,0,HHV(V,15),0.21,1),COLORMAGENTA;
   {有庄庄银}
   V1:=(C*3+H+L)/5*10;V2:=EMA(V1,13)-EMA(V1,34);
   V3:=EMA(V2,5);V4:=2*(V2-V3)*5.5;
   V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;V6:=EMA(3*V5-2*SMA(V5,18,1),5);
   V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;V8:=(INDEXC*2+INDEXH+INDEXL)/4;
   V9:=EMA(V8,13)-EMA(V8,34);
   VA:=EMA(V9,3);VB:=(V9-VA)/2;
   主力动向:=EMA(V4,2),COLORRED;
   机构动向:=EMA(VB,2),COLORMAGENTA;
   主力动向1:=(SLOPE(主力动向,2)>0 AND SLOPE(机构动向,2)>0,主力动向),COLORRED,LINETHICK1;
   主力动向2:=(SLOPE(主力动向,2)<0,主力动向),COLORGREEN,LINETHICK1;
   机构动向1:=(SLOPE(机构动向,2)>0 AND SLOPE(主力动向,2)>0,机构动向),COLORMAGENTA,LINETHICK1;
   机构动向2:=(SLOPE(机构动向,2)<0,机构动向),COLORWHITE,LINETHICK1;
   ZLCM:=EMA(WINNER(CLOSE)*70,3);
   SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
   ZZLKP:=ZLCM/(ZLCM+SHCM)*100;ZZLJJ:=EMA(ZZLKP,89);ZJLRQD:=ZZLKP-ZZLJJ;
   AAA:=EMA(ZJLRQD,1);BBB:=EMA(AAA,5);CCC:=AAA-BBB;
   CCC图标1:=STICKLINE(CCC<REF(CCC,2),CCC,0,2,1), COLOR00FF00;
   CCC图标2:=STICKLINE(CCC>REF(CCC,2),CCC,0,2,1), COLORRED;
   主力资金试盘:=IF(CROSS(AAA,BBB),3,0),STICK,LINETHICK4,COLOR0080FF;
   主力对倒出货:=IF(CROSS(BBB,AAA),-3,0),STICK,LINETHICK4,COLOR00FF00;
   VAR881:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
   VAR82:=SMA(ABS(LOW-VAR881),13,1)/SMA(MAX(LOW-VAR881,0),10,1);
VAR83:=EMA(VAR82,10);
   VAR84:=LLV(LOW,33);
   VAR85:=EMA(IF(LOW<=VAR84,VAR83,0),5);
   惨跌:=STICKLINE(VAR85>REF(VAR85,1),0,VAR85,1,0),COLORGREEN;
   洗盘阴:=STICKLINE(VAR85<REF(VAR85,1) AND C<O,0,VAR85,1,0),COLORLIBLUE;
主力拉升:=STICKLINE(VAR85<REF(VAR85,1),0,VAR85,1,0),COLORLIMAGENTA;
跌:STICKLINE(VAR85>REF(VAR85,1),0,VAR85,1,0),COLORGREEN;
   洗:STICKLINE(VAR85<REF(VAR85,1) AND C<O,0,VAR85,1,0),COLORWHITE;
   拉:STICKLINE(VAR85<REF(VAR85,1),0,VAR85,1,0),COLORRED;
庄出没:=惨跌+洗盘阴+主力拉升;{主力动向之庄出没}
   有庄:DRAWTEXT(主力进场 AND 庄出没 AND 收盘<=(20),-26,'△')COLORGREEN;
   庄银1:=新庄<(90); 庄银2:=新庄>(96.80);
   庄银3:=庄影>(7.02); 庄银4:=庄影<(1.98);
   庄银5:=CROSS(REF(庄银2,0),REF(庄银1,0));{新庄}庄银6:=CROSS(REF(庄银4,0),REF(庄银3,0));{庄影}
   庄银5图标:DRAWTEXT(庄银5,-26,'△')COLORRED;
   庄银6图标:DRAWTEXT(庄银6,-26,'△')COLORLIRED;
   有庄出没:=庄银5 OR 庄出没 OR 庄银6;
   {指标顶底背离}
   DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
   DEA:=EMA(DIFF,9);
   MACD:=2*(DIFF-DEA),COLORSTICK;
   A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
   B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
   A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
   B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
   A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
   B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
   C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
   D101:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
   C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
   D20:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
   C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
   D30:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
   MACD底背离:=IF(B1>0,-0.1,0),COLORRED;
   KDJ底背离:=IF(B2>0,-0.1,0),COLORYELLOW;
   RSI底背离:=IF(B3>0,-0.1,0),COLORYELLOW;
   MACD顶背离:=IF(D101>0,0.1,0),COLORLIGREEN;
   KDJ顶背离:=IF(D20>0,0.1,0),COLORGRAY;
   RSI顶背离:=IF(D30>0,0.1,0),COLORWHITE;
   图示01:DRAWTEXT(FILTERX(B1>0,10),45,'M背离')COLORYELLOW;
   图示02:DRAWTEXT(FILTERX(B2>0,10),35,'K背离')COLORRED;
   图示03:DRAWTEXT(FILTERX(B3>0,10),25,'R背离')COLORYELLOW;
   图示04:DRAWTEXT(FILTERX(D101>0,10),75,'M背离')COLORLIBLUE;
   图示05:DRAWTEXT(FILTERX(D20>0,10),65,'K背离')COLORGREEN;
   图示06:DRAWTEXT(FILTERX(D30>0,10),55,'R背离')COLORGRAY;
   图示07:=STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORRED;
   图示08:=STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORYELLOW;
   图示09:=STICKLINE(MACD<REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORCYAN;
   图示10:=STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORMAGENTA;
   图示11:=STICKLINE(C>0,0,0,50,1),COLORBLUE;
   图示12:=DIFF,COLORGREEN;
   图示13:=DEA,COLORYELLOW;
   强:=IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),COLORRED;
   弱:=IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORMAGENTA;
   MACD多头:=LONGCROSS(DIFF,0,10);
   MACD空头:=LONGCROSS(0,DIFF,10);
   MACD金叉:=CROSS(REF(DIFF,0),REF(DEA,1))AND 收盘<(20);
   MACD死叉:=CROSS(REF(DEA,0),REF(DIFF,0))AND 收盘>(80);
   MACD多头图标1:DRAWTEXT(MACD多头,-6,'M多头')COLORYELLOW;
   MACD空头图标1:DRAWTEXT(MACD空头,104.38,'M空头')COLORLIBLUE;
   MACD金叉图标2:DRAWTEXT(MACD金叉,-36,'M金叉')COLORRED;
   MACD死叉图标2:DRAWTEXT(MACD死叉,124.00,'M死叉')COLORGREEN;
   {多头空头标识}
   空头短线拐点:=短线>=100 AND CROSS(REF(短线,1),REF(短线,0));
   短线拐点图标:DRAWICON(空头短线拐点,93.18,4);
   多头1:=收盘<(0)AND LONGCROSS(REF(收盘,0),REF(收盘,1),20)AND EXIST(买底,1);
   多头2:=收盘<(0)AND LONGCROSS(REF(收盘,0),REF(开盘,1),15)AND EXIST(买底,1);
   多头3:=收盘<(10)AND LONGCROSS(REF(收盘,0),REF(收盘,1),10);
   多头4:=收盘<(20)AND LONGCROSS(REF(收盘,0),REF(开盘,1),5);
   多头5:=收盘<(25)AND LONGCROSS(REF(收盘,0),REF(收盘,1),10);
   多头6:=收盘<(50)AND EXIST(庄银5 OR 庄银6,10)AND LONGCROSS(REF(收盘,0),REF(开盘,1),8);
   空头1:=收盘>(100)AND CROSS(REF(开盘,0),REF(收盘,0));
   空头2:=收盘>(80)AND CROSS(REF(开盘,0),REF(收盘,0));
   多头1标识:DRAWICON(多头1,12,5);
   多头2标识:DRAWICON(多头2,12,5);
   多头3标识:DRAWICON(多头3,-36,17);
   多头4标识:=DRAWICON(多头4,-36,17);
   多头5标识:DRAWICON(多头5,-45.58,11);
   多头6标识:=DRAWICON(多头6,-45.58,11);
   空头1标识:DRAWICON(空头1,102.88,12);
   空头2标识:DRAWICON(FILTER(空头2,5),95,17);
   {KDJ金叉死叉}
   RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
   K:=SMA(RSV,3,1),COLORRED;
   D:=SMA(K,3,1),COLORYELLOW;
   J:=3*K-2*D,COLORMAGENTA,LINETHICK;
   VARK:=K,COLORRED;
   上升K:=IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORRED;
   走平K:=IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORYELLOW;
   下降K:=IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORGREEN;
   VARD1:=D,COLORGREEN;
   上升D:=IF(VARD1>REF(VARD1,1),VARD1,DRAWNULL),COLORRED;
   走平D:=IF(VARD1=REF(VARD1,1),VARD1,DRAWNULL),COLORYELLOW;
   下降D:=IF(VARD1<REF(VARD1,1),VARD1,DRAWNULL),COLORGREEN;
   VARJ:=J,COLORMAGENTA;
   上升J:=IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORRED;
   走平J:=IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORYELLOW;
   下降J:=IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORGREEN;
   N:=9;M1:=3;M2:=3;
   周金叉KDJ线:=CROSS(K>D,K),COLORMAGENTA;
   周死叉KDJ线:=CROSS(K<D,K),COLORCYAN;
   月金叉KDJ线:=CROSS(J>D,J),COLORRED,LINETHICK1;
   月死叉KDJ线:=CROSS(J<D,J),COLORGREEN,LINETHICK1;
   周K:=MA("KDJ.K#WEEK"(N,M1,M2),5),POINTDOT,LINETHICK4,COLORWHITE;
   周D:=MA("KDJ.D#WEEK"(N,M1,M2),5),POINTDOT,LINETHICK4,COLORGREEN;
   周J:=MA("KDJ.J#WEEK"(N,M1,M2),5),POINTDOT,LINETHICK4,COLORRED;
   周金叉1:DRAWTEXT(CROSS("KDJ.K#WEEK"(N,M1,M2),"KDJ.D#WEEK"(N,M1,M2)),14,'K周金叉'),COLORRED;
   周死叉1:DRAWTEXT(CROSS("KDJ.D#WEEK"(N,M1,M2),"KDJ.K#WEEK"(N,M1,M2)),85,'K周死叉'),COLORGREEN;
   月金叉1:DRAWTEXT(CROSS("KDJ.K#MONTH"(N,M1,M2),"KDJ.D#MONTH"(N,M1,M2)),4,'K月金叉'),COLOR0099FF;
   月死叉1:DRAWTEXT(CROSS("KDJ.D#MONTH"(N,M1,M2),"KDJ.K#MONTH"(N,M1,M2)),95,'K月死叉'),COLORLIBLUE;
   周金叉2:=DRAWICON(CROSS("KDJ.K#WEEK"(N,M1,M2),"KDJ.D#WEEK"(N,M1,M2)),14,1),COLORRED;
   周死叉2:=DRAWICON(CROSS("KDJ.D#WEEK"(N,M1,M2),"KDJ.K#WEEK"(N,M1,M2)),83.5,2),COLORGREEN;
   月金叉2:=DRAWICON(CROSS("KDJ.K#MONTH"(N,M1,M2),"KDJ.D#MONTH"(N,M1,M2)),4,1),COLOR0099FF;
   月死叉2:=DRAWICON(CROSS("KDJ.D#MONTH"(N,M1,M2),"KDJ.K#MONTH"(N,M1,M2)),93.5,2),COLORBLUE;
   {散兵坑}
   RSV999:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
   K1999:=SMA(RSV999,3,1);
   D1999:=SMA(K1999,3,1);
   KK999:=INTPART(K1999);
   DD999:=INTPART(D1999);
   风险系数:=KK999+DD999;{变异KD风险系数TFXXS}
   乖离系数:=(风险系数-REF(风险系数,1));{变异KD乖离系数TGLXS:资金流向}
   主力筹码:=EMA(WINNER(CLOSE)*70,3);{主力筹码估算ZLCM}
   散户筹码:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{散户筹码估算SHCM}
   散户套牢:=散户筹码/(主力筹码+散户筹码)*100;{散户套牢筹码系数ZSHTL}
   主力控盘:=主力筹码/(主力筹码+散户筹码)*100;{主力控盘筹码系数ZZLKP}
   散兵坑:=IF(主力控盘<=10,主力控盘,主力控盘),COLORMAGENTA,NODRAW;
   散兵坑图标:STICKLINE(主力控盘<=10,-5,-0.38,1,0),{COLORDD00DD}COLOR0099FF;
   天际:140,COLORRED;
   高山:130,COLORRED;
   地界:-51,COLORRED;
   零轴:0,COLORLIRED;
   高点线:=80,COLORGREEN,DOTLINE;
   低点线:=20,COLORRED,DOTLINE;
   界轴:=100,COLORGREEN;
   辅助线1:-10,COLORLICYAN;
   辅助线2:-20,COLORLICYAN;
   辅助线3:-30,COLORLICYAN;
   辅助线4:-40,COLORLICYAN;
   辅助线5:-50,COLORLICYAN;
   辅助线6:50,DOTLINE,COLORLIBLUE;
   辅助线7:110,COLORRED;
   辅助线8:120,COLORRED;
   D1:=1;
   AA1:=DRAWGBK('个股底部可关注：1、成交量柱(堆)。2、笑脸+紫红色量柱。3、KDJ周金叉。4、收盘战线金叉。5、MACD多头、金叉。6、买底、金手指。','.','.','.','.','.');
   AA1图标:DRAWTEXT_FIX(D1=1,0,0.008,0,AA1),COLOR0099FF,LINETHICK2;

作者: 叶昕 时间: 2016-11-9 17:43
VAR2:=REF(LOW,1);
   VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;
   VAR4:=EMA(IF(CLOSE*1.2,VAR3*10,VAR3/10),3);
   VAR5:=LLV(LOW,38);
   VAR6:=HHV(VAR4,38);
   VAR7:=IF(LLV(LOW,90),1,0);
   VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
   DD:=VAR8>5;
VAR1S:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
   VAR2S:=SMA(ABS(LOW-VAR1S),13,1)/SMA(MAX(LOW-VAR1S,0),10,1);
   VAR3S:=EMA(VAR2S,10);
   VAR4S:=LLV(LOW,33);
   VAR5S:=EMA(IF(LOW<=VAR4S,VAR3S,0),3);
   主力进场:=IF(VAR5S>REF(VAR5S,1),VAR5S,0)*1.1;
   进场:=VAR5S>REF(VAR5S,1);
   主力震仓:=IF(VAR5S<REF(VAR5S,1),VAR5S,0);
   震仓:=VAR5S<REF(VAR5S,1);
买入:=IF((COUNT(DD,2)=2),-20,0);
CROSS(震仓,主力进场)AND 买入=-20;

欢迎光临股票论坛 (http://100000w.com/)