通达信转红买副图指标公式

安装后如下图，友情提示（指标只是辅助，不作建议） 所有程序均为免费分享。

不会安装点击 安装指南 步骤操作。

CC:=FORCAST(C,3);

OO:=FORCAST(O,3);

HH:=FORCAST(H,3);

LL:=FORCAST(L,3);

SHORT:=21;

LONG:=34;

M:=13;

DIFFFF:=EMA(CC,SHORT) - EMA(CC,LONG);

DEAAA:=EMA(DIFFFF,M);

MKCD:=WMA((DIFFFF-DEAAA),3)*400,COLOR00FF00,LINETHICK2;

DC:=WMA(CC,SHORT/2)-WMA(CC,LONG/2); {收盘价的DIFF}

DK:=WMA(OO,SHORT/2)-WMA(OO,LONG/2); {开盘价的DIFF}

DH:=(WMA(HH,SHORT/2)-WMA(HH,LONG/2))*1.8; {最高价的DIFF}

DL:=(WMA(LL,SHORT/2)-WMA(LL,LONG/2))*1.8; {最低价的DIFF}

VARVA1:=DC>REF(DC,1) AND DC>REF(DC,2);

VARVA2:=REF(VARVA1,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VARVA3:=REF(VARVA2,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARVA4:=REF(VARVA3,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VARVA5:=REF(VARVA4,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARVA6:=REF(VARVA5,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VARVA7:=REF(VARVA6,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARVA8:=REF(VARVA7,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VARVA9:=REF(VARVA8,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARA:=REF(VARVA9,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VARB:=REF(VARA,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARC:=REF(VARB,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),3,0),COLOR0F33AA;

STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),2,0),COLOR0F66CC;

STICKLINE(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,DC,REF(DC,1),1,0),COLOR0F99DD;

VARD:=DC<REF(DC,1) AND DC<REF(DC,2);

VARE:=REF(VARD,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VARF:=REF(VARE,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VAR10:=REF(VARF,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VAR11:=REF(VAR10,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VAR12:=REF(VAR11,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VAR13:=REF(VAR12,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VAR14:=REF(VAR13,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VAR15:=REF(VAR14,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VAR16:=REF(VAR15,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

VAR17:=REF(VAR16,1) AND DC<=REF(DC,1) AND DC>=REF(DC,2);

VAR18:=REF(VAR17,1) AND DC>=REF(DC,1) AND DC<=REF(DC,2);

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),3,0),COLORFF3322;

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),2,0),COLORFF6622;

STICKLINE(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,DC,REF(DC,1),1,0),COLORFF9922;

VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VARVA1;

STICKLINE(VAR19,REF(DC,1),REF(DH,2),0.1,0),COLOR0000FF;

STICKLINE(VAR19,REF(DC,1),REF(DC,2),4,0),COLOR0000FF;

VAR1A:=REF(VARVA1 OR VARVA2 OR VARVA3 OR VARVA4 OR VARVA5 OR VARVA6 OR VARVA7 OR VARVA8 OR VARVA9 OR VARA OR VARB OR VARC,1) AND VARD;

STICKLINE(VAR1A,REF(DC,1),REF(DL,2),0.1,0),COLOR00FF00;

STICKLINE(VAR1A,REF(DC,1),REF(DC,2),4,0),COLOR00FF00;{程序化指标官方网址 WWW.HONGHAIE.COM}

AA:=DC>REF(DC,1) AND REF(DC,1)>REF(DC,2) AND REF(DC,1)<REF(DC,3) AND IF(REF(DC,3)<REF(DC,4),1,IF(REF(DC,4)<REF(DC,5),REF(DC,1)<REF(DC,4) OR (REF(DC,2)<REF(DC,4) AND REF(DC,3)>=REF(DC,5)),IF(REF(DC,5)<REF(DC,6),1,REF(DC,6)<REF(DC,7))));

BBB:=DC<REF(DC,1) AND REF(DC,1)<REF(DC,2) AND REF(DC,1)>REF(DC,3) AND IF(REF(DC,3)>REF(DC,4),1,IF(REF(DC,4)>REF(DC,5),REF(DC,1)>REF(DC,4) OR (REF(DC,2)>REF(DC,4) AND REF(DC,3)<=REF(DC,5)),IF(REF(DC,5)>REF(DC,6),1,REF(DC,6)>REF(DC,7))));

DRAWTEXT(AA AND DC>REF(DK,1),DL*0.92,'转红'),COLOR0044FF;

DRAWTEXT(BBB AND DC<REF(DC,1),DH*1.08,'转绿'),COLOR00FF00;