求通達信分時“買賣力道”源碼

A1:=(VOL/CLOSE)/3;

A2:=SUM((IF(((A1>0.29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);

A3:=SUM((IF(((A1>0.29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);

A4:=SUM((IF(((A1<0.29) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);

A5:=SUM((IF(((A1<0.29) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);

A6:=((A2+A3)+A4)+A5;

A7:=IF((ISLASTBAR=1),((100*A2)/A6),0);

A8:=((IF((ISLASTBAR=1),((100*A3)/A6),0)));

A9:=((IF((ISLASTBAR=1),((100*A4)/A6),0)));

A10:=((IF((ISLASTBAR=1),((100*A5)/A6),0)));

機構買盤:(A2),LINETHICK0;

機構賣盤:(A3),LINETHICK0;

散戶買盤:(A4),LINETHICK0;

散戶賣盤:(A5),LINETHICK0;

STICKLINE(機構買盤>0 AND 機構買盤>=機構賣盤 AND 機構買盤>=REF(機構買盤,1),20,20+100,1,0),COLORRED;

STICKLINE(機構賣盤>0 AND 機構賣盤>=機構買盤 AND 機構賣盤>=REF(機構賣盤,1),20,20+100,1,0),COLORWHITE;

STICKLINE(散戶買盤>0 AND 散戶買盤>=散戶賣盤 AND 散戶買盤>=REF(散戶買盤,1),-20,-20-100,1,0),COLORLIMAGENTA;

STICKLINE(散戶賣盤>0 AND 散戶賣盤>=散戶買盤 AND 散戶賣盤>=REF(散戶賣盤,1),-20,-20-100,1,0),COLORCYAN;

VAR2:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*2000;

買賣力道: SMA(VAR2,3,1),COLORLIGRAY;

VAR3:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

VAR4:=(IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2))/(IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1))-IF(CLOSE>OPEN,0-VAR3*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-VAR3*(HIGH-LOW),0-VOL/2))*(-1)/IF(CLOSE>OPEN,VAR3*(HIGH-LOW),IF(CLOSE<OPEN,VAR3*(HIGH-OPEN+CLOSE-LOW),VOL/2)));

VAR5:=AMOUNT/(100*VOL);

VAR6:=MA(VAR5,40);

VAR7:=100*(CLOSE-VAR6)/VAR6;

底部追擊:= IF(VAR4>0 AND VAR7<-12 AND CLOSE/OPEN>1.08,300,200),COLORGREEN;

STICKLINE(VAR4>0 AND VAR7<-12 AND CLOSE/OPEN>1.08,1200,200,10,0) , COLORGREEN;

VAR8:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;

VAR9:=SMA(VAR8,3,1);

VARA:=SMA(VAR9,3,1);

D: SMA(VARA,5,1)*20, COLORCYAN;

V11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);

趨勢線:= EMA(V11,3);

V12:=(趨勢線-REF(趨勢線,1))/REF(趨勢線,1)*100;

BB:(趨勢線<=13 AND V12>13) AND FILTER((趨勢線<=13 AND V12>13),10);

買入股票:= (趨勢線<=13 AND V12>13),COLORRED;

CCC:=(趨勢線>=90 AND V12) AND FILTER((趨勢線>=90 AND V12),10);

清倉:=FILTER(趨勢線>=90 AND V12 AND CROSS(D,買賣力道),5),COLORYELLOW;

賣出區: 清倉+1800,COLORYELLOW;

中:(0+賣出區)/2, COLORGREEN;

{股旁網-股票公式網站 www.gupang.com}

STICKLINE(買賣力道>=中 AND 買賣力道>=REF(買賣力道,1),中,買賣力道+中/10,0,0),COLORMAGENTA;

STICKLINE(買賣力道>=中 AND 買賣力道< REF(買賣力道,1),中,買賣力道+中/10,0,0),COLORBROWN;

STICKLINE(買賣力道<中 AND 買賣力道>=REF(買賣力道,1),中,買賣力道-中/10,0,0),COLORGREEN;

STICKLINE(買賣力道<中 AND 買賣力道< REF(買賣力道,1),中,買賣力道-中/10,0,0),COLORBLUE;

DRAWICON(買入股票,中,15);

DRAWTEXT (BB,0,'買股'),COLORYELLOW;

DRAWTEXT(清倉,買賣力道,'頂'),COLORYELLOW;

STICKLINE(清倉,買賣力道,買賣力道+0.01,2,0),COLORBLUE;

DRAWICON(CROSS(D,中),中,13);

DRAWICON(CROSS(中,買賣力道),買賣力道,2);

DIF:=(EMA(CLOSE,13) - EMA(CLOSE,24));

DEA:=(EMA(DIF,6));

MACD:=(DIF-DEA)*3;

紅線:=IF(MACD>=0 AND MACD>REF(MACD,1),中,DRAWNULL);

青線:=IF(MACD>=0 AND MACD< REF(MACD,1),中,DRAWNULL);

粉線:=IF(MACD<0 AND MACD>=REF(MACD,1),中,DRAWNULL);

藍線:=IF(MACD<0 AND MACD< REF(MACD,1),中,DRAWNULL);

STICKLINE(紅線,200,250,1,0),COLORRED,LINETHICK1;

STICKLINE(青線,200,250,1,0),COLORCYAN,LINETHICK1;

STICKLINE(粉線,200,250,1,0),COLORMAGENTA,LINETHICK1;

STICKLINE(藍線,200,250,1,0),COLORBLUE,LINETHICK1;

DRAWICON(CROSS((A2),(A3)),200,23);