|
【源碼】
MMS:=MA(SMA((L+H+2*C)/4-REF((L+H+2*C)/4,1),5,1)/SMA(ABS((L+H+2*C)/4-REF((L+H+2*C)/4,1)),5,1)*100,1)+50;
G1:=IF(-MMS>95,0,20);
UOO:=(-(((CLOSE-LLV(CLOSE,7))/(HHV(CLOSE,7)-LLV(CLOSE,7))*100=100)>0 AND G1)+1);
KS:=(((CLOSE - EMA(CLOSE,13)) / EMA(CLOSE,13)) * (0 - 100));
KS1:=IF(BARSCOUNT(C)=1,C/10000,(1-C/SMA(C,13,1))*100);
趨勢線:=EMA(((KS / 10) + EMA(CLOSE,10)),3);
AA:=-100*(趨勢線-CLOSE)/趨勢線;
AC:=(EMA(AA,5) );
SSL:=EMA(CLOSE,3);
MMV:=EMA(((SLOPE(CLOSE,22) * 20) + CLOSE),55);
MM:=MA(MMV,1);{
STICKLINE(((SSL>MM)),SSL,MM,0.01,0),COLORRED;}
SA:=(MM*0.985);
SS:=(MA(CLOSE,5));
DD:=(MA(CLOSE,13));
GG:=(MA(CLOSE,21));
天界:IF(((SSL>MM)),MM,SA),LINETHICK2,COLORFF00FF;
{IF(SSL<MM,天界,DRAWNULL),LINETHICK2,COLORFFFFFF;}
能量線:=DMA(((CLOSE + OPEN) / 2),(VOL / (SMA(VOL,4,1) *4)));
上開:=O;
上收:=C;
上高:=H;
上低:=L;
JJ:=(上開+上高+上低)/3;
A:=EMA(JJ,4);
黃金線:=A,COLORYELLOW,LINETHICK1;
B:=REF(A,1);
{STICKLINE(((SSL<MM)),銀河線,黃金線,0.01,0),COLORFFFF00;}
VA1:=EMA(上收,8);
VA2:=EMA(上收,20);
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),LOW*0.978,'★') ,LINETHICK2,COLORRED;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'★'),COLORBLUE;
DRAWTEXT(CROSS(VA1,VA2)AND(C>=O)AND 黃金線>REF(黃金線,1),VA1*0.97,'★'),COLOR00FF00;
選手A:=MA(上收,3);
孤煙A:=MA(REF(HHV(上收,6),1),3);
孤泉A:=MA(REF(LLV(上收,3),1),3);
T1:=MA(上收,20)>=REF(MA(上收,20),1);
T2:=CROSS(選手A,孤泉A) AND 孤煙A/孤泉A>100/100 AND T1;
T3:=CROSS(孤煙A,選手A) AND 孤煙A/孤泉A>100/100;
選手:=MA(上收,2);
孤煙:MA(REF(HHV(上收,30),1),2),COLORYELLOW,LINETHICK2;
孤泉:MA(REF(LLV(上收,30),1),2),COLORBLUE,LINETHICK2;
T4:=CROSS(選手,孤泉) AND 孤煙/孤泉>110/100;
T5:=CROSS(孤煙,選手) AND 孤煙/孤泉>110/100;
VAR1:=(上收-LLV(上低,27))/(HHV(上高,27)-LLV(上低,27))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
{DRAWTEXT(VAR3 >=VAR4 ,孤煙,'--中期好'),COLOR00FFFF;
DRAWTEXT(VAR3<VAR4 ,孤煙,'--中期壞'),COLORF0F000;
DRAWTEXT(A>B ,孤泉,'--短期好'),COLOR00FFFF;
DRAWTEXT(A<B ,孤泉,'--短期壞'),COLORF0F000;}
DRAWTEXT(CROSS(VAR3,VAR4)AND(C>=O)AND VAR3<40 AND UOO>0,LOW*0.96,'★'),COLORF00FF0;
{STICKLINE(C>=O,C,O,5,0),COLORRED;
STICKLINE(C>=O,H,L,0,0),COLORYELLOW;
STICKLINE(C<=O,C,O,5,0),COLORGREEN;
STICKLINE(C<=O,H,L,0,0),COLORFFFF00;
}; 主力資金博弈指標 VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3; 主力:VAR1,COLORRED,LINETHICK1; V1:=(C*2+H+L)/4*10; V2:=EMA(V1,13)-EMA(V1,34); V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5; 大戶:V4,COLORFF00FF; V8:=(INDEXC*2+INDEXH+INDEXL)/4; V9:=EMA(V8,13)-EMA(V8,34); VA:=EMA(V9,3); VB:=(V9-VA)/2; 大資金:VB,COLORYELLOW; STICKLINE(CLOSE>0,0,0,-1,0),COLORFF9966; DRAWTEXT(ISLASTBAR AND C,VAR1,' 主力線:零軸上方可進場 中線可持股'),COLOR0000BB; DRAWTEXT(ISLASTBAR AND C,V4,' 大戶線:零軸下方短線必出且不抄底'),COLOR0000BB; DRAWTEXT(ISLASTBAR AND C,VB,' 大資金線:零軸下方需小心'),COLOR0000BB; XG1:=COUNT(V4>0,10)>=5 AND CROSS(VAR1,0.5) AND 0>REF(VAR1,1) AND V4>0 AND VB>0{AND VB>REF(VB,1)}; XG2:=COUNT(VAR1>0,10)>=5 AND CROSS(V4,0.5) AND 0>REF(V4,1) AND VAR1>0 AND VB>0{AND VB>REF(VB,1)}; DRAWTEXT(XG1,0,'主力進'),COLORYELLOW; DRAWTEXT(XG2,0,'大戶進'),COLORYELLOW; QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSE<OPEN,QJJ*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-QJJ*(HIGH-LOW),0-VOL/2))); HSL:=(XVL/20)/1.15; 攻擊:=((HSL*0.55+(REF(HSL,1)*0.33))+(REF(HSL,2)*0.22)); LLJX:=EMA(攻擊,3); B1:=SUM(LLJX,1); B2:=SUM(LLJX,2); B3:=SUM(LLJX,3); B4:=SUM(LLJX,4); B5:=SUM(LLJX,5); B6:=SUM(LLJX,6); B7:=SUM(LLJX,7); B8:=SUM(LLJX,8); B9:=SUM(LLJX,9); B10:=SUM(LLJX,10); G1:=B1>REF(B1,1) AND B2>REF(B2,1) AND B3>REF(B3,1) AND B4>REF(B4,1) AND B5>REF(B5,1); G2:=B2>REF(B2,1) AND B3>REF(B3,1) AND B4>REF(B4,1) AND B5>REF(B5,1) AND B6>REF(B6,1); G3:=B3>REF(B3,1) AND B4>REF(B4,1) AND B5>REF(B5,1) AND B6>REF(B6,1) AND B7>REF(B7,1); G4:=B4>REF(B4,1) AND B5>REF(B5,1) AND B6>REF(B6,1) AND B7>REF(B7,1) AND B8>REF(B8,1); G5:=B5>REF(B5,1) AND B6>REF(B6,1) AND B7>REF(B7,1) AND B8>REF(B8,1) AND B9>REF(B9,1); G6:=B6>REF(B6,1) AND B7>REF(B7,1) AND B8>REF(B8,1) AND B9>REF(B9,1) AND B10>REF(B10,1); 條件:=G1 OR G2 OR G3 OR G4 OR G5 OR G6; DRAWTEXT(XG1 AND 條件,0,'主力'),COLORCYAN; DRAWTEXT(XG2 AND 條件,0,'大戶'),COLORCYAN; |
|
|