通达信黄金分割操盘主图指标公式

通达信财神送财主图指标公式

通达信黄金分割操盘主图指标公式：

M:=13;

网1:=expma(C,5),COLORYELLOW;

网2:=EXPMA(网1,2);

网3:=EXPMA(网2,2);

网13:EXPMA(CLOSE,13),COLORGRAY,LINETHICK3;

网33:EXPMA(CLOSE,33),COLORFF00FF,LINETHICK4;

TJ1A:IF(网1>网2,网1,网2),COLORLICYAN;

TJ2A:IF(网1>网3,网1,网3),COLORGREEN;

TJ3A:网1,COLORYELLOW,LINETHICK2;

{QS}

网A:=EXPMA(CLOSE,5),COLORWHITE;

网B:=EXPMA(CLOSE,33),COLORFF00FF,LINETHICK3;

IF(网B<REF(网B,1),网B,DRAWNULL),COLOR00FF00,LINETHICK3;

IF(网B<REF(网A,1),网A,DRAWNULL),COLORWHITE,LINETHICK1;

IF(网1<REF(网B,1),网A,DRAWNULL),COLORGREEN,LINETHICK1;

{黄金分割线}

顶1:=REFDATE(HHV(H,M),DATE);

底1:=REFDATE(LLV(L,M),DATE);

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),COLOR666666;

%19.8:REFDATE(H1,DATE),COLOR666666;

%38.2:REFDATE(H2,DATE),COLOR666666;

%50:REFDATE(H3,DATE),COLOR666666;

%61.8:REFDATE(H4,DATE),COLOR666666;

%80.9:REFDATE(H5,DATE),COLOR666666;

底部:REFDATE(底1,DATE),COLOR666666;

DRAWTEXT(ISLAstBAR,顶部,' 顶部'),COLORGREEN;

DRAWTEXT(ISLASTBAR,%19.8,' 19.8％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,%38.2,' 38.2％'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,%50,' 50％'),COLORWHITE;

DRAWTEXT(ISLASTBAR,%61.8,' 61.8％'),COLORYELLOW;

DRAWTEXT(ISLASTBAR,%80.9,' 80.9％'),COLORMAGENTA;

DRAWTEXT(ISLASTBAR,底部,' 底部'),COLORRED;

{bs标志}

DRAWICON((zig(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,7);

DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2))

AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.02,8);

{箱体}

{

箱顶:PEAK(CLOSE,N,1)*0.98,POINTDOT,LINETHICK3,COLORYELLOW;

箱底:TROUGH(CLOSE,N,1)*1.02,POINTDOT,LINETHICK3,COLORFFFF00;

箱高:100*(箱顶-箱底)/箱底,NODRAW;

};

HH:=CONST(HHV(H,160));

LL:=CONST(LLV(L,160));{160可改成你习惯锁定的日k线数}

HL1:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.76,0.04));

HL2:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.80,0.08));

HL3:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.84,0.12));

HL4:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.88,0.16));

HL5:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.92,0.20));

HL6:=CONST(IF(CONST(REF(MA(C,10),10))>CONST((HH+LL)/2),0.96,0.24));

DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF;

DRAWTEXT_FIX(1,0.07,0,0,HYBLOCK)COLOR0080FF;

DRAWTEXT_FIX(1,0.14,0,0,'所属地区：')COLOR00FFFF;

DRAWTEXT_FIX(1,0.21,0,0,DYBLOCK)COLOR00FFFF;

DRAWTEXT_FIX(1,0.00,0.04,0,'主题投资：')COLOR0000FF;

DRAWTEXT_FIX(1,0.07,0.04,0,EXTERNSTR(0,1))COLOR0000FF; {生成数据时第1项输1与这里1一致,描述部分输"主题投资"}

DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：')COLORFF00FF;

DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2))COLORFF00FF; {生成数据时第1项输2与这里2一致,描述部分输"主营业务"}

DRAWTEXT_FIX(1,0.00,0.12,0,'出千概念：')COLORFF88FF;

DRAWTEXT_FIX(1,0.07,0.12,0,EXTERNSTR(0,3))COLORFF88FF; {生成数据时第1项输3与这里3一致,描述部分输"出千概念"}

总额:=AMOUNT;

买:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L));

买%:=买/AMOUNT*100;

流入:=AMOUNT*买%/10000000000;

流出:=AMOUNT/100000000-流入;

净流:=(流入-流出);

总额3:=SUM(AMOUNT,3);

流入3:=SUM(流入,3);

流出3:=SUM(流出,3);

净流3:=SUM(流入-流出,3);

总额5:=SUM(AMOUNT,5);

流入5:=SUM(流入,5);

流出5:=SUM(流出,5);

净流5:=SUM(流入-流出,5);

总额10:=SUM(AMOUNT,10);

流入10:=SUM(流入,10);

流出10:=SUM(流出,10);

净流10:=SUM(流入-流出,10);

画:=CONST(FINDHIGH(总额10,0,190,1));

DRAWTEXT_FIX(1,0.71,0.07,0,'净流(亿):'),COLORMAGENTA,LINETHICK1;

DRAWTEXT_FIX(1,0.78,0.05,0,'1日'),COLORMAGENTA,LINETHICK1;

DRAWTEXT_FIX(1,0.83,0.05,0,'3日'),COLORMAGENTA,LINETHICK1;

DRAWTEXT_FIX(1,0.88,0.05,0,'5日'),COLORMAGENTA,LINETHICK1;

DRAWTEXT_FIX(1,0.93,0.05,0,'10日'),COLORMAGENTA,LINETHICK1;

DRAWNUMBER_FIX(1,0.78,0.10,0,CONST((净流))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.83,0.10,0,CONST((净流3))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.88,0.10,0,CONST((净流5))),COLORYELLOW;

DRAWNUMBER_FIX(1,0.93,0.10,0,CONST((净流10))),COLORYELLOW;

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);MA5:=MA(C,5);MA10:=MA(C,10);MA30:=MA(C,30);

FA:=BArslAST(crOSS(MA10,MA5))

AND CROSS(MA5,MA10);

FB:=FA AND MA5>MA30 AND MA10>MA30 AND

MA10>REF(MA10,1);

DRAWTEXT(FB,L-0.58,'红牛'),COLORRED;V1:=EMA(CLOSE,5);

V2:=EMA(EMA(CLOSE,90)*1.01,10);

DRAWTEXT(CROSS(V1,V2),V1+0.05,'牛起步'),COLOR00FF00;

{过左峰提示粉色}

VAR121:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

VAR141:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

VAR161:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

VAR181:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

卖:=(VAR121+VAR141+VAR161+VAR181),LINETHICK2;

SQ:DRAWLINE(卖,H,BARSLAST(卖)>=1,REF(H,BARSLAST(卖)),1),COLORWHITE,LINETHICK2;

过峰:=C>SQ AND REF(C,1)<SQ;

Vvol:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;

预量:=VVOL/REF(V,1)>1.8;

现量:=V/REF(V,1)>1.5;

过峰1:STICKLINE( 过峰,C,O,5,0)COLORFF00FF;

预量1:DRAWICON(过峰 AND 预量, H*1.01,14);

现量1:DRAWICON(过峰 AND 现量,(O+C)/2,23);

前次低点:LLV(L*1,250)POINTDOT,COLORFF00FF,LINETHICK4;

通达信涨停回调二次起飞选股指标公式