{精確打擊}
DRAWTEXTREL(230,20,’● 也是應(yīng)用在底部選股 ●’),COLORyellow,linethick2;
DRAWRECTREL(0,10,200,1000,rgb(0,0,255)),layer0;
n:=10;
f:=25;
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:=(high+low+open+close)/4;
Var7:=SMA(Var3/Var1*100,3,1);
Var8:=LLV(LOW,34);
Var9:=SMA(Var7,3,1)-SMA(Var4,9,1);
VarA:=IF(Var9>100,Var9-100,0);
VarB:=HHV(HIGH,34);
VarC:=EMA((Var6-Var8)/(VarB-Var8)*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);
Var10:=REF(VarF,1);
生命線:EMA(VarD,N),colorFFAA00;
Var11:=(CLOSE-LLV(LOW,F))/(HHV(HIGH,F)-LLV(LOW,F))*100;
K:=SMA(Var11,3,1);
D:=SMA(K,3,1);
{買入信號(hào)}
紅燈亮買: STICKLINE(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,36,0,1,0),colorred;
見紅:IF(VarC>18,0,IF(CROSS(VarC,VarD) AND VarC>VarD AND VarC<18,37,0)),COLOR3355FF;{燈塔脈沖}
fillrgn(0,25,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),color0000FF;{畫紅色燈樁}
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK7,color0000ff;{畫淺藍(lán)色燈輝}
PARTLINE(38,CROSS(VarC,VarD) AND VarC>VarD AND VarC<18),POINTDOT,LINETHICK4,colorffffff;{畫白色燈芯}
DRAWTEXT(見紅,50,’買’),colorffffff;
{賣出信號(hào)}
浪尖: STICKLINE(CROSS(VarD,VarC) AND VarC60,90,100,12,1),colorblue;
DRAWTEXTABS(5,5,’概念股網(wǎng) www.chiang1015.com’),linethick1,COLOR00EEff;
IF(VarC<79,100,IF(CROSS(VarD,VarC) AND VarD>79 AND VarC>79,70,100)),COLOR00ff00;{燈塔脈沖}
賣: STICKLINE(FILTER(CROSS(VarD,VarC),10) AND VarD>79 AND VarC>79,100,95,4,0),colorgreen;{畫綠色倒燈樁}
賣出:CROSS(VarD,VarC) AND VarC60,linethick0;
PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK7,color00ff00;{畫綠色燈輝}
PARTLINE(68,CROSS(VarD,VarC) AND VarD>79 AND VarC>79),POINTDOT,LINETHICK4,colorffffff;{畫白色燈芯}
DRAWTEXT(CROSS(VarD,VarC) AND VarC60,60,’賣’),colorgreen;
{多空信號(hào)}
STICKLINE(VarC-VarD>0,VarC,VarD,8,1),COLOR0000FF;{多頭行情顯出紅柱狀}
STICKLINE(VarC-VarD<0,VarC,VarD,8,0),COLOR00FF00;{空頭行情顯出綠色柱狀}
{建倉(cāng)及底部信號(hào)}
kar1:=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);
kar2:=(CLOSE-LLV(LOW,26))/(HHV(HIGH,26)-LLV(LOW,26))*100;
kar3:=SMA(SMA(kar2,3,1),3,1);
kar4:=EMA(kar3,5);
kar5:=LLV(LOW,26);
kar6:=HHV(HIGH,34);
kar7:=EMA((CLOSE-kar5)/(kar6-kar5)*4,4)*25;
kar8:=100-kar1;
kar9:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
kar10:=SMA(kar9,3,1);
kar11:=SMA(kar10,3,1);
kar12:=EMA(3*kar10-2*kar11,3);
kar13:=(-1)*(EMA(kar8,1)-50)+50;
kar14:=EMA(100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14)),6);
全倉(cāng):(CROSS(kar4,10) AND kar4>10),coloryellow;
底部:STICKLINE(CROSS(kar4,10) AND kar4>10,50,0,4,0),color00ff00;
建倉(cāng): IF((kar7<10),18,0), colorcc00ff;
連續(xù)建倉(cāng):IF(建倉(cāng),BARSLAST(CROSS(建倉(cāng),0.1))+1,0),COLORFF00FF,POINTDOT,LINETHICK0;
DRAWTEXT(建倉(cāng),10,’建’),colorffffff;
DRAWTEXT(CROSS(kar4,10) AND kar4>10,65,’●全倉(cāng)’),colorred;
{當(dāng)日及時(shí)行情}
DRAWTEXTREL(5,70,’今 建倉(cāng)區(qū)：’+NUMTOSTRN(建倉(cāng),0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,310,’日 買 入：’+NUMTOSTRN(見紅,0)),COLORffffff,linethick1,layer0;
DRAWTEXTREL(5,550,’行 全倉(cāng)區(qū)：’+NUMTOSTRN(全倉(cāng),0)),COLORFFFFFF,linethick1,layer0;
DRAWTEXTREL(5,790,’情 賣 出：’+NUMTOSTRN(賣出,0)),COLORffffff,linethick1,layer0;
JCA1:=建倉(cāng)=18 and REF(建倉(cāng),1)=18;
JCA2:=建倉(cāng)=18 and REF(建倉(cāng),1)=0;
JCA3:=建倉(cāng)=0 AND 全倉(cāng)=0;
JCA4:=建倉(cāng)=0 AND 全倉(cāng)=1;
IF BARSTATUS=2 AND JCA1 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 數(shù)一數(shù) 第 ‘+NUMTOSTRN(連續(xù)建倉(cāng),0)+’ 次’),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND JCA2 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 來了 第 1 次’),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND JCA3 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 空等待！’),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND JCA4 THEN BEGIN
DRAWTEXTREL(25,70,’ ● 機(jī)會(huì)來了！’),colorRED,layer0;
END
MR1:=見紅=37;
MR2:=見紅=0 AND 全倉(cāng)=0;
MR3:=見紅=0 AND 全倉(cāng)=1;
IF BARSTATUS=2 AND MR1 THEN BEGIN
DRAWTEXTREL(25,310,’ ● 買入 ！’),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND MR2 THEN BEGIN
DRAWTEXTREL(25,310,’ ● 等無人！’),colorgreen,layer0;
END
ELSE
IF BARSTATUS=2 AND MR3 THEN BEGIN
DRAWTEXTREL(25,310,’ ● 機(jī)會(huì)來了！’),colorRED,layer0;
END
QCA1:=全倉(cāng)=1 ;
QCA2:=全倉(cāng)=0;
IF BARSTATUS=2 AND QCA1 THEN BEGIN
DRAWTEXTREL(25,550,’ ● 買錯(cuò)也要買！’),colorRED,layer0;
END
ELSE
IF BARSTATUS=2 AND QCA2 THEN BEGIN
DRAWTEXTREL(25,550,’ ● 等不到 煩人??！’),colorgreen,layer0;
END;
MCH1:=賣出=1;
MCH2:=賣出=0;
IF BARSTATUS=2 AND MCH1 THEN BEGIN
DRAWTEXTREL(25,790,’ ● 兒子說要玩具’),colorred,layer0;
END
ELSE
IF BARSTATUS=2 AND MCH2 THEN BEGIN
DRAWTEXTREL(25,790,’ ● 今天不賣酒！’),colorgreen,layer0;
END;