红帆君主，自动划线公式（通达信公式 主图 源码 测试图）

 红帆君主

AAA:=(3*C+H+L+O)/6;

VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36;

VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3;

VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3;

VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3;

VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3;

VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3;

短:VAR1,COLORWHITE;

中:VAR6,COLORYELLOW;

跌:IF(VAR1=VAR6,VAR6, DRAWNULL),COLORGREEN;

买:IF(中>=REF(中,1),中,DRAWNULL),LINETHICK1,COLORRED;

DRAWBAND(短,RGB(125,50,50),中,RGB(0,100,50));

支:IF(CLOSE>SAR(4,2,20),SAR(4,2,20),DRAWNULL),COLORFF00FF,LINETHICK2;

转:IF(CLOSE=SAR(4,2,20),SAR(4,2,20),DRAWNULL),COLORFF00FF,LINETHICK2;

短,VAR1,COLORWHITE;

中,VAR6,COLORYELLOW;

跌,IF(VAR1=VAR6,VAR6, DRAWNULL),COLORGREEN;

{红 分析家公式网}

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),COLOR000099;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),COLOR0000BB;

STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),COLOR0000DD; 

STICKLINE(CLOSE>OPEN,H,L,0,0),COLOR0000FF;

{绿}    

STICKLINE(CLOSE<OPEN,OPEN,CLOSE,3,0),COLOR009900; 

STICKLINE(CLOSE<OPEN,OPEN,CLOSE,2,0),COLOR00BB00;  

STICKLINE(CLOSE<OPEN,OPEN,CLOSE,1,0),COLOR00DD00;  

STICKLINE(CLOSE<OPEN,H,L,0,0),COLOR00DD00;

买线:=EMA(C,2);

卖线:=EMA((C+H+L+O)/4,7) ;

BU:=CROSS(买线,卖线);

SEL:=CROSS(卖线,买线);

DRAWICON(BU,L-0.1,7);

DRAWICON(SEL,H+0.1,8);

 

HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;

AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);

QY:=BACKSET(AA,HIGHN+1);

CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);

DRAWICON(CC,H*1.02,2);

DDD:=BARSLAST(CC);

GDTS:=IF(CC,CURRBARSCOUNT,0);

DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}

DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);

DINGBU1:=REF(DINGBU,DDD+1);

GDCS1:=CONST(DINGBUTS);

DINGBUTS1:=REF(DINGBUTS,DDD+1);

GDCS2:=CONST(DINGBUTS1);

DINGBU2:=REF(DINGBU1,DDD+1);

MM:=IF(CURRBARSCOUNT>GDCS2,0,1);

高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK1;

DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT;

DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORYELLOW,POINTDOT;

AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);

QY1:=BACKSET(AA1,LOWN+1);

CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);

DRAWICON(CC1,L*0.98,1);

DD1:=BARSLAST(CC1);

DDTS:=IF(CC1,CURRBARSCOUNT,0);

YDB:=IF(DD1,REF(L,DD1),L);

DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);

DDCS1:=CONST(DDTS1);

ZDB:=REF(YDB,DD1+1);

DDTS2:=REF(DDTS1,DD1+1);

DDCS2:=CONST(DDTS2);

低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1) COLORRED,LINETHICK1;

 

ZGSTAR:=(高点压力+低点支撑)/2;

ZGEND:=CONST((高点压力+低点支撑)/2);

STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);

中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),COLORFF55BB,LINETHICK1;

 

DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,DDCS1-1),1),COLORMAGENTA,POINTDOT,;

DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-1),1),COLORCYAN,POINTDOT;

A1F:=BACKSET(ISLASTBAR,PEAKBARS(1,5,1)+1);

A2F:=A1F>REF(A1F,1);

B1F:=BACKSET(ISLASTBAR,PEAKBARS(1,5,2)+1);

B2F:=B1F>REF(B1F,1);

C1F:=BACKSET(ISLASTBAR,PEAKBARS(1,5,3)+1);

C2F:=C1F>REF(C1F,1);

DRAWLINE(B2F,H,A2F,H,1),COLOR0000FF;

 

IF(A1F,PEAK(1,5,1),DRAWNULL),COLORFFFFFF;

A11F:=BACKSET(ISLASTBAR,TROUGHBARS(2,5,1)+1);

A21F:=A11F>REF(A11F,1);

B11F:=BACKSET(ISLASTBAR,TROUGHBARS(2,5,2)+1);

B21F:=B11F>REF(B11F,1);

C11F:=BACKSET(ISLASTBAR,TROUGHBARS(2,5,3)+1);

C21F:=C11F>REF(C11F,1);

DRAWLINE(B21F,L,A21F,L,1),COLORFF00FF;

V2L:=IF(CURRBARSCOUNT=1,VOL*240/FROMOPEN/REF(VOL,1)-1,VOL/REF(VOL,1)-1);

STICKLINE(V2L>=1,O,C,1,0),COLORYELLOW;

TYP := (HIGH + LOW + CLOSE)/3;

CCI1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,6));

差值1:=ABS(REF(CCI1,1)-CCI1),LINETHICK0;

CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10));

差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0;

CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20));

差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0;

CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30));

差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0;

CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60));

差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0;

CCI:=CCI1+CCI2+CCI3+CCI4+CCI5;

 

WZ:=50=CURRBARSCOUNT;

DRAWTEXT(WZ=1,HHV(C,100)*0.80,''),COLOR808080;

DRAWTEXT_FIX(1,0.06,0.06,0,EXTERNSTR(0,1))COLOR0000FF;

DRAWTEXT_FIX(1,0.00,0.12,0,EXTERNSTR(0,2))COLORFF00FF;

DRAWTEXT_FIX(1,0.00,0.18,0,EXTERNSTR(0,3))COLORFF88FF;

DRAWTEXT_FIX(1,0.00,0.24,0,EXTERNSTR(0,5)),COLORLICYAN;

DRAWTEXT_FIX(1,0.20,0.88,0,HYBLOCK);

DRAWTEXT_FIX(1,0.20,0.91,0,EXTERNSTR(0,1))COLOR00FF00;

DRAWTEXT_FIX(1,0.20,0.94,0,EXTERNSTR(0,3))COLORFF88FF;

DRAWTEXT_FIX(1,0.12,0.97,0,EXTERNSTR(0,2))COLORFFFFFF;

现价:DYNAINFO(7),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZDBLOCK),COLORYELLOW;DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;

DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;

DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;

{以上为显示所属板块，地域，概念等};

DRAWTEXT_FIX(ISLASTBAR,0.65,0.8,0,HYBLOCK),COLOR00FF00;

DRAWTEXT_FIX(ISLASTBAR,0.75,0.8,0,DYBLOCK),COLOR00FFFF;

DRAWTEXT_FIX(ISLASTBAR,0.65,0.9,0,GNBLOCK),COLORYELLOW;

{以上为显示所属板块，地域，概念等}; 

 

 

 

 

 

 

 

 

{DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZDBLOCK),COLORYELLOW;{营业部名称显示主图}}

{DRAWTEXT_FIX(ISLASTBAR,0,0,0,GNBLOCK),COLORYELLOW;}

ZT:=C/REF(C,1)>1.095;

STICKLINE(ZT,O,C,0.8,0),COLORYELLOW;

 

LHB:=SIGNALS_USER(100,0) < 0 OR SIGNALS_USER(100,0) > 0;{100:龙虎榜}

JGZY:=SIGNALS_USER(101,0) < 0 OR SIGNALS_USER(101,0) > 0;{101:机构专用}

DZJY:=SIGNALS_USER(102,0) < 0 OR SIGNALS_USER(102,0) > 0;{102:大宗交易}

HZLS:=SIGNALS_USER(103,0) < 0 OR SIGNALS_USER(103,0) > 0;{103:汇智历史}

YHSX:=SIGNALS_USER(104,0) < 0 OR SIGNALS_USER(104,0) > 0;{104:银河绍兴}

HTCDSJL:=SIGNALS_USER(105,0) < 0 OR SIGNALS_USER(105,0) > 0;{华泰成都蜀金路：105}

SWSHLJZ:=SIGNALS_USER(106,0) < 0 OR SIGNALS_USER(106,0) > 0;{申银万国上海陆家嘴环路：106}

GTJASHFSL:=SIGNALS_USER(107,0) < 0 OR SIGNALS_USER(107,0) > 0;{国泰君安上海福山路：107}

ZXSHLYL:=SIGNALS_USER(108,0) < 0 OR SIGNALS_USER(108,0) > 0;{中信上海溧阳路：108}

 

 

 

DRAWICON(LHB,L*0.95,1);

STICKLINE(LHB,O,C,0.8,0),COLORYELLOW;

<>