求将此短线公式改为选股预警（通达信）

igarden

求将此短线公式改为选股预警（通达信）

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：igarden 浏览：4391 回复：7

源码：

1. T1:=5;
   
2. T2:=4;
   
3. P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
   
4. BB:=MA(P,3);
   
5. CC:=(SUM(IF((P > REF(P,1)),(P)*(VOL),0),4))/(SUM(IF((P < REF(P,1)),(P)*(VOL),0),4));
   
6. DD:=REF(100 - (100)/(1 + CC),1);
   
7. A1:=HHV(P,15);
   
8. A2:=LLV(P,15);
   
9. A3:=A1 - A2;
   
10. A4:=(EMA((P - A2)/(A3),2))*(100);
    
11. B1:=HHV(P,60);
    
12. B2:=LLV(P,60);
    
13. B3:=B1 - B2;
    
14. B4:=(EMA((P - B2)/(B3),2))*(100);
    
15. C1:=HHV(P,240);
    
16. C2:=LLV(P,240);
    
17. C3:=C1 - C2;
    
18. C4:=(EMA((P - C2)/(C3),2))*(100);
    
19. 长风险:C4,LINETHICK2,COLOR443434;
    
20. 中风险:B4,COLORAA7755;
    
21. 短风险:A4,COLOR44AABB;
    
22. IF(FILTER((中风险 < REF(中风险,1)) AND (中风险 > 90) AND (BB < REF(BB,1)),5),92,100),LINETHICK2,COLOR44BB00;
    
23. IF(FILTER((中风险 > REF(中风险,1)) AND (中风险 < 5) AND (CLOSE > REF(CLOSE,1)),5),14,0),LINETHICK2,COLOR2222FF;
    
24. VAR4:=LLV(LOW,T1);
    
25. VAR5:=HHV(HIGH,T2);
    
26. 散户:EMA(((P - VAR4)/(VAR5 - VAR4))*(100),T2),LINETHICK2,COLOR3333DD;
    
27. 庄家:EMA((0.667)*(REF(散户,1)) + (0.333)*(散户),2),LINETHICK2,COLORDDCC00;
    
28. VAR6:=((HHV(HIGH,4) - P)/(HHV(HIGH,4) - LLV(LOW,4)))*(100) - 72;
    
29. VAR7:=((P - LLV(LOW,4))/(HHV(HIGH,4) - LLV(LOW,4)))*(100);
    
30. VAR8:=SMA(VAR7,2,1);
    
31. {DRAWTEXT(CROSS(散户,庄家) AND (散户 < 50) AND (29 < 散户),20,'▲'),COLORRED;
    
32. DRAWTEXT(CROSS(庄家,散户) AND (散户 > 40) AND (71 > 散户),70,'▼'),COLORFF0000;
    
33. DRAWTEXT(CROSS(散户,庄家) AND (散户 < 30),30,'吸'),COLORRED;}
    
34. {DRAWICON(CROSS(散户,庄家) AND (散户 < 30),20,1),COLORYELLOW;
    
35. DRAWICON(CROSS(庄家,散户) AND (散户 > 70),80,2),COLORFF00FF;}
    
36. VAR9:=CLOSE - REF(CLOSE,5);
    
37. VARA:=((EMA(EMA(VAR9,5),5))/(EMA(EMA(ABS(VAR9),5),5)))*(100);
    
38. VARB:=((EMA(EMA(VAR9,10),10))/(EMA(EMA(ABS(VAR9),10),10)))*(100);
    
39. VARC:=((EMA(EMA(VAR9,20),20))/(EMA(EMA(ABS(VAR9),20),20)))*(100);
    
40. 卖出:=IF((VARA > 0) AND CROSS(VARC,VARA),10,0);
    
41. DRAWICON((卖出 > 0),60,2),COLOR00FF00;
    
42. CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14)));
    
43. RSI1:=((SMA(MAX(CLOSE - REF(CLOSE,1),0),6,1))/(SMA(ABS(CLOSE - REF(CLOSE,1)),6,1)))*(100);
    
44. STICKLINE((CCI > 100),106,100,3,0),COLOR00AC00;
    
45. STICKLINE((RSI1 > 80),105,102,3,0),COLOR00FE00;
    
46. STICKLINE((CCI < (-100)),(-6),0,3,0),COLORYELLOW;
    
47. STICKLINE((RSI1 < 25),(-6),(-2),3,0);
    
48. D1:=(中风险 > REF(中风险,1)) AND (短风险 > REF(短风险,1)) AND (长风险 > REF(长风险,1)) AND (长风险 < 8) AND (中风险 < 10) AND (短风险 < 15);
    
49. D2:=CROSS(短风险,中风险) AND (中风险 < 8);
    
50. D3:=CROSS(短风险,长风险) AND (长风险 < 8) AND (中风险 < 20);
    
51. DRAWICON(FILTER(D1 OR D2 OR D3 AND (DD < 15) AND (CLOSE > REF(CLOSE,1)),5),8,1),COLORFF0000;
    
52. DRAWICON(FILTER((中风险 < REF(中风险,1)) AND (短风险 < REF(短风险,1)) AND (长风险 < REF(长风险,1)) AND (中风险 > 95) AND (短风险 > 85) OR (长风险 > 100) AND (中风险 > 100) AND (短风险 > 100),5),95,2);
    
53. 警戒:80,COLORDCDCDC;
    
54. 启动:20,COLORYELLOW;

复制代码

附图是雕版今天股票的图形，上班不能时时盯盘，想求高人做个15分钟预警，期待浩版出手。

浩申

#*31*# #*31*#

igarden

高人当然包括浩版#loveliness#

想改成黄色 启动 预警，不知道能不能办到。

浩申

P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14)));
XG:CCI<-100;

igarden

谢谢浩版#bb#

王小明大

改成黄色 启动 预警，


P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5);
CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14)));
XG:CCI<-100;

aass258

#*19*# #*19*# #*19*#

xcltx100

厉害！#*d1*#