公式网-网站导航


网站搜索：  

股票公式指标网 发表于2010/2/23 8:01:27

2010最新K线解盘

第一图最新，2，3以前的一起参考，不知道谁发了没有，要发了给没看见的用哈，原码的指标
 

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板
  1. J5:   
  2. P1:3,0,30.P2:6,1,300,P3:3,1,18,P4:250,0,300   
  3. DRAWGBKLAST(CLOSE>0,'a008');   
  4. if DISPSTATUS=2 then aaa:=BARPOS;   
  5. if DISPSTATUS=1 then bbb:=BARPOS;   
  6. ddd:=aaa-bbb;   
  7. ee:=hhv(h,ddd);   
  8. TJTS:=BARSTATUS=2;   
  9. 早晨之星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND   
  10. CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);   
  11. 黄昏之星:=REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);   
  12. 长十字:=CLOSE=OPEN AND HIGH/LOW >1.03;   
  13. 垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;   
  14. 早晨十字星:=REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND   
  15. CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);   
  16. 黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2) > 1.05 AND REF(OPEN,1) > REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND   
  17. CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);   
  18. 射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5);   
  19. 倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5);   
  20. 锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5);   
  21. 吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);   
  22. 穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1))   
  23. OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1));   
  24. 乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);   
  25. 曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);   
  26. 身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND   
  27. MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1));   
  28. 十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND   
  29. CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1));   
  30. 平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;   
  31. 平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);   
  32. 大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018;   
  33. 三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN    
  34. AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);   
  35. 双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;   
  36. 孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100  AND REF(OPEN,1)>=REF(CLOSE,1) AND (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;   
  37. 多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;   
  38. 出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))))   
  39. AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049);   
  40. 上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND   
  41. REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);   
  42. 下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND   
  43. REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND   
  44. CLOSE<REF(CLOSE,4);   
  45. 跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);   
  46. 三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);   
  47. 光脚阴线:=LOW=CLOSE AND HIGH<>LOW;   
  48. 光头阳线:=HIGH=CLOSE AND HIGH<>LOW;   
  49. 分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;   
  50. 长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;   
  51. 长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;   
  52. 十字星:=CLOSE=OPEN AND HIGH<>LOW;   
  53. 大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018;   
  54. 好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)    
  55. OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);   
  56. 倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1);   
  57. i:=0;   
  58. IF  倾盆大雨 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'倾盆大雨,见顶信号‖'),ALIGN2; i:=i+0.03;  END   
  59. IF  大阴烛 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'大阴烛,后市向淡,发生逆转‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  60. IF  好友反攻 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'好友反攻,跌势已尽,要展开一段反弹行情‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  61. IF  跳空缺口 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'跳空缺口,突破长期盘整,向上跳空,上涨行情开始;向下跳空,下跌行情开始‖'),COLORWHITE,ALIGN2; i:=i+0.03;  END   
  62. IF  光脚阴线 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'光脚阴线,下跌信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  63. IF  光头阳线 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'光头阳线,多方积极上攻态势,后市看涨‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  64. IF  三只乌鸦 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'三只乌鸦站枝头,可能见顶回落‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  65. IF  分离 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'分离,注意看涨分离和看跌分离‖'),COLORWHITE,ALIGN2; i:=i+0.03;  END   
  66. IF  长下影 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  67. IF  长上影 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'长上影,表明行情上档压力沉重,升势受阻‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  68. IF  下跌三部曲 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'下跌三部曲,下跌信号‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  69. IF  上升三部曲 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'上升三部曲,上涨信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  70. IF  早晨之星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'早晨之星,见底回升‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  71. IF  黄昏之星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'黄昏之星,见顶回落‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  72. IF  十字星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'十字星,重要的警告信号,原趋势停顿或反转‖'),COLORWHITE,ALIGN2; i:=i+0.03;  END   
  73. IF  长十字 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'长十字,重要的警告信号,原趋势停顿或反转‖'),COLORWHITE,ALIGN2; i:=i+0.03;  END   
  74. IF  垂死十字 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'垂死十字,下跌信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  75. IF  早晨十字星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'早晨十字星,上涨信号,见底回升‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  76. IF  黄昏十字星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'黄昏十字星,趋势停顿或反转,下跌信号,见顶回落‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  77. IF  射击之星 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'射击之星,出现在短期的上升趋势,表明市场顶部就在眼前,可能见顶回落,可靠性低‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  78. IF  倒转锤头 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'倒转锤头构成一个看涨信号,可能见底回升‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  79. IF  锤头 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'锤头,可能见底回升,如有量配合,信号强烈‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  80. IF  吊颈 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'吊颈,上升行情中见顶回落,顶部出现,见顶信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  81. IF  平顶 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'平顶,意味行情摸高见顶,股价行将反转。但反转下跌力度较小‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  82. IF  穿头破脚 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'穿头破脚,顶部出现,见顶回落信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  83. IF  乌云盖顶 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'乌云盖顶,见顶回落信号‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  84. IF  曙光初现 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'曙光初现,行情将演化为V型反转或止跌横盘趋势。后市见底回升‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  85. IF  身怀六甲 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  86. IF  十字胎 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'十字胎‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  87. IF  平底 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'平底,行情探低见底,股价行将反转上升,但力度较小‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  88. IF  大阳烛 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'大阳烛,在上升行情中出现,则意味着行情剧烈地向上攀升。在下跌行情中出现,则意味着行情剧烈地向上反弹‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  89. IF  三个白武士 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'三个白武士,每日收盘价上移,表示可能见底回升‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  90. IF  双飞乌鸦 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'双飞乌鸦,行情开始疲软将见顶回落‖'),COLORCYAN,ALIGN2; i:=i+0.03;  END   
  91. IF  孕育线 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'孕育线,注意股价位置‖'),COLORWHITE,ALIGN2; i:=i+0.03;  END   
  92. IF  多方炮 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'多方炮,在底部出现有上涨可能,在中间出现有可能是上涨中继,顶部出现是复合见顶信号‖'),COLORRED,ALIGN2; i:=i+0.03;  END   
  93. IF  出水芙蓉 AND TJTS  THEN  BEGIN  DRAWTEXT(c>0,ee*(1.1-i),'出水芙蓉,阳线穿过20、40、60日季均线,上攻势头初现‖'),COLORRED,ALIGN2; i:=i+0.03;  END;   
  94. Var1:=(C+L+H)/3;   
  95. Var2:=eMA(Var1,6);   
  96. Var3:=eMA(Var2,5);   
  97. Var4:=eMA(Var3,12);   
  98. Var5:=eMA(Var4,5);   
  99. 生命线:eMA(Var3,30),COLORRED,POINTDOT;   
  100. DRAWICON(C>=生命线,生命线,9);   
  101. DRAWICON(C<生命线,生命线,10);   
  102. a:=HHV(MA((L+H+C)/3,3),3);   
  103. b:=llv(MA((L+H+C)/3,3),10);   
  104. STICKLINE(DISPSTATUS=2,a,a,20,0),Coloryellow,linethick3;   
  105. DRAWTEXT(DISPSTATUS=2 ,a,NUMTOSTRN(a,3)),colorYELLOW;   
  106. STICKLINE(DISPSTATUS=2,b,b,20,0),ColorDB3FDD,linethick3;   
  107. DRAWTEXT(DISPSTATUS=2,b,NUMTOSTRN(b,3)),ColorDB3FDD;    
  108. k1:=llv(l,barslast(DISPSTATUS=1)+1);   
  109. aa1:=cost(95);   
  110. aa2:=cost(5);   
  111. ly:=(aa1-aa2)*100/(aa1+aa2);   
  112. DRAWTEXT(ly>ref(ly,1),k1,'▲'),Color0000FF;   
  113. N:=p1;{原码 N:=3;}   
  114. A1:=REF(H,N)=HHV(H,2*N+1); B1:=FILTER(A1,N); C1:=BACKSET(B1,N+1); D1:=FILTER(C1,N);{高点}   
  115. A2:=REF(L,N)=LLV(L,2*N+1); B2:=FILTER(A2,N); C2:=BACKSET(B2,N+1); D2:=FILTER(C2,N);{低点}   
  116. E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2; E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}   
  117. H1:=(D1 AND NOT(D2 AND E1>=E2)) OR DISPSTATUS=2 OR BARSCOUNT(C)=1;   
  118. L1:=(D2 AND NOT(D1 AND E1<E2));  H2:=D1 AND NOT(D2 AND E1>=E2);   
  119. X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));   
  120. G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{过滤后低点}   
  121. L2:=LD OR DISPSTATUS=2 OR BARSCOUNT(C)=1;   
  122. X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));   
  123. G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{过滤后高点}   
  124.   
  125.   
  126. R1:=BACKSET(DISPSTATUS=2,BARSLAST(HD)+1); S1:=R1>REF(R1,1); {前一高}   
  127. T1:=BACKSET(DISPSTATUS=2,BARSLAST(LD)+1); U1:=T1>REF(T1,1); {前一低}   
  128. R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2); S2:=R2>REF(R2,1); {前二高}   
  129. T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2); U2:=T2>REF(T2,1); {前二低}   
  130. T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2); U3:=T3>REF(T3,1); {前三低}   
  131. T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2); U4:=T4>REF(T4,1); {前四低}   
  132. R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2); S3:=R3>REF(R3,1); {前三高}   
  133. R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2); S4:=R4>REF(R4,1); {前四高}   
  134. DRAWLINE(S2,H,S1,H,1),Color80FFFF; {★压力１:}            
  135. DRAWLINE(U2,L,U1,L,1),POINTDOT,Color00FFFF,linethick2;{★支撑１:}   
  136. DRAWLINE(S3,H,S2,H,1),ColorFF8000; {★压力２:}   
  137. DRAWLINE(U3,L,U2,L,1),POINTDOT,ColorFF8000;{★支撑２:}            
  138. DRAWLINE(S4,H,S3,H,1),Color0000FF;{★压力３:}   
  139. DRAWLINE(U4,L,U3,L,1),POINTDOT,Color0000FF;{★支撑３:};   
  140.   
  141. DRAWICON(S2,H*1.01,9); DRAWICON(S3,H*1.01,9);   
  142. DRAWTEXT(S2,H*1.02,NUMTOSTRN(H,2)),COLORMAGENTA;   
  143. DRAWTEXT(S1,H*1.02,NUMTOSTRN(H,2)),COLORMAGENTA;   
  144. DRAWTEXT(S3,H*1.02,NUMTOSTRN(H,2)),COLORMAGENTA;   
  145. DRAWICON(U1,L*0.99,10); DRAWICON(U2,L*0.99,10);   
  146. DRAWICON(U3,L*0.99,10);DRAWICON(U4,L*0.99,10);   
  147. DRAWTEXT(U1,L*0.98,NUMTOSTRN(L,2)),COLORCYAN;   
  148. DRAWTEXT(U2,L*0.98,NUMTOSTRN(L,2)),COLORCYAN;   
  149. DRAWTEXT(U3,L*0.98,NUMTOSTRN(L,2)),COLORCYAN;   
  150. DRAWTEXT(U4,L*0.98,NUMTOSTRN(L,2)),COLORCYAN;   
  151. STICKLINE(open>=close ,close ,open,0,0 ),COLOR00FF00;    
  152. STICKLINE(open>=close ,close ,open,8,0 ),COLOR008800;   
  153. STICKLINE(open>=close ,close ,open,7,0 ),COLOR009900;   
  154. STICKLINE(open>=close ,close ,open,6,0 ),COLOR00AA00;   
  155. STICKLINE(open>=close ,close ,open,5,0 ),COLOR00BB00;   
  156. STICKLINE(open>=close ,close ,open,4,0 ),COLOR00CC00;   
  157. STICKLINE(open>=close ,close ,open,3,0 ),COLOR00DD00;   
  158. STICKLINE(open>=close ,close ,open,2,0 ),COLOR00EE00;   
  159. STICKLINE(open>=close ,close ,open,1,0 ),COLOR00FF00;   
  160.   
  161. STICKLINE(close>open,close,open,0,0) ,COLORFFBBFF;   
  162. STICKLINE(close>open,close,open,8,0) ,COLORFF00FF;    
  163. STICKLINE(close>open,close,open,7,0) ,COLORFF22FF;   
  164. STICKLINE(close>open,close,open,6,0) ,COLORFF44FF;   
  165. STICKLINE(close>open,close,open,5,0) ,COLORFF66FF;   
  166. STICKLINE(close>open,close,open,4,0) ,COLORFF88FF;    
  167. STICKLINE(close>open,close,open,3,0) ,COLORFF99FF;   
  168. STICKLINE(close>open,close,open,2,0) ,COLORFFAAFF;   
  169. STICKLINE(close>open,close,open,1,0) ,COLORFFBBFF;   
  170.   
  171.   
  172.   
  173.   
  174.   
  175. 551:   
  176.   
  177. 18,POINTDOT;   
  178. TJTS:=BARSTATUS=2;   
  179. i:=0;   
  180. j:=0;   
  181. IF close=open AND TJTS  THEN  BEGIN   
  182.    DRAWTEXT(c>0,18-i,'*K线不是万能量能分析亦不可缺                        '),colorwhite,ALIGN2;   
  183.    i:=i+3;end;   
  184. IF OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 AND TJTS  THEN  BEGIN   
  185.    DRAWTEXT(c>0,18-i,'*大阴烛 -今日空方有绝对优势                        '),colorwhite,ALIGN2;   
  186.    i:=i+3;end;   
  187. IF ABS(HIGH-REF(HIGH,1))/HIGH<0.001 AND TJTS  THEN  BEGIN   
  188.    DRAWTEXT(c>0,18-i,'*平顶 -该高点有一定阻力                        '),colorwhite,ALIGN2;   
  189.    i:=i+3;end;   
  190. IF ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 AND TJTS  THEN  BEGIN   
  191.    DRAWTEXT(c>0,18-i,'*平底 -该低点有一定支撑                        '),colorwhite,ALIGN2;   
  192.    i:=i+3;end;   
  193. IF CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 AND TJTS  THEN  BEGIN   
  194.    DRAWTEXT(c>0,18-i,'*大阳烛 -上升行情中意味行情剧烈向上攀升 下跌行情中意味行情剧烈向上反弹                        '),colorwhite,ALIGN2;   
  195.    i:=i+3;end;   
  196. IF (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) AND TJTS  THEN  BEGIN   
  197.    DRAWTEXT(c>0,18-i,'*跳空缺口 -当日未补 有与跳空同向进行欲望强烈 三日为回补观察期                        '),colorwhite,ALIGN2;   
  198.    i:=i+3;end;   
  199. IF REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 AND TJTS  THEN  BEGIN   
  200.    DRAWTEXT(c>0,18-i,'*双飞乌鸦 -多头力竭 行情走软                        '),colorwhite,ALIGN2;   
  201.    i:=i+3;end;   
  202. IF CLOSE=OPEN AND HIGH<>close and low<>close and high <>close AND TJTS  THEN  BEGIN   
  203.    DRAWTEXT(c>0,18-i,'*十字星 -警告信号 原趋势停顿或反转 依上下影线长度判后市                        '),colorwhite,ALIGN2;   
  204.    i:=i+3;end;   
  205. IF (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 AND TJTS  THEN  BEGIN   
  206.    DRAWTEXT(c>0,18-i,'*长下影 -下档支撑强或空方试探进攻                        '),colorwhite,ALIGN2;   
  207.    i:=i+3;end;   
  208. IF (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 AND TJTS  THEN  BEGIN   
  209.    DRAWTEXT(c>0,18-i,'*长上影 -上档阻力大或多方试探进攻                        '),colorwhite,ALIGN2;   
  210.    i:=i+3;end;   
  211. IF HIGH=CLOSE AND HIGH<>LOW AND TJTS  THEN  BEGIN   
  212.    DRAWTEXT(c>0,18-i,'*光头阳线 -今日尾盘多方气盛 可能延续到明天                        '),colorwhite,ALIGN2;   
  213.    i:=i+3;end;   
  214. IF LOW=CLOSE AND HIGH<>LOW AND TJTS  THEN  BEGIN   
  215.    DRAWTEXT(c>0,18-i,'*赤脚阴线 -尾盘空方胜 注意延续次日                        '),colorwhite,ALIGN2;   
  216.    i:=i+3;end;   
  217. IF CLOSE=OPEN AND  HIGH<>close and low<>close and HIGH/LOW > 1.03 AND TJTS  THEN  BEGIN   
  218.    DRAWTEXT(c>0,18-i,'*长十字 -多空激争 前途未明                        '),colorwhite,ALIGN2;   
  219.    i:=i+3;end;   
  220. IF CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH AND TJTS  THEN  BEGIN   
  221.    DRAWTEXT(c>0,18-i,'*垂死十字 -在顶部时重要 表强力多头开始疲软                        '),colorwhite,ALIGN2;   
  222.    i:=i+3;end;   
  223. IF ref(open,1)<>ref(close,1) and REF(CLOSE,2)/REF(OPEN,2) > 1.03 AND REF(OPEN,1) > REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2) AND TJTS  THEN  BEGIN   
  224.    DRAWTEXT(c>0,18-i,'*黄昏之星 -空方势盛 反转信号 跳空成弃婴                        '),colorwhite,ALIGN2;{ i:=i+1;  END}   
  225.    DRAWBMP(c>0,18-j,'30'),ALIGN2;i:=i+3;j:=j+6;end;   
  226. IF ref(open,1)<>ref(close,1) and REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2) AND TJTS  THEN  BEGIN   
  227.    DRAWTEXT(c>0,18-i,'*晨星 -多方势盛 变盘信号                        '),colorwhite,ALIGN2;   
  228.    DRAWBMP(c>0,18-j,'13'),ALIGN2;i:=i+3;j:=j+6;end;   
  229. IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) AND TJTS  THEN  BEGIN   
  230.    DRAWTEXT(c>0,18-i,'*倒转槌头 -高位抛压 低位多空争执                        '),colorwhite,ALIGN2;   
  231.    DRAWBMP(c>0,18-j,'19'),ALIGN2;i:=i+3;j:=j+6;end;   
  232. IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) AND TJTS  THEN  BEGIN   
  233.    DRAWTEXT(c>0,18-i,'*槌头 -下影线有多头意义 在下降趋势之后看涨 注意反弹卖压                        '),colorwhite,ALIGN2;   
  234.    DRAWBMP(c>0,18-j,'31'),ALIGN2;i:=i+3;j:=j+6;end;   
  235. IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) AND TJTS  THEN  BEGIN   
  236.    DRAWTEXT(c>0,18-i,'*吊颈线 -高档看跌                        '),colorwhite,ALIGN2;   
  237.    DRAWBMP(c>0,18-j,'12'),ALIGN2;i:=i+3;j:=j+6;end;   
  238. IF REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1) AND TJTS  THEN  BEGIN   
  239.    DRAWTEXT(c>0,18-i,'*曙光 -与乌云盖顶相反 行情将演化为V型反转或止跌横盘趋势                        '),colorwhite,ALIGN2;   
  240.    DRAWBMP(c>0,18-j,'35'),ALIGN2;i:=i+3;j:=j+6;end;   
  241. IF ((REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1)) OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1))) AND TJTS  THEN  BEGIN   
  242.    DRAWTEXT(c>0,18-i,'*穿头破脚 -若第一根K为阴(阳) 表强劲上涨(下跌)力量                        '),colorwhite,ALIGN2;   
  243.    DRAWBMP(c>0,18-j,'18'),ALIGN2;i:=i+3;j:=j+6;end;   
  244. IF ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND MAX(CLOSE,OPEN) < MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN) > MIN(REF(CLOSE,1),REF(OPEN,1)) AND TJTS  THEN  BEGIN   
  245.    DRAWTEXT(c>0,18-i,'*身怀六甲 -阴(阳)怀阳(阴)怪异的走势显示该股行情可能转向 若量由大转缩更明                        '),colorwhite,ALIGN2;   
  246.    DRAWBMP(c>0,18-j,'16'),ALIGN2;i:=i+3;j:=j+6;end;   
  247. IF ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1) > 0.04 AND CLOSE=OPEN AND CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1)) AND TJTS  THEN  BEGIN   
  248.    DRAWTEXT(c>0,18-i,'*十字胎 -似身怀六甲 转向可能性更大 量缩观望为宜                        '),colorwhite,ALIGN2;   
  249.    DRAWBMP(c>0,18-j,'2'),ALIGN2;i:=i+3;j:=j+6;end;   
  250. IF REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1) AND TJTS  THEN  BEGIN   
  251.    DRAWTEXT(c>0,18-i,'*三只乌鸦 -强烈转空趋势 三黑K价越深量越大越易下跌                        '),colorwhite,ALIGN2;   
  252.    DRAWBMP(c>0,18-j,'5'),ALIGN2;i:=i+3;j:=j+6;end;   
  253. IF REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1) AND TJTS  THEN  BEGIN   
  254.    DRAWTEXT(c>0,18-i,'*三白兵 -多方气盛 在底部见底反弹可能                        '),colorwhite,ALIGN2;   
  255.    DRAWBMP(c>0,18-j,'3'),ALIGN2;i:=i+3;j:=j+6;end;   
  256. IF ((REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002) OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)) AND TJTS  THEN  BEGIN   
  257.    DRAWTEXT(c>0,18-i,'*友好反攻 -阴(阳)线结合极线 多方跳低(高)后反弹 有企稳迹象                        '),colorwhite,ALIGN2;   
  258.    DRAWBMP(c>0,18-j,'10'),ALIGN2;i:=i+3;j:=j+6;end;   
  259. IF REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4) AND TJTS  THEN  BEGIN   
  260.    DRAWTEXT(c>0,18-i,'*上升三部曲 -空方卖压被吸纳 趋势易顺势走涨                        '),colorwhite,ALIGN2;   
  261.    DRAWBMP(c>0,18-j,'7'),ALIGN2;i:=i+3;j:=j+6;end;   
  262. IF REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,4) AND TJTS  THEN  BEGIN   
  263.    DRAWTEXT(c>0,18-i,'*下跌三部曲 -多方弱势不堪一击 趋势易顺势走跌                        '),colorwhite,ALIGN2;   
  264.    DRAWBMP(c>0,18-j,'6'),ALIGN2;i:=i+3;j:=j+6;end;   
  265. IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 AND TJTS  THEN  BEGIN   
  266.    DRAWTEXT(c>0,18-i,'*分离 -两日开盘相同 一阴一阳 变盘前彻底整理                        '),colorwhite,ALIGN2;   
  267.    DRAWBMP(c>0,18-j,'9'),ALIGN2;i:=i+3;j:=j+6;end;   
  268. IF REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100  AND REF(OPEN,1)>=REF(CLOSE,1) AND (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100 AND TJTS  THEN  BEGIN   
  269.    DRAWTEXT(c>0,18-i,'*二阳夹一阴  -必须从后续的走势来研判                        '),colorwhite,ALIGN2;   
  270.    DRAWBMP(c>0,18-j,'1'),ALIGN2;i:=i+3;j:=j+6;end;   
  271. IF REF(CLOSE,2)/REF(OPEN,2) < 0.95 AND REF(OPEN,1) < REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1)AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2) AND TJTS  THEN  BEGIN   
  272.    DRAWTEXT(c>0,18-i,'*早晨十字 -同晨星 从看空平衡到看涨 转强 左右跳空曰弃婴                        '),colorwhite,ALIGN2;   
  273.    DRAWBMP(c>0,18-j,'23'),ALIGN2;i:=i+3;j:=j+6;end;   
  274. IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) AND TJTS  THEN  BEGIN   
  275.    DRAWTEXT(c>0,18-i,'*射击之星 -如伴大量 上遇阻力 有短期见顶可能 转疲                        '),colorwhite,ALIGN2;   
  276.    DRAWBMP(c>0,18-j,'20'),ALIGN2;i:=i+3;j:=j+6;end;   
  277. IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) AND TJTS  THEN  BEGIN   
  278.    DRAWTEXT(c>0,18-i,'*阴线吞噬 -黑包红 向空反转                        '),colorwhite,ALIGN2;   
  279.    DRAWBMP(c>0,18-j,'15'),ALIGN2;i:=i+3;j:=j+6;end;   
  280. IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.5 AND c-o<0 AND c>ref(o,1) AND c<(REF(CLOSE,1)+REF(OPEN,1))/2 AND o>ref(c,1)) AND TJTS  THEN  BEGIN   
  281.    DRAWTEXT(c>0,18-i,'*乌云罩顶 -上涨遇重大阻力 空头聚力                        '),colorwhite,ALIGN2;   
  282.    DRAWBMP(c>0,18-j,'21'),ALIGN2;i:=i+3;j:=j+6;end;   
  283. IF (ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND ABS(ref(c,2)-ref(o,2))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)>0 AND c-o<0 AND ref(o,1) >ref(c,2) AND o<ref(o,1) AND c<ref(c,2) AND c>ref(o,2)) OR (ref(c,2)-ref(o,2)>0 AND (ABS(ref(c,2)-ref(o,2)))/(ABS(ref(c,3)-ref(o,3)))>2.4 AND ABS(c-o)>3 AND (ABS(ref(c,2)-ref(o,2)))>(ABS(ref(c,1)-ref(o,1))) AND ref(c,1)-ref(o,1)<0 AND c-o<0 AND ref(c,1) >ref(c,2)  AND c<ref(c,2) AND c>ref(o,2) AND o<ref(c,1)) AND TJTS  THEN  BEGIN   
  284.    DRAWTEXT(c>0,18-i,'*夜星 -从看多平衡到看空 转弱 转空                        '),colorwhite,ALIGN2;   
  285.    DRAWBMP(c>0,18-j,'17'),ALIGN2;i:=i+3;j:=j+6;end;   
  286. IF (ref(c,1)-ref(o,1)>0 AND (ABS(ref(c,1)-ref(o,1)))/(ABS(ref(c,2)-ref(o,2)))>2.4 AND c-o<0 AND c>ref(o,1) AND ref(c,1)-o>2) AND TJTS  THEN  BEGIN   
  287.    DRAWTEXT(c>0,18-i,'*空头孕育线 --阳育阴 看空                        '),colorwhite,ALIGN2;   
  288.    DRAWBMP(c>0,18-j,'28'),ALIGN2;i:=i+3;j:=j+6;end;   
  289. IF (ref(c,1)-ref(o,1)<0 AND c-o<0 AND c>ref(c,1) AND o<ref(o,1) AND o-c <6) AND TJTS  THEN  BEGIN   
  290.    DRAWTEXT(c>0,18-i,'*空头孕育线 -阴育阴 看空                        '),colorwhite,ALIGN2;   
  291.    DRAWBMP(c>0,18-j,'26'),ALIGN2;i:=i+3;j:=j+6;end;   
  292. IF ref(c,1)<ref(o,1) AND c-o>0 AND c>ref(H,1) AND o<ref(L,1) and ref(O,1)>ref(max(O,C),2) and ref(C,1)>ref(min(O,C),2) and ref(max(O,C),2)>ref(max(O,C),3) AND TJTS  THEN  BEGIN   
  293.    DRAWTEXT(c>0,18-i,'*双人殉情  在上升趋势中最后之空头吞噬 也就是所谓的不见长红不回头                        '),colorwhite,ALIGN2;   
  294.    DRAWBMP(c>0,18-j,'37'),ALIGN2;i:=i+3;j:=j+6;end;   
  295. IF (ref(high,2) -ref(o,2))/ref(high,2)<=0.0003 AND (c-low)/o<=0.0003 AND ref(c,2)<ref(o,2) AND ref(c,2)>ref(o,1) AND ref(c,1)>o AND ref(c,1)<ref(o,1) AND ref(high,1)-ref(o,1)>0 AND ref(low,1)-ref(c,1)<0 AND high-o>0 AND ref(c,2)-ref(low,2)>0 AND TJTS  THEN  BEGIN   
  296.    DRAWTEXT(c>0,18-i,'*三胎鸦 -多头走势被扭转 黑K价愈深量愈大 跳空愈大 反转信号愈强                        '),colorwhite,ALIGN2;   
  297.    DRAWBMP(c>0,18-j,'4'),ALIGN2;i:=i+3;j:=j+6;end;   
  298. IF (c-o<0 AND ref(c,1)-ref(o,1)<0 AND c<ref(c,1)) AND TJTS  THEN  BEGIN   
  299.    DRAWTEXT(c>0,18-i,'*最后吞噬 -在下降趋势中 为一黑一红组合 多头吞噬 在上升趋势中 为一红一黑组合 空头吞噬                        '),colorwhite,ALIGN2;   
  300.    DRAWBMP(c>0,18-j,'27'),ALIGN2;i:=i+3;j:=j+6;end;   
  301. IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c<ref(o,1) AND o>ref(c,1)) AND TJTS  THEN  BEGIN   
  302.    DRAWTEXT(c>0,18-i,'*多头孕育线 -阴育阳 多头反转可能                        '),colorwhite,ALIGN2;   
  303.    DRAWBMP(c>0,18-j,'11'),ALIGN2;i:=i+3;j:=j+6;end;   
  304. IF REF(CLOSE,4)/REF(OPEN,4)>1.02 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND REF(close,4)<=REF(close,3) AND REF(high,2)<REF(high,3) AND REF(LOW,2)>=REF(open,4) AND REF(high,1)<REF(close,4) AND REF(low,1)>REF(open,4) AND CLOSE/OPEN>1.01 AND open>=REF(open,1) AND CLOSE>=REF(HIGH,3) AND TJTS  THEN  BEGIN   
  305.    DRAWTEXT(c>0,18-i,'*连续型态之执垫 -比上升三法更具多头意义                        '),colorwhite,ALIGN2;   
  306.    DRAWBMP(c>0,18-j,'22'),ALIGN2;i:=i+3;j:=j+6;end;   
  307. IF REF(CLOSE,1)-REF(OPEN,1)<0 AND CLOSE-OPEN>0 AND OPEN-REF(CLOSE,1)<0 AND CLOSE<REF(OPEN,1) AND CLOSE>REF(CLOSE,1) AND CLOSE>(REF(CLOSE,1)+REF(OPEN,1))/2 AND TJTS  THEN  BEGIN   
  308.    DRAWTEXT(c>0,18-i,'*贯穿线 -多头力道的反扑或是空单回补力道 长黑之后开低收在前天1/2之上 多头反转信号                        '),colorwhite,ALIGN2;   
  309.    DRAWBMP(c>0,18-j,'25'),ALIGN2;i:=i+3;j:=j+6;end;   
  310. IF ref(O,1)/ref(C,1) > 1.05 AND ref(H,1)/ref(L,1) < ref(O,1)/ref(C,1)+0.018 and C>O and O<ref(L,1) and C=ref(L,1) AND TJTS  THEN  BEGIN   
  311.    DRAWTEXT(c>0,18-i,'*颈上线 -下降趋势 若第二天大量 维持原趋势可能大增                        '),colorwhite,ALIGN2;   
  312.    DRAWBMP(c>0,18-j,'33'),ALIGN2;i:=i+3;j:=j+6;end;   
  313. IF ((O>C and open>MA(C,5) and Open>MA(C,10) and O>MA(C,20) and Close<MA(C,5) and Close<MA(C,10) and Close<MA(C,20)) OR (O<C and open<MA(C,5) and Open<MA(C,10) and O<MA(C,20) and Close>MA(C,5) and Close>MA(C,10) and Close>MA(C,20))) AND TJTS  THEN  BEGIN   
  314.    DRAWTEXT(c>0,18-i,'*断头铡刀(出水芙蓉) -一根大阴(阳)线切断了三根均线 如果改变了其后均线的排列为空头(多头)排列 后势看空(多)                        '),colorwhite,ALIGN2;   
  315.    DRAWBMP(c>0,18-j,'36'),ALIGN2;i:=i+3;j:=j+6;end;   
  316. IF open<close and (ref(c,2)-ref(o,2)<0 AND (ref(c,1)-ref(o,1)>0 AND ref(c,1)<ref(o,2) AND ref(o,1)>ref(c,2) AND o>ref(o,2) AND c>ref(c,1))) AND TJTS  THEN  BEGIN   
  317.    DRAWTEXT(c>0,18-i,'*内三日翻红 -一二母子 二量缩 三量增翻红                        '),colorwhite,ALIGN2;   
  318.    DRAWBMP(c>0,18-j,'8'),ALIGN2;i:=i+3;j:=j+6;end;   
  319. IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) AND TJTS  THEN  BEGIN   
  320.    DRAWTEXT(c>0,18-i,'*多头阳线吞噬 -红包黑 反转趋势 配合量                        '),colorwhite,ALIGN2;   
  321.    DRAWBMP(c>0,18-j,'14'),ALIGN2;i:=i+3;j:=j+6;end;   
  322. 0,POINTDOT;   
  323. STICKLINE(C>=O,C,O,8,0),COLORRED;   
  324. STICKLINE(C>=O,H,L,0,0),COLORRED;   
  325. STICKLINE(C<=O,C,O,8,0),COLORGREEN;   
  326. STICKLINE(C<=O,H,L,0,0),COLORGREEN;   
  327.   
  328.   
  329. 552:   
  330.   
  331. 早晨之星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 AND CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);   
  332. 黄昏之星:=REF(CLOSE,2)/REF(OPEN,2)>1.03 AND REF(OPEN,1)>REF(CLOSE,2) AND ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.02 AND CLOSE/OPEN<0.97 AND CLOSE<REF(CLOSE,2);   
  333. 长十字:=CLOSE=OPEN AND HIGH/LOW >1.03;   
  334. 垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;   
  335. 早晨十字星:=REF(CLOSE,2)/REF(OPEN,2)<0.95 AND REF(OPEN,1)<REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND   
  336. CLOSE/OPEN>1.05 AND CLOSE>REF(CLOSE,2);   
  337. 黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND   
  338. CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);   
  339. 射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE>MA(CLOSE,5);   
  340. 倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE<MA(CLOSE,5);   
  341. 锤头:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE<MA(CLOSE,5);   
  342. 吊颈:=HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);   
  343. 穿头破脚:=(REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.96 AND CLOSE<REF(OPEN,1) AND OPEN>REF(CLOSE,1))   
  344. OR (REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.04 AND CLOSE>REF(OPEN,1) AND OPEN<REF(CLOSE,1));   
  345. 乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);   
  346. 曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);   
  347. 身怀六甲:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04 AND ABS(CLOSE-OPEN)/CLOSE<0.005 AND   
  348. MAX(CLOSE,OPEN)<MAX(REF(CLOSE,1),REF(OPEN,1)) AND MIN(CLOSE,OPEN)>MIN(REF(CLOSE,1),REF(OPEN,1));   
  349. 十字胎:=ABS(REF(CLOSE,1)-REF(OPEN,1))/REF(CLOSE,1)>0.04 AND CLOSE=OPEN AND   
  350. CLOSE < MAX(REF(CLOSE,1),REF(OPEN,1)) AND CLOSE > MIN(REF(CLOSE,1),REF(OPEN,1));   
  351. 平顶:=ABS(HIGH-REF(HIGH,1))/HIGH<0.001;   
  352. 平底:=(ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.001);   
  353. 大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW<CLOSE/OPEN+0.018;   
  354. 三个白武士:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND CLOSE>OPEN    
  355. AND REF(CLOSE,1)>REF(CLOSE,2) AND CLOSE>REF(CLOSE,1);   
  356. 双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;   
  357. 孕育线:=REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100  AND REF(OPEN,1)>=REF(CLOSE,1) AND    
  358. (REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<=2/100 AND REF(OPEN,1)<=REF(CLOSE,2) AND REF(CLOSE,1)>=REF(OPEN,2) AND C>=OPEN AND   
  359. (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(C,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;   
  360. 多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;   
  361. 出水芙蓉:=(OPEN<EMA(C,20) OR OPEN<EMA(C,40) OR OPEN<EMA(C,60)) AND (C>MAX(EMA(C,20),MAX(EMA(C,40),EMA(C,60))))   
  362. AND (V/MA(V,30)>1.2 AND C/REF(C,1)>1.049);   
  363. 上升三部曲:=REF(CLOSE,4)/REF(OPEN,4)>1.03 AND REF(CLOSE,3)<REF(OPEN,3) AND REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND   
  364. REF(LOW,4)<REF(LOW,3) AND REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND   
  365. REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN>1.03 AND CLOSE>REF(CLOSE,4);   
  366. 下跌三部曲:= REF(CLOSE,4)/REF(OPEN,4)<0.97 AND REF(CLOSE,3)>REF(OPEN,3) AND REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)>REF(OPEN,1) AND REF(LOW,4)<REF(LOW,3) AND   
  367. REF(LOW,4)<REF(LOW,2) AND REF(LOW,4)<REF(LOW,1) AND REF(HIGH,4)>REF(HIGH,3) AND REF(HIGH,4)>REF(HIGH,2) AND REF(HIGH,4)>REF(HIGH,1) AND CLOSE/OPEN<0.97 AND   
  368. CLOSE<REF(CLOSE,4);   
  369. 跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);   
  370. 三只乌鸦:=REF(CLOSE,2)<REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND REF(CLOSE,1)<REF(CLOSE,2) AND CLOSE<REF(CLOSE,1);   
  371. 光脚阴线:=LOW=CLOSE AND HIGH<>LOW;   
  372. 光头阳线:=HIGH=CLOSE AND HIGH<>LOW;   
  373. 分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;   
  374. 长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;   
  375. 长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;   
  376. 十字星:=CLOSE=OPEN AND HIGH<>LOW;   
  377. 大阴烛:=OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018;   
  378. 好友反攻:=(REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002)    
  379. OR (REF(CLOSE,1)>REF(OPEN,1) AND CLOSE<OPEN AND ABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002);   
  380. 倾盆大雨:=REF(C,1)/REF(O,1)>=1.03 AND O<REF(C,1) AND O>REF(O,1) AND C<REF(O,1);   
  381. MSTATUS:=BARSTATUS=2;   
  382. DRAWTEXTREL(0,0,'【K线形态分析】');   
  383. t:=1;   
  384. IF MSTATUS and 倾盆大雨=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★倾盆大雨,见顶信号;');t:=t+1; end;   
  385. IF MSTATUS and 大阴烛=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★大阴烛,后市向淡,发生逆转;');t:=t+1; end;   
  386. IF MSTATUS and 好友反攻=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★好友反攻,底部反转;');t:=t+1; end;   
  387. IF MSTATUS and 跳空缺口=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★跳空缺口,注意向上还是向下跳空;');t:=t+1; end;   
  388. IF MSTATUS and 光脚阴线=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★光脚阴线,下跌信号;');t:=t+1; end;   
  389. IF MSTATUS and 光头阳线=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★光头阳线,后市看涨;');t:=t+1; end;   
  390. IF MSTATUS and 三只乌鸦=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★三只乌鸦,可能见顶回落;');t:=t+1; end;   
  391. IF MSTATUS and 分离=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★分离,注意看涨分离和看跌分离;');t:=t+1; end;   
  392. IF MSTATUS and 长下影=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★长下影,持续下跌后出现,有可能止跌回升;在升势末期出现,须多加留意;');t:=t+1; end;   
  393. IF MSTATUS and 长上影=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★长上影,表明行情上档压力沉重,升势受阻;');t:=t+1; end;   
  394. IF MSTATUS and 下跌三部曲=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★下跌三部曲,下跌信号;');t:=t+1; end;   
  395. IF MSTATUS and 上升三部曲=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★上升三部曲,上涨信号;');t:=t+1; end;   
  396. IF MSTATUS and 早晨之星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★早晨之星,见底回升;');t:=t+1; end;   
  397. IF MSTATUS and 黄昏之星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★黄昏之星,见顶回落;');t:=t+1; end;   
  398. IF MSTATUS and 十字星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★十字星,有转向意味,注意股价位置在顶部还是底部;');t:=t+1; end;   
  399. IF MSTATUS and 长十字=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★长十字,注意在顶部还是底部;');t:=t+1; end;   
  400. IF MSTATUS and 垂死十字=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★垂死十字,下跌信号;');t:=t+1; end;   
  401. IF MSTATUS and 早晨十字星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★早晨十字星,上涨信号,见底回升;');t:=t+1; end;   
  402. IF MSTATUS and 黄昏十字星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★黄昏十字星,下跌信号,见顶回落;');t:=t+1; end;   
  403. IF MSTATUS and 射击之星=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★射击之星,可能见顶回落,可靠性低;');t:=t+1; end;   
  404. IF MSTATUS and 倒转锤头=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★倒转锤头,可能见底回升;');t:=t+1; end;   
  405. IF MSTATUS and 锤头=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★锤头,可能见底回升,如有量配合,信号强烈;');t:=t+1; end;   
  406. IF MSTATUS and 吊颈=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★吊颈,上升行情中见顶回落,顶部出现,见顶信号;');t:=t+1; end;   
  407. IF MSTATUS and 平顶=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★平顶,温和的反转;');t:=t+1; end;   
  408. IF MSTATUS and 穿头破脚=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★穿头破脚,顶部出现,见顶回落信号;');t:=t+1; end;   
  409. IF MSTATUS and 乌云盖顶=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★乌云盖顶,见顶回落信号;');t:=t+1; end;   
  410. IF MSTATUS and 曙光初现=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★曙光初现,后市见底回升;');t:=t+1; end;   
  411. IF MSTATUS and 身怀六甲=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★身怀六甲,出现在底部,是见底回升信号;出现在顶部,是见顶回落信号;');t:=t+1; end;   
  412. IF MSTATUS and 十字胎=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★十字胎;');t:=t+1; end;   
  413. IF MSTATUS and 平底=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★平底,温和的反转;');t:=t+1; end;   
  414. IF MSTATUS and 大阳烛=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★大阳烛,看涨;');t:=t+1; end;   
  415. IF MSTATUS and 三个白武士=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★三个白武士,每日收盘价上移,表示可能见底回升;');t:=t+1; end;   
  416. IF MSTATUS and 双飞乌鸦=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★双飞乌鸦,行情将见顶回落;');t:=t+1; end;   
  417. IF MSTATUS and 孕育线=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★孕育线,注意股价位置;');t:=t+1; end;   
  418. IF MSTATUS and 多方炮=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★多方炮,在底部出现有上涨意味,在中间出现有可能是上涨中继,顶部出现是复合见顶信号;');t:=t+1; end;   
  419. IF MSTATUS and 出水芙蓉=1 THEN BEGIN DRAWTEXTREL(0,50+t*120,'★出水芙蓉,见底回升;');t:=t+1; end;   
  420. STICKLINE(C>=O,C,O,8,0),COLORRED;   
  421. STICKLINE(C>=O,H,L,0,0),COLORRED;   
  422. STICKLINE(C<=O,C,O,8,0),COLORGREEN;   
  423. STICKLINE(C<=O,H,L,0,0),COLORGREEN;   

2010最新K线解盘



网站搜索：  



Copyright © 2009-2010 gszb.com ™,All Rights Reserved.　
公式网-www.gszx.com.cn-股票指标公式网