奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題][分享]0236---四方力道 已改 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=14023)

[問題][分享]0236---四方力道 已改

續 已改!!

//0236-1 四方力道散戶 OK了

//0236-1 四方力道散戶
換手:=v*100/capital;
主力:=ma(換手,4);
大戶:=ma(換手,9);
中戶:=ma(換手,17);
散戶:=ma(換手,34);
均量:=(散戶+主力+大戶+中戶)/4;
散戶能量:=(散戶-均量);

操盤:STICKLINE( 散戶能量>=0 AND 散戶能量>=REF(散戶能量,1) , 0,散戶能量,4,0) COLORRred;
減倉:STICKLINE( 散戶能量>=0 AND 散戶能量< REF(散戶能量,1), 0, 散戶能量, 4,0) COLORRred;
反彈:STICKLINE( 散戶能量<0 AND 散戶能量>=REF( 散戶能量,1),0,散戶能量,4,0) , COLORGREEN;
尋底:STICKLINE( 散戶能量<0 AND 散戶能量< REF(散戶能量,1),0,散戶能量,4,0),COLORGREEN;
0,pointdot,COLORWHITE;

0236-2 四方力道大戶 OK

{四方力道大戶}
換手:=v*100/ capital;
主力:=ma(換手,4);
大戶:=ma(換手,9);
中戶:=ma(換手,17);
散戶:=ma(換手,34);
均量:=( 主力+大戶+中戶+散戶) / 4 ;
大戶能量:=(大戶-均量);
操盤:STICKLINE(大戶能量>=0 AND 大戶能量>=REF(大戶能量,1),0,大戶能量,4,0), COLORred;
減倉:STICKLINE(大戶能量>=0 AND 大戶能量< REF(大戶能量,1),0,大戶能量,4,0), COLORred;
反彈:STICKLINE(大戶能量< 0 AND 大戶能量>=REF(大戶能量,1),0,大戶能量,4,0),COLORGREEN;
尋底:STICKLINE(大戶能量<0 AND 大戶能量< REF(大戶能量,1),0,大戶能量,4,0),COLORGREEN;
0,pointdot,COLORWHITE;

0236-3 四方力道中戶 OK

換手:=v*100/capital;
主力:=ma(換手,4);
大戶:=ma(換手,9) ;
中戶:=ma(換手,17);
散戶:=ma(換手,34);
均量:=(主力+大戶+中戶+散戶) / 4;
中戶能量:=(中戶-均量);
操盤:STICKLINE(中戶能量>=0 AND 中戶能量>=REF(中戶能量,1),0,中戶能量,4,0),COLORred;
減倉:STICKLINE(中戶能量>=0 AND 中戶能量< REF(中戶能量,1),0,中戶能量,4,0),COLORred;
反彈:STICKLINE(中戶能量<0 AND 中戶能量>=REF(中戶能量,1),0,中戶能量,4,0),COLORGREEN;
尋底:STICKLINE(中戶能量<0 AND 中戶能量< REF(中戶能量,1),0,中戶能量,4,0 ),COLORGREEN;
0,pointdot,COLORWHITE;

0236-4 四方力道主力 OK

換手:=v*100/capital;
主力:=ma(換手,4);
大戶:=ma(換手,9);
中戶:=ma(換手,17);
散戶:=ma(換手,34);
均量:=(主力+大戶+中戶+散戶)/4;
主力能量:=(主力-均量);
操盤:STICKLINE(主力能量>=0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0),COLORred;
減倉:STICKLINE(主力能量>=0 AND 主力能量< REF(主力能量,1),0,主力能量,4 ,0),COLORred;
反彈:STICKLINE(主力能量<0 AND 主力能量>=REF(主力能量,1),0,主力能量,4,0),COLORGREEN;
尋底:STICKLINE(主力能量<0 AND 主力能量< REF(主力能量,1),0,主力能量,4,0),COLORGREEN;
0,pointdot,COLORWHITE;

0236-5 四方力道資金趨勢圖

a:=vol*close;
b:= sum(a,1)/sum(vol,1);
b1:= EMA(b,17);
主力資金: (b-b1)*100/b,colorred;
強弱線:0,colorffcc66;

0236-6 四方多空趨勢 ok

V1:=DMA( (((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
HY1:=REF(EMA(V1,3),1);
多空趨勢:=MA((CLOSE - HY1) * 10 ,2);
操盤:STICKLINE(多空趨勢>=0 AND 多空趨勢>=REF(多空趨勢,1),0,多空趨勢,4,0),COLORYELLOW;
減倉:STICKLINE(多空趨勢>=0 AND 多空趨勢< REF(多空趨勢,1),0,多空趨勢,4,0),COLORYELLOW;
反彈:STICKLINE(多空趨勢<0 AND 多空趨勢>=REF(多空趨勢,1),0,多空趨勢,4,0),COLORGREEN;
尋底:STICKLINE(多空趨勢<0 AND 多空趨勢< REF(多空趨勢,1),0,多空趨勢,4,0 ),COLORGREEN;
0,pointdot,COLORWHITE;

0236-7 四方力道副圖

V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
HY1:=REF(EMA(V1,3),1);
APP:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));
ZL:=IF((CLOSE > OPEN),(APP * (HIGH - LOW)),IF ((CLOSE < OPEN),(APP * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
SF:=IF((CLOSE > OPEN),(0 - (APP * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (APP * (HIGH - LOW))),(0 - (VOL / 2))));
VAR1:=(((CLOSE - HY1) / HY1) * 100);
VAR2:=(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100);
TS:=BARSLAST(( BARSLAST(((VAR1 > 0) AND (REF(VAR1,1) > 0))) > 0));
利潤:=SUM(IF((TS > 0),VAR2,0),0);
庫存能量: MA((ZL + SF),2),coloryellow;
庫存平均:MA((ZL + SF),5),ColorFF00FF;
主力:MA(ZL,2),Colorred;
散戶:MA(SF,2),colorgreen ;
獲利:MA(利潤,2),color4080FF;
多空線:MA((CLOSE - HY1) * 10,2),colorwhite;

還很多喔

還很多喔

0236-8 四方力道導航

V1:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);
HY1:=REF(EMA( V1,3),1);
多空趨勢:MA((CLOSE - HY1) * 100,2),coloryellow;
線性:=((((((CLOSE * 5) + (REF(CLOSE,1) * 4)) + (REF(CLOSE,2) * 3)) + (REF(CLOSE,3) * 2)) + (REF(CLOSE,4) * 1)) / ((((5 + 4) + 3 ) + 2) + 1));
導航線:MA(線性,2),colorred;

0236-9 四方力道改良

買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
stickline(買線>=賣線,low, high,1,0),colorred;
stickline(買線>=賣線,close,open,4.5,0),colorred;
stickline(買線>=賣線,close,open,4,0),colorred;
stickline (買線>=賣線,close,open,3,0),colorred;
stickline(買線>=賣線,close,open,2,0),colorred;
stickline(買線<賣線,close,open ,4.5,0),ColorFF4242;
stickline(買線<賣線,close,open,4,0),ColorFF4242;
stickline(買線<賣線,close,open,3,0),ColorFF4242;
stickline(買線<賣線,close,open,2,0),ColorFF4242;
stickline(買線<賣線,low,high,1,0),ColorFF4242;
stickline(cross(買線,賣線) or cross(賣線,買線),open,close,3,0),color00ffff;
V1:=DMA((((H + L) + (C * 2)) / 4),0.9);
HY1:=REF(EMA(V1, 3),1);
DRAWtext(CROSS(C,HY1),LOW,'↑'),LINETHICK2,ColorYELLOW;
DRAWtext(CROSS(HY1,C),HIGH*1.05,'↓'),LINETHICK3,colorwhite;
APP:= (VOL/(( (H - L) * 2) - ABS( C - O)) );
ZL:=IF((CLOSE > OPEN),(APP * (HIGH - LOW)),IF(( CLOSE < OPEN),(APP * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));
SF:=IF((CLOSE > OPEN),(0 - (APP * (( HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (APP * (HIGH - LOW))),(0 - (VOL / 2))));
庫存能量:=MA((ZL + SF),2);
庫存平均:=MA((ZL + SF),5); DRAWTEXT(cross(庫存能量,庫存平均),L*0.97,'↑'),ColorFF00FF, linethick4;
線性:=((((((CLOSE * 5) + (REF(CLOSE,1) * 4)) + (REF(CLOSE,2) * 3)) + (REF(CLOSE,3) * 2 )) + (REF(CLOSE,4) * 1)) / ((((5 + 4) + 3) + 2) + 1));導航:線性,colorgreen;