DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0); PJ:=(H+L+C)/3; V1:=IF(H=L,1,H-MAX(O,C)); V2:=IF(H=L,1,MAX(C,O)-PJ); V3:=IF(H=L,1,MIN(O,C)-L); V4:=IF(H=L,1,PJ-MIN(C,O)); V5:=VOL/IF(H=L,4,H-L); V6:=(V1*V5)+(V2*V5); V7:=(V3*V5)+(V4*V5); WP1:=DYNAINFO(23); NP1:=DYNAINFO(22); WP2:=IF(ISLASTBAR,V7*240/FROMOPEN,V7); NP2:=IF(ISLASTBAR,V6*240/FROMOPEN,V6); 主買:IF(ISLASTBAR AND PERIOD=5,WP1,WP2),COLORRED,NODRAW; 主賣:IF(ISLASTBAR AND PERIOD=5,NP1,NP2),COLORGREEN,NODRAW; 凈量:=ABS(主買-主賣); DRAWRECTREL(50,0,CONST(主買*500/(主買+主賣)+50),80,RGB(230,65,0)); DRAWRECTREL(50,110,CONST(主賣*500/(主買+主賣)+50),190,RGB(0,104,0)); 主買1:=BUYVOL,COLORLIRED,NODRAW; 主賣1:=-SELLVOL,COLORLIBLUE,NODRAW; {凈買:BUYVOL-SELLVOL,COLORMAGENTA,NODRAW;} 總量:=VOL,VOLSTICK; ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3); SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20)); 飽和度:IF(SAT>1,1,SAT)*100,COLORYELLOW,NODRAW; AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); {主買:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL /2)),POINTDOT,COLORRED; 主賣:=IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL /2)),COLORCYAN,POINTDOT;} V05:=MA(V,5); V12:=MA(V,12); V34:=MA(V,34); C6:=MA(C,6); STICKLINE(C,0,VOL,2,0),COLORGRAY; STICKLINE(CROSS(C,C6) AND V>V05*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,0,VOL,2,0),COLORRED; STICKLINE(CROSS(C6,C) AND V>V05*1.2 AND V>V12*1.2,0,VOL,2,0),COLORGREEN; STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL,2,0),COLORYELLOW; STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL,2,0),COLORBLUE; STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05 AND CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,VOL*0.5,0,2,0),COLORRED; STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05 AND CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,VOL*0.5,0,2,0),COLORWHITE; N:=27; N2:=9; N4:=16; VAR1:=IF(DATE>=1030131,1,1); VAR2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; VAR3:=SMA(VAR2,3,1)*VAR1; VAR4:=SMA(VAR3,N2,1)*VAR1; VAR5:=3*VAR3-2*VAR4*VAR1; STICKLINE(VOL AND VAR5>VAR4,0,VOL,2,1),COLORRED; STICKLINE(VOL AND VAR5<VAR4,0,VOL,2,1),COLORGREEN; STICKLINE(VOL AND VAR4<N4,-10,VOL*0.5,2,0),COLORBLUE; VARN2:=CLOSE-REF(CLOSE,1); VARN3:=IF(CLOSE-REF(CLOSE,1)>=0,VARN2,0); VARN4:=REF(CLOSE,1)-CLOSE; VARN5:=IF(CLOSE-REF(CLOSE,1)<=0,VARN4,0); VARN6:=SUM(VARN3,16)/SUM(VARN5,16); VARN7:=100-100/(1+VARN6); VARN8:=EMA(VARN7,16); VARN9:=EMA(VARN8,8); VARNA:=EMA(VARN8,45); MO:=(VARN8-VARNA); ML:=(VARN9-VARNA); VARN1A:=EMA(CLOSE,32); VARN2A:=MA(OPEN,32); 趨勢:=(VARN1A-VARN2A); STICKLINE(MO>ML AND 趨勢<0 AND MO>REF(MO,3) AND 趨勢>REF(趨勢,3),VOL,0,1,0) COLORYELLOW; AAA:DRAWLINE(VOL>=HHV(VOL,35),VOL,VOL<=LLV(VOL,8),HHV(VOL,3),1),COLORWHITE; BBB:DRAWLINE(VOL<=LLV(VOL,8),VOL,VOL>=HHV(VOL,35),HHV(VOL,3),0),COLORYELLOW; 量比:VOL/REF(MA(VOL,5),1),NODRAW,COLORAAAAAA; X_10:=VOL=HHV(VOL,30); X_11:=BARSLAST(FILTER(CROSS(0.9,X_10),2))+1; X_12:=REF(VOL,X_11); STICKLINE(X_11<=30,X_12,X_12,1,0),COLORBROWN; VVOL:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW; STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,VVOL,0,(-1),(-1)),COLOR00C0C0; XA_1:=AMOUNT; XA_2:=MA(AMOUNT,5); XA_3:=MA(AMOUNT,10); XA_4:=HHV(XA_1,30)=XA_1; XA_5:=HHV(XA_1,60)=XA_1; XA_6:=HHV(XA_1,100)=XA_1; XA_7:=HHV(XA_1,250)=XA_1; STICKLINE(XA_4 AND C>REF(C,1),VOL,VOL*0.2,3,0),COLORMAGENTA; STICKLINE(XA_5 AND C<REF(C,1),VOL,VOL*0.2,3,0),COLORBLUE; STICKLINE(XA_6,VOL,VOL*0.2,3,0),COLOR0099FF; STICKLINE(XA_7 AND C>REF(C,1),VOL,VOL*0.2,3,0),COLOR0033FF; STICKLINE(XA_6 AND C<REF(C,1),VOL,VOL*0.2,3,0),COLORFF3399; VARB1:=ZIG(3,96/12); DRAWICON(REF(VARB1,2)<REF(VARB1,1) AND VARB1<REF(VARB1,1),VOL*1.2,15); DRAWICON(REF(VARB1,2)>REF(VARB1,1) AND VARB1>REF(VARB1,1),VOL*1.3,9); 總額:=AMOUNT; 買0:=IF(O=C AND (C-REF(C,1))/REF(C,1)*100>9.8,AMOUNT,AMOUNT/((H-L)*2-ABS(O-C))*(C-L)); 買%:=買0/AMOUNT*100; 流入:=AMOUNT*買%/10000000000; 流出:=AMOUNT/100000000-流入; 凈流:=(流入-流出); 總額3:=SUM(AMOUNT,3); 流入3:=SUM(流入,3); 流出3:=SUM(流出,3); 凈流3:=SUM(流入-流出,3); 總額5:=SUM(AMOUNT,5); 流入5:=SUM(流入,5); 流出5:=SUM(流出,5); 凈流5:=SUM(流入-流出,5); DRAWTEXT_FIX(1,0.4,0,0,'凈流入(億):'),COLOR8080FF,COLORYELLOW; DRAWTEXT_FIX(1,0.5,0,0,'1日'),COLOR8080FF,COLORWHITE; DRAWNUMBER_FIX(1,0.6,0,0,CONST((凈流))),COLORYELLOW; DRAWTEXT_FIX(1,0.7,0,0,'3日'),COLOR8080FF,COLORWHITE; DRAWNUMBER_FIX(1,0.78,0,0,CONST((凈流3))),COLORYELLOW; DRAWTEXT_FIX(1,0.87,0,0,'5日'),COLOR8080FF,COLORWHITE; DRAWNUMBER_FIX(1,1,0,0,CONST((凈流5))),COLORYELLOW; X01:=IF(MA(C,5)>MA(C,10),20,0); X02:=IF(MA(C,20)>MA(C,60),10,0); X3:=IF(KDJ.J>KDJ.K,10,0); X4:=IF(MACD.DIF>MACD.DEA,10,0); X5:=IF(MACD.MACD>0,10,0); X6:=IF(V>MA(V,60),10,0); X7:=IF(WINNER(C)>0.5,10,0); X8:=IF(C/REF(C,1)>1.03,10,0); XG:=X01+X02+X3+X4+X5+X6+X7+X8; DRAWTEXT_FIX(V>O,0.15,0,0,STRCAT('趨勢評分:',STRCAT(CON2STR(XG,0),' '))),COLORLIBLUE; |
|