自用指標公式－頂底先知（公式、源碼 副圖指標公式）

相關標簽:

?

說明：底部出現黃s細線進入底部關注，出現B時買入。頂部出現粉色及藍色減倉、清倉。


DRAWGBK(DATE>900101,COLORRGB(15,50,90),COLORRGB(0,0,0),1);//藍色
CXH1:=IF(DATE>=2990601,0,1);
CXH2:=TROUGHBARS(3,15,1)<10;
CXH3:=PEAKBARS(3,15,1)<10;
CXH4:=IF(CXH2=1,50,0);
CXH5:=IF(CXH3=1,50,0);
底: IF(CXH4=50,50,0),STICK,LINETHICK1;
頂: IF(CXH5=50,80,0),STICK,LINETHICK1;
TT:=BARPOS=SYSPARAM(2);
HH:=SYSPARAM(4);
DRAWTEXT(TT,HH,'代碼:'+STKLABEL),ALIGN4,PXDN1,colorFFFFFF;
DRAWTEXT(TT,HH,' 名稱:'+STKNAME),ALIGN4,PXDN1,colorFF00;
drawtext(sysparam(2)=barpos,c,' 板塊:'+blkname),,colorcyan,align4;
{撈錢手（原碼）}
拾金線: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,LINETHICK0,COLORMAGENTA;
頂a:120,POINTDOT,COLORWHITE,LINETHICK0;
風險:100,POINTDOT,COLORWHITE,LINETHICK0;
中:50,POINTDOT,COLORWHITE,LINETHICK0;
減倉:IF(拾金線>=風險,100,120),LINETHICK1,colorwhite;
減倉2:=IF(CROSS(拾金線,風險),100,120);
DRAWTEXT(減倉2=100,100,'減倉'),LINETHICK1,COLORWHITE;
賣出:IF( CROSS(風險,拾金線),100,120),LINETHICK1,COLORGREEN;{http://www.tumamayizhan.com}
DRAWTEXT(賣出=100,95,'賣出'),LINETHICK1,COLORGREEN;{http://www.tumamayizhan.com}
{}
rr8:=MA(CLOSE,27);
rr9:=(CLOSE-rr8)/rr8*100;
rrA:=MA(rr9,2);
rrB:=BARSLAST(CROSS(-10,rrA)=1);
rrD:=rrA<-10 AND rrB>3;
【黃金坑】:IF(rrD,-60,0),coloryellow,LINETHICK2;
{頂底先知}
CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
YJD:(EMA(CS,3)-50)*2,colorred;
0;
極弱:-80;
強勢1:60;
風險1:80;
弱勢1:-60;
FILLRGN(YJD<弱勢1,YJD,弱勢1),color000082;
FILLRGN(YJD>強勢1,YJD,強勢1),COLORCC6600;

CXH1:=REF(CLOSE,1);
CXH2:=SMA(MAX(CLOSE-CXH1,0),6,1)/SMA(ABS(CLOSE-CXH1),6,1)*100;
STICKLINE(CROSS(75.9,CXH2),YJD+5,YJD-5,3,0),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,78,' 清倉'),COLORRED;
DRAWTEXT(ISLASTBAR=1,60,' 減倉'),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,0,' 控盤'),COLORWHITE;
DRAWTEXT(ISLASTBAR=1,-60,' 回補'),COLORGREEN;{http://www.tumamayizhan.com}
DRAWTEXT(ISLASTBAR=1,-80,' 吸籌'),COLORBLUE;
CXH1:=REF(CLOSE,1);
CXH2:=(SMA(MAX(CLOSE-CXH1,0),6,1))/(SMA(ABS(CLOSE-CXH1),6,1))*100;
短期頂部:CROSS(80,CXH2)*30,colorFFFFFF,LINETHICK0;
DRAWTEXT(CROSS(80,CXH2),90,'見頂 '),colorFFFF;
Nv:=5;
CXH1:4*SMA((CLOSE-LLV(LOW,Nv))/(HHV(HIGH,Nv)-LLV(LOW,Nv))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,Nv))/(HHV(HIGH,Nv)-LLV(LOW,Nv))*100,5,1),3.2,1),COLORYELLOW,LINETHICK0;
CXH2:=8,COLORGREEN,LINETHICK0;
上升在即: IF(CROSS(CXH1,CXH2),-80,0),STICK,COLOR0000CC,LINETHICK0;
DRAWTEXT(CROSS(CXH1,CXH2),-50,'B'),COLOR00FFFF;
{時間}
BB:=BARPOS=SYSPARAM(1);
CXHiable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
p:=SYSPARAM(1);
str1:=' '+'今日： '+NUMTOSTR(fy[p],0)+'年'+NUMTOSTR(fm[p],0)+'月'+NUMTOSTR(fd[p],0)+'日 '+wday[wd[p]+1]+'';
DRAWTEXT(barpos=p,-57,'\n \n'+str1),PXUP10,ALIGN2,COLORFFEEAA;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?