P:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),3);
風警值:P+100,linethick1;
風險區(qū):90,colorred,linethick2;
安全區(qū):10,colorgreen,linethick2;
{注：95;5和90;10都可以，數(shù)值設小些，安全些，}
fillrgn(風警值,25,風警值<25,rgb(0,255,50));
fillrgn(風警值,安全區(qū),風警值<安全區(qū),rgb(255,0,0));
持股線:ma(風警值,10),linethick2,coloryellow;
會員之星
{頂級會員之星}
VAR1:="DMI.PDI"(12,6);
VAR2:="DMI.MDI"(12,6);
VAR3:=VAR1>65 AND VAR1>REF(VAR1,1);
VAR4:=LLV(VAR1,0);
VAR5:=BARSLAST(VAR4=VAR1);
VAR6:=(0-REF(VAR2,4))/(VAR4-REF(VAR2,VAR5))>2;
VAR7:=VAR1>REF(VAR1,1);
VAR8:=VOL>2*MA(VOL,30);
VAR9:="DMI.ADX"(12,6);
VARA:="DMI.ADXR"(12,6);
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
VARE:=0-"MACD.DIFF"(7,21,3);
VARF:=TROUGHBARS(3,15,1)<4;
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
VAR11:=IF(VARF=1,50,0);
VAR12:=CROSS(VAR2,VAR1) AND CROSS(VARA,VAR9);
VAR13:=CROSS(VAR2,VAR1) AND CROSS(VAR9,VARA);
VAR14:=VARB AND VARC AND VARD AND VAR10 AND VAR6 AND VAR7 AND VAR8*50;
VAR15:=BARSLAST(CROSS(VAR2,VAR1)=1);
VAR16:=BARSLAST(CROSS(VAR1,VAR2)=1);
VAR17:=HHV(VAR1,VAR16);
VAR18:=BARSLAST(VAR1=VAR17);
多空:EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),COLORWHITE;
0,COLORRED;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,50,0,15,0),colorf00ff0;
STICKLINE(FILTER(VARF=1,5),50,0,8,0),COLORYELLOW;
VAR19:=VAR3 OR VAR12 OR VAR13*100;
VAR1A:=VAR13*100;
DRAWTEXT(FILTER(VARF=1,3),25,'會員★之星'),COLORRED ;
STICKLINE(多空<-10,0,多空,0.85,0),COLORyellow;
STICKLINE(多空>10,0,多空,0.95,0),COLORRED;
進場出貨
VAR0:=DYNAINFO(5);
VAR1:=BARSCOUNT(HIGH);
VAR2:=(SMA((HIGH / HHV(CLOSE,120)),3,1) * 100);
低位金叉跟進:=IF((VAR1 > 20),VAR2,0);
VAR11:=IF((HIGH < VAR0),0,IF((LOW > VAR0),1,(((VAR0 - HIGH) + 0.009) / ((LOW - HIGH) + 0.009))));
AAA:=(DMA(VAR11,(VOL /SUM(VOL,90))) * 60);
BBB:=(DMA(VAR11,(VOL / CAPITAL)) * 60);
VAR12:=IF(C>1000,AAA,BBB);
VAR3:=IF((((VAR12 > 0) AND (VAR12 > REF(VAR12,1))) AND (低位金叉跟進 >= 88)),VAR2,0);
VAR4:=((3 * SMA((((CLOSE - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,27)) / (LLV(LOW,27) - HHV(HIGH,27))) * 100),5,1),3,1)));
VAR5:=EMA(VAR4,8);
VAR6:=((3 * SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1)) - (2 * SMA(SMA((((HIGH - HHV(HIGH,55)) / (LLV(LOW,55) - HHV(HIGH,55))) * 100),5,1),3,1)));
VAR7:=(EMA(VAR6,3) - 10);
A:=1.1*C;
B:=0.9*C;
B1:=100*(WINNER(A)-WINNER(B));
C1:=MA(C,13)<REF(MA(C,13),1);
D1:=IF(C>1000,CROSS(VAR3,22),CROSS(VAR3,24));
鎖定籌碼:=100-B1;
鎖定區(qū):STICKLINE(鎖定籌碼>70 AND C1,0,鎖定籌碼-65,8,0),COLOR0000FF;
出倉區(qū):STICKLINE(((VAR3>0) AND ((VAR7 < 20) OR ((VAR7 > REF(VAR7,1)) AND (VAR7 < 50)))),0,VAR3,8,0),COLORGREEN;
明天買:IF(CROSS(鎖定籌碼,90)AND C1,鎖定籌碼-50,0),COLORBBEEFF,LINETHICK2;
明天賣:IF(D1,VAR3+10,0),COLORFFAA00,LINETHICK2;
進場賣出
V1:=(C*2+H+L)/4*10;
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
莊秘撤: IF(V4<=0,V4,0),COLOR00FF00,LINETHICK2;
莊秘進: IF(V4>=0,V4,0),COLORFF00FF,LINETHICK2;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
大籌金進場: IF(VB>=0,VB,0),COLORYELLOW,LINETHICK2;
大籌金撤走: IF(VB<=0,VB,0),COLORBLUE,LINETHICK2;
aa:=WINNER(CLOSE+CLOSE*15/100)*100;
bb:=WINNER(CLOSE+CLOSE*0/100)*100;
cc:=aa-bb;
dd:=(WINNER(CLOSE-CLOSE*0.1/100)-WINNER(CLOSE-CLOSE*15/100))*100;
ee:=cc<3 and dd<0.5 and OPEN<>LOW;
a1:=DYNAINFO(6);
a2:=IF(LOW>a1,0,IF(HIGH<a1,1,(a1-LOW+0.01)/(HIGH-LOW+0.01)));
a3:=VOL/WINNER(LOW);
a4:=REF(HHV(CLOSE,120),1);
a5:=REF(LLV(CLOSE,120),1);
a6:=100*(CLOSE-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/REF(a3,3)>=3 and a6<80;
a9:=REF(a8,1) or REF(a8,2) or REF(a8,3) or REF(a8,4);
a10:=a8 and a9;
a11:=IF(FILTER(a8,3),5,0);
a12:=IF(FILTER(a10,3) or ee,10,0);
籌碼進場日:IF(a11,8,0),LINETHICK0;
STICKLINE(a12,0,15,5,0),colorff00ff;
籌碼加倉日:IF(a12,88,0),LINETHICK0;
STICKLINE(a12,0,15,5,0),colorff00ff;
控盤頂?shù)?nbsp;
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR);
MDI:=((DMM * 100) / TR);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
0,colorFF00ff;
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
階段底部:=(AV + NEWVOL);
STICKLINE((階段底部 >= 0),0,階段底部,0.3,1),LINETHICK2,colorCC6600;
STICKLINE((階段底部 < 0),0,階段底部,0.8,1),LINETHICK6,colorred;
趨勢線:llv(階段底部,1),colorFFFFFF;
STICKLINE((趨勢線 >230 ),250,趨勢線,0.8,1),LINETHICK6,colorgreen;
230,colorFFFFFF;
買底: (階段底部 >= 0),colorCC6600;
賣頂: (趨勢線 >230 ),colorgreen;
STICKLINE(a11,0,5,5,0),colorff7700;
STICKLINE(a11,0,5,4.5,0),colorff8800;
STICKLINE(a11,0,5,4,0),colorff9900;
STICKLINE(a11,0,5,3.5,0),colorffaa00;
STICKLINE(a11,0,5,3,0),colorffbb00;
STICKLINE(a11,0,5,2.5,0),colorffcc00;
STICKLINE(a11,0,5,2,0),colorffdd00;
STICKLINE(a11,0,5,1,0),colorffee00;
STICKLINE(a12,0,15,4.5,0),color102099;
STICKLINE(a12,0,15,4,0),color1020aa;
STICKLINE(a12,0,15,3.5,0),color1020bb;
STICKLINE(a12,0,15,3,0),color1020cc;
STICKLINE(a12,0,15,2.5,0),color1020dd;
STICKLINE(a12,0,15,2,0),color1020ee;
STICKLINE(a12,0,15,1,0),color1020ff;
DRAWTEXT(a11,8,'籌碼進場');
DRAWTEXT(a12,17,'籌碼加倉');
Var1:=REF(LOW,1);
Var2:=SMA(ABS(LOW-Var1),13,1)/SMA(MAX(LOW-Var1,0),13,1)*4;
Var3:=EMA(Var2,13);
Var4:=LLV(LOW,34);
Var5:=EMA(IF(LOW<=Var4,Var3,0),3);
主力進場:IF(Var5>REF(Var5,1),VAR5,0),COLORred,LINETHICK2;
STICKLINE(Var5>REF(Var5,1),0,Var5,7,0 ),COLORRED;
洗盤:IF(VAR5<REF(VAR5,1),VAR5,0),COLORGREEN,LINETHICK2;
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2,1),COLORGREEN;
Var6:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-
LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var7:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV
(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);
Var8:=Var6<REF(Var7,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(Var8 AND COUNT(Var8,30)=1,40,'★注意有籌碼進場跡象');
藍止粉進
AMV0:=VOL*(O+C)/2;
BS:SUM(AMV0,88)/SUM(VOL,88),COLORMAGENTA,LINETHICK2;
CG:MA(C,17),COLORCYAN,LINETHICK2;
FL:HHV(CG,2),COLORGREEN;
FS:CG-(FL-CG),COLORYELLOW,LINETHICK2;
MA6:MA(C,6),COLORWHITE,LINETHICK0;
MA18:MA(C,18),COLOR0099FF,LINETHICK0;
買線:=EMA(C,2);
賣線:=EMA(SLOPE(C,21)*20+C,42);
STICKLINE(買線>=賣線,LOW,HIGH,0.1,0),COLORRED;
STICKLINE(買線>=賣線,CLOSE,OPEN,3,0),COLORRED;
{STICKLINE(買線<賣線,LOW,HIGH,0.1,0),COLOR148A14;}
STICKLINE(買線<賣線,CLOSE,OPEN,3,0),COLOR148A14;
F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND F<0,1,0);
P1:=今小昨;
今小前:=IF(C<REF(O,2) AND F<0,1,0);
P2:=今小前;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 AND CROSS(ZIG(3,3) ,REF(ZIG(3 ,3),1)),OPEN,CLOSE,3,0),COLORMAGENTA;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1 AND CROSS(ZIG(3,3) ,REF(ZIG(3 ,3),1)),H,L,0.3,0),COLORMAGENTA;
STICKLINE(TROUGHBARS(3,3,1)=0 AND HIGH>LOW+0.01,O,C,3,0),COLORBLUE ;
STICKLINE(TROUGHBARS(3,3,1)=0 AND HIGH>LOW+0.01,H,L,0.3,0),COLORBLUE ;
懶貓
{懶貓}
N:=5;
VAR01:4*SMA((CLOSE-LLV(LOW,n))/(HHV(HIGH,n)-LLV(LOW,n))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,n))/(HHV(HIGH,n)-LLV(LOW,n))*100,5,1),3.2,1),COLOR0099FF,LINETHICK1;
VAR02:8,COLORGREEN,LINETHICK1;
上升在即: IF(CROSS(VAR01,VAR02),80,0),STICK,COLORred,LINETHICK2;
專吸莊血: IF(VAR01<=8,25,0),STICK,COLORblue,LINETHICK2;
DRAWTEXT(CROSS(VAR01,VAR02),80,'準備買入'),COLORred;
VARO5:=LLV(LOW,27);
VARO6:=HHV(HIGH,34);
VARO7:=EMA((CLOSE-VARO5)/(VARO6-VARO5)*4,4)*25;
建倉區(qū): IF((VARO7<10),80,100) ,COLORffff00,LINETHICK1;
0,LINETHICK2 ,COLORFFCC00;
VAR1:="DMI.PDI"(12,6);
VAR2:="DMI.MDI"(12,6);
VAR3:=VAR1>65 AND VAR1>REF(VAR1,1);
VAR4:=LLV(VAR1,0);
VAR5:=BARSLAST(VAR4=VAR1);
VAR6:=(0-REF(VAR2,4))/(VAR4-REF(VAR2,VAR5))>2;
VAR7:=VAR1>REF(VAR1,1);
VAR8:=VOL>2*MA(VOL,30);
VAR9:="DMI.ADX"(12,6);
VARA:="DMI.ADXR"(12,6);
VARB:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;
VARC:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);
VARD:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));
VARE:=0-"MACD.DIFF"(7,21,3);
VARF:=TROUGHBARS(3,15,1)<4;
VAR10:=EMA(CLOSE,30)>REF(EMA(CLOSE,30),2);
VAR11:=IF(VARF=1,50,0);
VAR12:=CROSS(VAR2,VAR1) AND CROSS(VARA,VAR9);
VAR13:=CROSS(VAR2,VAR1) AND CROSS(VAR9,VARA);
VAR14:=VARB AND VARC AND VARD AND VAR10 AND VAR6 AND VAR7 AND VAR8*50;
VAR15:=BARSLAST(CROSS(VAR2,VAR1)=1);
VAR16:=BARSLAST(CROSS(VAR1,VAR2)=1);
VAR17:=HHV(VAR1,VAR16);
VAR18:=BARSLAST(VAR1=VAR17);
多空:EMA((CLOSE-MA((2*CLOSE+HIGH+LOW)/4,30))/MA((2*CLOSE+HIGH+LOW)/4,30)*100,3),COLORWHITE;
0,COLORRED;
STICKLINE(FILTER(VARF=1,5) AND 多空<-10,50,0,15,0),colorf00ff0;
STICKLINE(FILTER(VARF=1,5),50,0,8,0),COLORYELLOW;
VAR19:=VAR3 OR VAR12 OR VAR13*100;
VAR1A:=VAR13*100;
DRAWTEXT(FILTER(VARF=1,3),25,'會員★之星'),COLORRED ;
STICKLINE(多空<-10,0,多空,0.85,0),COLORyellow;
STICKLINE(多空>10,0,多空,0.95,0),COLORRED;
撈錢手
{撈錢手}
拾金線: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,COLORMAGENTA;
頂:120,POINTDOT,COLORWHITE;
風險:100,POINTDOT,COLORWHITE;
中:50,POINTDOT,COLORWHITE;
次底:0,POINTDOT,COLORWHITE;
底:-20,POINTDOT,COLORWHITE;
等待:IF(拾金線<=底,10,-20),LINETHICK2,COLORYELLOW;
等待2:=IF(CROSS(底,拾金線),10,-20);
DRAWTEXT(等待2=10,5,'等待'),LINETHICK1,COLORYELLOW;
買入:IF(CROSS(拾金線,底) AND 底<拾金線,20,-20),LINETHICK2,COLORRED;
DRAWTEXT(買入=20,20,'★買入'),COLORRED;
買入2:IF(CROSS(拾金線,次底) AND 拾金線>0 AND 拾金線<25,20,-20),LINETHICK2,COLORCYAN;
DRAWTEXT(買入2=20,20,'★買2'),COLORCYAN;
減倉:IF(拾金線>=風險,100,120),LINETHICK2,colorwhite;
減倉2:=IF(CROSS(拾金線,風險),100,120);
DRAWTEXT(減倉2=100,100,'減倉'),LINETHICK1,COLORWHITE;
賣出:IF( CROSS(風險,拾金線),100,120),LINETHICK2,COLORGREEN;
DRAWTEXT(賣出=100,95,'賣出'),LINETHICK1,COLORGREEN;
立即抄底
A1:=ma(close,5);A2:=ma(close,10);
A3:=ma(close,20);
A4:=ma(close,30);
Count(a1<a2 and a2<a3 and a3<a4,3)=3 and not(isup);
買賣齊全
DRAWTEXTABS(0,0,' ☆全功能KDJ＋MAC☆'),colorgreen;
DRAWGBK(close>0,STRIP(RGB(25,25,112),RGB(47,79,79),0));
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLOR00DDDD;
J:3*K-2*D,LINETHICK2,COLOR800080;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),linethick0,COLOR0099FF;
DEA :EMA(DIFF,9),linethick0,COLORD89837;
MACD:2*(DIFF-DEA),COLORFF9999,linethick0;
YLZC:=if(close=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(vol+0.01)/100);
阻價:=if(close=INDEXC,YLZC+INDEXC-INDEXl,YLZC+(close-low));
支價:=if(close=INDEXC,INDEXl+INDEXC-YLZC,low+(close-YLZC));
今壓:REF(阻價,1),LINETHICK0,COLORAA11BB;
今撐:REF(支價,1),LINETHICK0,COLOR009900;
明壓:阻價,LINETHICK0;
明撐:支價,LINETHICK0;
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;
kk:=sma(rsv1,3,1);
dd:=sma(kk,3,1);
jj:=3*kk-2*dd;
買賣:=if(jj>=100,100,if(jj<=0,0,jj));
明天買:if(買賣=100,0-10,0),color00cccc;
明天賣:if(買賣=0,90,100),color00ff00;
KX:=250;
KH:=HHV(K,KX);
DH:=HHV(D,KX);
JH:=HHV(J,KX);
KL:=LLV(K,KX);
DL:=LLV(D,KX);
JL:=LLV(J,KX);
HKMAX:=MAX(KH,MAX(DH,JH));
LKMIN:=MIN(KL,MIN(DL,JL));
KHLB:=(HKMAX+LKMIN)/2;
KHLC:=HKMAX-LKMIN;
MHF:=HHV(DIFF,KX);
MHD:=HHV(DEA,KX);
MHM:=HHV(MACD,KX);
MLF:=LLV(DIFF,KX);
MLD:=LLV(DEA,KX);
MLM:=LLV(MACD,KX);
HMAX:=MAX(MHF,MAX(MHD,MHM));
LMIN:=MIN(MLF,MIN(MLD,MLM));
FHLB:=(HMAX-LMIN)/100;
FHLC:=HMAX-LMIN;
SH:=(0-FHLB)*(KHLC/FHLC)+KHLB;
DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
MACDA:=(macd-FHLB)*(KHLC/FHLC)+KHLB;
CDA:=MACD<ref(MACD,1) and MACD>0;
CDB:=MACD>=ref(MACD,1) and MACD>0;
CDC:=MACD>ref(MACD,1) and MACD<0;
CDD:=MACD<=ref(MACD,1) and MACD<0;
STICKLINE(CDA,SH,macda,6,0),COLOR00AAFF;{黃色段}
STICKLINE(CDA,SH,macda,6.6,0),COLOR0066AA;
STICKLINE(CDA,SH,macda,4.4,0),COLOR0099DD;
STICKLINE(CDA,SH,macda,3.3,0),COLOR00BBEE;
STICKLINE(CDA,SH,macda,2.2,0),COLOR00DDFF;
STICKLINE(CDA,SH,macda,1.1,0),COLOR00FFFF;
STICKLINE(CDB,SH,macda,6,0),COLOR0000AA; {紅色段}
STICKLINE(CDB,SH,macda,6.6,0),COLOR0011BB;
STICKLINE(CDB,SH,macda,4.4,0),COLOr0022CC;
STICKLINE(CDB,SH,macda,3.3,0),COLOR0033DD;
STICKLINE(CDB,SH,macda,2.2,0),COLOR0044EE;
STICKLINE(CDB,SH,macda,1.1,0),COLOR0055FF;
STICKLINE(CDC,SH,macda,6,0),COLORAA00BB;{向上粉紅}
STICKLINE(CDC,SH,macda,6.6,0),COLORBB1177;
STICKLINE(CDC,SH,macda,4.4,0),COLORCC2299;
STICKLINE(CDC,SH,macda,3.3,0),COLORDD33AA;
STICKLINE(CDC,SH,macda,2.2,0),COLOREE44BB;
STICKLINE(CDC,SH,macda,1.1,0),COLORFF55BB;
STICKLINE(CDD,SH,macda,6,0),COLORFF7700;
STICKLINE(CDD,SH,macda,6.6,0),COLORAA7711;
STICKLINE(CDD,SH,macda,4.4,0),COLORCC9922;
STICKLINE(CDD,SH,macda,3.3,0),COLOREEBB33;
STICKLINE(CDD,SH,macda,2.2,0),COLORFFCC44;
STICKLINE(CDD,SH,macda,1.1,0),COLORFFDD55;
PARTLINE(DIFFA,DIFF>0,RGB(255,153,153),DIFF<0,RGB(255,153,153));
PARTLINE(DEAA,DEA>0,RGB(65,105,225),DEA<0,RGB(65,105,225));
DRAWTEXT(BARSTATUS=2,SH,' 0'),color00aaaa;
TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(diff>ref(diff,1),20,20,2,0),COLORRED;
STICKLINE(diff<ref(diff,1),20,20,2,0),COLORGREEN;
STICKLINE(K>=ref(K,1) or k>d and diff>ref(diff,1),80,80,2,1),COLORRED;
STICKLINE(K<ref(K,1),80,80,2,1),COLORGREEN;
MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;
DRAWTEXT(MACD金叉,macda*0.82,'MACD金叉'),color00FFFF;
XX:=ema(MA(LOW,3)*0.96,30);
DIFF金叉:=if(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);
DRAWTEXT(DIFF金叉=1,DIFFA*1.68,'DIFF金叉'),colorCDFFBB;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,deaa*0.99,' 低位金叉'),COLOR0099DD;
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,deaa*0.99-8,' 二次金叉'),ColorFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(底背離,DEAA*0.99-16,' 底背離'),Color0099FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(頂背離,5),DEAA*1.02,'頂背離'),COLORDDAAAA;
{周金叉,死叉}
周DIFF:="MACD.DIFF#WEEK";
周DEA:="MACD.DEA#WEEK";
周MACD:="MACD.MACD#WEEK";
DIF周金叉:=CROSS(周DIFF,周DEA);
DRAWTEXT(DIF周金叉,DEAA,'DIFF周金叉'),COLOR0099FF;
DRAWTEXT(CROSS(周DEA,周DIFF),DEAA+4,'DIFF周死叉'),align0,COLORCDFFBB;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;
DRAWTEXT(MACD周金叉,macda-0.03,'MACD周金叉'),color00FFFF;
{月金叉,死叉}
月DIFF:="MACD.DIFF#MONTH";
月DEA:="MACD.DEA#MONTH";
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,DEAA*0.98,'DIF月金叉'),COLOR00FFCC;
DRAWTEXT(CROSS(月DEA,月DIFF),DEAA*1.02,'DIF月死叉'),align0,COLORDDDDDD;
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
月金叉:=cross(月K,月D);
周金叉:=cross(周K,周D);
日金叉:=FILTER(cross(K,D) and K<20,4);
drawtext(月金叉,月D-2,'★'),ALIGN0,color0022ee;
DRAWTEXT(月金叉,月D-2,'KD月金叉'),coloryellow;
drawtext(周金叉,周D,'★'),ALIGN2,color0022ee;
DRAWTEXT(周金叉,周D,' KD周金叉'),colorgreen;
DRAWICON(日金叉,K,1),align2;
DRAWTEXT(日金叉,D-6,'低位金叉'),color00CCCC;
DRAWTEXT(CROSS(周D,周K),周D*1.2,'KD周死叉'),COLOR00DDBB;
DRAWTEXT(CROSS(月D,月K),月D,'KD月死叉'),COLORFFFFFF;
KDB:=BARSLAST(ref(cross(k,d),1));
KDDB:=ref(close,KDB+1)>close and ref(k,KDB+1)<k and cross(k,d);
K底背:=if(FILTER(KDDB>0,5),1,0);
DRAWTEXT(K底背=1,D*0.98,'底背離'),COLORDDDDDD;
KDD:=BARSLAST(ref(cross(d,k),1));
K頂背:=ref(close,KDD+1)<close and ref(k,KDD+1)>k and cross(d,k);
DRAWTEXT(FILTER(K頂背>0,5),D+8,'頂背離'),COLORFFAA22;
MD1:=MA(CLOSE,80)-MA(CLOSE,13)/3;
MD2:=MA((CLOSE-MD1)/MD1,3);
買點1:=CROSS(MD2,0) AND LOW/REF(HIGH,1)<1.012 AND J<75 AND J>REF(J,1);
ma12:=MA(CLOSE,12);
佳點:=if(FILTER(MACD>=REF(MACD,5) AND open<=ref(close,1) and XX-REF(XX,1)>0 AND MACD<=0 AND ma12-REF(ma12,1)>=0,3) and J<80 and J>ref(J,1) and D>ref(D,1) and (diff>=ref(diff,1) or dea>=ref(dea,1)),1,0);
DRAWTEXT(佳點=1,macda*0.98,'佳點'),color0099FF;
DX0:=EMA(CLOSE,2)-EMA(OPEN,5);
DX1:=if(CROSS(DX0,MACD) AND LOW<=XX AND MACD<=(0-0.11) and (J<20 or K<20),1,0);
DRAWTEXT(FILTER(DX1,3),0,'短10%'),color00CC00;{短線}
MA10:=MA(CLOSE,10);
SS:=EMA(MA(HIGH,3)*1.05,30);
LQS:=if(FILTER(0.7*(CROSS(DIFF,DEA) AND CLOSE<SS AND XX-REF(XX,1)>0 AND CROSS(MACD,0) AND MACD>=0 AND DIFF>0 AND ma10-REF(ma10,1)>0 AND VOL>REF(VOL,1))>=0.7 AND (CLOSE<SS AND XX-REF(XX,1)>0),5) AND J<80,1,0);
DRAWTEXT(LQS=1,macda*0.98,'量價齊上'),colorCDFFDD;{量價齊上}
最佳點:=IF(COUNT(MD2>REF(MD2,1),3)=3 AND COUNT(MD2<0,10)=10 AND REF(MD2,3)=LLV(MD2,10) and J<80 and J>ref(J,1),1,0);
DRAWTEXT(最佳點=1,J,'最佳點'),colorFF00CC;
買點2:=REF(MD2,2)=LLV(MD2,20) AND REF(MD2,2)<0.071 AND REF(MD2,2)<REF(MD2,1) AND
NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1) AND J<75 AND J>REF(J,1);
DRAWTEXT(買點1 or 買點2,D-1,'買'),colorff00CC;
{預漲}
YZ:=(INTPART(SMA(RSV,3,1))+INTPART(SMA(K,3,1)))/2;
預漲:=cross(yz,50) and j<95 and diff>ref(diff,1) and low<ref(close,1);
DRAWTEXT(預漲,d*0.6,'預漲'),COLORA52A2A;
KD金叉:=cross(K,D)and J>20 and J<80;
選股:if(cross(macd,0) or DX1 or 佳點 or LQS or K底背 or 月金叉 or 周金叉 or 日金叉 or 買點1 or 買點2 or 最佳點 or MACD金叉 or DIFF金叉 or 低位金叉 or 二次金叉 or 底背離 or DIF周金叉 or MACD周金叉 or DIF月金叉 or KD金叉,2,0),LINETHICK0;
買賣奇準
趨勢:(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100),colorYELLOW;
VAR1:=FORCAST(CLOSE,30);
主力:(WINNER(VAR1) * 100),colorRED;
啟:(CROSS(趨勢,主力) AND (REF(趨勢,1) < 30)),POINTDOT,colorFF00FF;
SZ1:=(CROSS(趨勢,30) AND (趨勢 > 主力));
SZ2:=(CROSS(趨勢,50) AND (COUNT((趨勢 > REF(趨勢,1)),2) = 2));
漲:(SZ1 OR SZ2),POINTDOT,colorFF00FF;
強:CROSS(趨勢,70),POINTDOT,colorFFFF00;
回:(CROSS(70,趨勢) AND (趨勢 > 50)),POINTDOT,colorFFFFFF;
險:(趨勢 > 95),POINTDOT,colorFF9900;
STICKLINE((CLOSE > 0),95,95,4,0),colorFFCC00;
STICKLINE((CLOSE > 0),30,30,4,0),colorFFFFFF;
STICKLINE(啟,0,10,4,0),colorFF00BB;
DRAWTEXT(啟,20,'啟'),colorFF00BB;
STICKLINE(漲,0,30,4,0),colorFFFFCC;
DRAWTEXT(漲,20,'漲'),colorFFCCBB;
STICKLINE(強,70,90,4,0),colorFF00FF;
DRAWTEXT(強,85,'強'),colorFF00AA;
STICKLINE(回,70,50,4,0),colorFFFFFF;
DRAWTEXT(回,65,'回'),colorFF00EE;
STICKLINE((趨勢 >= 70),90,95,4,1),colorFFFF00;
STICKLINE((趨勢 >= 95),95,100,4,1),colorFF9988;
STICKLINE((趨勢 <= 10),0,10,4,1),colorFF6600;
買賣線 {MA移動平均線+買賣點+黃金分割
P1: 0 300 5
P2: 0 300 10
P3: 0 300 30
P4: 0 300 60
P5: 0 300 120
P6: 0 300 250}
input.:p1(5,1,300),p2(30,1,300),p3(60,1,300),p4(120,1,300),p5(250,1,300),p6(250,1,300);
MA1:MA(CLOSE,P1);
MA2:MA(CLOSE,P2);
MA3:MA(CLOSE,P3);
MA4:MA(CLOSE,P4);
ma5:ma(close,p5),COLORCYAN;
ma6:ma(close,p6);
DRAWTEXT(CROSS(MA1,MA4),MA4,'★買'),COLORYELLOW;
DRAWTEXT(CROSS(MA4, MA1), MA1,'★賣'), COLORGREEN;;
x:=BARPOS-hhv(if(DISPSTATUS=1,BARPOS,0),0)+1;
hh:=hhv(h,x); ll:=llv(l,x); hl:=hh-ll;
a80:=.809*hl+ll;a61:=.618*hl+ll;a38:=.382*hl+ll;
a19:=.191*hl+ll; a5:=.5*hl+ll;
DRAWTEXTREL(0,0,'最高￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣' ),coloraaaaaa;
DRAWTEXTREL(0,900+76,'最低.................................................................................................................................'),color00ff00;
DRAWTEXTREL(0,0.50*(900+76),'0.5..................................................................................................................................'),color0099ff;
DRAWTEXTREL(0,0.191*(900+76),'0.809................................................................................................................................'),colorred;
DRAWTEXTREL(0,0.382*(900+76),'0.618................................................................................................................................'),colorred;
DRAWTEXTREL(0,0.618*(900+76),'0.382................................................................................................................................'),colorred;
DRAWTEXTREL(0,0.809*(900+76),'0.191................................................................................................................................'),colorred;
DRAWTEXTREL(999,0.809*(900+76),'19.1%:'+NUMTOSTR(a19)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.618*(900+76),'38.2%:'+NUMTOSTR(a38)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.5*(900+76),'50%:'+NUMTOSTR(a5)),VALIGN2,ALIGN2,color0099ff;
DRAWTEXTREL(999,0.382*(900+76),'61.8%:'+NUMTOSTR(a61)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTREL(999,0.191*(900+76),'80.9%:'+NUMTOSTR(a80)),VALIGN2,ALIGN2,colorwhite;
DRAWTEXTABS(0,5,'【操作解盤】友情提示：'),COLORYELLOW;
DRAWTEXTABS(0,20,'如果回調幅度在0.618內屬強勢調整后市方向不會改變'),COLORMAGENTA ;
DRAWTEXTABS(0,35,'如果回調超過在0.618后市方向可能逆轉'),COLORBLUE;
DRAWTEXTABS(0,50,'如果反彈高度在0.382內屬反彈行情后市方向不會改變'),COLORMAGENTA ;
DRAWTEXTABS(0,65,'如果反彈超過在0.382后市方向可能逆轉'),COLORBLUE;
買賣信號
Va1:=HHV(HIGH,9)-LLV(LOW,9);
Va2:=HHV(HIGH,9)-CLOSE;
Va3:=CLOSE-LLV(LOW,9);
Va4:=Va2/Va1*100-70;
Va5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Va6:=(2*CLOSE+HIGH+LOW)/4;
Va7:=SMA(Va3/Va1*100,3,1);
Va8:=LLV(LOW,34);
Va9:=SMA(Va7,3,1)-SMA(Va4,9,1);
VarA:=IF(Va9>100,Va9-100,0);
VarB:=HHV(HIGH,34);
VarC:=EMA((Va6-Va8)/(VarB-Va8)*100,13);
VarD:=EMA(0.667*REF(VarC,1)+0.333*VarC,2);
VarE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(ABS(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25;
VarF:=MA(VarE,3);
生命線:EMA(VarD,1), colorff00ff,linethick2;
var1:=HHV(HIGH,9)-LLV(LOW,9);
var2:=HHV(HIGH,9)-CLOSE;
var3:=CLOSE-LLV(LOW,9);
var4:=((var2)/(var1))*(100)-70;
var5:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100);
var6:=((2)*(CLOSE)+HIGH+LOW)/(4);
var7:=SMA(((var3)/(var1))*(100),3,1);
var8:=LLV(LOW,34);
var9:=SMA(var7,3,1)-SMA(var4,9,1);
var10:=IF((var9>100),var9-100,0);
var11:=HHV(HIGH,34);
b1:=EMA(((var6-var8)/(var11-var8))*(100),8);
b2:EMA(b1,5),colorff7000;
STICKLINE(b1-b2>0,b1,b2,8,0),colorffffff;
STICKLINE(b1-b2<0,b1,b2,8,0),color00ff00;
V1:=MA(C,5)=HHV(MA(C,5),20);
v2:=MA(C,5)>MA(C,10);
V3:=MA(V,5)>MA(V,40)*1.01;
V4:=COUNT(MA(C,1)>REF(C,1),2)=2;
vv:=v1 AND V2 AND V3 AND V4;
STICKLINE(v1 AND V2 AND V3 AND V4,100,110,8,0),color00ff00;
a1:=EMA(CLOSE,8);
a2:=EMA(a1,20);
a3:=CROSS(a1,a2);
a4:=a1<EMA(CLOSE,120);
STICKLINE(a3 AND a4,100,110,8,0),color00ff00;
a5:=3*SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,21,1)-2*
SMA(SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,20,1),8,1) ;
安全位:=20;
低位轉強:IF(CROSS(a5,安全位),50,0),colorred,POINTDOT;
開始拉升:IF(CROSS(VarC,生命線) AND VarC>VarD AND VarC<55 AND C>O,50,0),colorblue,POINTDOT;
a6:=LLV(C,500)=LLV(C,5) AND C/REF(C,1)>(1+9.8/100);
極低大漲:IF(a6,50,0),coloryellow,POINTDOT;
STICKLINE(開始拉升>0,15,開始拉升*1.1,1,0),POINTDOT,colorblue;
STICKLINE(開始拉升>0 AND 開始拉升<400,30,開始拉升,1,0),colorred,linethick3;
STICKLINE(開始拉升>0,15,開始拉升*0.6,5,0),colorblue,linethick5;
STICKLINE(開始拉升>0,15,開始拉升*0.4,5,0),color00ff00,linethick7;
STICKLINE(開始拉升>0,15,開始拉升*0.2,5,0),color0099cc,linethick7;
STICKLINE(低位轉強>0,15,低位轉強*1.1,1,0),POINTDOT,colorwhite;
STICKLINE(低位轉強>0 AND 低位轉強<400,30,低位轉強,1,0),colorred,linethick3;
STICKLINE(低位轉強>0,15,低位轉強*0.6,5,0),colorred,linethick5;
STICKLINE(低位轉強>0,15,低位轉強*0.4,5,0),coloryellow,linethick7;
STICKLINE(低位轉強>0,15,低位轉強*0.2,5,0),colorffcc66,linethick7;
STICKLINE(極低大漲>0,15,極低大漲*1.1,1,0),POINTDOT,coloryellow;
STICKLINE(極低大漲>0 AND 極低大漲<400,30,極低大漲,1,0),colorred,linethick3;
STICKLINE(極低大漲>0,15,極低大漲*0.6,5,0),coloryellow,linethick5;
STICKLINE(極低大漲>0,15,極低大漲*0.4,5,0),colorff00ff,linethick7;
STICKLINE(極低大漲>0,15,極低大漲*0.2,5,0),coloryellow,linethick7;
