看大势-(通达信主图,源码)

[复制链接]
查看23 | 回复0 | 2022-6-28 08:34:31 | 显示全部楼层 |阅读模式

{看大势}
N:=30;
M:=20;
布林:=HHV(HHV(L,14),60);
阻力区:=EMA(EMA(布林,16)-2*STD(布林,16),3);
阻力区1:=EMA(EMA(布林,14)+2*STD(布林,14),18);
DRAWBAND(阻力区,RGB(241,241,247),阻力区1,RGB(241,241,247));
{=================================================}
STICKLINE(C>=O,C,O,3,0),COLOR0000AA;
STICKLINE(C>=O,C,O,2.5,0),COLOR0000BB ;
STICKLINE(C>=O,C,O,1.5,0),COLOR0000CC ;
STICKLINE(C>=O,C,O,1,0),COLOR0000EE;
STICKLINE(C>=O,H,L,0,0),COLOR0000FF;
STICKLINE(C<=O,C,O,3,0),COLOR7B7B00;
STICKLINE(C<=O,C,O,2.5,0),COLOR909000;
STICKLINE(C<=O,C,O,1.5,0),COLORA8A800;
STICKLINE(C<=O,C,O,1,0),COLORCECE00;
STICKLINE(C<=O,H,L,0,0),COLORFFFF00;
ZA1:=EMA(C,25);
ZA2:=EMA(ZA1,45);
ZB1:=EMA(C,65);
ZB2:=EMA(ZB1,45);
DIFF:=(ZA1+ZB2)/2;
DEA:=(ZA2+ZB1)/2;
KA0:=(HHV(C,45)-LLV(C,45))/45;
KA1:=SMA(C,3,1);
KA2:=SMA(C-KA0*3,3,1);
KA3:=SMA(KA1-KA0*3,3,1);
SC:=100*(CLOSE-MA(CLOSE,80));
SC1:=EMA(SC,5);
SC2:=EMA(SC,21);
长期策略:SC1>=SC2,NODRAW;
次级策略:DIFF>=DEA,NODRAW;
短期策略:KA2>=KA3,NODRAW;
短期拐点:REF(短期策略,1)=0 AND 短期策略=1,NODRAW;
长期趋势:ZB2,COLORYELLOW,LINETHICK3;
次级趋势:DIFF,NODRAW;
短期趋势:KA2,NODRAW;
IF(DIFF>=DEA,DIFF,DRAWNULL),LINETHICK3,COLORRED;
IF(DIFF<DEA,DIFF,DRAWNULL),LINETHICK1,COLORBLUE;
IF(KA2>=KA3,KA2,DRAWNULL)COLORMAGENTA,LINETHICK3;
IF(KA2<KA3,KA2,DRAWNULL),LINETHICK1,COLORGREEN;
CSAR:=SAR(10,2,20);
持股:=IF(CSAR<=L,CSAR,0);
涅磐:=EMA(SLOPE(C,21)*20+C,42);
般若:=EMA(C,5);
VARA1:=(C+H+O+L)/4;
卖出:=XMA(VARA1,20)*(1+80/1000);
买入A:=XMA(VARA1,32)*(1-100/1000);
菩提:=买入A+(卖出-买入A)*2/3;{此函数仅做参考线,为提前趋势预测线,上涨途中向下见顶,下跌途中向上见底};
开悟:=IF(般若>=REF(般若,1),般若,DRAWNULL);
抛物线转向:=CROSS(L,CSAR) AND 开悟>0 AND H<菩提 AND 持股>0 AND H>涅磐;
DRAWICON(抛物线转向,(H),16);{趋势底};
般:=XMA(CLOSE,7);
若:=MEMA(CLOSE,3);
趋势延伸:=短期拐点 AND 菩提>H AND NOT(抛物线转向);
DRAWICON(趋势延伸,H,4);
DRAWICON(LONGCROSS(若,般,3) AND H>菩提,H,19);
DRAWICON(BARSLAST(LONGCROSS(若,般,3) AND H>菩提)=1,H,2);

{N= 1 999 80 , M= 1 15 3}
高1:=REF(HHV(H,150),3);
低1:=REF(LLV(L,150),3);
H1:=高1-(高1-低1)*0.191;
H2:=高1-(高1-低1)*0.382;
H3:=高1-(高1-低1)*0.5;
H4:=高1-(高1-低1)*0.618;
H5:=高1-(高1-低1)*0.809;
{顶:REFDATE(高1,DATE),POINTDOT,COLORWHITE;}
%19:REFDATE(H1,DATE),POINTDOT,COLORYELLOW,LINETHICK3;
%38:REFDATE(H2,DATE),POINTDOT,COLORMAGENTA,LINETHICK3;
%50:REFDATE(H3,DATE),POINTDOT,COLORLIGRAY,LINETHICK3;
%61:REFDATE(H4,DATE),POINTDOT,COLORRED,LINETHICK3;
%80:REFDATE(H5,DATE),POINTDOT,COLORWHITE,LINETHICK3;
AA05:MA(C,5),LINETHICK3,COLOR0099CC;
五日乖离率:=(C-AA05)/AA05*100;
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416;
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1);
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW;

AA10:MA(C,10);AA20:=MA(C,20);
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416;
IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK3,COLORGREEN;
AA30:MA(C,30);
三拾日乖离率:(C-AA30)/AA30*100,NODRAW;
VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1);
VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1);
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416;
IF(BB30>15 AND AA30>REF(AA30,1), AA30,DRAWNULL),LINETHICK3,COLORFF00FF;
强势狙击:=FILTER(BB30>30 AND BB10>45 AND CROSS(BB05,60),10);
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1)   AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1)   ,10) ;
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1)   AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10);
DRAWTEXT(加仓 ,LOW*0.98,'加'),COLORRED;
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) ;
减仓:=FILTER(JC,10);
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;
买入:=FILTER(MR,10);
DRAWTEXT(减仓,HIGH*1.02,'←减'),COLORCYAN;
DRAWTEXT(买入,LOW*0.98,'←买'),COLORYELLOW;
VAR21:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
VAR3:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);
MV:=(VAR21+VAR3)/AMOUNT*VOL*100*50;

日:=150;昨前:=3;
高11:=REF(HHV(H,日),昨前);
低11:=REF(LLV(L,日),昨前);
H11:=高11-(高11-低11)*0.191;
H21:=高11-(高11-低11)*0.382;
H31:=高11-(高11-低11)*0.5;
H41:=高11-(高11-低11)*0.618;
H51:=高11-(高11-低11)*0.809;

顶:REFDATE(高11,DATE),COLORGREEN,CROSSDOT,LINETHICK1;
零点191:=REFDATE(H11,DATE),COLORCYAN;
零点382:=REFDATE(H21,DATE),COLORYELLOW;
零点5:=REFDATE(H31,DATE),COLORRED;
零点618:=REFDATE(H41,DATE),COLORYELLOW;
零点809:=REFDATE(H51,DATE),COLORCYAN;
低3:REFDATE(低1,DATE),COLORRED,CROSSDOT,LINETHICK1;
XS:=CONST(REF(C,M));YJ:=ZIG(C,20);
AA:=REF(H,N)=HHV(H,2*N+1); BB:=FILTER(AA,N);
CC:=BACKSET(BB,N+1); DD:=FILTER(CC,N);
EE:=BACKSET(ISLASTBAR,BARSLAST(DD)+1);
高:=REF(YJ,2) < REF(YJ,1) AND YJ < REF(YJ,1);
低:=REF(YJ,2) > REF(YJ,1) AND YJ > REF(YJ,1);
DRAWICON(低,L*0.96,1);DRAWICON(高,H*1.02,2);
涨家数:INDEXADV,COLOR0000EE,NODRAW;
跌家数:INDEXDEC,COLOR00EE00,NODRAW;
大盘成交量:INDEXV,COLOR00EEEE,NODRAW;

一号线:EMA(CLOSE,77);
工作线:EMA(CLOSE,99);

2010588122241141.png

2010588122241141.png

2010588121414071.rar

6.83 KB, 下载次数: 0

售价: 1 金钱  [记录]  [购买]

2010588121414071.rar

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则