斋主红进蓝出 有图有码

源码如下：

HH0:=CONST(HHV(H,75));
LL0:=CONST(LLV(L,75));
MM0:=CONST((HH0+LL0)/2);
HL0:=CONST(IF(CONST(C)>=MM0,LL0-(HH0-LL0)*0.2,HH0+(HH0-LL0)*0.2));
HH1:=IF(CONST(C)<MM0,HH0*1.01,HL0);
LL1:=IF(CONST(C)>=MM0,LL0*0.99,HL0);
HL1:=(HH1+LL1)/2,COLORFFFFFF;
STICKLINE("MACD.MACD">0,"MACD.MACD"+HL1,HL1,2.5,1),COLORDD55CC;
STICKLINE("MACD.MACD">0 AND "MACD.MACD">REF("MACD.MACD",1),
"MACD.MACD"+HL1,HL1,2.5,0),COLORDD55CC;
STICKLINE("MACD.MACD"<0,"MACD.MACD"+HL1,HL1,2.5,0),COLOR00D080;
STICKLINE("MACD.MACD"<0 AND "MACD.MACD">REF("MACD.MACD",1),
"MACD.MACD"+HL1,HL1,2.5,1),COLOR00D080;
IF("MACD.DIF">0,HL1*0.975,DRAWNULL),COLOR0000FF,LINETHICK1,CIRCLEDOT;
IF("MACD.DIF">0 AND "MACD.MACD"<0,HL1*0.975,DRAWNULL),COLOR00FFFF,CIRCLEDOT;
IF("MACD.DIF"<0 AND "MACD.MACD">0,HL1*0.975,DRAWNULL),COLORFF0080,CIRCLEDOT;

X1:=(CLOSE+LOW+HIGH)/3;
X2:=EMA(X1,6);
X3:=EMA(X2,5);
VAR2:=EMA(EMA(X1,1),13);
VAR3:=EMA(VAR2,21);
XCLOSE:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);
XOPEN:=EMA((REF(OPEN,1)+REF(XCLOSE,1))/2,3);
TEMPG:=MAX(HIGH,XOPEN);
XHIGH:=EMA(MAX(TEMPG,XCLOSE),3);
TEMP:=MIN(LOW,XOPEN);
XLOW:=EMA(MIN(TEMP,XCLOSE),3);
O1:=IF(XOPEN<XCLOSE,XOPEN,XCLOSE);
C1:=IF(XOPEN<XCLOSE,XCLOSE,XOPEN);
{K线}
STICKLINE(XOPEN>=XCLOSE,XHIGH,XLOW,0,0 ),COLORCYAN;
STICKLINE(XOPEN>=XCLOSE,C1,O1,4,0 ),COLOR990000;
STICKLINE(XOPEN>=XCLOSE,C1,O1,3,0 ),COLORCC0000;
STICKLINE(XOPEN>=XCLOSE,C1,O1,2.5,0 ),COLORFF4400;
STICKLINE(XOPEN>=XCLOSE,C1,O1,1.5,0 ),COLORFF8800;
STICKLINE(XOPEN>=XCLOSE,C1,O1,0.9,0 ),COLORFFCC00;
STICKLINE(XOPEN>=XCLOSE,C1,O1,0.3,0 ),COLORCYAN;
STICKLINE(XOPEN<XCLOSE,XHIGH,XLOW,0,0 ),COLORRED;
STICKLINE(XOPEN<XCLOSE,C1,O1,4,0 ),COLOR000055;
STICKLINE(XOPEN<XCLOSE,C1,O1,3,0 ),COLOR000077;
STICKLINE(XOPEN<XCLOSE,C1,O1,2.5,0 ),COLOR000099;
STICKLINE(XOPEN<XCLOSE,C1,O1,1.5,0 ),COLOR0000BB;
STICKLINE(XOPEN<XCLOSE,C1,O1,0.9,0 ),COLOR0000DD;
STICKLINE(XOPEN<XCLOSE,C1,O1,0.3,0 ),COLOR0000FF;
AC:=CLOSE;
转强:=MA(HIGH,6);
转弱:=MA(LOW,6);
B:=CLOSE*0;
转折线:IF(B=-1,MA(HIGH,6),MA(LOW,6)),LINETHICK2,COLORFFFFFF;
X1Z:=(C+L+H)/3;BB13:=ATAN(EMA(X1Z,13)-REF(EMA(X1Z,13),1))*3.1416*10;
EMA8:=EMA(C,8);DRAWTEXT(FILTER(BB13>1 AND EMA(X1Z,13)>REF(EMA(X1Z,8),1),10),
EMA8,'∠45上升'),COLORWHITE;
压力:MA(REF(HHV(C,30),1),2),COLOR00FF00{,COLOR9DFFFF},LINETHICK2;
支撑:MA(REF(LLV(C,30),1),2),COLORABFF46,LINETHICK2;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;DRAWTEXT(FF1,(LOW* 0.99),'老鼠仓'),COLOR4080FF;
A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
黑马线:=EMA(A51,5);
A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));
DRAWTEXT(CROSS(趋势线,0)AND 黑马线<40,(HIGH* 0.95),'▲大黑马'),COLORYELLOW;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORA6E500;
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),COLOR1880FF;
VAR2Z:=LLV(LOW,27);
VAR3Z:=HHV(HIGH,34);
VAR4Z:=EMA((CLOSE-VAR2Z)/(VAR3Z-VAR2Z)*4,4)*25;
注意买:=IF((VAR4Z<10),80,100);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
超跌:=IF(J<0,10,0);
BDDD:=LLV(J,2)=LLV(J,8);
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,LOW,'短线'),COLOR8000FF;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
AA:=COUNT(CROSS(EMA(C,21),MA(C,8)),30)=1;
BB:=COUNT(CROSS(EMA(C,21),MA(C,60)),30)=1;
CC:=REF(BARSLAST(AA AND BB),1);
DD:=CC AND CROSS(MA(C,8),EMA(C,21));
DRAWLINE(C=HHV(C,60),HHV(H,3),C=HHV(C,30) AND C<HHV(C,45),HHV(HIGH,3),0),COLORYELLOW;
DRAWLINE(HIGH>=HHV(HIGH,30),HIGH,LOW<=LLV(LOW,10),HHV(HIGH,6),0),COLORFFCCCC;
AB:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),COLORYELLOW;
DRAWLINE(LOW<=LLV(LOW,120),LOW,HHV(H,6)<=HHV(H,10),LLV(LOW,6),1),COLORBLUE;
VA11:=HIGH>=HHV(HIGH,60);
V1:=(REF(VA11,1)>0 AND VA11<1);
VA12:=LOW<=LLV(LOW,60);
V2:=REF(VA12,1)>0 AND VA12<1;
CD:DRAWLINE(V2,LOW,V1,LLV(LOW,6),0),COLOR0099FF;
DRAWTEXT(CROSS(CD,C),L*0.98,'注资'),COLORYELLOW;
DRAWICON(CROSS(MA(C,1),MA(C,5)),L,25);
DRAWTEXT(ISLASTBAR,C,'-------现价'),COLORWHITE;
DRAWTEXT(DD,(LOW * 0.96),'←乘风推进'),COLOR80FFFF;
{自动分割画线}
D1:=DRAWLINE(C=HHV(C,60),HHV(H,3),C=HHV(C,30) AND C<HHV(C,45),
HHV(HIGH,3),1);
E1Z:=DRAWLINE(C=LLV(C,60),LOW,C=LLV(C,30) AND C>LLV(C,45),LLV(LOW,3),1),
LINETHICK2;
E1P:DRAWLINE(C=LLV(C,30),LOW,C=LLV(C,10) AND C>LLV(C,22),LLV(LOW,3),1),
LINETHICK1,COLORBLUE;
E1PP:DRAWLINE(C=LLV(C,10),LOW,C=LLV(C,5) AND C>LLV(C,10),LLV(LOW,3),1),
LINETHICK1,COLORRED;
日:=181;昨前:=74;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前),COLORBLUE,LINETHICK3;
H1:=高1-(高1-低1)*0.191,POINTDOT;
H2:=高1-(高1-低1)*0.382,POINTDOT;
H3:=高1-(高1-低1)*0.5,POINTDOT;
H4:=高1-(高1-低1)*0.618,POINTDOT;
H5:=高1-(高1-低1)*0.809,COLORBLUE,POINTDOT;
GJ:=(C+H+L+O)/4;
明日阻力:=L+(GJ-L)+(C-L);
明日支撑:=L+(C-GJ);
KOH:=L>REF(H,1);
KOL:=H<REF(L,1);
HIF:=L>REF(H,BARSLAST(KOH)+1);
NHIF:=L<=REF(H,BARSLAST(KOH)+1);
LIF:=H<REF(L,BARSLAST(KOL)+1);
NLIF:=H>=REF(L,BARSLAST(KOL)+1);
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
RRRSV:=SMA(下档线,3,1);
KKK:=SMA(RRRSV,3,1);
DDDDD:=((3 * RRRSV) - (2 * KKK));
JJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
RSV24:=SMA(JJ12,3,1);
K24:=SMA(RSV24,3,1);
D24:=((3 * RSV24) - (2 * K24));
压力2:=IF(CROSS(D24,DDDDD),HIGH,REF(HIGH,BARSLAST(CROSS(D24,DDDDD)))),COLORFFFFFF;
底部:=LLV(HIGH,30),COLOR00FF00;
今日阻力:REF(明日阻力 , 1),NODRAW;
今日支撑:REF(明日支撑 , 1),NODRAW;
压力位:=IF(ISLASTBAR,压力2,DRAWNULL),NODRAW;
底部位:=IF(ISLASTBAR,底部,DRAWNULL),NODRAW;
STICKLINE(ISLASTBAR ,压力位,压力位,150,0),COLORFFFFFF;
STICKLINE(ISLASTBAR ,底部位,底部位,120,0),COLOR00FF00;
STICKLINE(ISLASTBAR,今日阻力,今日阻力,10,1),COLORAAAAAA;
DRAWTEXT(ISLASTBAR,今日阻力,' 阻力'),COLOR0000FF;
STICKLINE(ISLASTBAR,今日支撑,今日支撑,10,1),COLORAAAAAA;
DRAWTEXT(ISLASTBAR,今日支撑,' 支撑'),COLOR00FF00;
DRAWTEXT(CROSS(VAR2,VAR3),L*0.89,'【玄悟斋主】严格执行纪律,热点+龙头+趋势良好,宁可不做决不做错'),LINETHICK4,COLORYELLOW;

选股公式

多:=EMA(C,3);
空:=EMA(C,5);
均衡:=EMA(空,5);
VARF1C:=COUNT(CROSS(多,均衡),2)=1;
VARF2C:=COUNT(CROSS(空,均衡),2)=1;
主升ZAI:FILTER(VARF1C AND VARF2C,2),LINETHICK2;