|
第一套主圖副圖 主圖 G-MA G1:REF((SMA(C,3,1)),3),COLOR33FF33,LINETHICK1;
QG1:IF(G1>REF(G1,1),G1,DRAWNULL),COLORRED,LINETHICK2;
G2:REF((SMA(C,25,1)),5),COLORE99A2C;
Y:=(H+L)/2; AA:=REF((SMA(Y,5,1)),3); BB:=REF((SMA(Y,8,1)),5); CC:=REF((SMA(Y,13,1)),8); R2:=REF(BB,5); KU1:=IF(HIGH=HHV(HIGH,3),1,0); KD1:=IF(LOW=LLV(LOW,3),1,0); UL:=IF(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0,REF(HIGH,2),REF(HIGH,2+BARSLAST(REF(KU1,2)=1 AND REF(KU1,1)=0 AND KU1=0))); DL:=IF(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0,REF(LOW,2),REF(LOW,2+BARSLAST(REF(KD1,2)=1 AND REF(KD1,1)=0 AND KD1=0))); 上分形:IF(HIGH>=R2,UL,REF(UL,BARSLAST(HIGH>R2))), POINTDOT,LINETHICK3,,COLORMAGENTA; 下分形:IF(LOW<=R2,DL,REF(DL,BARSLAST(LOW<=R2))), POINTDOT,LINETHICK3,COLORYELLOW; DRAWICON(CLOSE>上分形 AND REF(CLOSE,1)<REF(上分形,1),HIGH*1.03,1); DRAWICON(CLOSE<下分形 AND REF(CLOSE,1)>REF(下分形,1),LOW*0.99,2); W1:=C=HHV(C,20); W2:=BARSLAST(W1); W3:=IF(W2>0,REF(C,W2),REF(C,W2)); W4:=CROSS(C,REF(W3,1)); 突破盤整:=W4 AND COUNT(W4,5)=1; STICKLINE(突破盤整,OPEN,CLOSE,2,0),COLORRED; G2 EMA13:EMA(C,13),COLOR33FF33,LINETHICK2;
Q13:IF(EMA13>REF(EMA13,1),EMA13,DRAWNULL),COLOR0000FF,LINETHICK2;
EMA34:EMA(C,34),COLORYELLOW,POINTDOT;
EMA55:EMA(C,55),COLORFF00FF,POINTDOT;
EMA120:EMA(C,120),COLORFFCC66,LINETHICK2;
AR1:=EMA55>EMA34 AND EMA34>EMA13;
AR2:=BARSLAST((C-EMA13)/EMA13*100<-6);
AR3:=EMA13>=REF(EMA13,2);
AR4:=COUNT(CROSS(C,EMA13),AR2)=1;
AR5:=AR1 AND AR2 AND AR3 AND AR4;
AR6:=AR5 AND FILTER(AR5,10);
STICKLINE(AR6,O,C,2.5,0),LINETHICK2,COLORYELLOW;
BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5),5)=5;
BR2:=ABS((EMA13-EMA34)+(EMA34-EMA55))/C<0.2;
BR3:=C>EMA55 AND (REF(C,1)<REF(EMA55,1) OR REF(C,2)<REF(EMA55,2) OR REF(C,3)<REF(EMA55,3) OR REF(C,4)<REF(EMA55,4) OR REF(C,5)<REF(EMA55,5));
BR4:=BR1 AND BR2 AND BR3;
STICKLINE(BR4 AND FILTER(BR4,10),O,C,2.5,0),LINETHICK2,COLOR4080FF;
CR1:=(C-REF(C,1))/REF(C,1)*100>0.5;
CR2:=V>MA(V,5)*0.6;
CR3:=COUNT(CROSS(EMA13,EMA55),3)=1;
CR4:=ABS(EMA34-EMA55)/EMA55<0.03;
CR5:=EMA55<=EMA120 AND EMA55>=REF(EMA55,1);
CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2);
DR1:=EMA13>EMA34 AND EMA34<EMA55;
DR2:=BARSLAST(CROSS(C,EMA55) );
DR3:=H=HHV(H,DR2);
DR4:=BARSLAST(DR3);
DR5:=COUNT(O>C AND C<REF(C,1) AND C>EMA55 AND BETWEEN((C-EMA55)/EMA55,0,0.02),DR4)=1;
DR6:=C>REF(C,1) ;
DR7:= DR1 AND DR5 AND DR6 ;
DR8:=DR7 AND FILTER(DR7 ,10);
STICKLINE(DR8,O,C,2.5,0),LINETHICK2,COLORFF0080;
ER:=BARSLAST(REF(CROSS(EMA55,EMA34),1)) AND CROSS(EMA34,EMA55);
FR:=BARSLAST(REF(CROSS(EMA34,EMA13),1)) AND CROSS(EMA13,EMA34);
GR1:=BARSLAST(BETWEEN('BIAS.BIAS2'(6,13,24),0,5) );
GR2:=EMA13>EMA34 AND EMA34>EMA55 AND EMA13>REF(EMA13,1);
GR3:=COUNT('BIAS.BIAS2'(6,13,24)>10 AND H=HHV(H,GR1),GR1);
GR4:=H=HHV(H,GR1);
GR5:='MACD.MACD'(12,26,9)<REF('MACD.MACD'(12,26,9),1);
GR6:=GR2 AND GR3 AND GR4;
GR7:=GR2 AND GR3 AND GR4 AND GR5;
DRAWTEXT(GR6 AND GR7,H+0.13,'*'),COLOR00FF00;
HR2:=EMA13>=REF(EMA13,3) AND EMA34>=REF(EMA34,1) AND EMA55>=REF(EMA55,1) AND CROSS(C,EMA13) AND CROSS(C,EMA34) AND CROSS(C,EMA55);
STICKLINE(HR2 AND FILTER(HR2,10),O,C,3,0),LINETHICK2,COLORFF80FF; 副圖 G-DDX 量:VOL,VOLSTICK;
{預(yù)量:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),COLORFFFF00;}
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
買:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT ;
賣:-IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORFF9088,POINTDOT;
買賣%:ABS(買/賣),COLORYELLOW,NODRAW;
{二十換:SUM(V/CAPITAL*100,20),COLORRED,POINTDOT;
預(yù)換:MAX(VOL,DYNAINFO(17)*REF(MA(VOL,5),1))/CAPITAL*100,COLORFFFF00,POINTDOT;}
STICKLINE(VOL>0,VOL,0,2.5,0),COLORFF9088;
STICKLINE(買>0,0,買,2.5,0),COLORRED;
量能:(AMOUNT/CLOSE)/HHV((AMOUNT/CLOSE),26)*100,
COLORLIMAGENTA,NODRAW;
DRAWTEXT(量能>=100,買,'*'),COLORYELLOW;
M5:MA(買,M1),COLORFFFFFF,LINETHICK1;
MM5:MA(賣,M2),COLOR00FF00,LINETHICK1;
五日均差:ABS(M5/MM5),COLORYELLOW,NODRAW;
G-VOL 量:VOL,LINETHICK0; STICKLINE(CLOSE>=REF(CLOSE,1),VOL,0,2.5.1,1),COLORRED; STICKLINE(CLOSE< REF(CLOSE,1),VOL,0,2.5.1,1),COLORCYAN; AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 買盤:=IF(CLOSE>OPEN,AA*(HIGH-LOW), IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL /2)),LINETHICK0,COLORRED; 賣盤:=IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)), IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL /2)),LINETHICK0,COLORCYAN; STICKLINE(買盤>0,0,買盤,1.2,0),COLORRED; 買盤大賣盤％:=(買盤-賣盤)/買盤*100,COLORRED; 賣盤大買盤％:=(賣盤-買盤)/賣盤*100,COLORCYAN,; 買賣%:(買盤/賣盤),NODRAW,COLORYELLOW; 量能:(AMOUNT/CLOSE)/HHV((AMOUNT/CLOSE),26)*100, COLORLIMAGENTA,NODRAW; STICKLINE(量能 >=100,VOL,0,2.5.1,1),COLOR00FFFF; STICKLINE(買盤>0,0,買盤,1.2,0),COLORRED; 廿日換:SUM(V/CAPITAL*100,20),COLORLICYAN,NODRAW; 賣盤大:=(賣盤-買盤)/賣盤>0.50; DRAWICON(賣盤大,1,2); 買盤大:=(買盤-賣盤)/買盤>0.50,LINETHICK0; DRAWICON(買盤大,1,1); M5:MA(買盤,5),COLORFFFFFF,LINETHICK1; MM5:MA(賣盤,5),COLOR00FF00,LINETHICK1; 均差%:M5/MM5,COLORWHITE,LINETHICK0; G-KD N：5,；M：3 LOWV:=LLV(LOW,N);
HIGHV:=HHV(HIGH,N);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,M);
K:EMA(RSV,M),COLOR33FF33,LINETHICK1;
QK:IF(K>REF(K,1),K,DRAWNULL),COLORRED,LINETHICK2;
D:MA(K,M),COLORFFFFFF,LINETHICK1; A1:=BARSLAST(REF(CROSS(K,D),1));
A2:=REF(CLOSE,A1+1)>CLOSE AND K>REF(K,A1+1) AND CROSS(K,D);
DRAWICON(A2,K*1,1);
B1:=BARSLAST(REF(CROSS(D,K),1));
B2:=REF(CLOSE,B1+1)<CLOSE AND REF(K ,B1+1)>K AND CROSS(D,K);
DRAWICON(B2,K*1,2); G-RSI LC:=REF(CLOSE,1);
RSI:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLOR33FF33,LINETHICK1;
QRSI:IF(RSI>REF(RSI,1),RSI,DRAWNULL),COLORRED,LINETHICK2;
MA5:SMA(RSI,9,1),COLORFFFFFF; AA:=REF(RSI,N2)=HHV(RSI,2*N2+1);
BB:=BACKSET(AA,N2+1);
CC:=FILTER(BB,N2) AND RSI=HHV(RSI,N2+1);
A1:=BARSLAST(REF(CC,1));
頂背離:=REF(CLOSE,A1+1)<CLOSE AND REF(RSI,A1+1)>RSI AND CC;
DRAWICON(頂背離,RSI*1,2),COLORGREEN; AA2:=REF(RSI,N2)=LLV(RSI,2*N2+1);
BB2:=BACKSET(AA2,N2+1);
CC2:=FILTER(BB2,N2) AND RSI=LLV(RSI,N2+1);
A2:=BARSLAST(REF(CC2,1));
底背離:=REF(CLOSE,A2+1)>CLOSE AND REF(RSI,A2+1)<RSI AND CC2;
DRAWICON(底背離,RSI*1,1),COLORMAGENTA;
G-VROC
N:12;M:6;X:9 VAR1:=AMO/V;
V1:(VAR1-REF(VAR1,N))/REF(VAR1,N)*100,COLOR33FF33,LINETHICK1;
QV1:IF(V1>REF(V1,1),V1,DRAWNULL),COLORRED,LINETHICK2;
V2:MA(V1,M),COLORE99A2C,LINETHICK1;
V3:EMA(V2,X),COLORFFFFFF,LINETHICK1; G-AMO A1:=SMA(AMOUNT,10,1)/10000000;
{C5:DMA(SMA(VAR1,3,1),VOL/0.02/CAPITAL);
C13: DMA(SMA(VAR1,5,1),VOL/0.1/CAPITAL);
C34: DMA(SMA(VAR1,8,1),VOL/0.18/CAPITAL);
突破:CROSS(VAR1,C5) AND CROSS(VAR1,C13) AND CROSS(VAR1,C34);}
B1:=C>REF(C,1);B2:=C<=REF(C,1); ZF:=(C-REF(C,1))/REF(C,1)*100;
DD:=SUM(IF (B1,A1*ZF,0),N);
KK:=SUM(IF (B2,A1*ZF,0),N); DF:=SMA(DD,3,1);
KF:=-1*SMA(KK,3,1);
DLGT:DF-KF,COLOR33FF33,LINETHICK1;
QDL:IF(DLGT>REF(DLGT,1),DLGT,DRAWNULL),COLORRED,LINETHICK2;
DLMA:SMA(DLGT,3,1),COLORFFFFFF,LINETHICK1;
JC:=CROSS(DLGT,DLMA) AND DLGT<0.3,COLOR0000FF;
DRAWICON((CROSS (DLGT,DLMA) AND DLGT<0.3),0,1); G-BS VAR1A:=(EMA(C,12)-EMA(C,26))*100+50;
VAR2A:=EMA(VAR1A,9);
VAR3A:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;
VAR4A:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
VAR5A:=SMA(VAR4A,13,8);
VAR6A:=SMA(VAR3A,21,8);
VAR7A:=MA(C,80)-MA(C,10)/7;
VAR8A:=EMA(C,5);
VAR9A:=MA((LLV(C,9))*1.1,14);
VAR10A:=2*VAR9A-VAR8A-C*0.1;
VAR11A:=IF(((VAR8A-VAR10A)*5>0),(POW((VAR8A-VAR10A)*5,2))/10,(-1*(POW((VAR8A-VAR10A)*(5),2)))/(10));
VAR12A:=IF((VAR11A>0),VAR11A-0,12);
VAR13A:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100;
趨勢:CEILING(SMA(VAR5A,13,8)),LINETHICK1,COLOR33FF33;
Q:IF(趨勢>REF(趨勢,1),趨勢,DRAWNULL),LINETHICK2,COLOR0000FF;
看底:IF((趨勢-VAR6A<(-65)),1,6),COLOR00FF00;
頂峰:IF((趨勢-VAR6A>85),95,100),COLORF0F000;
黃金區(qū): DRAWICON(IF(VAR13A<15,15,0),13,12),COLORYELLOW;
操盤線: MA(3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1),5),LINETHICK1,COLORFFFFFF; G-OSC N=22;M=3;Q=10 A1:=MEMA(HHV(H,N),M);
A2:=MEMA(LLV(L,N),M);
A3:=MEMA((A1+A2)/2,M);
FROC:MEMA((C-A3)/A3*100,M),COLORRED,LINETHICK2;
JHM:MA(FROC,Q),COLORYELLOW;
多方勢力:5*(H-EMA(C,10)),COLORSTICK;
空方勢力:5*(L-EMA(C,10)),COLORSTICK; 第二套主圖副圖 主圖 利多買賣 MA1:MA(CLOSE,M1); MA2:MA(CLOSE,M2); MA3:=MA(CLOSE,M3); MA4:MA(CLOSE,M4); VAR3:=LLV(HIGH,240); VAR4:=100*(CLOSE-VAR3)/VAR3; VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100; VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100; VAR7:=0; VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100; VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100; VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0); VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3); VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3); VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3); VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3); VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3); VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3); VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3); VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3); VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150); 買１:=VAR10; 買２:=(VAR11+VAR13+VAR15+VAR17); 賣１:=(VAR12+VAR14+VAR16+VAR18); B:IF(買１>0 OR 買２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW; DRAWTEXT(買１>0 OR 買２>0,LOW*0.99,'B'),COLORRED; S:IF(賣１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN; DRAWTEXT(賣１>0,HIGH*1.02,'S'),COLORGREEN; {股靈吧決策} VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))); VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))); VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34)); F:IF(CROSS(VAR200,MA(VAR300,5)), LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE; 年:MA(CLOSE,22),LINETHICK2,COLORWHITE; 副圖 G-KDJ Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100; Q3:=SMA(Q2, 9, 1); Q4:=SMA(Q3, 3, 1); 長趨勢:3*Q3-2*Q4,COLORWHITE,LINETHICK1; 趨勢線:EMA(Q3, 3),COLORRED,LINETHICK1; DRAWTEXT(CROSS(趨勢線, 長趨勢) AND REF(長趨勢,1)>80, REF(長趨勢,3), 'T'),COLORRED,LINETHICK5; 逢低買: DRAWTEXT(REF(CROSS(趨勢線,長趨勢),82) AND 趨勢線>1.3*長趨勢,長趨勢,'R'),LINETHICK1; 買: DRAWTEXT(REF(CROSS(長趨勢,趨勢線),1) AND 長趨勢>1.3*趨勢線,趨勢線,'B'),COLORRED,LINETHICK1; VAR3:=PEAKBARS(3,15,1)<10; VAR5:=IF(VAR3=1,2,0); 頂:= IF(VAR5=2,2,0); 頂A:IF(頂>REF(頂,1),50,0),COLORGREEN; DRAWTEXT(頂A=50,45,'S'),COLOR00FF00; 金叉: CROSS(長趨勢,趨勢線); DRAWTEXT(金叉,趨勢線,'★'),COLORRED; G-MACD DIF:=EMA(CLOSE,9)-EMA(CLOSE,18); DEA:EMA(DIF,7),LINETHICK1,COLORFFFFFF; MACD:=2*(DIF-DEA); QDIF:IF(DEA,DIF,DRAWNULL),COLORRED,LINETHICK2; D:=BACKSET(DIF<REF(DIF,1),2); RDIF:IF(D ,DIF,DRAWNULL),COLOR33FF33,LINETHICK2; STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLOR0000FF; STICKLINE(MACD>=0 AND MACD< REF(MACD,1),0,MACD,0,0),COLORFFFF00; STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,0,0),COLORFF99FF; STICKLINE(MACD<0 AND MACD< REF(MACD,1),0,MACD,0,0),COLORFFFF00; 金叉:=CROSS(DIF,DEA) AND DIF<0.3,COLOR0000FF; DRAWICON((CROSS(DIF,DEA) AND DIF<0.3),0,1); VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)); 買:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW), IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)); 買%:買/VOL,COLORYELLOW,NODRAW; 漲家數(shù):INDEXADV,NODRAW,COLORLIMAGENTA ; 跌家數(shù):INDEXDEC,NODRAW,COLORGREEN; G-KDJ Q2:=(CLOSE-LLV(LOW, 18))/(HHV(HIGH, 18)-LLV(LOW, 18))*100;
Q3:=SMA(Q2, 9, 1);
Q4:=SMA(Q3, 3, 1);
長趨勢:3*Q3-2*Q4,COLORGREEN,LINETHICK1;
QC:IF(長趨勢>REF(長趨勢,1),長趨勢,DRAWNULL),COLORRED,LINETHICK2;
趨勢線:EMA(Q3, 3),COLORFFFFFF,LINETHICK1;
DRAWTEXT(CROSS(趨勢線, 長趨勢) AND REF(長趨勢,1)>80, REF(長趨勢,3), '頂'),COLORRED,LINETHICK5;
逢低買: DRAWTEXT(REF(CROSS(趨勢線,長趨勢),82) AND 趨勢線>1.3*長趨勢,長趨勢,'B'),LINETHICK1;
買: DRAWTEXT(REF(CROSS(長趨勢,趨勢線),1) AND 長趨勢>1.3*趨勢線,趨勢線,'B'),COLORRED,LINETHICK1;
VAR3:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR3=1,2,0);
頂:= IF(VAR5=2,2,0);
頂A:IF(頂>REF(頂,1),50,0),COLORGREEN;
DRAWTEXT(頂A=50,45,'S'),COLOR00FF00;
金叉: CROSS(長趨勢,趨勢線);
DRAWTEXT(金叉,趨勢線,'★'),COLORRED;
|
