成交量（地量、解禁股）{地量
VOL,VOLSTICK;
AA:=SUMBARS(VOL,CAPITAL);
地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,LINETHICK0;
STICKLINE(地量,VOL,0,7,0),COLORYELLOW;
{解禁股}
解禁股:=SelfString('限售流通股. 大智慧');
XOffset:= 0;
YOffset:= 0;
lineHeight:= 18;
pos1:= STRFIND(解禁股, ';', 1);
pos2:= STRFIND(解禁股, ';', pos1 + 1);
pos3:= STRFIND(解禁股, ';', pos2 + 1);
pos4:= STRFIND(解禁股, ';', pos3 + 1);
pos5:= STRFIND(解禁股, ';', pos4 + 1);
str1:= STRMID(解禁股, 1 , pos1-1);
str2:= STRMID(解禁股, pos1 + 1, pos2 - pos1 - 1);
str3:= STRMID(解禁股, pos2 + 1, pos3 - pos2 - 1);
str4:= STRMID(解禁股, pos3 + 1, pos4 - pos3 - 1);
str5:= STRMID(解禁股, pos4 + 1, pos5 - pos4 - 1);
IF pos1 THEN DRAWTEXTABS(XOffset, YOffset + lineHeight , '解禁股： '+ str1), Color808080;
IF pos1 AND pos2 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 2, str2), Color908070;
IF pos1 AND pos2 AND pos3 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 3, str3), Color808080;
IF pos1 AND pos2 AND pos3 AND pos4 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 4, str4), Color908070;IF pos1 AND pos2 AND pos3 AND pos4 AND pos5 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 5, str5), Color808080;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
