老張解盤（公式、源碼）

作者：大智慧來源：cxh99.com 發布時間：2022年01月24日

相關標簽:

原理解析：

多空２賦值:收盤價的148日指數移動平均

多空３賦值:收盤價的250日指數移動平均

TJTS賦值:數據位置狀態=2

條件判斷收盤價>0 AND TJTSTHENBEGINDRAWTEXTREL(20,50,'老張解盤'),線寬為6,畫黃色

DRAWTEXTREL(200,50,STKLABEL+' '+品種名稱),線寬為6,COLORFFFF80

輸出輸出DRAWTEXTREL(500,30,'流通:'+NUMTOSTRN(FINANCE2 (36),0 )+' '+'換手:'+NUMTOSTRN( 換手率*100,3 )),線寬為3,COLORFFFF80

END

條件判斷收盤價>=多空２ AND TJTSTHENBEGINDRAWTEXTREL(480,200,'股價在半年線之上'),線寬為3,COLOR00FF00

END

條件判斷收盤價<多空２ AND TJTSTHENBEGINDRAWTEXTREL(480,200,'股價在半年線之下'),線寬為3,COLOR00FFFF

END

條件判斷多空２>=1日前的多空２ AND TJTSTHENBEGINDRAWTEXTREL(670,200,'半年線趨勢向上'),線寬為3,COLORFFFF00

END

條件判斷多空２<1日前的多空２ AND TJTSTHENBEGINDRAWTEXTREL(670,200,'半年線趨勢向下'),線寬為3,COLOR00FFFF

END

條件判斷收盤價>=多空３ AND TJTSTHENBEGINDRAWTEXTREL(240,600,'股價在年線之上'),線寬為3,COLOR00FFFF

END

條件判斷收盤價<多空３ AND TJTSTHENBEGINDRAWTEXTREL(240,600,'股價在年線之下'),線寬為3,COLORFFFF00

END

條件判斷多空３>=1日前的多空３ AND TJTSTHENBEGINDRAWTEXTREL(240,700,'年線趨勢向上'),線寬為3,COLOR00FFFF

END

條件判斷多空３<1日前的多空３ AND TJTSTHENBEGINDRAWTEXTREL(240,700,'年線趨勢向下'),線寬為3,COLORFFFF00

END

TR賦值:收盤價*2.5/100+收盤價

HD賦值:收盤價-收盤價*2.5/100

輸出條件判斷獲利盤為50%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,200,'市場平均成本:'+NUMTOSTRN( 獲利盤為50%的成本分布,2)),線寬為3,COLORFFFF00

END

輸出條件判斷獲利盤為4%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,300,'主力平均成本:'+NUMTOSTRN( 獲利盤為4%的成本分布,2)),線寬為3,COLOR00FFFF

END

輸出條件判斷獲利盤為30%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,400,'控盤平均成本:'+NUMTOSTRN( 獲利盤為30%的成本分布,2)),線寬為3,COLOR0000FF

END

輸出條件判斷獲利盤為75%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,500,'拉升平均成本:'+NUMTOSTRN( 獲利盤為75%的成本分布,2)),線寬為3,COLOR0000FF

END

輸出條件判斷獲利盤為95%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,600,'頂部平均成本:'+NUMTOSTRN( 獲利盤為95%的成本分布,2)),線寬為3,COLOR00FFFF

END

輸出條件判斷獲利盤為0.05%的成本分布 AND TJTSTHENBEGINDRAWTEXTREL(20,700,'底部平均成本:'+NUMTOSTRN( 獲利盤為0.05%的成本分布,2)),線寬為3,COLOR00FFFF

END

輸出條件判斷真實波幅 AND TJTSTHENBEGINDRAWTEXTREL(240,200,'股道賣出價預測:'+NUMTOSTRN( 真實波幅,2)),線寬為3,COLOR00FFFF

END

輸出條件判斷 HD AND TJTSTHENBEGINDRAWTEXTREL(240,300,'股道買入價預測:'+NUMTOSTRN( HD,2)),線寬為3,COLOR0099FF

END

輸出條件判斷收盤價>0 AND TJTSTHENBEGINDRAWTEXTREL(240,400,'獲利盤比例=:'+NUMTOSTRN( 以收盤價計算的獲利盤比例*100,2)),線寬為3,COLOR0099FF

END

輸出條件判斷收盤價>0 AND TJTSTHENBEGINDRAWTEXTREL(240,500,'套牢盤比例=:'+NUMTOSTRN( (100-以收盤價計算的獲利盤比例*100),2)),線寬為3,COLOR0000FF

END

LD賦值:成交量(手)/(最高價-最低價)的4日簡單移動平均

DMP賦值:收盤價-開盤價的絕對值

DMM賦值:成交量(手)/(最高價-最低價)

I賦值:-100

條件判斷 DMM<LD AND DMP<DMP的4日簡單移動平均 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'資金無入場意愿，萎縮中'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷 DMM<LD AND DMP>DMP的4日簡單移動平均 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'場內資金有運作行為'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷 DMM>LD AND DMP<DMP的4日簡單移動平均 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'多空雙方激烈爭奪中'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷 DMM>LD AND DMP>DMP的4日簡單移動平均 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'場外資金介入（或出局）意愿強烈'),線寬為3,COLOR00FFFF

I賦值:I+100

END

PDI賦值:最高價-最低價和最高價-1日前的收盤價的絕對值的較大值和最低價-1日前的收盤價的絕對值的較大值的14日累和

MDI賦值:最高價-1日前的最高價

ADX賦值:1日前的最低價-最低價

ADXR賦值:如果MDI>0ANDMDI>ADX,返回MDI,否則返回0的14日累和

TYP賦值:如果ADX>0ANDADX>MDI,返回ADX,否則返回0的14日累和

CCI賦值:ADXR*100/PDI

WR賦值:TYP*100/PDI

MTM賦值:WR-CCI的絕對值/(WR+CCI)*100的6日簡單移動平均

MTMMA賦值:(MTM+6日前的MTM)/2

條件判斷 CCI上穿WR AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'PDI線從下向上突破MDI線，顯示有新多頭進場，為買進信號'),線寬為3,COLOR0099FF

I賦值:I+100

END

條件判斷 WR上穿CCI AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'PDI線從上向下跌破MDI線，顯示有新空頭進場，為賣出信號'),線寬為3,COLORFF0000

I賦值:I+100

END

條件判斷 MTM>1日前的MTM AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'ADX值持續高于前一日，行情將維持原趨勢'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷 MTM<1日前的MTM AND MTM<20 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'ADX值遞減，降到20以下，且橫向行進時，氣氛為盤整'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷 MTM<1日前的MTM AND 1日前的MTM<2日前的MTM AND 2日前的MTM>3日前的MTM AND 3日前的MTM>4日前的MTM AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'ADX值從上升傾向轉為下降時，表明行情即將反轉'),線寬為3,COLOR0099FF

I賦值:I+100

END

LC賦值:(最高價+最低價+收盤價)/3

RSI1賦值:(LC-LC的14日簡單移動平均)/0.015*LC的14日平均絕對偏差

RSI2賦值:-(100*(14日內最高價的最高值-收盤價)/(14日內最高價的最高值-14日內最低價的最低值))

條件判斷 RSI1<-180 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'CCI指標底位，買入機會'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷 RSI1>180 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'CCI指標高位，賣出機會'),線寬為3,COLOR00FF00

I賦值:I+100

END

條件判斷成交量(手)/當前流通股本(手)>0.075 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'換手過大，小心主力出逃，短期頭部'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷 RSI2>-20 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'W&R超買，短線即將見頂，應及時賣出'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷 RSI2<-80 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'W&R超賣，短線即將見底，應伺機買進'),線寬為3,COLORFFFF00

I賦值:I+100

END

PSY賦值:收盤價-6日前的收盤價

布林１賦值:PSY的6日簡單移動平均

條件判斷 PSY上穿布林１ AND 布林１<-0.8 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'MTM從下向上突破MTMMA，買入信號'),線寬為3,COLOR00FF00

I賦值:I+100

END

條件判斷布林１上穿PSY AND 布林１>0.8 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'MTM從上向下跌破MTMMA，賣出信號'),線寬為3,COLOR00FF00

I賦值:I+100

END

布林２賦值:1日前的收盤價

布林３賦值:收盤價-布林２和0的較大值的6日[1日權重]移動平均/收盤價-布林２的絕對值的6日[1日權重]移動平均*100

布林４賦值:收盤價-布林２和0的較大值的12日[1日權重]移動平均/收盤價-布林２的絕對值的12日[1日權重]移動平均*100

條件判斷布林３>80 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'6日RSI向上突破85，超買,考慮賣出'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷布林３<15 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'6日RSI超賣,隨時有可能反彈，考慮買入'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷布林３上穿15 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'6日RSI向上突破15，買進信號'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷布林３上穿85 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'6日RSI向下跌破85，賣出信號'),線寬為3,COLOR00FF00

I賦值:I+100

END

布林５賦值:統計12日中滿足收盤價>1日前的收盤價的天數/12*100

布林６賦值:(收盤價的3日簡單移動平均+收盤價的6日簡單移動平均+收盤價的12日簡單移動平均+收盤價的24日簡單移動平均)/4

布林７賦值:布林６+3*布林６的10日估算標準差

XX賦值:布林６-3*布林６的10日估算標準差

A001賦值:(布林７-XX)/布林７<0.03

A002賦值:(布林７-XX)/布林７>0.18

A003賦值:(收盤價的60日簡單移動平均-收盤價的5日簡單移動平均)/收盤價的60日簡單移動平均>0.15

A004賦值:(收盤價的5日簡單移動平均-收盤價的60日簡單移動平均)/收盤價的5日簡單移動平均>0.15

條件判斷 A001 AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'多空布林收斂中，有變盤的可能，上下自己分析'),線寬為3,COLORFFFF00

I賦值:I+100

END

條件判斷 A003 AND A002 AND 收陽線AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'布林上下乖離太大，有反彈的可能'),線寬為3,COLOR00FFFF

I賦值:I+100

END

條件判斷 A004 AND A002 AND 收陰線AND TJTSTHENBEGINDRAWTEXTREL(480,400+I,'布林上下乖離太大，有回落的可能'),線寬為3,COLOR00FF00

I賦值:I+100

END

條件判斷最高價>=20日內最高價的最高值 AND TJTSTHENBEGINDRAWTEXTREL(850,200,'創20天新高'),線寬為3,COLORFFFF00

END

源碼：

{老張解盤}
多空２:=ema(c,148);
多空３:=ema(c,250);
TJTS:=BARSTATUS=2;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(20,50,'老張解盤'),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>=多空２ AND TJTSTHENBEGIN
DRAWTEXTREL(480,200,'股價在半年線之上'),LINETHICK3,color00ff00;end;
IF c<多空２ AND TJTSTHENBEGIN
DRAWTEXTREL(480,200,'股價在半年線之下'),LINETHICK3,color00ffff;end;
IF 多空２>=ref(多空２,1) AND TJTSTHENBEGIN
DRAWTEXTREL(670,200,'半年線趨勢向上'),LINETHICK3,colorffff00;end;
IF 多空２<ref(多空２,1) AND TJTSTHENBEGIN
DRAWTEXTREL(670,200,'半年線趨勢向下'),LINETHICK3,color00ffff;end;

IF c>=多空３ AND TJTSTHENBEGIN
DRAWTEXTREL(240,600,'股價在年線之上'),LINETHICK3,color00ffff;end;
IF c<多空３ AND TJTSTHENBEGIN
DRAWTEXTREL(240,600,'股價在年線之下'),LINETHICK3,colorffff00;end;
IF 多空３>=ref(多空３,1) AND TJTSTHENBEGIN
DRAWTEXTREL(240,700,'年線趨勢向上'),LINETHICK3,color00ffff;end;
IF 多空３<ref(多空３,1) AND TJTSTHENBEGIN
DRAWTEXTREL(240,700,'年線趨勢向下'),LINETHICK3,colorffff00;end;

tr:=c*2.5/100+c;
hd:=c-c*2.5/100;
IF cost(50) AND TJTSTHENBEGIN
DRAWTEXTREL(20,200,'市場平均成本:'+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,'控盤平均成本:'+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,'股道賣出價預測:'+NUMTOSTRN( tr,2)),LINETHICK3,color00ffff;end;
IF hd AND TJTSTHENBEGIN
DRAWTEXTREL(240,300,'股道買入價預測:'+NUMTOSTRN( hd,2)),LINETHICK3,color0099ff;end;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(240,400,'獲利盤比例=:'+NUMTOSTRN( winner(c)*100,2)),LINETHICK3,color0099ff;end;
IF C>0 AND TJTSTHENBEGIN
DRAWTEXTREL(240,500,'套牢盤比例=:'+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,'資金無入場意愿，萎縮中'),LINETHICK3,colorffff00;i:=i+100;end;
IF dmm<ld and dmp>ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'場內資金有運作行為'),LINETHICK3,colorffff00;i:=i+100;end;
IF dmm>ld and dmp<ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'多空雙方激烈爭奪中'),LINETHICK3,color00ffff;i:=i+100;end;
IF dmm>ld and dmp>ma(dmp,4) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'場外資金介入（或出局）意愿強烈'),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線，顯示有新多頭進場，為買進信號'),LINETHICK3,color0099ff;i:=i+100;end;
IF cross(wr,cci) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'PDI線從上向下跌破MDI線，顯示有新空頭進場，為賣出信號'),LINETHICK3,colorff0000;i:=i+100;end;
IF mtm>ref(mtm,1) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'ADX值持續高于前一日，行情將維持原趨勢'),LINETHICK3,colorffff00;i:=i+100;end;
IF mtm<ref(mtm,1) and mtm<20 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'ADX值遞減，降到20以下，且橫向行進時，氣氛為盤整'),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值從上升傾向轉為下降時，表明行情即將反轉'),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指標底位，買入機會'),LINETHICK3,color00ffff;i:=i+100;end;
IF rsi1>180 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'CCI指標高位，賣出機會'),LINETHICK3,color00ff00;i:=i+100;end;
IF v/capital>0.075 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'換手過大，小心主力出逃，短期頭部'),LINETHICK3,colorffff00;i:=i+100;end;
IF rsi2>-20 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'W&R超買，短線即將見頂，應及時賣出'),LINETHICK3,color00ffff;i:=i+100;end;
IF rsi2<-80 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'W&R超賣，短線即將見底，應伺機買進'),LINETHICK3,colorffff00;i:=i+100;end;
psy:=c-ref(c,6);
布林１:=ma(psy,6);
IF cross(psy,布林１) and 布林１<-0.8 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'MTM從下向上突破MTMMA，買入信號'),LINETHICK3,color00ff00;i:=i+100;end;
IF cross(布林１,psy) and 布林１>0.8 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'MTM從上向下跌破MTMMA，賣出信號'),LINETHICK3,color00ff00;i:=i+100;end;

布林２:=ref(c,1);
布林３:=sma(max(c-布林２,0),6,1)/sma(abs(c-布林２),6,1)*100;
布林４:=sma(max(c-布林２,0),12,1)/sma(abs(c-布林２),12,1)*100;

IF 布林３>80 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破85，超買,考慮賣出'),LINETHICK3,colorffff00;i:=i+100;end;
IF 布林３<15 AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI超賣,隨時有可能反彈，考慮買入'),LINETHICK3,colorffff00;i:=i+100;end;
IF cross(布林３,15) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破15，買進信號'),LINETHICK3,color00ffff;i:=i+100;end;
IF cross(布林３,85) AND TJTSTHENBEGIN
DRAWTEXTREL(480,400+i,'6日RSI向下跌破85，賣出信號'),LINETHICK3,color00ff00;i:=i+100;end;

布林５:=count(c>ref(c,1),12)/12*100;
布林６:=(ma(c,3)+ma(c,6)+ma(c,12)+ma(c,24))/4;
布林７:=布林６+3*std(布林６,10);
xx:=布林６-3*std(布林６,10);
a001:=(布林７-xx)/布林７<0.03;
a002:=(布林７-xx)/布林７>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,'多空布林收斂中，有變盤的可能，上下自己分析'),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,'創20天新高'),LINETHICK3,colorffff00;end;

{程序化交易 www.tumamayizhan.com }

{程序化交易 www.tumamayizhan.com }

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