中国K线主图.ALG
本文来自:我牛股票论坛★www.winbbs.net★ 转载注明我牛股票! 作者:
设置撒 您是第663个浏览者
A00:MA(CLOSE,22);
A01:(A00+2*STD(CLOSE,22));
A02:(A00-2*STD(CLOSE,22));
A03:=((EMA(HIGH,3)+EMA(LOW,4))+EMA(CLOSE,3)*2)/4;
A04:=REF(A03,1);
A05:=((CLOSE+HIGH)+LOW)/3;
STICKLINE((A03>A04),A04,HIGH,0.1,0),COLORRED;
STICKLINE((A03>A04),A05,A04,8,1),COLORRED;
STICKLINE((A03<A04),A03,LOW,0.1,0),COLORFFCC66;
STICKLINE((A03<A04),A05,A04,8,1),COLORFFCC66;
A0A:=A03;
A0B:=REF(A03,1);
DRAWICON((((A04<A05) and REF((A04>A05),1)) and (LOW<A00)),LOW*0.990,4);
DRAWICON(((A04>A05) and REF((A04<=A05),1)),HIGH*1.009,5);
DRAWNUMBER(((CLOSE>0) and ISLASTBAR),A0A,A0A,2);
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(CLOSE,A1+1)>CLOSE AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
DRAWICON(FILTER(B1>0,5),LOW*0.98,10);
DRAWTEXT(FILTER(B1>0,5),LOW*0.98,'M底'),COLORGREEN;{MACD底背离}
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(CLOSE,A2+1)>CLOSE 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));
DRAWICON(FILTER(B2>0,5),LOW*0.99,10);
DRAWTEXT(FILTER(B2>0,5),LOW*0.99,'K底'),COLORYELLOW;{KDJ底背离}
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(CLOSE,A3+1)>CLOSE 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));
DRAWICON(FILTER(B3>0,5),LOW*0.98,10);
DRAWTEXT(FILTER(B3>0,5),LOW*0.98,'R底'),COLORFFCC66;{RSI底背离}
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(CLOSE,C1+1)<CLOSE AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWICON(FILTER(D1>0,5),HIGH*1.01,12);
DRAWTEXT(FILTER(D1>0,5),HIGH*1.01,'M顶'),COLOR0066FF;{MACD顶背离}
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(CLOSE,C2+1)<CLOSE 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));
DRAWICON(FILTER(D2>0,5),HIGH*1.02,12);
DRAWTEXT(FILTER(D2>0,5),HIGH*1.02,'K顶'),COLORRED;{KDJ顶背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(CLOSE,C3+1)<CLOSE 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));
DRAWICON(FILTER(D3>0,5),HIGH*1.03,12),;
DRAWTEXT(FILTER(D3>0,5),HIGH*1.03,'R顶'),COLORFF00FF;{RSI顶背离}
Var27:=REF(CLOSE,1);
Var28:=SMA(MAX(CLOSE-Var27,0),6,1)/SMA(ABS(CLOSE-Var27),6,1)*100;
DRAWICON(IF(CROSS(76,Var28),1,0),HIGH*1.01,2);
LL:=REF(CLOSE,1);
MM:=((SMA(MAX(CLOSE-LL,0),7,1))/(SMA(ABS(CLOSE-LL),7,1)))*(100);
FT2:=IF(ref(mm,1)>83 and mm<82,-1,0),Color99cc99;
DRAWTEXT(FILTER(fT2=-1,3),HIGH*1.03,'←卖出'),colorwhite;
附件: 您所在的用户组无法下载或查看附件