通达信金银K指标公式

DRAWGBK(O>CRGB(99000)RGB(00990)0'背景图'0);
A1:=(EMA((OPEN+HIGH+LOW+CLOSE)/43)+EMA((OPEN+HIGH+LOW+CLOSE)/46)+EMA((OPEN+HIGH+LOW+CLOSE)/49))/3;
A2:=(EMA((OPEN+HIGH+LOW+CLOSE)/45)+EMA((OPEN+HIGH+LOW+CLOSE)/410)+EMA((OPEN+HIGH+LOW+CLOSE)/420))/3;
A3:=(EMA((OPEN+HIGH+LOW+CLOSE)/47)+EMA((OPEN+HIGH+LOW+CLOSE)/414)+EMA((OPEN+HIGH+LOW+CLOSE)/428))/3;
A4:=(EMA((OPEN+HIGH+LOW+CLOSE)/49)+EMA((OPEN+HIGH+LOW+CLOSE)/418)+EMA((OPEN+HIGH+LOW+CLOSE)/436))/3;
A5:=(EMA((OPEN+HIGH+LOW+CLOSE)/411)+EMA((OPEN+HIGH+LOW+CLOSE)/422)+EMA((OPEN+HIGH+LOW+CLOSE)/444))/3;
A6:=(EMA((OPEN+HIGH+LOW+CLOSE)/413)+EMA((OPEN+HIGH+LOW+CLOSE)/426)+EMA((OPEN+HIGH+LOW+CLOSE)/452))/3;
A7:=(EMA((OPEN+HIGH+LOW+CLOSE)/421)+EMA((OPEN+HIGH+LOW+CLOSE)/434)+EMA((OPEN+HIGH+LOW+CLOSE)/468))/3;
TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/73)6);
DIRECTIONMAX:=MAX(REF(TOWERC2)REF(TOWERC2));
DIRECTIONMIN:=MIN(REF(TOWERC1)REF(TOWERC1));
{银柱}
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN150)COLOR333333;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN130)COLOR333333;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN110)COLOR333333;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN100)COLOR333333;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN70)COLOR444444;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN60)COLOR555555;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN50)COLOR777777;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN40)COLOR999999;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN30)COLORBBBBBB;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN20)COLORDDDDDD;
STICKLINE(TOWERC<REF(TOWERC1)TOWERCDIRECTIONMIN10)COLORFFFFFF;
{金柱}
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX150)COLOR004444;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX130)COLOR004444;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX110)COLOR004444;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX100)COLOR004444;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX70)COLOR005555;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX60)COLOR006666;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX50)COLOR007777;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX40)COLOR009999;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX30)COLOR00BBBB;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX20)COLOR00DDDD;
STICKLINE(TOWERC>=REF(TOWERC1)TOWERCDIRECTIONMAX10)COLOR00FFFF;
{所属板块}
Z1:=STRCAT(HYBLOCK' ');
Z2:=STRCAT(Z1FGBLOCK);
Z3:=STRCAT(Z2DYBLOCK);
Z4:=STRCAT(Z3' ');
DRAWTEXT_FIX(ISLASTBAR0.030.1990STRCAT(Z4GNBLOCK))COLORCYAN;
{DRAWTEXT_FIX(ISLASTBAR0.030.990STRCAT(Z4GNBLOCK))COLORCYAN;};