通达信裸K+大盘叠加主图指标公式

[复制链接]
查看164 | 回复0 | 2021-8-20 21:56:11 | 显示全部楼层 |阅读模式

K:=1;
{画大盘K}
ZQ:=220;
P1:=CONST(LLV(INDEXL,ZQ));PC:=CONST(HHV(INDEXH,ZQ))-P1;
J1:=CONST(LLV(L,ZQ)); JC:=CONST(HHV(H,ZQ))-J1;
JPB:=JC/PC;
LX:=J1+(INDEXL-P1)*JPB;
HX:=J1+(INDEXH-P1)*JPB;
OX:=J1+(INDEXO-P1)*JPB;
CX:=J1+(INDEXC-P1)*JPB;
STICKLINE(OX<=CX AND K=1,HX,LX,0,0),COLOR660066;
STICKLINE(OX<=CX AND K=1,OX,CX,2,1),COLOR660066;
STICKLINE(OX>CX AND K=1,HX,LX,0,0),COLOR8A0000;
STICKLINE(OX>CX AND K=1,OX,CX,2,0),COLOR8A0000;
{缺口}
STICKLINE(L>REF(H,1) ,REF(H,1),L,9,-1),COLORFD00DF;
STICKLINE(H<REF(L,1) ,REF(L,1),H,9,-1),COLORFDFD00;
DRAWKLINE(H,O,L,C);
{STICKLINE(CLOSE/REF(CLOSE,1)>=1.095,C,O,-1,0),COLOR00DDDD;}
DRAWTEXT(CLOSE/REF(CLOSE,1)>=1.095,L,'涨停'),COLOR00DDDD;
{IF(CURRBARSCOUNT<T+3,CONST(REF(C,1)),DRAWNULL),COLORLIMAGENTA;
IF(CURRBARSCOUNT<T+3,CONST(REF(O,T)),DRAWNULL),COLORLIMAGENTA;};

202108201612.jpg

202108201612.jpg

 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则