相關標簽:

?

取自正版的大智慧TRT順勢交易源碼

大智慧新一代的TRT順勢交易源碼，從其他地方找來的，和原版對過信號，應該是相同的，你們也對下。也可以引入附件中的公式，一樣的
源碼如下：

?

原理解析：
輸出VARIABLE:P1=0 C1賦值:成本均線(5)*100*0.96的整數部分/100 P2賦值:1日前的成本均線(5)*100的整數部分/100 P3賦值:1日前的成本均線(5)*0.96*100的整數部分/100 VV賦值:當前流通股本(手)*0.05和1日前的成交量(手)的34日簡單移動平均的較小值/100的整數部分 P40賦值:MAXCYC*100的整數部分/100 P41賦值:1日前的MAXCYC*100的整數部分/100 P4賦值:P1=0 AND 收盤價>P2 OR (1日前的成交量(手)/100<VV AND 收盤價>P2*0.98*100的整數部分/100 AND 成交量(手)>當前流通股本(手)*0.05和1日前的成交量(手)的34日簡單移動平均的較小值) P5賦值:P1=1 AND 收盤價<P3和P41的較小值 P1賦值:如果P4=1,返回1,否則返回如果P5=1,返回0,否則返回1日前的P1 當滿足條件P1=1ANDC<開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLOR5454FF,LAYER0 當滿足條件P1=1ANDC<開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFFFF54 當滿足條件P1=1ANDC<開盤價時,在收盤價和最低價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR5454FF 當滿足條件P1=1ANDC<開盤價時,在最高價和開盤價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR5454FF 當滿足條件P1=0ANDC>開盤價時,在收盤價和開盤價位置之間畫柱狀線,寬度為8,1不為0則畫空心柱.,COLORFFFF54 當滿足條件P1=0ANDC>開盤價時,在收盤價和最高價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF54 當滿足條件P1=0ANDC>開盤價時,在最低價和開盤價位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLORFFFF54 當滿足條件P1上穿0時,在最低價*0.9位置書寫文字,畫黃色,線寬為3 當滿足條件1上穿P1時,在最高價*1.05位置書寫文字,畫綠色,線寬為3 DRAWFLAGTEXT(P1=0 AND (C1*0.98-收盤價)/收盤價>0.1,收盤價,'持幣') DRAWFLAGTEXT(P1=0 AND (C1*0.98-收盤價)/收盤價<=0.1 AND 1日前的成交量(手)/100<VV,收盤價,'明日收盤價超過'+STR(C1)+' 或收盤價超過'+STR(C1*0.98*100的整數部分/100)+'且成交量大于'+STR(VV)+'買入') DRAWFLAGTEXT(P1=0 AND (C1*0.98-收盤價)/收盤價<=0.1 AND 1日前的成交量(手)/100>=VV,收盤價,'明日收盤價超過'+STR(C1)+'買入') DRAWFLAGTEXT(P1=1 AND (收盤價-C1和P40的較小值)/C1和P40的較小值>0.1 ,收盤價,'持股') DRAWFLAGTEXT(P1=1 AND (收盤價-C1和P40的較小值)/C1和P40的較小值<=0.1 ,收盤價,'明日收盤價跌破'+STR(C1和P40的較小值)+'賣出') 輸出選股的VARIABLE:P1=0 C1賦值:成本均線(5)*100*0.96的整數部分/100 P2賦值:1日前的成本均線(5)*100的整數部分/100 P3賦值:1日前的成本均線(5)*0.96*100的整數部分/100 VV賦值:當前流通股本(手)*0.05和1日前的成交量(手)的34日簡單移動平均的較小值/100的整數部分 P41賦值:1日前的MAXCYC*100的整數部分/100 P4賦值:P1=0 AND 收盤價>P2 OR (1日前的成交量(手)/100<VV AND 收盤價>P2*0.98*100的整數部分/100 AND 成交量(手)>當前流通股本(手)*0.05和1日前的成交量(手)的34日簡單移動平均的較小值) P5賦值:P1=1 AND 收盤價<P3和P41的較小值 P1賦值:如果P4=1,返回1,否則返回如果P5=1,返回0,否則返回1日前的P1 輸出XG:P1上穿0=1

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

{順勢交易}
variable:p1=0;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
STICKLINE(p1=1 and c<o,c,o,8,1),color5454ff,layer0;
STICKLINE(p1=1 and c<o,c,o,6,0),colorffff54;
STICKLINE(p1=1 and c<o,c,l,0.5,0),color5454ff;
STICKLINE(p1=1 and c<o,h,o,0.5,0),color5454ff;
STICKLINE(p1=0 and c>o,c,o,8,1),colorffff54;
STICKLINE(p1=0 and c>o,c,h,0.5,0),colorffff54;
STICKLINE(p1=0 and c>o,l,o,0.5,0),colorffff54;
DRAWTEXT(cross(p1,0),l*0.9,'B'),coloryellow,LINETHICK3;
DRAWTEXT(cross(1,p1),h*1.05,'S'),COLORgreen,LINETHICK3;
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'持幣');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'明日收盤價超過'+str(c1)+';或收盤價超過'+str(intpart(c1*0.98*100)/100)+'且成交量大于'+str(vv)+'買入');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'明日收盤價超過'+str(c1)+'買入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'明日收盤價跌破'+str(min(c1,p40))+'賣出');


選股的
{順勢選股}
variable:p1=0;
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));
xg:cross(p1,0)=1;

{程序化交易 www.kzuj.com.cn }

?

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

?