通达信：
P1:=13;
P2:=77;
P3:=99;
M:=26;
N:=5;
K:=50;
MA1:MA(CLOSE,P1);
MA2:MA(CLOSE,P2);
MA3:MA(CLOSE,P3);
Z:=20;
W:=2;
MID:=MA(CLOSE,Z);
上:MID + W*STD(CLOSE,Z),POINTDOT;
下:MID - W*STD(CLOSE,Z),POINTDOT;
A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
B1:=REF(CLOSE,A1+1)>CLOSE AND REF("MACD.DIF",A1+1)<"MACD.DIF"AND CROSS("MACD.DIF","MACD.DEA");
DRAWTEXT(FILTER(B1>0,5),LOW-0.1,'M '),COLORGREEN;
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
B2:=REF(CLOSE,A2+1)>CLOSE AND REF("KDJ.K",A2+1)<"KDJ.K"AND CROSS("KDJ.K","KDJ.D");
DRAWTEXT(FILTER(B2>0,5),LOW-0.25,'K '),COLORYELLOW;
A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
B3:=REF(CLOSE,A3+1)>CLOSE AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND
CROSS("RSI.RSI1","RSI.RSI2");
DRAWTEXT(FILTER(B3>0,5),LOW-0.4,'R '),COLORCYAN;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
D1:=REF(CLOSE,C1+1)<CLOSE AND REF("MACD.DIF",C1+1)>"MACD.DIF"AND CROSS("MACD.DEA","MACD.DIF");
DRAWTEXT(FILTER(D1>0,5),HIGH+0.1,'M '),COLORRED;
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
D2:=REF(CLOSE,C2+1)<CLOSE AND REF("KDJ.K",C2+1)>"KDJ.K"AND CROSS("KDJ.D","KDJ.K");
DRAWTEXT(FILTER(D2>0,5),HIGH+0.25,'K '),COLOR0066FF;
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
D3:=REF(CLOSE,C3+1)<CLOSE AND REF("RSI.RSI1",C3+1)>"RSI.RSI1"AND CROSS("RSI.RSI2","RSI.RSI1");
DRAWTEXT(FILTER(D3>0,5),HIGH+0.4,'R '),COLORMAGENTA;
X:=EMA(((SLOPE(CLOSE,21) * 20) + CLOSE),68);
Y:=EMA(CLOSE,10);
LL:=REF(CLOSE,2);
MM:=((SMA(MAX((CLOSE - LL),0),6,1) / SMA(ABS((CLOSE - LL)),6,1)) * 100);
DB:=IF(((MM < REF(MM,1)) AND (MM > 79)),MM,0);
VAR1:=LLV(LOW,21);
VAR2:=HHV(HIGH,21);
AK1:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 100),5);
AK:=EMA((((CLOSE - VAR1) / (VAR2 - VAR1)) * 50),13);
DD:=EMA(((0.667 * REF(AK1,1)) + (0.333 * AK1)),2);
VAR3:=LLV(LOW,55);
VAR4:=HHV(HIGH,34);
VAR5:=EMA((((CLOSE - VAR3) / (VAR4 - VAR3)) * 100),3);
VAR6:=((AK + VAR5) / 2);
VAR7:=EMA(((0.667 * REF(VAR5,1)) + (0.333 * AK1)),2);
VAR8:=EMA(VAR6,5);
BB:=EMA(((0.667 * REF(VAR8,1)) + (0.333 * VAR8)),2);
AB:=CROSS(AK1,AK);
BB1:=(CROSS(AK1,BB) AND (BB < 30));
CD:=(BB1 * 0.6);
STICKLINE(CLOSE<OPEN AND REF(CLOSE,1)>REF(OPEN,1),REF(CLOSE,1),REF(CLOSE,1),20,0),COLORFFFFFF;
A1W:=BARSLAST(REF(CROSS("MACD.DIF"(M,N,K),"MACD.DEA"(M,N,K)),1));
B1W:=REF(CLOSE,A1W+1)> CLOSE AND REF("MACD.DIF"(M,N,K),A1W+1)<"MACD.DIF"(M,N,K)
AND CROSS("MACD.DIF"(M,N,K),"MACD.DEA"(M,N,K));
C1W:=BARSLAST(REF(CROSS("MACD.DEA"(M,N,K),"MACD.DIF"(M,N,K)),1));
D1W:=REF(CLOSE,C1W+1)<CLOSE AND REF("MACD.DIF"(M,N,9),C1+1)>"MACD.DIF"(M,N,K) AND CROSS("MACD.DEA"(M,N,K),
"MACD.DIF"(M,N,K));
JM:=CROSS("MACD.DIF"(M,N,K),"MACD.DEA"(M,N,K));
JMA:=CROSS("MACD.DEA"(M,N,K),"MACD.DIF"(M,N,K));
DRAWTEXT (JM,LOW,'金叉'),COLORWHITE;{金叉}
DRAWTEXT (JMA,HIGH,'死叉'),COLORYELLOW;{死叉}
JMCOUNT:=COUNT(JM,BARSLAST("MACD.DEA"(M,N,K)>=0)); |
