周期全息圖衡量股票的強弱和方向 指標 股票 公式[其他軟件公式]
指標說明:
?
aaa引入.探索者指標是用來衡量股票的強弱和方向的,它是通過計算收盤價與13日均線的偏離程度來得到的。當偏離程度較大時,說明股票有較強的趨勢性,當偏離程度較小時,說明股票處于震蕩或反轉狀態。
?
aaa引入.zs指標是用來衡量股票的波動幅度和買賣點的,它是通過計算收盤價與5日均線、10日均線、20日均線、30日均線、60日均線之間的距離來得到的。當距離較大時,說明股票有較大的波動空間,當距離較小時,說明股票有可能出現拐點或回調。
?
兩個指標結合起來,可以形成一個完整的交易系統。例如,當探索者指標為正且逐漸增大時,說明股票處于上漲趨勢中;當zs指標為正且逐漸減小時,說明股票接近頂部或需要回調;此時可以考慮賣出或減倉。反之亦然。
?
?
先建一個引用指標
{AAA引入}
?
?
cxh1:=1/WINNER(C);
cxh2:=(C-MA(C,13))/MA(C,13)*100;
cxh3:=100-ABS(cxh2);
cxh4:=3*SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1)-2*SMA(SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1);
cxh5:=3*SMA((O-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1)-2*SMA(SMA((O-LLV(L,75))/(HHV(H,75)-LLV(L,75))*100,20,1),15,1);
cxh6:=100-cxh5;
cxh7:=100-cxh4;
cxh8:=MA(WINNER(C*0.95)*100,3);
cxh9:=IF(cxh1>5,IF(cxh1<100,cxh1,cxh3-10),0);
cxhA:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
cxhB:=SMA(cxhA,3,1);
cxhC:=SMA(cxhB,3,1);
cxhE:=(-1)*(EMA(cxh7,12)-50)+50;
探索者:EMA(3*cxhB-2*cxhC,3),COLORWHITE;
ZS:MA(探索者,3),COLORRED;
ZM:MA(MA(探索者,3),3),COLORBROWN;
?
?
?
?
?
?
公式:
{周期全息主圖}
?
?
?
aaat:=STKINDI('','aaa引入.探索者',0,0);
zst:=STKINDI('','aaa引入.zs',0,0);
aaa1:=STKINDI('','aaa引入.探索者',0,1);
zs1:=STKINDI('','aaa引入.zs',0,1);
aaa5:=STKINDI('','aaa引入.探索者',0,2);
zs5:=STKINDI('','aaa引入.zs',0,2);
aaa15:=STKINDI('','aaa引入.探索者',0,3);
zs15:=STKINDI('','aaa引入.zs',0,3);
aaa30:=STKINDI('','aaa引入.探索者',0,4);
zs30:=STKINDI('','aaa引入.zs',0,4);
aaa60:=STKINDI('','aaa引入.探索者',0,5);
zs60:=STKINDI('','aaa引入.zs',0,5);
aaah:=STKINDI('','aaa引入.探索者',0,11);
zsh:=STKINDI('','aaa引入.zs',0,11);
aaad:=STKINDI('','aaa引入.探索者',0,6);
zsd:=STKINDI('','aaa引入.zs',0,6);
aaaw:=STKINDI('','aaa引入.探索者',0,7);
zsw:=STKINDI('','aaa引入.zs',0,7);
aaam:=STKINDI('','aaa引入.探索者',0,8);
zsm:=STKINDI('','aaa引入.zs',0,8);
aaay:=STKINDI('','aaa引入.探索者',0,9);
zsy:=STKINDI('','aaa引入.zs',0,9);
CCT:=aaaT;
zdT:=CCT[SYSPARAM(3)];
CDT:=MAX(1,ABS(INTPART(10*zdt/100)));
HXT:='_________________________________________________________';
IF ZDT>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,38,STRLEFT(HXt,CDt)),COLORCF;
DRAWTEXTEX(1,0,250,39,STRLEFT(HXt,CDt)),COLOREF;
DRAWTEXTEX(1,0,250,40,STRLEFT(HXt,CDt)),COLOR60FF;
DRAWTEXTEX(1,0,250,41,STRLEFT(HXt,CDt)),COLORA1FF;
DRAWTEXTEX(1,0,250,42,STRLEFT(HXt,CDt)),COLORCAFF;
DRAWTEXTEX(1,0,250,43,STRLEFT(HXt,CDt)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,44,STRLEFT(HXt,CDt)),COLORD5FF;
DRAWTEXTEX(1,0,250,45,STRLEFT(HXt,CDt)),COLORC4FF;
DRAWTEXTEX(1,0,250,46,STRLEFT(HXt,CDt)),COLORA0FF;
DRAWTEXTEX(1,0,250,47,STRLEFT(HXt,CDt)),COLOR7FFF;
DRAWTEXTEX(1,0,250,48,STRLEFT(HXt,CDt)),COLOR50FF;
DRAWTEXTEX(1,0,250,49,STRLEFT(HXt,CDt)),COLOREF;
DRAWTEXTEX(1,0,250,50,STRLEFT(HXt,CDt)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,38,STRLEFT(HXt,CDt)),COLOR7E00;
DRAWTEXTEX(1,0,250,39,STRLEFT(HXt,CDt)),COLOR8E00;
DRAWTEXTEX(1,0,250,40,STRLEFT(HXt,CDt)),COLORAE00;
DRAWTEXTEX(1,0,250,41,STRLEFT(HXt,CDt)),COLORBE00;
DRAWTEXTEX(1,0,250,42,STRLEFT(HXt,CDt)),COLORCE00;
DRAWTEXTEX(1,0,250,43,STRLEFT(HXt,CDt)),COLORDE00;
DRAWTEXTEX(1,0,250,44,STRLEFT(HXt,CDt)),COLORFF60;
DRAWTEXTEX(1,0,250,45,STRLEFT(HXt,CDt)),COLORDE30;
DRAWTEXTEX(1,0,250,46,STRLEFT(HXt,CDt)),COLORCE00;
DRAWTEXTEX(1,0,250,47,STRLEFT(HXt,CDt)),COLORBE00;
DRAWTEXTEX(1,0,250,48,STRLEFT(HXt,CDt)),COLORAE00;
DRAWTEXTEX(1,0,250,49,STRLEFT(HXt,CDt)),COLOR9E00;
DRAWTEXTEX(1,0,250,50,STRLEFT(HXt,CDt)),COLOR8E00;
DRAWTEXTEX(1,0,250,51,STRLEFT(HXt,CDt)),COLOR7E00;
DRAWTEXTEX(1,0,250,52,STRLEFT(HXt,CDt)),COLOR7E00;
end;CC1:=aaa1;
zd1:=CC1[SYSPARAM(3)];
CD1:=MAX(1,ABS(INTPART(10*zd1/100)));
HX1:='_________________________________________________________';
IF ZD1>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,53,STRLEFT(HX1,CD1)),COLORCF;
DRAWTEXTEX(1,0,250,54,STRLEFT(HX1,CD1)),COLOREF;
DRAWTEXTEX(1,0,250,55,STRLEFT(HX1,CD1)),COLOR60FF;
DRAWTEXTEX(1,0,250,56,STRLEFT(HX1,CD1)),COLORA1FF;
DRAWTEXTEX(1,0,250,57,STRLEFT(HX1,CD1)),COLORCAFF;
DRAWTEXTEX(1,0,250,58,STRLEFT(HX1,CD1)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,59,STRLEFT(HX1,CD1)),COLORD5FF;
DRAWTEXTEX(1,0,250,60,STRLEFT(HX1,CD1)),COLORC4FF;
DRAWTEXTEX(1,0,250,61,STRLEFT(HX1,CD1)),COLORA0FF;
DRAWTEXTEX(1,0,250,62,STRLEFT(HX1,CD1)),COLOR7FFF;
DRAWTEXTEX(1,0,250,63,STRLEFT(HX1,CD1)),COLOR50FF;
DRAWTEXTEX(1,0,250,64,STRLEFT(HX1,CD1)),COLOREF;
DRAWTEXTEX(1,0,250,65,STRLEFT(HX1,CD1)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,53,STRLEFT(HX1,CD1)),COLOR7E00;
DRAWTEXTEX(1,0,250,54,STRLEFT(HX1,CD1)),COLOR8E00;
DRAWTEXTEX(1,0,250,55,STRLEFT(HX1,CD1)),COLORAE00;
DRAWTEXTEX(1,0,250,56,STRLEFT(HX1,CD1)),COLORBE00;
DRAWTEXTEX(1,0,250,57,STRLEFT(HX1,CD1)),COLORCE00;
DRAWTEXTEX(1,0,250,58,STRLEFT(HX1,CD1)),COLORDE00;
DRAWTEXTEX(1,0,250,59,STRLEFT(HX1,CD1)),COLORFF60;
DRAWTEXTEX(1,0,250,60,STRLEFT(HX1,CD1)),COLORDE30;
DRAWTEXTEX(1,0,250,61,STRLEFT(HX1,CD1)),COLORCE00;
DRAWTEXTEX(1,0,250,62,STRLEFT(HX1,CD1)),COLORBE00;
DRAWTEXTEX(1,0,250,63,STRLEFT(HX1,CD1)),COLORAE00;
DRAWTEXTEX(1,0,250,64,STRLEFT(HX1,CD1)),COLOR9E00;
DRAWTEXTEX(1,0,250,65,STRLEFT(HX1,CD1)),COLOR8E00;
DRAWTEXTEX(1,0,250,66,STRLEFT(HX1,CD1)),COLOR7E00;
DRAWTEXTEX(1,0,250,67,STRLEFT(HX1,CD1)),COLOR7E00;
end;CC5:=aaa5;
zd5:=CC5[SYSPARAM(3)];
CD5:=MAX(1,ABS(INTPART(10*zd5/100)));
HX5:='_________________________________________________________';
IF ZD5>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,68,STRLEFT(HX5,CD5)),COLORCF;
DRAWTEXTEX(1,0,250,69,STRLEFT(HX5,CD5)),COLOREF;
DRAWTEXTEX(1,0,250,70,STRLEFT(HX5,CD5)),COLOR60FF;
DRAWTEXTEX(1,0,250,71,STRLEFT(HX5,CD5)),COLORA1FF;
DRAWTEXTEX(1,0,250,72,STRLEFT(HX5,CD5)),COLORCAFF;
DRAWTEXTEX(1,0,250,73,STRLEFT(HX5,CD5)),COLOR60FFFF;
DRAWTEXTEX(1,0,250,74,STRLEFT(HX5,CD5)),COLORD5FF;
DRAWTEXTEX(1,0,250,75,STRLEFT(HX5,CD5)),COLORC4FF;
DRAWTEXTEX(1,0,250,76,STRLEFT(HX5,CD5)),COLORA0FF;
DRAWTEXTEX(1,0,250,77,STRLEFT(HX5,CD5)),COLOR7FFF;
DRAWTEXTEX(1,0,250,78,STRLEFT(HX5,CD5)),COLOR50FF;
DRAWTEXTEX(1,0,250,79,STRLEFT(HX5,CD5)),COLOREF;
DRAWTEXTEX(1,0,250,80,STRLEFT(HX5,CD5)),COLORCF;
end;
ELSE BEGIN
DRAWTEXTEX(1,0,250,69,STRLEFT(HX5,CD5)),COLOR7E00;
DRAWTEXTEX(1,0,250,70,STRLEFT(HX5,CD5)),COLOR8E00;
DRAWTEXTEX(1,0,250,71,STRLEFT(HX5,CD5)),COLORAE00;
DRAWTEXTEX(1,0,250,72,STRLEFT(HX5,CD5)),COLORBE00;
DRAWTEXTEX(1,0,250,73,STRLEFT(HX5,CD5)),COLORCE00;
DRAWTEXTEX(1,0,250,74,STRLEFT(HX5,CD5)),COLORDE00;
DRAWTEXTEX(1,0,250,75,STRLEFT(HX5,CD5)),COLORFF60;
DRAWTEXTEX(1,0,250,76,STRLEFT(HX5,CD5)),COLORDE30;
DRAWTEXTEX(1,0,250,77,STRLEFT(HX5,CD5)),COLORCE00;
DRAWTEXTEX(1,0,250,78,STRLEFT(HX5,CD5)),COLORBE00;
DRAWTEXTEX(1,0,250,79,STRLEFT(HX5,CD5)),COLORAE00;
DRAWTEXTEX(1,0,250,80,STRLEFT(HX5,CD5)),COLOR9E00;
DRAWTEXTEX(1,0,250,81,STRLEFT(HX5,CD5)),COLOR8E00;
DRAWTEXTEX(1,0,250,82,STRLEFT(HX5,CD5)),COLOR7E00;
DRAWTEXTEX(1,0,250,83,STRLEFT(HX5,CD5)),COLOR7E00;
end;CC15:=aaa15;
zd15:=CC15[SYSPARAM(3)];
CD15:=MAX(1,ABS(INTPART(10*zd15/100)));
HX15:='_________________________________________________________';
IF ZD15>=0 THEN BEGIN
DRAWTEXTEX(1,0,250,84,STRLEFT(HX15,CD15)),COLORCF;
DRAWTEXTEX(1,0,250,85,STRLEFT(HX15,CD15)),COLOREF;
DRAWTEXTEX(1,0,250,86,STRLEFT(HX15,CD15)),COLOR60FF;
DRAWTEXTEX(1,0,250,87,STRLEFT(HX15,CD15)),COLORA1FF;
DRAWTEXTEX(1,0,250,88,STRLEFT(HX15,CD15)),COLORCAFF;?
公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】
?
有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友
可聯系技術人員 QQ: 262069696 或微信:cxhjy888 進行 有償收費 編寫!(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
(注:由于人數限制,QQ或微信請選擇方便的一個聯系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
相關文章
-
沒有相關內容