月周日虚拟成交量，这是通达信的，以前在论坛找的，
WD:=IF(WEEKDAY<=5,WEEKDAY,1);{返回周几}
WDM:=(WEEKDAY-1)*240+FROMOPEN;{计算本周的开盘分钟数}
CD:=DAY;
TWD:=WEEKDAY;
CMD:=30;
YINZI:=7-(CD MOD 7)-TWD;
CMW:=((CMD+YINZI)-1)*5+TWD;
V1:=DAY;{日期}
V2:=WEEKDAY;
V3:=V2-(V1-INTPART(V1/7)*7); {取得当日和7以及周几的关连因子}
{(V1+X) MOD 7 =V2 }
V4:=IF(V3>0,V3,7-ABS(V3));{全部换算成正数}
{算第一天是周几}
V5:=1+V4;{第一天周几,已经调试正确}
V6:=IF(V5<=5,5-V5+1,0);{第一周的工作日,调试准确}
V7:=7-V5+2;{计算第二周开始的日期,调试准确,即第二周周一的日期}
V8:=IF(V1<V7,V1+V4,0);{第一周的当前日是周几}
V9:=IF(V8<=5 AND V1<V7,V8-V5+1,0);{第一周的当前工作日数}
VA:=IF(V1>=V7,V1-V7,0);
{第二周开始截至目前的工作日＋第一周的工作日,经过验证，但是停牌无法处理};
VB:=IF(V1>=V7,INTPART(VA/7)*5 + VA-INTPART(VA/7)*7 + V6+1,V9);
VM1:=MONTH;
VM2:=IF(VM1=2,28,IF((VM1=1 OR VM1=3 OR VM1=5 OR VM1=7 OR VM1=8 OR VM1=10 OR VM1=12),31,30));
VM3:=VM2-V7;
VMB:=INTPART(VM3/7)*5 + VM3-INTPART(VM3/7)*7 + V6+1;{当月最大交易日}
MDM:=(VB-1)*240+FROMOPEN;{计算本月的开盘分钟数}
当期:VOL/1000,VOLSTICK COLORWHITE ;
VDV:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN/1000,
IF(CURRBARSCOUNT=1 AND PERIOD=6,VOL/WDM*1200/1000,
IF(CURRBARSCOUNT=1 AND PERIOD=7,VOL/MDM*(240*VMB)/1000,VOL/1000))),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VDV,VOL/1000,-1,-1),COLOR00C0C0;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=6,VDV,VOL/1000,-1,-1),COLOR00C0C0;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=7,VDV,VOL/1000,-1,-1),COLOR00C0C0;
环比:VDV*1000/REF(VOL,1),NODRAW;
DV:VOL/1000,VOLSTICK;
MV5: MA(VDV,5),COLORFFFFFF;
MV10:MA(VDV,10),COLORYELLOW;
MV20:MA(VDV,20),COLORGREEN;
MV30:MA(DV,30),COLORGREEN;
大主线:MA(VDV,60),COLORMAGENTA LINETHICK2;
HY大主线:MA(DV,120),COLORWHITE;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
