| 

 等级: 新手上路 
注册: 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本帖子中包含更多资源您需要 登录 才可以下载或查看,没有帐号?  
  |