通达信分型缠论主图指标公式

指标公式源码

1. 
   
2. {jue-ce.com}{jue-ce.com}{jue-ce.com};
   
3. {jue-ce.com};
   
4. ma1K高:=IF(H>REF(H,1),1,IF(H=REF(H,1),0,IF(HREF(L,1),1,IF(L=REF(L,1),0,IF(L=REF(H,2),HHV(H,2),HHV(L,2),1,0)COLORBLUE;
   
5. 包含下:STICKLINE(RANGE(MA1K,-2,2) AND HREF(HHV(H,4),1),4);
   
6. 局部高点预选B:=BACKSET(局部高点预选A=0 AND REF(局部高点预选A,1)=1,2);
   
7. 局部高点预选C:=IF(局部高点预选B=1 AND REF(局部高点预选B,1)=0,1,0);
   
8. 缺口判断:=IF(L>REF(H,1),1,IF(HREF(距前低天,1) AND LLV(L,距前高天+1)=4 OR LLV(缺口判断,距前高天)=-1 OR LLV(L,距前低天+2)REF(小值周期,距前低天+1) AND 大值周期>REF(小值周期,距前低天) AND 大值周期>REF(大值周期,距前高天),1,0);
   
9. 高保留A:=IF(局部高点预选C=1 AND REF(距前低天,1)>REF(距前高天,1) AND HHV(H,距前低天+1)>REF(HHV(H,距前低天+1),1),1,0);
   
10. 高保留B:=IF(局部高点预选C=1 AND REF(距前低天,1)=4 OR HHV(缺口判断,距前低天)=1),1,0);
    
11. 高保留:=IF((高保留A=1 OR 高保留B=1 OR 判断=1) AND H>REF(L,距前低天+1),1,0);
    
12. 预判A:=IF((距前高天REF(大值周期,距前高天+1) AND 小值周期>REF(大值周期,距前高天) AND 小值周期>REF(小值周期,距前低天),-1,0);
    
13. 低保留A:=IF(局部低点预选C=-1 AND REF(距前高天,1)>REF(距前低天,1) AND LLV(L,距前高天+1)=4 OR LLV(缺口判断,距前高天)=-1 OR 判断A=-1),-1,0);
    
14. 低保留:=IF((低保留A=-1 OR 低保留B=-1) AND LREF(小值周期,距前低天A+1) AND 大值周期>REF(小值周期,距前低天A) AND 大值周期>REF(大值周期,距前高天A),1,0);
    
15. 高保留XA:=IF(局部高点预选C=1 AND REF(距前低天A,1)>REF(距前高天A,1) AND HHV(H,距前低天A+1)>REF(HHV(H,距前低天A+1),1),1,0);
    
16. 高保留XB:=IF(局部高点预选C=1 AND REF(距前低天A,1)=4 OR HHV(缺口判断,距前低天A)=1),1,0);
    
17. 高保留X:=IF((高保留XA=1 OR 高保留XB=1 OR 判断X=1) AND H>REF(L,距前低天A+1),1,0);
    
18. 预判XA:=IF((距前高天AREF(大值周期,距前高天A+1) AND 小值周期>REF(大值周期,距前高天A) AND 小值周期>REF(小值周期,距前低天A),-1,0);
    
19. 低保留XA:=IF(局部低点预选C=-1 AND REF(距前高天A,1)>REF(距前低天A,1) AND LLV(L,距前高天A+1)=4 OR LLV(缺口判断,距前高天A)=-1 OR 判断XA=-1),-1,0);
    
20. 低保留X:=IF((低保留XA=-1 OR 低保留XB=-1) AND LREF(小值周期,距前低天YA+1) AND 大值周期>REF(小值周期,距前低天YA) AND 大值周期>REF(大值周期,距前高天YA),1,0);
    
21. 高保留YXA:=IF(局部高点预选C=1 AND REF(距前低天YA,1)>REF(距前高天YA,1) AND HHV(H,距前低天YA+1)>REF(HHV(H,距前低天YA+1),1),1,0);
    
22. 高保留YXB:=IF(局部高点预选C=1 AND REF(距前低天YA,1)=4 OR HHV(缺口判断,距前低天YA)=1),1,0);
    
23. 高保留YX:=IF((高保留YXA=1 OR 高保留YXB=1 OR 判断YX=1) AND H>REF(L,距前低天YA+1),1,0);
    
24. 预判YXA:=IF((距前高天YAREF(大值周期,距前高天YA+1) AND 小值周期>REF(大值周期,距前高天YA) AND 小值周期>REF(小值周期,距前低天YA),-1,0);
    
25. 低保留YXA:=IF(局部低点预选C=-1 AND REF(距前高天YA,1)>REF(距前低天YA,1) AND LLV(L,距前高天YA+1)=4 OR LLV(缺口判断,距前高天YA)=-1 OR 判断YXA=-1),-1,0);
    
26. 低保留YX:=IF((低保留YXA=-1 OR 低保留YXB=-1) AND LREF(H,REF(距前高天YA,1)+2),1,IF(高保留YX=1 AND 低保留YX=-1 AND L<REF(L,REF(距前低天YA,1)+2),-1,0));
    
27. 极点保留:=IF(AAAD=0,高保留YX+低保留YX,AAAD);
    
28. {jue-ce.com}极点:IF(极点保留=-1,L,IF(极点保留=1,H,DRAWNULL)) {jue-ce.com},POINTDOT,LINETHICK6,COLORYELLOW;
    
29. {jue-ce.com}{jue-ce.com};
    
30. 强弱:MA(C,7)COLORDDDDDD;
    
31. {jue-ce.com}BDGD:=crOSS(0.8,H=HHV(H,4));
    
32. GDSJ:=BARSLAST(BDGD)+1;
    
33. 波峰:=REF(H,GDSJ),COLOR00FF00,POINTDOT;
    
34. BDDD:=CROSS(0.8,L=LLV(L,4));
    
35. DDSJ:=BARSLAST(BDDD)+1;
    
36. 波谷:=REF(L,DDSJ),COLORFF00FF,POINTDOT;
    
37. STICKLINE(GDSJ<=4,波峰,波峰,2,0),COLORGREEN,LINETHICK01;
    
38. STICKLINE(DDSJ<=4,波谷,波谷,2,0),COLOR20FFCC,LINETHICK01;
    

复制代码