18,POINTDOT; TJTS:=BARSTATUS=2; i:=0; j:=0; IF close=open AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*K线不是万能量能分析亦不可缺 '),colorwhite,ALIGN2; i:=i+3;end; IF OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*大阴烛 -今日空方有绝对优势 '),colorwhite,ALIGN2; i:=i+3;end; IF ABS(HIGH-REF(HIGH,1))/HIGH<0.001 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*平顶 -该高点有一定阻力 '),colorwhite,ALIGN2; i:=i+3;end; 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 DRAWTEXT(c>0,18-i,'*平底 -该低点有一定支撑 '),colorwhite,ALIGN2; i:=i+3;end; IF CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*大阳烛 -上升行情中意味行情剧烈向上攀升 下跌行情中意味行情剧烈向上反弹 '),colorwhite,ALIGN2; i:=i+3;end; IF (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*跳空缺口 -当日未补 有与跳空同向进行欲望强烈 三日为回补观察期 '),colorwhite,ALIGN2; i:=i+3;end; IF REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*双飞乌鸦 -多头力竭 行情走软 '),colorwhite,ALIGN2; i:=i+3;end; IF CLOSE=OPEN AND HIGH<>close and low<>close and high <>close AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*十字星 -警告信号 原趋势停顿或反转 依上下影线长度判后市 '),colorwhite,ALIGN2; i:=i+3;end; IF (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*长下影 -下档支撑强或空方试探进攻 '),colorwhite,ALIGN2; i:=i+3;end; IF (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*长上影 -上档阻力大或多方试探进攻 '),colorwhite,ALIGN2; i:=i+3;end; IF HIGH=CLOSE AND HIGH<>LOW AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*光头阳线 -今日尾盘多方气盛 可能延续到明天 '),colorwhite,ALIGN2; i:=i+3;end; IF LOW=CLOSE AND HIGH<>LOW AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*赤脚阴线 -尾盘空方胜 注意延续次日 '),colorwhite,ALIGN2; i:=i+3;end; IF CLOSE=OPEN AND HIGH<>close and low<>close and HIGH/LOW > 1.03 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*长十字 -多空激争 前途未明 '),colorwhite,ALIGN2; i:=i+3;end; IF CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*垂死十字 -在顶部时重要 表强力多头开始疲软 '),colorwhite,ALIGN2; i:=i+3;end; 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 DRAWTEXT(c>0,18-i,'*黄昏之星 -空方势盛 反转信号 跳空成弃婴 '),colorwhite,ALIGN2;{ i:=i+1; END} DRAWBMP(c>0,18-j,'30'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*晨星 -多方势盛 变盘信号 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'13'),ALIGN2;i:=i+3;j:=j+6;end; IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*倒转槌头 -高位抛压 低位多空争执 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'19'),ALIGN2;i:=i+3;j:=j+6;end; IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*槌头 -下影线有多头意义 在下降趋势之后看涨 注意反弹卖压 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'31'),ALIGN2;i:=i+3;j:=j+6;end; IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*吊颈线 -高档看跌 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'12'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*曙光 -与乌云盖顶相反 行情将演化为V型反转或止跌横盘趋势 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'35'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*穿头破脚 -若第一根K为阴(阳) 表强劲上涨(下跌)力量 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'18'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*身怀六甲 -阴(阳)怀阳(阴)怪异的走势显示该股行情可能转向 若量由大转缩更明 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'16'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*十字胎 -似身怀六甲 转向可能性更大 量缩观望为宜 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'2'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*三只乌鸦 -强烈转空趋势 三黑K价越深量越大越易下跌 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'5'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*三白兵 -多方气盛 在底部见底反弹可能 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'3'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*好友反攻 -阴(阳)线结合极线 多方跳低(高)后反弹 有企稳迹象 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'10'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*上升三部曲 -空方卖压被吸纳 趋势易顺势走涨 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'7'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*下跌三部曲 -多方弱势不堪一击 趋势易顺势走跌 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'6'),ALIGN2;i:=i+3;j:=j+6;end; IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*分离 -两日开盘相同 一阴一阳 变盘前彻底整理 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'9'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*二阳夹一阴 -必须从后续的走势来研判 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'1'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*早晨十字 -同晨星 从看空平衡到看涨 转强 左右跳空曰弃婴 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'23'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*射击之星 -如伴大量 上遇阻力 有短期见顶可能 转疲 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'20'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*阴线吞噬 -黑包红 向空反转 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'15'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*乌云罩顶 -上涨遇重大阻力 空头聚力 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'21'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*夜星 -从看多平衡到看空 转弱 转空 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'17'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*空头孕育线 --阳育阴 看空 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'28'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*空头孕育线 -阴育阴 看空 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'26'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*双人殉情 在上升趋势中最后之空头吞噬 也就是所谓的不见长红不回头 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'37'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*三胎鸦 -多头走势被扭转 黑K价愈深量愈大 跳空愈大 反转信号愈强 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'4'),ALIGN2;i:=i+3;j:=j+6;end; IF (c-o<0 AND ref(c,1)-ref(o,1)<0 AND c<ref(c,1)) AND TJTS THEN BEGIN DRAWTEXT(c>0,18-i,'*最后吞噬 -在下降趋势中 为一黑一红组合 多头吞噬 在上升趋势中 为一红一黑组合 空头吞噬 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'27'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*多头孕育线 -阴育阳 多头反转可能 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'11'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*连续型态之执垫 -比上升三法更具多头意义 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'22'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*贯穿线 -多头力道的反扑或是空单回补力道 长黑之后开低收在前天1/2之上 多头反转信号 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'25'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*颈上线 -下降趋势 若第二天大量 维持原趋势可能大增 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'33'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*断头铡刀(出水芙蓉) -一根大阴(阳)线切断了三根均线 如果改变了其后均线的排列为空头(多头)排列 后势看空(多) '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'36'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*内困三日翻红 -一二母子 二量缩 三量增翻红 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'8'),ALIGN2;i:=i+3;j:=j+6;end; 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 DRAWTEXT(c>0,18-i,'*多头阳线吞噬 -红包黑 反转趋势 配合量 '),colorwhite,ALIGN2; DRAWBMP(c>0,18-j,'14'),ALIGN2;i:=i+3;j:=j+6;end; 0,POINTDOT; {点击看本软件截图:58股票 公式网 http://www. 58gu. com 整理} |