|
N:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW); QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))); QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))); QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))); QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))); DDX:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK; DX:=MA(DDX,5)*N; STICKLINE(DDX>0,0,DDX,3,0),COLOR000088; STICKLINE(DDX>0,0,DDX,2.5,0),COLOR0000AA; STICKLINE(DDX>0,0,DDX,1.5,0),COLOR0000CC; STICKLINE(DDX>0,0,DDX,1,0),COLOR0000EE; STICKLINE(DDX<0,0,DDX,3,0),COLOR008800; STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00; STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00; STICKLINE(DDX<0,0,DDX,1,0),COLORFFFF00; 萬:AMOUNT/10000,COLORFF00FF,NODRAW; VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 流入萬:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/10000,COLORRED,NODRAW; 流出萬:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/10000,COLOR00FF00,NODRAW; 額萬:流入萬+流出萬,COLORFFFF00,NODRAW; {線:=MA(CLOSE,1)-MA(CLOSE,6),NODRAW;} YUWEI:=MA(CLOSE,1)-MA(CLOSE,6),NODRAW; {量:(線),VOLSTICK;}; 改后： N:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW); QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW))); QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN)))); QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE)))); QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ))); DDX:((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK; DX:=MA(DDX,5)*N; STICKLINE(DDX>0,0,DDX,3,0),COLORRED; STICKLINE(DDX>0,0,DDX,2.5,0),COLORRED; STICKLINE(DDX>0,0,DDX,1.5,0),COLORRED; STICKLINE(DDX>0,0,DDX,1,0),COLORRED; STICKLINE(DDX<0,0,DDX,3,0),COLORCYAN; STICKLINE(DDX<0,0,DDX,2.5,0),COLORCYAN; STICKLINE(DDX<0,0,DDX,1.5,0),COLORCYAN; STICKLINE(DDX<0,0,DDX,1,0),COLORCYAN; 萬:AMOUNT/10000,COLORFF00FF,NODRAW; VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 流入萬:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/10000,COLORRED,NODRAW; 流出萬:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/10000,COLOR00FF00,NODRAW; 額萬:流入萬+流出萬,COLORFFFF00,NODRAW; {線:=MA(CLOSE,1)-MA(CLOSE,6),NODRAW;} YUWEI:=MA(CLOSE,1)-MA(CLOSE,6),NODRAW; {量:(線),VOLSTICK;}; 另一種： P1:=60;P2:=5;P3:=10; REFLINE:0; K1:=IF(CLOSE>=REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW+CLOSE-REF(CLOSE,1),HIGH-OPEN+CLOSE-LOW); K2:=IF(CLOSE<=REF(CLOSE,1),OPEN-LOW+HIGH-CLOSE+REF(CLOSE,1)-CLOSE,OPEN-LOW+HIGH-CLOSE); DT:=VOL*K1/(K1+K2); KT:=VOL-DT; 買量:=SUM(DT,1); 賣量:=SUM(KT,1); DDX:EMA(買量-賣量,5)*VOL/CAPITAL*100,COLORSTICK,LINETHICK2; {www.gUPaNg.com 股旁網(wǎng)_最新股票指標(biāo)公式} STICKLINE(DDX>0,0,DDX,3,0),COLOR000088; STICKLINE(DDX>0,0,DDX,2.5,0),COLOR0000AA; STICKLINE(DDX>0,0,DDX,1.5,0),COLOR0000CC; STICKLINE(DDX>0,0,DDX,1,0),COLOR0000EE; STICKLINE(DDX<0,0,DDX,3,0),COLOR008800; STICKLINE(DDX<0,0,DDX,2.5,0),COLOR00AA00; STICKLINE(DDX<0,0,DDX,1.5,0),COLOR00CC00; STICKLINE(DDX<0,0,DDX,1,0),COLOR00EE00; DDX1:SMA(DDX,3,1),COLORFFFFFF; DDX2:SMA(DDX1,3,1),COLOR00FFFF; DDX3:EMA(DDX2,5),COLORFF00FF; 預(yù)警:DDX>0 AND MA(V,5)>MA(MA(V,5),5) AND CROSS(DDX1,DDX2),LINETHICK; 天:=COUNT(DDX>0,5),COLORRED; DRAWTEXT(預(yù)警,DDX*1.06,'★'),LINETHICK3,COLOR00FFFF; |
|
|
