VAR1S:=(CLOSE*2+HIGH+LOW)/4;
VAR2S:=(EMA(VAR1S,13)-EMA(VAR1S,34))/EMA(VAR1S,34)*100;
VAR3S:=EMA(VAR2S,5);
控盘:=2*(VAR2S-VAR3S)*3.8;
SA1:= 主力控盘,COLORWHITE,NODRAW;
SA2:=SA1-REF(SA1,1);
SA3:=MA(SA1,3),COLORGREEN;
SAA3:=MA(SA1,7),COLORCYAN;
SAA4:=MA(SA1,13),COLORRED;
MM1:=MA(CLOSE,5);
Q5:(MM1-REF(MM1,1))/REF(MM1,1)*100,NODRAW,COLORMAGENTA;
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-L
OW)),14);
HD2 :=HIGH-REF(HIGH,1);
LD2 :=REF(LOW,1)-LOW;
DMP2:=EXPMEMA(IF(HD2 0 HD2 LD2,HD2,0),14);
DMM2:=EXPMEMA(IF(LD2 0 LD2 HD2,LD2,0),14);
PDI2:=DMP2*100/MTR;
MDI2:=DMM2*100/MTR;
ADX:=EXPMEMA(ABS(MDI2-PDI2)/(MDI2+PDI2)*100,6);
ADXR:=EXPMEMA(ADX,6);
SAA31:=SAA3-REF(SAA3,1);
ADXR12:=MA(ADX,3);
ADXR13:=ADX-ADXR12;
ADXR14:=ADX-ADXR;
ZK2:=ADX
ZK3:=(ADXR 16 ADX
ZK31:=ADXR 20 ADXR
ZK4:=(ADX MDI2 ADXR MDI2 ADX
ZK41:=(ADX PDI2 ADXR PDI2 PDI2 MDI2 ADX 30 ADX REF(ADX,1));
ZK5:=(ZK2 OR ZK3 OR ZK31);
SWQ1:=MAX(ADX,ADXR);
AD1:=ADX-REF(ADX,1);
Y:=(H+O+L+3*C)/6;
X:=EMA(100-(100/(1+SUM(IF(Y REF(Y,1),Y*VOL,0),13)/SUM(IF(Y REF(Y,1),Y*VOL,0),
13))),5),COLOR00FFFF,LINETHICK2;
AA:=30 X,LINETHICK0;
BB:=X 80,LINETHICK0;
VAR1:=(C-MA(C,6))/MA(C,6)*100;
VAR2:=(C-MA(C,24))/MA(C,24)*100;
VAR3:=(C-MA(C,32))/MA(C,32)*100;
VAR4:=(VAR1+VAR2+VAR3)/3;
VAR5:=EMA(VAR4,5);
VAR6:=MA(100*(C-LLV(C,34))/(HHV(H,34)-LLV(L,34)),5)-20;
VAR7:=SMA(SMA(100-3*(C-LLV(C,75))/(HHV(H,75)-LLV(L,75))*100,20,1)+SMA(2*(C-LL
V(C,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1);
VAR8:=VAR7 REF(VAR7,1) AND V REF(V,1) AND C REF(C,1);
K:EMA(VAR5,5)*4;
D:EMA(K,5),NODRAW,COLOR38B0DE;
J:K*3-D*2,NODRAW,COLORCC66FF;
MACD:EMA(EMA(VAR1,5),5)*6,NODRAW,COLORWHITE;
{DRAWBAND(J,RGB(238,238,6),K,RGB(256,150,60));}
DRAWBAND(K,RGB(238,238,6),D,RGB(256,150,60));
按卖:IF(EXIST(Q5 2.5,5),-60,DRAWNULL),LINETHICK7,COLORGREEN;
按短线卖
2:IF(EVERY(Q5 2.5,5) MACD 8,-60,DRAWNULL),LINETHICK7,COLORYELLOW;
按短线买:IF(EXIST(Q5 -2.5,5),-60,DRAWNULL),LINETHICK7,COLORRED;
股:IF(SA1 0,-40,DRAWNULL),LINETHICK7,COLORMAGENTA;
中线币:IF(SA1 0,-40,DRAWNULL),LINETHICK7,COLORGREEN;
盘整币:IF(MDI2 ADXR OR ZK5,-30,DRAWNULL),LINETHICK7,COLORGREEN;
DRAWTEXT(EVERY(Q5 1,4) Q5 0 MACD REF(MACD,1) REF(MACD,1) REF(MAC
D,2) EVERY(Q5 -0.5,4),MACD*1.04, P 卖 ),COLORGREEN;
STICKLINE(SA1 REF(SA1,1),0,MACD*1.03,2,1),COLORGREEN;
STICKLINE(SA1 REF(SA1,1) SA1 0,0,MACD*1.03,2,1),COLORRED;
STICKLINE(Q5 5 SA1 0 MACD REF(MACD,1),0,MACD*1.03,2,1),COLORRED;
DRAWTEXT(AA SA1 REF(SA1,1),MACD*1.1, 吸货 ),COLOR0066FF;
DRAWTEXT(BB SA1 REF(SA1,1),MACD*1.1, 派发 ),COLORFFFF00;
DRAWTEXT(CROSS(3,Q5) EXIST(Q5 4,6),MACD*1.1, 卖 4 ),COLORGREEN;
DRAWTEXT(CROSS(4,Q5) EXIST(Q5 5,6),MACD*1.1, 卖 5 ),COLORGREEN;
DRAWTEXT(CROSS(5,Q5) EXIST(Q5 6,6),MACD*1.1, 卖 6 ),COLORGREEN;
DRAWTEXT(CROSS(6,Q5) EXIST(Q5 7,5),MACD*1.1, 卖 7 ),COLORGREEN;
STICKLINE(MACD 0,0,MACD,1,0),COLORRED;
STICKLINE(MACD 0 AND MACD REF(MACD,1),0,MACD,1,0),COLORFFFF00;
STICKLINE(MACD 0,0,MACD,1,0),COLORFF9900;
STICKLINE(MACD 0 AND MACD REF(MACD,1),0,MACD,1,0),COLORFF00FF;
MA3:=MA(CLOSE,3);
YTSL:=(3*CLOSE+LOW+OPEN+HIGH)/6;
辰星
线:=(20*YTSL+19*REF(YTSL,1)+18*REF(YTSL,2)+17*REF(YTSL,3)+16*REF(YTSL,4)+1
5*REF(YTSL,5)+14*REF(YTSL,6)+13*REF(YTSL,7)+12*REF(YTSL,8)+11*REF(YTSL,9)+1
0*REF(YTSL,10)+9*REF(YTSL,11)+8*REF(YTSL,12)+7*REF(YTSL,13)+6*REF(YTSL,14)+
5*REF(YTSL,15)+4*REF(YTSL,16)+3*REF(YTSL,17)+2*REF(YTSL,18)+REF(YTSL,20))/21
1,COLOR0000FF;
牵牛线:=MA(CLOSE,26),COLORFF00FF;
CX1:=辰星线;
QN1:=牵牛线;
IF(CX1 REF(CX1,1) CX1 QN1,-50,DRAWNULL),LINETHICK7,COLORRED;
IF(CX1 REF(CX1,1) CX1 QN1,-50,DRAWNULL),LINETHICK7,COLORMAGENTA;
IF(CX1 REF(CX1,1) CX1 QN1,-50,DRAWNULL),LINETHICK7,COLORGREEN;
IF(CX1 REF(CX1,1) CX1 QN1,-50,DRAWNULL),LINETHICK7,COLORCYAN;
DRAWTEXT(NDAY(SA1,0,2) CX1 REF(CX1,1) MACD REF(MACD,1) REF(MACD,1)
REF(MACD,2),MACD*1.1, BBB ),COLORMAGENTA;
DA:=(3*CLOSE+OPEN+LOW+HIGH)/6,POINTDOT;
X2:=(20*DA+19*REF(DA,1)+18*REF(DA,2)+17*REF(DA,3)+16*REF(DA,4)+15*REF(DA,
5)+14*REF(DA,6)+13*REF(DA,7)+12*REF(DA,8)+11*REF(DA,9)+10*REF(DA,10)+9*RE
F(DA,11)+8*REF(DA,12)+7*REF(DA,13)+6*REF(DA,14)+5*REF(DA,15)+4*REF(DA,16)+
3*REF(DA,17)+2*REF(DA,18)+REF(DA,20))/210,COLORF0F000;
X3:=(MA(X2,3)+MA(X2,2))/2,COLORYELLOW,LINETHICK1;
DRAWTEXT(SA1 REF(SA1,1) SA1 0 REF(SA1,1) REF(SA1,2) X2 X3,MACD*1.1,
信号 1 ),COLORMAGENTA;
DRAWTEXT(Q5 5 SA1 0 MACD REF(MACD,1) REF(MACD,1) REF(MACD,2) X2
X3,MACD*1.1, 信号 2 ),COLORRED;
DRAWTEXT(MACD 0 MACD REF(MACD,1) REF(MACD,1) REF(MACD,2) X2 X3,-
3, 信号 3 ),COLORRED;
DRAWTEXT(MACD 0 AND
MACD REF(MACD,1) REF(MACD,1) REF(MACD,2) X2 X3,MACD*1.1, 信号
4 ),COLORWHITE;
{MACD}
N:=18;S:=26;P5:=12;M5:=9;
A:=EMA(CLOSE,S);
T:=EMA(CLOSE,P5);
B:=EMA(A,M5);
T1:=EMA(T,M5);
DEA:=EMA(T-(T1-T),2),COLORYELLOW,LINETHICK2;
DIFF:=DEA-EMA(((A-B)-(T-T1)),1)*6,COLORRED,LINETHICK2;
DRAWBAND(DIFF,RGB(130,85,100),DEA,RGB(10,115,100));
SHORT:=12;LONG:=26;MID:=9;M:=3;M1:=3;M2:=3;KG:=1;
DFC:=C-REF(C,1);
WJXS:=(LONG-SHORT)/2;
JGL_JF:=WJXS*EMA(DFC,SHORT);
DIF_JIP:=EMA(JGL_JF,LONG),COLOR1188FF,LINETHICK2;
DEA_GEM:=EMA(DIF_JIP,MID),COLORGREEN,LINETHICK2;
K_DF_J:=SMA(JGL_JF,M1,1),COLORFEDCBA;
D_DF_G:=SMA(K_DF_J,M2,1),COLOR13F8F9;
J_DF_L:=2.5*K_DF_J-1.5*D_DF_G,COLORF813F9;
RF:=REF(J_DF_L,1)COLORRED;
DF_J:=SMA(JGL_JF,M1,1),COLORFEDCBA;
DF_G:=SMA(K_DF_J,M2,1),COLOR13F8F9;
DF_L:=2.5*DF_J-1.5*DF_G,COLORF813F9;
RF1:REF(DIFF,1)COLORCYAN;
DRAWKLINE(H,O,L,C);
STICKLINE(J_DF_L RF,O,C,2.8,0),COLOR1388D3;
STICKLINE(J_DF_L RF,O,C,2.8,0),COLOR338833;
STICKLINE(C RF1 AND C DEA,CLOSE,OPEN,3,0),,COLOR000099;
STICKLINE(C RF1 AND C DEA,CLOSE,OPEN,2.2,0),COLOR0000CC;{红 K 线持
股}
STICKLINE(C RF1 AND C DEA,CLOSE,OPEN,0.15,0),COLORCC66FF;
{蓝}
STICKLINE(C DEA,CLOSE,OPEN,3,0),COLORFF7700;
STICKLINE(C DEA,CLOSE,OPEN,2.2,0),COLORFF9900;
STICKLINE(C DEA,CLOSE,OPEN,0.15,0),COLORCYAN;
DRAWTEXT_FIX(1,0.79,0.97,0, 整理或变盘 ),COLOR338833;
DRAWTEXT_FIX(1,0.79,0.93,0, 小涨或可持 ),COLORLIRED;
DRAWTEXT_FIX(1,0.75,0.97,0, 青 下 跌 ),COLORCYAN;
DRAWTEXT_FIX(1,0.75,0.93,0, 红 上 涨 ),COLORRED;
EMA(T-(T1-T),2),COLORYELLOW,LINETHICK2;
DEA-EMA(((A-B)-(T-T1)),1)*6,COLORRED,LINETHICK1;
IF(DIFF REF(DIFF,1),DIFF,DRAWNULL),COLORCYAN;
C33:=REF(C,1);
:=IF((C-C33)*100/C33 =(10-0.01*100/C33),18,0);
STICKLINE(涨停,OPEN,CLOSE,0.001,0),COLORYELLOW;
REF(DIFF,1)COLORCYAN;
