
等级: 新手上路
- 注册:
- 2021-8-3
- 曾用名:
|
以下指标怎么加个从xx时间开盘到xx时间画个横线(比如早上7点开盘价-22点钟结束)
INPUT:N(6,2,999),M(36,2,999),KG(0,0,1);
WW:=FLOOR((DATETOD1970(DATE)-3)/7);
WSt:=BARPOS=1 OR WW<>REF(ww,1);
mm:=MONTH;
mst:=BARPOS=1 OR mm<>REF(mm,1);
IF kg=1 THEN BEGIN
WW:=MOD(BARPOS,n)=1;
WSt:=BARPOS=1 OR WW;
MM:=MOD(BARPOS,m)=1;
MSt:=BARPOS=1 OR MM;
END;
{月K线}
Med:=REFX(MSt,1) OR BARPOS=DATACOUNT;
Msp:=BARSLAST(MSt)+1;
MO:REF(O,BARSLAST(MSt)) , LINETHICK0 ,colorWHITE;
MH:HHV(H,Msp) , LINETHICK0 ,colorWHITE;
MH:=SETVAL(Med,MH,-BARSLAST(MSt),MH);
ML:LLV(L,Msp) , LINETHICK0 , colorWHITE;
ML:=SETVAL(Med,ML,-BARSLAST(MSt),ML);
MC:SETVAL(Med,C,-BARSLAST(MSt),C) ,LINETHICK0 ,colorWHITE;
MV:=SETVAL(Med,0,-FLOOR(BARSLAST(MSt)/2),1);
MV:=SETVAL(Med,MV,-FLOOR(BARSLAST(MSt)/2)+1,0);
PKM:=Msp>1;
PKMV:=PKM AND MV;
PKLV:=MSt AND NOT(Med);
PKRV:=PKM AND Med;
Zf:=MC>MO OR (MC=MO AND MC>REF(MC,Msp));
PARTLINE(PKM AND ZF,MO),COLORMAGENTA;
PARTLINE(PKM AND NOT(ZF),MO),colorffdd00;
{周K线}
Wed:=REFX(WSt,1) OR BARPOS=DATACOUNT;
Wsp:=BARSLAST(WSt)+1;
WO:REF(O,BARSLAST(WSt)), LINETHICK0 ,colorYELLOW;
WH:HHV(H,Wsp), LINETHICK0, colorYELLOW;
WH:=SETVAL(Wed,WH,-BARSLAST(WSt),WH);
WL:LLV(L,Wsp), LINETHICK0, colorYELLOW;
WL:=SETVAL(Wed,WL,-BARSLAST(WSt),WL);
WC:SETVAL(Wed,C,-BARSLAST(WSt),C), LINETHICK0 ,colorYELLOW;
WV:=SETVAL(Wed,0,-FLOOR(BARSLAST(WSt)/2),1);
WV:=SETVAL(Wed,WV,-FLOOR(BARSLAST(WSt)/2)+1,0);
PKW:=Wsp>1;
PKMV:=PKW AND WV;
PKLV:=WSt AND NOT(Wed);
PKRV:=PKW AND Wed;
f:=WC>WO OR (WC=WO AND WC>REF(WC,Wsp)),;
PARTLINE(PKW AND F,WO),COLORAAAAEE;
PARTLINE(PKW AND NOT(F),WO) ,colorEEAAAA;
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?
x
|