老張解盤(pán)(公式、源碼)[大智慧公式]
相關(guān)標(biāo)簽:
?
原理解析:
源碼:
?
{老張解盤(pán)}
多空2:=ema(c,148);
多空3:=ema(c,250);
TJTS:=BARSTATUS=2;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(20,50,'老張解盤(pán)'),LINETHICK6,COLORYELLOW;{http://cxh99.com}
DRAWTEXTREL(200,50,STKLABEL+' '+STKNAME),LINETHICK6,ColorFFFF80;
DRAWTEXTREL(500,30,'流通:'+NUMTOSTRN(FINANCE2 (36),0 )+' '+'換手:'+NUMTOSTRN( DYNAINFO(37)*100,3 )),LINETHICK3,ColorFFFF80;end;
IF c>=多空2 AND TJTSTHENBEGIN
DRAWTEXTREL(480,200,'股價(jià)在半年線之上'),LINETHICK3,color00ff00;end;
IF c<多空2 AND TJTSTHENBEGIN
DRAWTEXTREL(480,200,'股價(jià)在半年線之下'),LINETHICK3,color00ffff;end;
IF 多空2>=ref(多空2,1) AND TJTSTHENBEGIN
DRAWTEXTREL(670,200,'半年線趨勢(shì)向上'),LINETHICK3,colorffff00;end;
IF 多空2<ref(多空2,1) AND TJTSTHENBEGIN
DRAWTEXTREL(670,200,'半年線趨勢(shì)向下'),LINETHICK3,color00ffff;end;
IF c>=多空3 AND TJTSTHENBEGIN
DRAWTEXTREL(240,600,'股價(jià)在年線之上'),LINETHICK3,color00ffff;end;
IF c<多空3 AND TJTSTHENBEGIN
DRAWTEXTREL(240,600,'股價(jià)在年線之下'),LINETHICK3,colorffff00;end;
IF 多空3>=ref(多空3,1) AND TJTSTHENBEGIN
DRAWTEXTREL(240,700,'年線趨勢(shì)向上'),LINETHICK3,color00ffff;end;
IF 多空3<ref(多空3,1) AND TJTSTHENBEGIN
DRAWTEXTREL(240,700,'年線趨勢(shì)向下'),LINETHICK3,colorffff00;end;
tr:=c*2.5/100+c;
hd:=c-c*2.5/100;
IF cost(50) AND TJTSTHENBEGIN
DRAWTEXTREL(20,200,'市場(chǎng)平均成本:'+NUMTOSTRN( cost(50),2)),LINETHICK3,colorffff00;end;
IF cost(4) AND TJTSTHENBEGIN
DRAWTEXTREL(20,300,'主力平均成本:'+NUMTOSTRN( cost(4),2)),LINETHICK3,color00ffff;end;
IF cost(30) AND TJTSTHENBEGIN
DRAWTEXTREL(20,400,'控盤(pán)平均成本:'+NUMTOSTRN( cost(30),2)),LINETHICK3,color0000ff;end;
IF cost(75) AND TJTSTHENBEGIN
DRAWTEXTREL(20,500,'拉升平均成本:'+NUMTOSTRN( cost(75),2)),LINETHICK3,color0000ff;end;
IF cost(95) AND TJTSTHENBEGIN
DRAWTEXTREL(20,600,'頂部平均成本:'+NUMTOSTRN( cost(95),2)),LINETHICK3,color00ffff;end;
IF cost(0.05) AND TJTSTHENBEGIN
DRAWTEXTREL(20,700,'底部平均成本:'+NUMTOSTRN( cost(0.05),2)),LINETHICK3,color00ffff;end;
IF tr AND TJTSTHENBEGIN
DRAWTEXTREL(240,200,'股道賣(mài)出價(jià)預(yù)測(cè):'+NUMTOSTRN( tr,2)),LINETHICK3,color00ffff;end;
IF hd AND TJTSTHENBEGIN
DRAWTEXTREL(240,300,'股道買(mǎi)入價(jià)預(yù)測(cè):'+NUMTOSTRN( hd,2)),LINETHICK3,color0099ff;end;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(240,400,'獲利盤(pán)比例=:'+NUMTOSTRN( winner(c)*100,2)),LINETHICK3,color0099ff;end;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(240,500,'套牢盤(pán)比例=:'+NUMTOSTRN( (100-winner(c)*100),2)),LINETHICK3,color0000ff;end;
ld:=ma(v/(h-l),4);
dmp:=abs(c-o);
dmm:=v/(h-l);
i:=-100;
IF dmm<ld and dmp<ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'資金無(wú)入場(chǎng)意愿,萎縮中'),LINETHICK3,colorffff00;i:=i+100;end;
IF dmm<ld and dmp>ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'場(chǎng)內(nèi)資金有運(yùn)作行為'),LINETHICK3,colorffff00;i:=i+100;end;
IF dmm>ld and dmp<ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'多空雙方激烈爭(zhēng)奪中'),LINETHICK3,color00ffff;i:=i+100;end;
IF dmm>ld and dmp>ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'場(chǎng)外資金介入(或出局)意愿強(qiáng)烈'),LINETHICK3,color00ffff;i:=i+100;end;
pdi:=sum(max(max(h-l,abs(h-ref(c,1))),abs(l-ref(c,1))),14);
mdi:=h-ref(h,1);
adx:=ref(l,1)-l;
adxr:=sum(if(mdi>0 and mdi>adx,mdi,0),14);
typ:=sum(if(adx>0 and adx>mdi,adx,0),14);
cci:=adxr*100/pdi;
wr:=typ*100/pdi;
mtm:=ma(abs(wr-cci)/(wr+cci)*100,6);
mtmma:=(mtm+ref(mtm,6))/2;
IF cross(cci,wr) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'PDI線從下向上突破MDI線,顯示有新多頭進(jìn)場(chǎng),為買(mǎi)進(jìn)信號(hào)'),LINETHICK3,color0099ff;i:=i+100;end;
IF cross(wr,cci) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'PDI線從上向下跌破MDI線,顯示有新空頭進(jìn)場(chǎng),為賣(mài)出信號(hào)'),LINETHICK3,colorff0000;i:=i+100;end;
IF mtm>ref(mtm,1) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'ADX值持續(xù)高于前一日,行情將維持原趨勢(shì)'),LINETHICK3,colorffff00;i:=i+100;end;
IF mtm<ref(mtm,1) and mtm<20 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'ADX值遞減,降到20以下,且橫向行進(jìn)時(shí),氣氛為盤(pán)整'),LINETHICK3,color00ffff;i:=i+100;end;
IF mtm<ref(mtm,1) and ref(mtm,1)<ref(mtm,2) and ref(mtm,2)>ref(mtm,3) and ref(mtm,3)>ref(mtm,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'ADX值從上升傾向轉(zhuǎn)為下降時(shí),表明行情即將反轉(zhuǎn)'),LINETHICK3,color0099ff;i:=i+100;end;
lc:=(h+l+c)/3;
rsi1:=(lc-ma(lc,14))/0.015*avedev(lc,14);
rsi2:=-(100*(hhv(h,14)-c)/(hhv(h,14)-llv(l,14)));
IF rsi1<-180 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'CCI指標(biāo)底位,買(mǎi)入機(jī)會(huì)'),LINETHICK3,color00ffff;i:=i+100;end;
IF rsi1>180 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'CCI指標(biāo)高位,賣(mài)出機(jī)會(huì)'),LINETHICK3,color00ff00;i:=i+100;end;
IF v/capital>0.075 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'換手過(guò)大,小心主力出逃,短期頭部'),LINETHICK3,colorffff00;i:=i+100;end;
IF rsi2>-20 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'W&R超買(mǎi),短線即將見(jiàn)頂,應(yīng)及時(shí)賣(mài)出'),LINETHICK3,color00ffff;i:=i+100;end;
IF rsi2<-80 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'W&R超賣(mài),短線即將見(jiàn)底,應(yīng)伺機(jī)買(mǎi)進(jìn)'),LINETHICK3,colorffff00;i:=i+100;end;
psy:=c-ref(c,6);
布林1:=ma(psy,6);
IF cross(psy,布林1) and 布林1<-0.8 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'MTM從下向上突破MTMMA,買(mǎi)入信號(hào)'),LINETHICK3,color00ff00;i:=i+100;end;
IF cross(布林1,psy) and 布林1>0.8 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'MTM從上向下跌破MTMMA,賣(mài)出信號(hào)'),LINETHICK3,color00ff00;i:=i+100;end;
布林2:=ref(c,1);
布林3:=sma(max(c-布林2,0),6,1)/sma(abs(c-布林2),6,1)*100;
布林4:=sma(max(c-布林2,0),12,1)/sma(abs(c-布林2),12,1)*100;
IF 布林3>80 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破85,超買(mǎi),考慮賣(mài)出'),LINETHICK3,colorffff00;i:=i+100;end;
IF 布林3<15 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI超賣(mài),隨時(shí)有可能反彈,考慮買(mǎi)入'),LINETHICK3,colorffff00;i:=i+100;end;
IF cross(布林3,15) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破15,買(mǎi)進(jìn)信號(hào)'),LINETHICK3,color00ffff;i:=i+100;end;
IF cross(布林3,85) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向下跌破85,賣(mài)出信號(hào)'),LINETHICK3,color00ff00;i:=i+100;end;
布林5:=count(c>ref(c,1),12)/12*100;
布林6:=(ma(c,3)+ma(c,6)+ma(c,12)+ma(c,24))/4;
布林7:=布林6+3*std(布林6,10);
xx:=布林6-3*std(布林6,10);
a001:=(布林7-xx)/布林7<0.03;
a002:=(布林7-xx)/布林7>0.18;
a003:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15;
a004:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15;
IF a001 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'多空布林收斂中,有變盤(pán)的可能,上下自己分析'),LINETHICK3,colorffff00;i:=i+100;end;
IF a003 and a002 and c>o AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'布林上下乖離太大,有反彈的可能'),LINETHICK3,color00ffff;i:=i+100;end;
IF a004 and a002 and c<o AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'布林上下乖離太大,有回落的可能'),LINETHICK3,color00ff00;i:=i+100;end;
IF h>=hhv(h,20) AND TJTSTHENBEGIN
DRAWTEXTREL(850,200,'創(chuàng)20天新高'),LINETHICK3,colorffff00;end;
{程序化交易 m.kzuj.com.cn }
{程序化交易 m.kzuj.com.cn }
?
公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】
?
有思路,想編寫(xiě)各種指標(biāo)公式,交易模型,選股公式,還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信:cxhjy888 進(jìn)行 有償收費(fèi) 編寫(xiě)!(注:由于人數(shù)限制,QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行,加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求,否則無(wú)法通過(guò)。謝謝您!)
(怎么收費(fèi),代編流程等詳情請(qǐng)點(diǎn)擊查閱!)
(注:由于人數(shù)限制,QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行,加好友時(shí)請(qǐng)簡(jiǎn)單備注下您的需求,否則無(wú)法通過(guò)。謝謝您!)
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容