通达信股灵决策原码公式

 

C/C++ Code复制内容到剪贴板

1. M1:=5;   
2. M2:=10;   
3. M3:=20;   
4. M4:=60;   
5. MA1:MA(CLOSE,M1);   
6. MA2:MA(CLOSE,M2);   
7. MA3:MA(CLOSE,M3);   
8. MA4:MA(CLOSE,M4);   
9. VAR3:=LLV(HIGH,240);   
10. VAR4:=100*(CLOSE-VAR3)/VAR3;   
11. VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;   
12. VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;   
13. VAR7:=0;   
14. VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;   
15. VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;   
16. VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);   
17. VAR11:=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);   
18. VAR12:=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);   
19. VAR13:=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);   
20. VAR14:=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);   
21. VAR15:=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);   
22. VAR16:=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);   
23. VAR17:=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);   
24. VAR18:=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);   
25. VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);   
26. 买１:=VAR10;   
27. 买２:=(VAR11+VAR13+VAR15+VAR17);   
28. 卖１:=(VAR12+VAR14+VAR16+VAR18);   
29. B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;   
30. DRAWTEXT(买１>0 OR 买２>0,LOW*0.99,'买入'),COLORRED;   
31. S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;   
32. DRAWTEXT(卖１>0,HIGH*1.02,'卖出'),COLORGREEN;   
33. {股灵吧决策}   
34. VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));   
35. VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20))));   
36. VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34));   
37. F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLOREE00EE;   
38. 年:MA(CLOSE,22),LINETHICK2,COLORWHITE;