LL1:=(HIGH + LOW + CLOSE)/3;
DRAWTEXT((C-REF(C,1))/REF(C,1)*100>9.5,OPEN,’漲停’+’ ‘+STR(YEAR)+STR(MONTH)+STR(DAY)+STR(TIME)),COLOR00FFFF;
DRAWTEXTREL(1,10,’■所屬板塊：’+BKNAME),COLORGREEN;
DRAWTEXTREL(1,50,’■主題庫：’+SELFSTRING(‘主題投資’)),COLORYELLOW;
{DRAWTEXTREL(1,90,’■主營構(gòu)成：’+SELFSTRING(‘主營構(gòu)成’)),COLORYELLOW; }
DRAWTEXTREL(1,90,’■主營業(yè)務(wù)：’+SELFSTRING(‘主營業(yè)務(wù)’)),COLORYELLOW;
DRAWTEXTREL(1,130,’■智能診斷：’+SELFSTRING(‘智能診斷’)),COLORYELLOW;
DRAWTEXTREL(1,170,’■千股千評：’+SELFSTRING(‘千股千評’)),COLORYELLOW;
DRAWTEXTREL(1,210,’■敢死隊席位：’+SELFSTRING(‘敢死隊席位’)),COLORYELLOW;
MA5:EMA(LL1,5),colorwhite;
MA10:EMA(LL1,10);
MA30:EMA(LL1,30);
T:=TIMETOT0(CURRENTTIME)/60;
交易日:=IF(CURRENTDATE=DATE,1,0);
交易時間:=IF(交易日=1 AND CURRENTTIME>=93000 AND CURRENTTIME<150000 AND DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,
IF(CURRENTTIME<113000,(T-570),IF(CURRENTTIME>130000,(T-660),120)),240);
虛擬量:=VOL*240/交易時間;
LL2:=cross(c,MA30) and cross(c,MA5) and cross(c,MA10);
DRAWICON(LL2 ,L,7),align1;
LL3:=MA30>=ref(MA30,1) and cross(c,ma30) and MA5>=ref(MA5,1) and MA10>=ref(MA10,1) and MA10>=ref(MA10,1) and 虛擬量>ma(vol,5) and 虛擬量>ma(vol,10) and 虛擬量>ma(vol,20);
STICKLINE(LL3,c,O, 8,0),COLOR111187;
STICKLINE(LL3,c,O, 6,0),COLOR1111A7;
STICKLINE(LL3,c,O, 4,0),COLOR1111C7;
STICKLINE(LL3,c,O, 2,0),COLOR1111E7;
STICKLINE(LL3,c,O,0.2,-100),COLOR4444FF;
partline(MA30,MA30>=ref(MA30,1),rgb(255,0,0),MA30 {lakewaygifts.com 概念股網(wǎng)_大智慧指標公式}
；現(xiàn)價: if (DYNAINFO(4)=0,C,DYNAINFO(7)),colorwhite,POINTDOT;
I1:=0;
flag1:=0;
while I1 DO
IF REF(H,I1)HHV(H,I1+1)
THEN BEGIN FLAG1:=1;
S1:=I1;
I1:=BARSLAST(DISPSTATUS=1);
END
ELSE I1:=I1+1;
STICKLINE(FLAG1,REF(L,S1+1),HHV(H,S1+1),(s1+1)*20,0),Color808080,ALIGN1,LAYER7;
DRAWTEXT(flag1,REF(L,s1+1),NUMTOSTRN(ref(l,s1+1),2)+’-‘+NUMTOSTRN(hhV(h,S1+1),2)),ALIGN2,COLORffffff,linethick2;
I:=0;
flag:=0;
while I DO
IF REF(L,I)>REF(H,I+1) AND REF(H,I+1) THEN BEGIN FLAG:=1;
S:=I;
I:=BARSLAST(DISPSTATUS=1);
END
ELSE I:=I+1;
STICKLINE(FLAG,REF(h,S+1),LLV(L,S+1),20*(s+1),500),Color808080,ALIGN1,LAYER7;
DRAWTEXT(FLAG,REF(H,s+1),NUMTOSTRN(ref(h,s+1),2)+’-‘+NUMTOSTRN(LLV(L,S+1),2)),ALIGN2,COLORgreen,linethick2;