股市杀破2000点昨天出地量331亿元 给个成交额便于看盘
股市杀破2000点昨天出地量331亿元 给个成交额便于看盘，一般的成交量VOL显示的是股数（手）我加以改变成成交额便于看盘。
虚拟额:IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,MAX(AMOUNT/100000000,DYNAINFO(17)*REF(MA(AMOUNT/100000000,5),1)),0);
STICKLINE(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VOL/100000000,MAX(VOL/100000000,DYNAINFO(17)*REF(MA(VOL/100000000,5),1)),7,-21),COLOR00C0C0;
成交额:AMOUNT/100000000,VOLSTICK;
天额:HHVALL(AMOUNT/100000000),Color008000,DOTLINE,LAYER0,LINETHICK2;
地额:LLVALL(AMOUNT/100000000),Color0066FF,DOTLINE,LAYER0,LINETHICK2;
AMOUNT/100000000,VOLSTICK;
PL:=AMOUNT/100000000/REF(AMOUNT/100000000,1);
DRAWTEXT(PL>=2 AND PL<3,AMOUNT/100000000,'2'),color0066ff,LINETHICK7;
DRAWTEXT(PL>=3 AND PL<4,AMOUNT/100000000,'3'),color0066ff,LINETHICK7;
DRAWTEXT(PL>=4 AND PL<5,AMOUNT/100000000,'4'),color0066ff,LINETHICK7;
DRAWTEXT(PL>=5 AND PL<6,AMOUNT/100000000,'5'),color0066ff,LINETHICK7;
DRAWTEXT(PL>=6 AND PL<6,AMOUNT/100000000,'6'),color0066ff,LINETHICK7;
DRAWTEXT(PL>=7 ,AMOUNT/100000000,'7'),color0066ff,LINETHICK7;
{预计今天成交量}
今天成交额:=AMOUNT/10000;
昨天成交额:=REF(今天成交额,1);
交易分钟数:=if(CURRENTTIME>93000 and CURRENTTIME<150000 and DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,
if(CURRENTTIME<113000,(TIMETOT0(CURRENTTIME)-34200)/60,
if(CURRENTTIME>130000,(TIMETOT0(CURRENTTIME)-39600)/60,120)),240);
预测今天:=今天成交额/交易分钟数*240;
交易分时:=FRACPART( 交易分钟数/60);
剩余分时:=交易分时*60;
剩余秒:=FRACPART( 剩余分时);
剩余秒时:=剩余秒*60;
交易小时:=交易分钟数/60 ;
{显示文字}
DRAWTEXTABS(5,0,'昨天金額：'+NUMTOSTRN(昨天成交额/10000,2)+'亿'),ColorF5FF00,LINETHICK1;
DRAWTEXTABS(5,13,'预计今天：'+NUMTOSTRN(预测今天/10000,2)+'亿'),COLOR00FFFF,LINETHICK1;
DRAWTEXTABS(380,2,'交易时间：'+INTPART(交易小时)+'小时'+NUMTOSTRN(剩余分时,0)+'分'+NUMTOSTRN(剩余秒时,0)+'秒'+' 已成交金額'+'：'+NUMTOSTRN(今天成交额/10000,2)+'亿元'),ColorF5FF00,LINETHICK0,PRECIS2;
{柱图}
图长度像素:=230*0.5;
昨天图长度:=230+图长度像素;
预测今天图:=(预测今天/昨天成交额)*图长度像素+230;
目前成交图:=(今天成交额/昨天成交额)*图长度像素+230;
DRAWRECTABS(130,1,昨天图长度,9 ,RGB(0,255,150));
DRAWRECTABS(130,13,目前成交图, 23 ,RGB(255,73,20));
DRAWRECTABS(130,16,预测今天图,20 ,RGB(255,255,0));
VOLUME:AMOUNT/100000000,VOLSTICK;
MAVOL1:MA(VOLUME,5),LINETHICK2,COLORMAGENTA;
MAVOL2:MA(VOLUME,20),LINETHICK2,COLORGREEN;
VAR2:=1*AMOUNT;
买:=CROSS(MAVOL1,MAVOL2);
DRAWTEXT(买=1,MAVOL1,'★ '),COLORred,LINETHICK5;
卖:=CROSS(MAVOL2,MAVOL1);
DRAWTEXT(卖=1,MAVOL2,'▼ '),Coloryellow,LINETHICK5;
一十日天量:=HHV(VAR2,10)=VAR2;
三十日天量:=HHV(VAR2,30)=VAR2;
六十日天量:=HHV(VAR2,60)=VAR2;
一百二十日天量:=HHV(VAR2,120)=VAR2;
STICKLINE(一十日天量,VOLUME,VOLUME*0.7,7,0),COLORMAGENTA,LINETHICK0;
STICKLINE(三十日天量,VOLUME,VOLUME*0.7,7,0),COLORYELLOW;
STICKLINE(六十日天量,VOLUME,VOLUME*0.7,7,0),Color0066FF;
STICKLINE(一百二十日天量,VOLUME,VOLUME*0.7,7,0),COLORGREEN;
一十日地量:=LLV(VAR2,10)=VAR2;
三十日地量:=LLV(VAR2,30)=VAR2;
六十日地量:=LLV(VAR2,60)=VAR2;
九十日地量:=LLV(VAR2,90)=VAR2;
一百二十日地量:=LLV(VAR2,120)=VAR2;
STICKLINE(一十日地量,-0.2,0,7,0),COLORMAGENTA,LINETHICK0;
STICKLINE(三十日地量,-0.2,0,7,0),COLORYELLOW,LINETHICK0;
STICKLINE(六十日地量,-0.2,0,7,0),Color0066FF,LINETHICK0;
STICKLINE(九十日地量,-0.2,0,7,0),COLORGREEN,LINETHICK0;
STICKLINE(一百二十日地量,-0.2,0,7,0),COLORGREEN,LINETHICK0;
DRAWTEXTABS(650,2,'《一十日天量》'),COLORMAGENTA,LINETHICK0;
DRAWTEXTABS(650,17,'《三十日天量》'),COLORYELLOW,LINETHICK0;
DRAWTEXTABS(730,2,'《六十日天量》'),Color0066FF,LINETHICK0;
DRAWTEXTABS(730,17,'《一百二十日天量》'),COLORGREEN,LINETHICK0;
DRAWTEXTABS(830,2,'《一十日地量》'),COLORMAGENTA,LINETHICK0;
DRAWTEXTABS(830,17,'《三十日地量》'),COLORYELLOW,LINETHICK0;
DRAWTEXTABS(900,2,'《六十日地量》'),Color0066FF,LINETHICK0;
DRAWTEXTABS(900,17,'《一百二十日地量》'),COLORGREEN,LINETHICK0;
|
