文华、博易和金字塔K线图上分时均价线及不同时间起点调整

@[文华、博易和金字塔K线图上分时均价线]

在K线图上以直观的方式显示分时均价线和上一结算价

在国内三类K线图上的分时：

文华分时均线

CYC:BARSLAST(DATE<>REF(DATE,1))+1;
CV:=SUM(VOL,CYC);
CS:=SUM(CLOSE*VOL,CYC);
VR:CS/CV,COLORYELLOW,LINETHICK1;
STICKLINE(CYC=1,VR,REF(VR,1),COLORWHITE,1);

博易大师分时均线

CYC:BARSLAST(DATE>REF(DATE,1))+1,NODRAW;
//-------------------------------------
P:=IF(DATAPERIOD<3,CLOSE,(C+H+L)/3);
CV:=SUM(VOL,CYC);
CS:=SUM(P×VOL,CYC);
VR:IF(CYC>1 AND CV>0,CS/CV,DRAWNULL),COLORYELLOW,LINETHICK1;//VC:SUM(CLOSE*VOL,CYC)/SUM(VOL,CYC)
PRV:=IF(CYC>1,REF(VR,CYC),DRAWNULL),NODRAW;
STICKLINE(CYC=2 AND PRV>0,VR,PRV,3,-1000),COLORWHITE;

@[增加不同时间起点调整]

金字塔可以调时间起点的分时均线

INPUT:STT(3,0,5,1);
INPUT:BAR(0,0,1000,1);
//-------------------------------------
IF STT=5 AND DATATYPE<5 THEN VOP:=HOUR()<>REF(HOUR(),1);//每小时开始计算MINUTE()=0

IF STT=4 AND DATATYPE<6 THEN VOP:=TIME=CLOSETIME(1) OR OPENMINUTES(TIME)<REF(OPENMINUTES(TIME),1);//每个交易时间段计算OPENTIME(2);

IF STT=3 AND DATATYPE<6 THEN VOP:=DATE()<>REF(DATE(),1);//每日计算，类似于分时图，也可以用 OPENMINUTES(TIME)<Ref(OPENMINUTES(TIME),1)

IF STT=2 AND DATATYPE<7 THEN VOP:=DAYOFWEEK(DATE)<DAYOFWEEK(REF(DATE,1));//每星期：WEEKDAY()=0

IF STT=1 AND DATATYPE<8 THEN VOP:=LSOLARTERMDAY(DATE)<LSOLARTERMDAY(REF(DATE,1));//每个节气：Lsolarterm(Date)>0

IF STT=0 AND DATATYPE<9 THEN VOP:=MONTH()<>REF(MONTH(),1);//每个月初作为起点
//-------------------------------------
CYC:if(BAR>0,BAR,BarsLast(VOP)+1),NODRAW;//计算K线根数，日内也可以用OPENMINUTES(TIME)
CC:=if(DATATYPE<4,CLOSE,(c+h+l)/3);//价格精度计算
CV:=SUM(VOL,CYC);
CS:=SUM(CC×VOL,CYC);
//-------------------------------------
VR:if(CYC>1 and CV>0,CS/CV,DRAWNULL),COLORYELLOW,LINETHICK1;//类似VR:SUM(CLOSE*VOL,CYC)/SUM(VOL,CYC)
PRV:if(CYC>1,REF(VR,CYC),DRAWNULL),COLORWHITE,LINEDOT;//上一结算价，日内可以用PRVSETTLEMENT()
STICKLINE(CYC=2 AND PRV>0,VR,PRV,2,0,COLORWHITE);//画出时间起点

输入STT参数： 可以改变不同时间起点，但当前K线级别要在此时间级别范围内

CC:=if(DATATYPE<4,CLOSE,(c+h+l)/3)：默认参数为日结算，日内建议用1分钟图表
STT=5 AND DATATYPE<5
STT=4 AND DATATYPE<6
STT=3 AND DATATYPE<6
STT=2 AND DATATYPE<7
STT=1 AND DATATYPE<8
STT=0 AND DATATYPE<9

比如：
0：月结算
1：节气
2：周结算
3：日结算
4：交易时间段结算
5：小时结算

每月结算

每节气结算

每周结算

每日结算

每交易时间段结算

当 BAR设置大于0时，可以当均线用，白线做均值动量平移

既然分割了时间，可以把所有分割周期（分别大概是：0.5，1，5，10，20天）写在一个图表上，效果如下：

5分钟图表上，这就是分割了时间的效果

在原油上最近表现还不错

IF DATATYPE<5 THEN BEGIN
//CYC_0:=BarsLast(HOUR()<>REF(HOUR(),1))+1;//MINUTE()=0
CYC_1:=BarsLast(TIME=CLOSETIME(1) OR OPENMINUTES(TIME)<REF(OPENMINUTES(TIME),1))+1;
CYC_2:=BarsLast(DATE()<>REF(DATE(),1))+1;
CYC_3:=BarsLast(DAYOFWEEK(DATE)<DAYOFWEEK(REF(DATE,1)))+1;
CYC_4:=BarsLast(LSOLARTERMDAY(DATE)<LSOLARTERMDAY(REF(DATE,1)))+1;
CYC_5:=BarsLast(MONTH()<>REF(MONTH(),1))+1;

//VR_0:if(CYC_0>1 and SUM(VOL,CYC_0)>0,SUM(CLOSE×VOL,CYC_0)/SUM(VOL,CYC_0),DRAWNULL),COLORYELLOW,LINETHICK1;
VR_1:if(CYC_1>1 and SUM(VOL,CYC_1)>0,SUM(CLOSE×VOL,CYC_1)/SUM(VOL,CYC_1),DRAWNULL),COLORYELLOW,LINETHICK1;
VR_2:if(CYC_2>1 and SUM(VOL,CYC_2)>0,SUM(CLOSE×VOL,CYC_2)/SUM(VOL,CYC_2),DRAWNULL),COLORYELLOW,LINETHICK1;
VR_3:if(CYC_3>1 and SUM(VOL,CYC_3)>0,SUM(CLOSE×VOL,CYC_3)/SUM(VOL,CYC_3),DRAWNULL),COLORYELLOW,LINETHICK1;
VR_4:if(CYC_4>1 and SUM(VOL,CYC_4)>0,SUM(CLOSE×VOL,CYC_4)/SUM(VOL,CYC_4),DRAWNULL),COLORYELLOW,LINETHICK1;
VR_5:if(CYC_5>1 and SUM(VOL,CYC_5)>0,SUM(CLOSE×VOL,CYC_5)/SUM(VOL,CYC_5),DRAWNULL),COLORYELLOW,LINETHICK1;

//PRV_0:if(CYC_0>1,REF(VR_0,CYC_0),DRAWNULL),COLORWHITE,LINEDOT;
PRV_1:if(CYC_1>1,REF(VR_1,CYC_1),DRAWNULL),COLORWHITE,LINEDOT;
PRV_2:if(CYC_2>1,REF(VR_2,CYC_2),DRAWNULL),COLORWHITE,LINEDOT;
PRV_3:if(CYC_3>1,REF(VR_3,CYC_3),DRAWNULL),COLORWHITE,LINEDOT;
PRV_4:if(CYC_4>1,REF(VR_4,CYC_4),DRAWNULL),COLORWHITE,LINEDOT;
PRV_5:if(CYC_5>1,REF(VR_5,CYC_5),DRAWNULL),COLORWHITE,LINEDOT;

STICKLINE(CYC_1=2 AND PRV_1>0,VR_1,PRV_1,2,0,COLORWHITE);
STICKLINE(CYC_2=2 AND PRV_2>0,VR_2,PRV_2,2,0,COLORWHITE);
STICKLINE(CYC_3=2 AND PRV_3>0,VR_3,PRV_3,2,0,COLORWHITE);
STICKLINE(CYC_4=2 AND PRV_4>0,VR_4,PRV_4,2,0,COLORWHITE);
STICKLINE(CYC_5=2 AND PRV_5>0,VR_5,PRV_5,2,0,COLORWHITE);

END