{优化整合指标公式}【主图指标公式 公式、源码 演示图】[大智慧公式]

龙听

1. INPUT:K1(2011,1990,3000),K2(1,1,12),K3(1,1,31),DX(0,0,2),FA(0,0,5),P1(5,0,255),P2(10,0,255),P3(20,0,255),P4(0,0,255),P5(0,0,255);
   
2. AS:=(o+h+l+c)/4;
   
3. MMA5:EMA(AS,P1);
   
4. SYAA:EMA(AS,P2);
   
5. SYAB:EMA(AS,P3);{
   
6. SYAC:EMA(AS,P4);
   
7. SYAD:EMA(AS,P5);}
   
8. 
   
9. RQD:=(K1-1900)*10000+K2*100+K3;
   
10. DJ:REF(L,BARSLAST(DATE<=RQD )),LINETHICK0,COLOR55BB55;
    
11. 上涨:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(L=DJ)+1));
    
12. STICKLINE(C>=O,C,O,8,0),COLOR0000FF,LAYER4;
    
13. STICKLINE(C>=O,H,L,0,0),COLOR0000FF,LAYER4;
    
14. STICKLINE(C<=O,C,O,8,0),COLORFFFF00,LAYER4;
    
15. STICKLINE(C<=O,H,L,0,0),COLORFFFF00,LAYER4;
    
16. DRAWTEXT(上涨=0 AND FA>=1,DJ,'1'),COLORFFFFFF,VALIGN1;
    
17. DRAWTEXT(上涨=1 AND FA>=1,DJ,'2'),COLORFFFFFF,VALIGN1;
    
18. DRAWTEXT(上涨=2 AND FA>=1,DJ,'3'),COLORFFFFFF,VALIGN1;
    
19. DRAWTEXT(上涨=3 AND FA>=1,DJ,'4'),COLORFFFFFF,VALIGN1;
    
20. DRAWTEXT(上涨=4 AND FA>=1,DJ,'5'),COLORFFFFFF,VALIGN1;
    
21. DRAWTEXT(上涨=5 AND FA>=1,DJ,'6'),COLORFFFFFF,VALIGN1;
    
22. DRAWTEXT(上涨=6 AND FA>=1,DJ,'7'),COLORFFFFFF,VALIGN1;
    
23. DRAWTEXT(上涨=7 AND FA>=1,DJ,'8'),COLORFFFFFF,VALIGN1;
    
24. DRAWTEXT(上涨=8 AND FA>=1,DJ,'9'),COLORFFFFFF,VALIGN1;
    
25. DRAWTEXT(上涨=9 AND FA>=1,DJ,'10'),COLORFFFFFF,VALIGN1;
    
26. 
    
27. 阳涨幅:=3.5;
    
28. 阳倍量:=1.9;
    
29. 单阳收:=C;
    
30. 单阳开:=O;
    
31. 单阳:=单阳收>=REF(C,1)*(1+阳涨幅/100)AND VOL>REF(VOL,1)*阳倍量;
    
32. DRAWTEXT(BARSTATUS=0 AND 单阳,L,'阳'),COLOR00FFFF,VALIGN1;
    
33. 高不破价:=REF(C,BARSLAST(单阳));
    
34. 低不破价:=REF(L,BARSLAST(单阳));
    
35. 单阳不破:=BARSTATUS=0 AND BARSLAST(单阳)<11 AND (LLV(L,BARSLAST(单阳))>低不破价 OR LLV(L,BARSLAST(单阳))=低不破价);
    
36. STICKLINE(单阳不破,低不破价-低不破价*0.0005,低不破价,11,0),COLORGREEN;
    
37. STICKLINE(单阳不破,高不破价,高不破价,11,0),COLORRED;
    
38. STICKLINE(单阳,单阳开,单阳收,6,0),COLORYELLOW;
    
39. QKB:=IF(C>O,O,C);
    
40. QKAB:=IF(C>O,O+(C-O)*0.75,O+(C-O)*0.75);
    
41. STICKLINE(BARSTATUS=0 AND 单阳,QKB,QKAB,6,0),COLORFF2693;
    
42. 实体幅度2:=REF((O+(C-O)*0.667),BARSLAST(单阳));{//当日实体幅度的2/3}
    
43. 实体幅度1:=REF((O+(C-O)*0.333),BARSLAST(单阳));{//当日实体幅度的1/3}
    
44. 幅度的1二:=REF((L+(H-L)/2),BARSLAST(单阳));{//当日幅度的1/2}
    
45. STICKLINE(单阳不破,幅度的1二,幅度的1二,8,1),COLOR209FFF,DOTLINE;
    
46. STICKLINE(单阳不破,实体幅度2,实体幅度2,11,1),COLORFFFF00,DOTLINE;
    
47. STICKLINE(单阳不破,实体幅度1,实体幅度1,11,1),COLORFFFF00,DOTLINE;
    
48. DRAWTEXT(BARSLAST(单阳)=1 AND 单阳不破,低不破价,'1'),COLORGREEN;
    
49. DRAWTEXT(BARSLAST(单阳)=2 AND 单阳不破,低不破价,'2'),COLORGREEN;
    
50. DRAWTEXT(BARSLAST(单阳)=3 AND 单阳不破,低不破价,'3'),COLORGREEN;
    
51. DRAWTEXT(BARSLAST(单阳)=4 AND 单阳不破,低不破价,'4'),COLORGREEN;
    
52. DRAWTEXT(BARSLAST(单阳)=5 AND 单阳不破,低不破价,'5'),COLORGREEN;
    
53. DRAWTEXT(BARSLAST(单阳)=6 AND 单阳不破,低不破价,'6'),COLORGREEN;
    
54. DRAWTEXT(BARSLAST(单阳)=7 AND 单阳不破,低不破价,'7'),COLORGREEN;
    
55. DRAWTEXT(BARSLAST(单阳)=8 AND 单阳不破,低不破价,'8'),COLORGREEN;
    
56. DRAWTEXT(BARSLAST(单阳)=9 AND 单阳不破,低不破价,'9'),COLORGREEN;
    
57. DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价,'10'),COLORGREEN;
    
58. {一阳穿三线}
    
59. MA2:=EMA(C,2);
    
60. MA5:=EMA(C,5);
    
61. MA13:=EMA(C,13);
    
62. MA34:=EMA(C,34);
    
63. MA55:=EMA(C,55);
    
64. YCX:=MA5>=REF(MA5,1);
    
65. H1:=MAX(MAX(MA5,MA13),MA34);
    
66. L1:=MIN(MIN(MA5,MA13),MA34);
    
67. QK:=IF(C>O,O,C);
    
68. QKA:=IF(C>O,O+(C-O)*0.35,O+(C-O)*0.25);
    
69. 一阳穿三线:= H1<C AND O<L1 AND YCX AND MA2>REF(MA2,1);
    
70. STICKLINE(一阳穿三线,QK,QKA,6,0),COLORYELLOW;
    
71. STICKLINE(C=C AND fa>=1,O+((C-O)*0.667),(O+(C-O)*0.667),4,0),COLORFF0000,LINETHICK1;{//当日实体幅度的2/3}
    
72. STICKLINE(C=C AND fa>=1,O+((C-O)*0.333),(O+(C-O)*0.333),4,0),COLORFF0000,LINETHICK1;{//当日实体幅度的1/3}
    
73. STICKLINE(C=C AND fa>=1,O+((C-O)/2),(O+(C-O)/2),5,0),COLOR00FFFF,LINETHICK1;{//当日实体幅度的1/2}
    
74. STICKLINE(C=C AND fa>=1,L+((H-L)/2),(L+(H-L)/2),6,0),COLOR208FFF,LINETHICK1;{//当日幅度的1/2}
    
75. STICKLINE(C=C AND fa>=1,IF(C>O,H-((H-C)/2),H-((H-O)/2)),IF(C>O,H-((H-C)/2),H-((H-O)/2)),1.3,0),COLORYELLOW,LINETHICK1;{//当日上影线幅度的1/2}
    
76. STICKLINE(C=C AND fa>=1,IF(C<O,L+((C-L)/2),L+((O-L)/2)),IF(C<O,L+((C-L)/2),L+((O-L)/2)),1.3,0),COLORYELLOW,LINETHICK1;{//当日下影线幅度的1/2};
    
77. AJ:=AMOUNT/(VOL*100);
    
78. DRAWTEXT(C=C AND fa=3,AJ,'←'),COLORFF5f00;
    
79. z3:=C=HHV(C,6);
    
80. Z9:=C=LLV(C,6);
    
81. Z4:=BARSLAST(Z3);
    
82. Z5:=BARSLAST(Z9);
    
83. STICKLINE(C>0 AND fa=2,REF(C,Z4)*1.005,REF(C,Z4)*1.005,7,0),COLORFFFF00,DOTLINE;
    
84. STICKLINE(C>0 AND fa=2,REF(C,Z5)*0.995,REF(C,Z5)*0.995,7,0),COLORFF00FF,DOTLINE;
    
85. LC := REF(CLOSE,1);
    
86. RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
    
87. DRAWICON(RSI1>76,H,12),VALIGN1,ALIGN1;
    
88. DRAWICON(RSI1>80,H,13),VALIGN0,ALIGN1;
    
89. BL:=EMA(AS,17);
    
90. BLS:=BL+2.58*STDP(C,20);
    
91. BL2:=BL+1.96*STDP(C,20);
    
92. DRAWICON(CROSS(H,BLS),H,8),VALIGN1,ALIGN1;
    
93. DRAWICON(CROSS(H,BL2),H,6),VALIGN2,ALIGN1;
    
94. Q1:=DJ * 1.03;
    
95. Q2:=DJ * 1.05;
    
96. Q3:=DJ * 1.08;
    
97. Q4:=DJ * 1.13;
    
98. Q5:=DJ * 1.18;
    
99. Q6:=DJ * 1.25;
    
100. Q7:=DJ * 1.33;
     
101. I1:=0;
     
102. flag1:=0;
     
103. while I1<BARSLAST(DISPSTATUS=1)-BARSLAST(DISPSTATUS=2)
     
104. DO
     
105. IF REF(Q1,I1)<REF(Q1,I1+1) AND REF(Q1,I1+1)>Q1
     
106. THEN BEGIN FLAG1:=1;
     
107. S1:=I1;
     
108. I1:=BARSLAST(DISPSTATUS=1);
     
109. END
     
110. ELSE I1:=I1+1;
     
111. STICKLINE(FLAG1 AND DX>=1,REF(Q1,S1),DJ,(s1+1)*20,0),Color551155,ALIGN1,LAYER5;
     
112. STICKLINE(FLAG1 AND DX>=1,REF(Q1,S1),Q2,(s1+1)*20,0),Color444444,ALIGN1,LAYER5;
     
113. STICKLINE(FLAG1 AND DX>=1,REF(Q2,S1),Q3,(s1+1)*20,0),Color666666,ALIGN1,LAYER5;
     
114. STICKLINE(FLAG1 AND DX>=1,REF(Q3,S1),Q4,(s1+1)*20,0),Color777777,ALIGN1,LAYER5;
     
115. STICKLINE(FLAG1 AND DX>=1,REF(Q4,S1),Q5,(s1+1)*20,0),Color665506,ALIGN1,LAYER5;
     
116. STICKLINE(FLAG1 AND DX>=2,REF(Q5,S1),Q6,(s1+1)*20,0),Color777000,ALIGN1,LAYER5;
     
117. DRAWTEXT(上涨=0 AND DX>=1,DJ*1.003,''+''+NUMTOSTRN(DJ,2)),COLORYELLOW,align2;
     
118. DRAWTEXT(上涨=0 AND DX>=1,Q1,'3%'+'-'+NUMTOSTRN(Q1,2)),COLORYELLOW,align2;
     
119. DRAWTEXT(上涨=0 AND DX>=1,Q2,'5%'+'-'+NUMTOSTRN(Q2,2)),COLORYELLOW,align2;
     
120. DRAWTEXT(上涨=0 AND DX>=1,Q3,'8%'+'-'+NUMTOSTRN(Q3,2)),COLORYELLOW,align2;
     
121. DRAWTEXT(上涨=0 AND DX>=1,Q4,'13%'+'-'+NUMTOSTRN(Q4,2)),COLORYELLOW,align2;
     
122. DRAWTEXT(上涨=0 AND DX>=1,Q5,'18%'+'-'+NUMTOSTRN(Q5,2)),COLORYELLOW,align2;
     
123. DRAWTEXT(上涨=0 AND DX>=2,Q6,'25%'+'-'+NUMTOSTRN(Q6,2)),COLORYELLOW,align2;
     
124. {添加参数精灵
     
125. {--------显示年月日低点日期--------}
     
126. 调整年 Param#1 显示年度
     
127. 调整月 Param#2 显示月份
     
128. 调整日 Param#3 显示日期
     
129. --------参数=1显示低点水平线------
     
130. 参数=2--4 Param#4 显示涨幅幅度线
     
131. 参数=0--2 Param#5 显示K线幅度线
     
132. --------显示均价线--------
     
133. P1计算 Param#6 任意均价线;
     
134. P2计算 Param#7 任意均价线;
     
135. P3计算 Param#8 任意均价线;
     
136. P4计算 Param#9 任意均价线;
     
137. P5计算 Param#10 任意均价线;

复制代码

龙听

下载 (342.83 KB)

2019-1-3 14:24