【通达信源码分享】精品指标公式－命运罗盘主图公式

公式源码:

显示仪表盘1:=0,1,1;

 DRAWGBK(1,RGB(0,0,0),RGB(0,0,0),0,'BJ1',0);

 {======================================================}

范围高A:=REFDATE(HHV(H,120),DATE)*1.05;

范围低A:=REFDATE(LLV(L,120),DATE)*0.95;

 MA5:=MA(C,5),COLORCYAN,LINETHICK2;

 MA24:=MA(C,24),COLORGREEN,LINETHICK2;

 MA72:=MA(C,72),COLORRED,LINETHICK2;

 MA200:=IF((MA(C,200)<=范围高A AND MA(C,200)>=范围低A) OR C>=MA(C,200),MA(C,200),DRAWNULL),COLORBLUE,LINETHICK2;

 {=======================仪表盘=========================}

主升浪:=ISLASTBAR AND MA5>MA24 AND MA24>MA72 AND MA72>IF(MA200=DRAWNULL,0,MA200);

主浪回调:=ISLASTBAR AND MA24>MA5 AND MA5>MA72 AND MA72>IF(MA200=DRAWNULL,0,MA200);

主浪深调:=ISLASTBAR AND MA24>MA72 AND MA72>MA5 AND MA5>IF(MA200=DRAWNULL,0,MA200);

初升浪:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MAX(MA24,MA72) AND MA5>MA24 AND MA24>MA72;

底部反弹:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MA72 AND MA72>MA24 AND MA5>MA24;

探底阶段:=ISLASTBAR AND IF(MA200=DRAWNULL,300,MA200)>MA72 AND MA72>MA24 AND MA24>MA5;

观望:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24>MA72 AND C<MA72,MA72>MA200 AND C<MA200);

有牛:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24<MA72 AND C>=MA72,MA72<MA200 AND C>=MA200);

放弃:=ISLASTBAR AND IF(MA200=DRAWNULL,MA24<MA72 AND C<MA72,MA72<MA200 AND C<MA200);

 DRAWGBK(显示仪表盘1=1 AND 主升浪=0 AND 主浪回调=0 AND 主浪深调=0 AND 初升浪=0 AND 底部反弹=0 AND 探底阶段=0 AND 观望=0 AND 有牛=0 AND 放弃=0,0,0,0,'观望',0)COLOR00BF00;

 DRAWGBK(显示仪表盘1=1 AND 主升浪,0,0,0,'主升浪',0)COLORFF00FF;

 DRAWGBK(显示仪表盘1=1 AND 主浪回调,0,0,0,'主浪回调',0)COLORFF8080;

 DRAWGBK(显示仪表盘1=1 AND 主浪深调,0,0,0,'主浪深调',0)COLOR009500;

 DRAWGBK(显示仪表盘1=1 AND 初升浪,0,0,0,'初升浪',0)COLOR00FFFF;

 DRAWGBK(显示仪表盘1=1 AND 底部反弹,0,0,0,'底部反弹',0)COLORFFFF00;

 DRAWGBK(显示仪表盘1=1 AND 探底阶段,0,0,0,'探底阶段',0);

 DRAWGBK(显示仪表盘1=1 AND 观望,0,0,0,'观望',0)COLORFFFF00;

 DRAWGBK(显示仪表盘1=1 AND 有牛,0,0,0,'有牛',0)COLOR00FFFF;

 DRAWGBK(显示仪表盘1=1 AND 放弃,0,0,0,'放弃',0)COLOR00BF00;

引差:=REF(C,1)-LOW,LINETHICK1,NODRAW;

引跌幅:IF((REF(C,1)-LOW)/REF(C,1)*100>0,(REF(C,1)-LOW)/REF(C,1)*100,0),LINETHICK1,NODRAW;

三日均跌:MA(引跌幅,3),COLORWHITE,NODRAW;

 N:=120;

 K:=BARSLAST(CURRBARSCOUNT=N);

 GD:=CONST(IF(ISLASTBAR=1,HHV(H,K),0)),NODRAW;{高点}

DD:=CONST(IF(ISLASTBAR=1,LLV(L,K),0)),NODRAW;{低点}

KJ:=GD-DD;{高低点差值=分区高度}

GD4:=IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL);

高区:IF(CURRBARSCOUNT<=N,GD,DRAWNULL),COLORRED,LINETHICK2,NODRAW;

低区:IF(CURRBARSCOUNT<=N,DD,DRAWNULL),COLOR00FF00,LINETHICK2,NODRAW;

平衡:=IF(CURRBARSCOUNT<=N,DD+KJ/2,DRAWNULL),COLOR00FFFF,NODRAW;

低:IF(CURRBARSCOUNT<=N/2,DD,DRAWNULL),COLORFFFF00;

高:IF(CURRBARSCOUNT<=N/2,GD,DRAWNULL),COLOR00FFFF;

支撑:IF(CURRBARSCOUNT<=N/2,DD+KJ*0.191,DRAWNULL),COLOR00FFFF;

强势: IF(CURRBARSCOUNT<=N/2,DD+KJ*0.382,DRAWNULL),COLORFF00FF;

突破:IF(CURRBARSCOUNT<=N/2,DD+KJ/2,DRAWNULL),COLOR0000FF;

警示:IF(CURRBARSCOUNT<=N/2,DD+KJ*0.618,DRAWNULL),COLOR00FFFF;

压力:IF(CURRBARSCOUNT<=N/2,DD+KJ*0.809,DRAWNULL),COLOR00FF00;

低涨:IF(CURRBARSCOUNT<=N/2,(C/LLV(LOW,K)-1)*100,DRAWNULL),COLOR0000FF,NODRAW;

天数:BARSLAST(L=DD),COLORCYAN,NODRAW;

顶点:IF(CURRBARSCOUNT<=N/2, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORRED,CROSSDOT,NODRAW;

低点:IF(CURRBARSCOUNT<=N/2, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=60)),1)),DRAWNULL),COLORMAGENTA,CROSSDOT,NODRAW;

 STICKLINE(CCI>=200 AND H>=顶点,O,C,2,0),COLORBLUE;

 STICKLINE(CCI<=100 AND L<=低点,O,C,2,0),COLORYELLOW;

 DRAWBAND(高区,RGB(0,0,0),平衡,RGB(0,0,0));

 DRAWBAND(平衡,RGB(0,0,0),低区,RGB(0,0,0));

 DRAWBAND(高,RGB(120,100,0),压力,RGB(0,0,0));

 DRAWBAND(压力,RGB(258,58,0),警示,RGB(0,0,0));

 DRAWBAND(警示,RGB(128,58,0),突破,RGB(0,0,0));

 DRAWBAND(突破,RGB(68,0,0),强势,RGB(0,0,0));

 DRAWBAND(强势,RGB(38,0,0),支撑,RGB(0,0,0));

 DRAWBAND(支撑,RGB(38,38,38),低,RGB(0,0,0));

 STICKLINE(CURRBARSCOUNT=N/2,GD,DD,0,0),COLOR408080,NODRAW;

 STICKLINE(CURRBARSCOUNT<=N/2,支撑,支撑,2,0),COLOR1E1E1E;

 STICKLINE(CURRBARSCOUNT<=N/2,强势,强势,2,0),COLOR1E1E1E;

 STICKLINE(CURRBARSCOUNT<=N/2,突破,突破,2,0),COLOR1E1E1E;

 STICKLINE(CURRBARSCOUNT<=N/2,警示,警示,2,0),COLOR1E1E1E;

 STICKLINE(CURRBARSCOUNT<=N/2,压力,压力,2,0),COLOR1E1E1E;

 DRAWTEXT(CURRBARSCOUNT=10,压力,'压力-0.809'),COLOR00FFFF,NODRAW;

 DRAWTEXT(CURRBARSCOUNT=10,警示,'警示-0.618'),COLOR00FFFF,NODRAW;

 DRAWTEXT(CURRBARSCOUNT=10,突破,'突破-0.500'),COLOR00FFFF,NODRAW;

 DRAWTEXT(CURRBARSCOUNT=10,强势,'强势-0.382'),COLOR00FFFF,NODRAW;

 DRAWTEXT(CURRBARSCOUNT=10,支撑,'支撑-0.191'),COLOR00FFFF,NODRAW;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,GD-KJ*0.09,'【风险区】--高抛避险'),COLORFFFFFF;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,GD-KJ*0.3,'【警示区】--逢高减仓'),COLORFFFFFF;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,GD-KJ*0.45,'【突破区】--主力拉升'),COLORFFFFFF;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,GD-KJ*0.55,'【拉升区】--强势畜锐'),COLORFFFFFF;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,DD+KJ/3,'【关注区】--逢低买入'),COLORFFFFFF;

 DRAWTEXT(CURRBARSCOUNT=N/4+5,DD+KJ/10,'【低吸区】--大胆买入'),COLORFFFFFF;

第一防线:REFDATE(低,DATE),DOTLINE,COLORYELLOW,NODRAW;

第二防线:REFDATE(支撑,DATE),DOTLINE,COLORWHITE,NODRAW;

 {今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLORCC3299;}

 DRAWKLINE(H,O,L,C);

 AHC1:=CLOSE*VOL;

 AHC22:=EMA((EXPMA(AHC1,27)/EXPMA(VOL,27)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,316)/EXPMA(VOL,316))/4,34);

上轨:=1.06*AHC22,COLOR40FF00,LINETHICK1;

下轨:=AHC22*0.94;

 {STICKLINE(上轨>下轨,上轨,下轨,5,0),COLOR555555;}

 ZT:=REF(C,1)*1.1-C<0.01 AND H=C;

启爆:=CROSS(C,上轨) OR CROSS(C,下轨) AND ZT;

 DRAWTEXT(启爆,L,'启爆'),COLORCYAN;

 STICKLINE(启爆,C,O,3,1),COLORWHITE;

 STICKLINE(启爆,C,O,1,0),COLORGREEN;

 STICKLINE(C>=O ,HIGH,LOW,0,1 ),COLORRED; 

 STICKLINE(C>=O ,OPEN,CLOSE,3.1,0 ),COLOR000033;

 STICKLINE(C>=O,OPEN,CLOSE,2.7,0 ),COLOR000066; 

 STICKLINE(C>=O ,OPEN,CLOSE,2.1,0 ),COLOR000099;

 STICKLINE(C>=O ,OPEN,CLOSE,1.5,0 ),COLOR0000CC;

 STICKLINE(C>=O ,OPEN,CLOSE,0.9,0 ),COLOR0000FF;

 STICKLINE(C>=O ,OPEN,CLOSE,0.3,0 ),COLORCC66FF;

 STICKLINE(C<O ,HIGH,LOW,0,1 ),COLORCYAN;

 STICKLINE(C<O ,OPEN,CLOSE,3.1,0 ),COLOR990000;

 STICKLINE(CLOSE<O ,OPEN,CLOSE,2.7,0 ),COLORCC0000; 

 STICKLINE(CLOSE<O ,OPEN,CLOSE,2.1,0 ),COLORFF4400;

 STICKLINE(CLOSE<O ,OPEN,CLOSE,1.5,0 ),COLORFF8800;

 STICKLINE(CLOSE<O ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;

 STICKLINE(CLOSE<O ,OPEN,CLOSE,0.3,0 ),COLORCYAN;

 CC:IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLOR000000,NODRAW;

止赢:1.05*CC,COLORMAGENTA,LINETHICK1;

 DRAWTEXT(ISLASTBAR,止赢,'止赢'),LINETHICK1;

止损:0.97*CC,COLORYELLOW,LINETHICK1;

 DRAWTEXT(ISLASTBAR,止损,'止损'),LINETHICK1;

 DRAWNUMBER(ISLASTBAR  ,C,C),COLORWHITE;

 AAA:=CONST(HHV(H,50));PL5:=HHV(H,45); 

 F:=100*(C-REF(C,1))/REF(C,1);

博尔:=IF(C<REF(O,1) AND F<0,1,0);

 P1:=博尔;

量化:=IF(C<REF(O,2) AND F<0,1,0);

 P2:=量化;

STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,3,0),COLOR0055FF;

操作30日均线:EMA(C,30),COLORYELLOW,LINETHICK4;

红升:IF(操作30日均线>REF(操作30日均线,1),操作30日均线,DRAWNULL),COLORRED,LINETHICK4;

绿降:IF(操作30日均线<REF(操作30日均线,1),操作30日均线,DRAWNULL),COLOR009300,LINETHICK4;

趋势55日线:EMA(C,55),COLORYELLOW,LINETHICK1,NODRAW;

红升4:IF(趋势55日线>REF(趋势55日线,1),趋势55日线,DRAWNULL),COLOR0080FF,LINETHICK1;

绿降4:IF(趋势55日线<REF(趋势55日线,1),趋势55日线,DRAWNULL),COLORFFFF00,DOTLINE,LINETHICK1;

年线:EMA(C,250),COLORYELLOW,LINETHICK1,NODRAW;

年红升:IF(年线>REF(年线,1),年线,DRAWNULL),COLOR8000FF,LINETHICK1;

年绿降:IF(年线<REF(年线,1),年线,DRAWNULL),COLORFFFF00,DOTLINE,LINETHICK1;