大智慧《跟莊獲利》指標 改為通達信
DRAWGBKlast(c>0,strip(RGB(0,0,100),RGB(0,0,0),0));
pv:=INDEXV;
lb1:=v/ref(ma(v,3),1);lb2:=pv/ref(ma(pv,3),1);
a1:=lb1>lb2;a2:=lb1<lb2;
a3:=lb1>1.3*lb2 and lb1<=2*lb2;a4:=lb1>2*lb2;
a5:=lb2>1.3*lb1 and lb2<=2*lb1;a6:=lb2>2*lb1;
aa:=lb1>1.10*lb2;
低于大盘:=STICKLINE(a2,h,l,0,0);
STICKLINE(a2,o,c,8,0),COLOR888800;
STICKLINE(a2,o,c,5,0),COLORaaaa00;
STICKLINE(a2,o,c,3,0),COLORcccc00;
弱于大盘:=STICKLINE(a5,h,l,0,0);
STICKLINE(a5,o,c,8,0),COLOR008800;
STICKLINE(a5,o,c,5,0),COLOR00aa00;
STICKLINE(a5,o,c,3,0),COLOR00cc00;
超弱大盘:=STICKLINE(a6,h,l,0,0);
STICKLINE(a6,o,c,8,0),COLOR880000;
STICKLINE(a6,o,c,5,0),COLORaa0000;
STICKLINE(a6,o,c,3,0),COLORcc0000;
领先大盘:=STICKLINE(a1,h,l,0,0);
STICKLINE(a1,o,c,8,0),COLOR880088;
STICKLINE(a1,o,c,5,0),COLORaa00aa;
STICKLINE(a1,o,c,3,0),COLORcc00cc;
强于大盘:=STICKLINE(a3,h,l,0,0);
STICKLINE(a3,o,c,8,0),COLOR000088;
STICKLINE(a3,o,c,5,0),COLOR0000aa;
STICKLINE(a3,o,c,3,0),COLOR0000cc;
超强大盘:=STICKLINE(a4,h,l,0,0);
STICKLINE(a4,o,c,8,0),COLOR008888;
STICKLINE(a4,o,c,5,0),COLOR00aaaa;
STICKLINE(a4,o,c,3,0),COLOR00cccc;
W:=BARSLAST(DISPSTATUS=1);
P:=BACKSET(DISPSTATUS=2,W/2+1);
K:=BARSLAST(CROSS(P,0.5));
KJ:=HHVALL(HIGH)-LLVALL(LOW);
VERTLINE(CROSS(P,0.5),4),COLOR00FFFF;
平衡:LLVALL(LOW)+KJ/2,COLOR00FF00,DOTLINE,PRECIS2;
压力:IF(K>=0,HHVALL(HIGH)-KJ*0.191,平衡),COLORFF00FF,DOTLINE,PRECIS2;
支撑:IF(K>=0,LLVALL(LOW)+KJ*0.191,平衡),COLOR00FF00,DOTLINE,PRECIS2;
低涨:=(C/(LLVALL(LOW)+KJ/2)-1)*100;
低涨2:=(C/压力-1)*100;
DRAWTEXT(HIGH=HHVALL(HIGH) and K>=0,HIGH*1.01,'←'+NUMTOSTRN(HIGH,2)),COLORFFFFFF;
DRAWTEXT(DISPSTATUS=2,压力,'0.809'),COLOR0000FF,ALIGN0;
DRAWTEXT(DISPSTATUS=2,平衡,'0.500'),COLORFFFFFF,ALIGN0;
DRAWTEXT(DISPSTATUS=2,支撑,'0.191'),COLOR00FFFF,ALIGN0;
DRAWTEXT(K=0,HHVALL(HIGH)-KJ/12,'★强势区域--急拉减仓!'),COLOR00FFFF,ALIGN1;
DRAWTEXT(K=0,HHVALL(HIGH)-KJ/3,'●震荡整理--寻机低吸!'),COLOR00FF00,ALIGN1;
DRAWTEXT(K=0,LLVALL(LOW)+KJ/3,'◆反弹中轨--逢高休息!'),COLORFFFFFF,ALIGN1;
DRAWTEXT(K=0,LLVALL(LOW)+KJ/10,'■弱势区域--暂不参与!'),COLORFFFF00,ALIGN1;
DD:=FINANCE2(35);SS:=FINANCE2(37);
DRAWTEXTREL(10,120,'总股本:'+NUMTOSTRN(DD,0)+'万' +' 流通盘:'+CAPITAL/1000000+'亿'+'上市年:' +REF(YEAR,BARSCOUNT(C)-1));
DRAWTEXTREL(10,190,'■平衡至今上涨:'+NUMTOSTRN(低涨,2)+'% '),COLOR0000FF;
DRAWTEXTREL(10,260,'■压力至今上涨:'+NUMTOSTRN(低涨2,2)+'%'),COLOR00FFFF;
DRAWTEXTREL(10,330,'■目前可见K线:'+NUMTOSTRN(W+1,0)+'天'),COLOR00FF00;
较上二季增减:=(PFFIN(4253,0)-PFFIN(4253,2))/PFFIN(4253,2)*100;
股东增减比例:=(PFFIN(4253,0)-PFFIN(4253,1))/PFFIN(4253,1)*100;
DRAWTEXTREL(10,50,'★股东增减'+NUMTOSTRN(股东增减比例,2)+'%'+'■上二增减'+NUMTOSTRN(较上二季增减,2)+'%'),COLOR00FF00;
qq:=COUNT(aa,6)>=4;
DRAWTEXT(qq,L-0.1,'→庄←'),COLOR00FFFF,ALIGN1;
通达信主图指标:跟庄获利
N:=120;
K:=BARSLAST(CURRBARSCOUNT=N);
GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0)); DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0));
KJ:=GD-DD;
GD4:IF(CURRBARSCOUNT<=N/10,GD,DRAWNULL);
平衡:IF(CURRBARSCOUNT<=N/10,DD+KJ/2,DRAWNULL),COLORFFFFFF;
压力:IF(CURRBARSCOUNT<=N/10,GD-KJ*0.191,DRAWNULL),COLORFFFFFF;
支撑:IF(CURRBARSCOUNT<=N/10,DD+KJ*0.191,DRAWNULL),COLOR00FF00;
高:IF(CURRBARSCOUNT<=N/10,GD,DRAWNULL),COLOR00FFFF;
低:IF(CURRBARSCOUNT<=N/10,DD,DRAWNULL),COLOR00FF00;
低涨:IF(CURRBARSCOUNT<=N/10,(C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;
天数:BARSLAST(L=DD),COLORCYAN,NODRAW;
DRAWBAND(高,RGB(160,160,0),压力,RGB(0,0,0));
DRAWBAND(压力,RGB(130,0,0),平衡,RGB(0,0,0));
DRAWBAND(平衡,RGB(130,0,130),支撑,RGB(0,0,0));
DRAWBAND(支撑,RGB(150,150,150),低,RGB(0,0,0));
STICKLINE(CURRBARSCOUNT<=N/10,平衡,平衡*0.998,4,0),COLORWHITE;
STICKLINE(CURRBARSCOUNT<=N/10,压力,压力*0.998,4,0),COLOR00FFFF;
STICKLINE(CURRBARSCOUNT<=N/10,支撑,支撑*0.998,4,0),COLOR00FF00;
STICKLINE(CURRBARSCOUNT<=N/10,低,低,4,0),COLORGREEN;
PV:=INDEXV;
LB1:=V/REF(MA(V,3),1);
LB2:=PV/REF(MA(PV,3),1);
A1:=LB1>LB2;
A2:=LB1<LB2;
A3:=LB1>1.3*LB2 AND LB1<=2*LB2;A4:=LB1>2*LB2;
A5:=LB2>1.3*LB1 AND LB2<=2*LB1;A6:=LB2>2*LB1;
AA:=LB1>1.10*LB2;
低于大盘:=STICKLINE(A2,H,L,0,0),COLORFFFF00;
STICKLINE(A2,O,C,3.2,0),COLOR888800;
STICKLINE(A2,O,C,1.5,0),COLORCCCC00;
STICKLINE(A2,O,C,0.1,0),COLORFFFF00;
弱于大盘:=STICKLINE(A5,H,L,0,0),COLOR00FF00;
STICKLINE(A5,O,C,3.2,0),COLOR008800;
STICKLINE(A5,O,C,1.5,0),COLOR00CC00;
STICKLINE(A5,O,C,0.1,0),COLOR00FF00;
超弱大盘:=STICKLINE(A6,H,L,0,0),COLORFF0000;
STICKLINE(A6,O,C,3.2,0),COLOR880000;
STICKLINE(A6,O,C,1.5,0),COLORCC0000;
STICKLINE(A6,O,C,0.1,0),COLORFF0000;
领先大盘:=STICKLINE(A1,H,L,0,0),COLORFF00FF;
STICKLINE(A1,O,C,3.2,0),COLOR880088;
STICKLINE(A1,O,C,1.5,0),COLORCC00CC;
STICKLINE(A1,O,C,0.1,0),COLORFF00FF;
强于大盘:=STICKLINE(A3,H,L,0,0),COLOR0000FF;
STICKLINE(A3,O,C,3.2,0),COLOR000088;
STICKLINE(A3,O,C,1.5,0),COLOR0000CC;
STICKLINE(A3,O,C,0.1,0),COLOR0000FF;
超强大盘:=STICKLINE(A4,H,L,0,0),COLOR00FFFF;
STICKLINE(A4,O,C,3.2,0),COLOR008888;
STICKLINE(A4,O,C,1.5,0),COLOR00BBBB;
STICKLINE(A4,O,C,0.1,0),COLOR00FFFF;
QQ:=COUNT(AA,6)>=4;
DRAWTEXT(QQ,L-0.1,'→庄←'),COLOR00FFFF;
RSIA1:=SMA(MAX(CLOSE-REF(CLOSE,1),0),3,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),3,1)*100,COLORFFFF00;
ZB1:=RSIA1<20;
买入:DRAWICON(CROSS(RSIA1,20),L*0.98,13);
ZB2:=(ZB1=0 AND RSIA1<=80);
卖出:DRAWICON(ZB2=1 AND REF(ZB2,1)=0 AND 买入=0,H*1.002,14);
N2:=5;
JA1:=REF(H,N2)=HHV(H,2*N2+1);
JB1:=FILTER(JA1,N2);
JC1:=BACKSET(JB1,N2+1);
HD:= FILTER(JC1,N2);
RH:=BACKSET(CURRBARSCOUNT=2,BARSLAST(HD)+1);
SH:=RH>REF(RH,1);
H1:=REF(H ,BARSLAST(SH));
STICKLINE(H1,H1,H1,5,0),LINETHICK2,COLOR00FFFF;
DRAWTEXT(ISLASTBAR,H1*1.005,'近期高点'),COLORFFFF00;
TTP:=(CURRBARSCOUNT=5-4);
DRAWNUMBER(TTP AND H1,H1,H1),COLORFFFF00;
JA2:=REF(L,N2)=LLV(L,2*N2+1);
JB2:=FILTER(JA2,N2);
JC2:=BACKSET(JB2,N2+1);
LD:=FILTER(JC2,N2);
RL:=BACKSET(CURRBARSCOUNT=2,BARSLAST(LD)+1);
SL:=RL>REF(RL,1);
L1:=REF(L ,BARSLAST(SL));
STICKLINE(L1,L1,L1,5,0),COLORFFFF00,LINETHICK5;
DRAWTEXT(ISLASTBAR,L1*1.005,'近期低点'),COLORFFFF00;
DRAWNUMBER(TTP AND L1,L1,L1),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/10+12,GD-KJ/12,'【风险区】--高抛避险'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/10+12,GD-KJ/3,'【警示区】--逢高减仓'),COLORFFFFFF;
DRAWTEXT(CURRBARSCOUNT=N/10+12,DD+KJ/3,'【关注区】--逢低买入'),COLOR00FFFF;
DRAWTEXT(CURRBARSCOUNT=N/10+12,DD+KJ/10,'【休整区】--养精畜锐'),COLOR00FF00;
DRAWTEXT_FIX(1,0.05,0.0,0,'【彩色K线】★★黄s--超强大盘★★红色--强于大盘
★★粉色--领先大盘★★青色--低于大盘★★★★绿色--弱于大盘★★蓝色--超弱大盘★★ '),COLORFFFF00;
|