SHORT:=12;
LONG:=26 ;
M:=9 ;
最大亏损:=5000 ;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG) ;
DEA:=EMA(DIF,M);
MACD:=2*(DIF-DEA) ;
多空分界:MA(C,50),LINETHICK1,COLORCYAN,NODRAW ;
TOZ:=MA(C,50),COLORYELLOW ;
TMACD:=MA(C,50)+(MACD)*3;
HD0:=CROSS(DIF,DEA) ;
金收:=REF(L,BARSLAST(HD0)),COLORGREEN ;
DRAWNUMBER1(ISLASTBAR,金收,金收,0),COLORCYAN;
LD0:=CROSS(DEA,DIF);
死收:=REF(H,BARSLAST(LD0)),COLORBLUE ;
JCSC:=(M-1)/(M+1)*DEA/(1-2/(M+1)) ;
{计算出金叉死叉时的DIFF值}
DD:=(MACD/2+(DEA*(M-1)/(M+1)))/(1-2/(M+1));
DIF拐头价:=(DIF*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORYELLOW,LINETHICK1,RGB(250,250,0) ;
柱变向价:=(DD*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORWHITE,LINETHICK1 ;
IF(柱变向价>DIF拐头价,柱变向价,NULL),RGB(250,0,0),NOTEXT ;
黄铢消失见顶:=IF(柱变向价>=DIF拐头价,DIF拐头价,NULL),COLORYELLOW,CIRCLEDOT,LINETHICK1 ;
金叉:=IF(柱变向价>=DIF拐头价,多空分界,NULL),COLORYELLOW,CIRCLEDOT,LINETHICK1 ;
金死叉价:=(JCSC*(SHORT+1)*(LONG+1)-(LONG+1)*(SHORT-1)*EMA(C,SHORT)+(SHORT+1)*(LONG-1)*EMA(C,LONG))/(2*((LONG+1)-(SHORT+1))),COLORCYAN ;
MACD走平时股价:=(((M+1)*(2*REF(DEA,1)*(M-1)+REF(MACD,1)*(M+1)))/(2*(M+1)*(M-1))+(REF(EMA(C,26),1)*(26-1)/(26+1))-(REF(EMA(C,12),1)*(12-1)/(12+1)))*(12+1)*(26+1)/(2*(26-12)) ;
ES:=REF(EMA(C,26),1);
EP:=REF(EMA(C,12),1);
DI:=REF(DIF,1);
DIF穿零价:=((12+1)*(26-1)*ES-(26+1)*(12-1)*EP)/(2*(26+1)-2*(12+1)),COLORWHITE;
ZJ:=DIF>DEA ;
HY:=DIF<DEA ;
XG1:=ZJ AND C>死收 AND C>多空分界 ;
STICKLINE1(XG1,L,H,0,0),COLORAA0000 ;
STICKLINE1(XG1,CLOSE,OPEN,3,0),COLOR550000;
STICKLINE1(XG1,CLOSE,OPEN,2.8,0),COLOR660000 ;
STICKLINE1(XG1,CLOSE,OPEN,2.5,0),COLOR770000 ;
STICKLINE1(XG1,CLOSE,OPEN,2.2,0),COLOR880000 ;
STICKLINE1(XG1,CLOSE,OPEN,1.7,0),COLOR990000 ;
STICKLINE1(XG1,CLOSE,OPEN,1.2,0),COLORAA0000 ;
STICKLINE1(XG1,CLOSE,OPEN,0.7,0),COLORCC0000 ;
STICKLINE1(XG1,CLOSE,OPEN,0.2,0),COLORFF0000 ;
W1:=C<死收 AND ZJ;
STICKLINE1(W1,H,L,0,1),COLORFF55FF;
STICKLINE1(W1,C,O,3.2,0),COLOR880088;
STICKLINE1(W1,C,O,2.6,0),COLORAA00AA ;
STICKLINE1(W1,C,O,1.9,0),COLORCC00CC ;
STICKLINE1(W1,C,O,1.1,0),COLOREE00EE ;
STICKLINE1(W1,C,O,0.3,0),COLORFF44FF ;
W2:=C<多空分界 AND ZJ;
STICKLINE1(W2,H,L,0,1),COLORFF55FF;
STICKLINE1(W2,C,O,3.2,0),COLOR880088 ;
STICKLINE1(W2,C,O,2.6,0),COLORAA00AA;
STICKLINE1(W2,C,O,1.9,0),COLORCC00CC;
STICKLINE1(W2,C,O,1.1,0),COLOREE00EE ;
STICKLINE1(W2,C,O,0.3,0),COLORFF44FF ;
XG2:=C<DIF拐头价 AND HY ;
STICKLINE1(XG2,H,L,0,0),COLOR00FF00;
STICKLINE1(XG2,C,O,3,0),COLOR009900 ;
STICKLINE1(XG2,C,O,2,0),COLOR00BB00;
STICKLINE1(XG2,C,O,1,0),COLOR00DD00;
STICKLINE1(XG2,C,O,0.3,0),COLOR00FF00;
XG3:=C>DIF拐头价 AND HY;
STICKLINE1(XG3,H,L,0,0),COLOR00FF00 ;
STICKLINE1(XG3,C,O,3,0),COLOR009900 ;
STICKLINE1(XG3,C,O,2,0),COLOR00BB00;
STICKLINE1(XG3,C,O,1,0),COLOR00DD00;
STICKLINE1(XG3,C,O,0.3,0),COLOR00FF00 ;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1),COLORWHITE,LINETHICK1;
D:=SMA(K,3,1),COLORYELLOW,LINETHICK1;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100 ;
//IF(COUNT(RSI1>80,3)=3,H,NULL),POINTDOT,COLORGREEN,LINETHICK7;
//IF(COUNT(RSI1<20,3)=3,L,NULL),POINTDOT,COLORYELLOW,LINETHICK7;
//IF(COUNT(K>80,3)=3,H,NULL),POINTDOT,COLORGREEN,LINETHICK5;
//IF(COUNT(K<20,3)=3,L,NULL),POINTDOT,COLORFF33FF,LINETHICK5;
今日空间:=C-REF(金死叉价,1),COLORGREEN,NODRAW;
尾盘空间:=C-金死叉价,NODRAW;
A0:=最大亏损;
今日开仓:=A0/今日空间;
尾盘开仓:=A0/尾盘空间,NODRAW;
MID:EMA(C,20),LINETHICK2,COLORBLUE ,NODRAW ;
UPPER:=MID+2*STD(C,20),LINETHICK1,COLORRED;
LOWER:=MID-2*STD(C,20),LINETHICK1,COLORRED;
H1:=EMA(SLOPE(CLOSE,34)*20+CLOSE,75);
H2:=EMA(CLOSE,8) ;
VAR1D:=H2-H1 ;
A:=(3*C+L+O+H)/6;
B:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
STICKLINE1(B>D AND VAR1D>=0,MID,MID,6,1),COLORYELLOW,LINETHICK2;