相關標簽:

?

有網友要我的主圖，現在分享出來，希望大家能喜歡。里面的B、S 點用到未來函數，僅供參考。
源碼如下：

{精準買賣}
TY:=C;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪頂:IF(T1,A,A),COLORFF00FF,POINTDOT,LINETHICK2;{壓力線}

波浪底:IF(T2,B,B),COLOR80FF00,POINTDOT,LINETHICK2;{支撐線}

cxh3:=LLV(H,240);
cxh4:=100*(C-cxh3)/cxh3;
cxh5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
cxh6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
cxh7:=0;
cxh8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;
cxh9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;
cxhA:=BARSCOUNT(C);
cxhB:=cxh8<20 AND cxh9<23 AND cxhA>35;
cxhC:=cxhB AND COUNT(cxhB,1)=1;
cxhD:=EMA(C,21)-EMA(C,8);
cxhE:=EMA(cxhD,5);
cxhF:=TROUGH(3,6,1)<4 AND CROSS(cxhD,cxhE);
cxh10:=IF(TROUGH(3,16,1)=0 AND H>L+0.04,4,0);
cxh11:=ZIG(3,6)>REF(ZIG(3,6),1)
AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2)
AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
cxh12:=ZIG(3,6)<REF(ZIG(3,6),1)
AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2)
AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
cxh13:=ZIG(3,22)>REF(ZIG(3,22),1)
AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2)
AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
cxh14:=ZIG(3,22)<REF(ZIG(3,22),1)
AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2)
AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
cxh15:=ZIG(3,51)>REF(ZIG(3,51),1)
AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2)
AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
cxh16:=ZIG(3,51)<REF(ZIG(3,51),1)
AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2)
AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
cxh17:=ZIG(3,72)>REF(ZIG(3,72),1)
AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2)
AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
cxh18:=ZIG(3,72)<REF(ZIG(3,72),1)
AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2)
AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
cxh19:=EMA(C,2)-EMA(C,150);
cxh1A:=EMA(cxh19,100);
cxh1B:=2*(cxh19-cxh1A);
cxh1C:=POW(cxh1B,3)*0.1+POW(cxh1B,1);
cxh1D:=SQRT(SQRT(L*H*O*C));
cxh1E:=EMA(cxh1D*0.97,3);
cxh1F:=(H+L+C)/3;
cxh20:=(cxh1F-MA(cxh1F,14))/(0.015*AVEDEV(cxh1F,14));
cxh21:=CROSS(cxh1E,L);
買點1:=cxh10;
買點2:=(cxh11+cxh13+cxh15+cxh17);
賣點1:=(cxh12+cxh14+cxh16+cxh18);
cxh22:=買點1 AND cxhF AND cxhC AND cxh21 AND cxh4<0
AND cxh5=0 AND cxh6=0 AND cxh20<(-110);
cxh1:=MA(C,5);
cxh2:=MA(C,10);
cxh31:=MA(C,30);
cxhB1:=SUM(C*V*100,28)/SUM(V*100,28);
cxhC1:=INTPART(cxhB1*100)/100;
cxhD1:=EMA(C,5)-EMA(C,10);
cxhE1:=EMA(cxhD1,9);
cxh131:=REF(cxhE1,1);
cxh141:=cxhE1;
cxh151:=cxh141-cxh131;
cxh161:=REF(cxhD1,1);
cxh171:=cxhD1;
cxh181:=cxh171-cxh161;
cxh191:=O;
cxh1A1:=C;
drawtext(買點1>0,L-0.15,'B'),LINETHICK2,ALIGN1,colorred;
drawtext(買點2>0,L-0.15,'B'),LINETHICK2,ALIGN1,COLORFF00FF;
drawtext(賣點1>0,H+0.05,'S'),LINETHICK2,ALIGN1,COLORYELLOW,valign2;


{最佳套利}
M1:=3;
M2:=19;
JJ:=(CLOSE+HIGH+LOW)/3;
A:=EMA(JJ,10);
B:=REF(A,1);
STICKLINE(A>B ,A ,B ,10 ,0 ),coloryellow;
STICKLINE(A<B ,B ,A ,10 ,0 ),colorblue;
MA1:MA(CLOSE,M1),coloryellow;
MA2:MA(CLOSE,M2),COLOR00ff00;
{操盤鐵律}
YC:=REF(CLOSE,1);
止損價位:(YC*1.0035*97+0.1)/99.65,COLORRED,LINETHICK0;
DRAWTEXTABS(5,26,' ==============='),COLORRED;DRAWTEXTABS(5,58,'盤 '),COLORRED;
DRAWTEXTABS(5,74,'鐵'),COLORRED;
DRAWTEXTABS(5,90,'律'),COLORRED;
DRAWTEXTABS(5,106,' ==============='),COLORRED;DRAWTEXTABS(5,58,' B點買入'),colorYellow;
DRAWTEXTABS(5,74,' 止損價'+NUMTOSTR(止損價位)+'元'),colorYellow;
DRAWTEXTABS(5,90,' 線上工作線下休息'),color00FFFF;
E:=(HIGH+LOW+OPEN+2*CLOSE)/5;
明日阻力:=2*E-LOW;
明日支撐:=2*E-HIGH;

今日阻力:=REF(明日阻力 , 1);
今日支撐:=REF(明日支撐 , 1);

DRAWTEXTABS(125,42,'今日阻力'+NUMTOSTR(今日阻力)),ColorFFFF00;
DRAWTEXTABS(125,58,'今日支撐'+NUMTOSTR(今日支撐)),Colorred;
DRAWTEXTABS(5,10,BKNAME),COLOR00FFFF;

看看效果：
{程序化交易 www.kzuj.com.cn }

?

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

?