将卫东K线主图中出现的“上白下红”K柱做成预警公式

INPUT:N1(5,0,999),N2(10,0,999),N3(20,0,999),N4(30,0,999),N5(60,0,999),N6(120,0,999),N日(8,1,20),K线(2,1,9);
MA5:MA(CLOSE,N1),PRECIS2;
MA10:MA(CLOSE,N2),PRECIS2;
MA20:MA(CLOSE,N3),PRECIS2;
MA30:MA(CLOSE,N4),PRECIS2;
MA60:MA(CLOSE,N5),PRECIS2;
MA120:MA(CLOSE,N6),PRECIS2;
连红:LAST(CLOSE>OPEN),PRECIS0,color0000FF,linethick0;
连绿:LAST(CLOSE<OPEN),PRECIS0,color00FF00,linethick0;
x9:FORCAST(c,9),Colorwhite,LINETHICK2;
llx:=llv(FORCAST(c,9),2);
PARTLINE(x9,x9=llx,rgb(255,205,0),x9<>llx,rgb(255,0,0)),linethick2;
{13}
STICKLINE(CLOSE>OPEN,OPEN,LOW,1,0 ),COLOR0022FF; {收盘价>开盘价，从开盘价到最低价用红色}
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,1 ,0 ),COLOR0022FF;{收盘价>开盘价，从收盘价到最高价用红色}
{16}
STICKLINE(CLOSE<=OPEN,CLOSE,LOW,1 ,0 ),Color00E100;{收盘价<=开盘价，从收盘价到最低价用绿色}
STICKLINE(CLOSE<=OPEN,OPEN,HIGH,1 ,0 ),Color00E100;{收盘价<=开盘价，从开盘价到最高价用绿色}
{19}
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,7.5,0 ),color003300;{收盘价<=开盘价，从收盘价到开盘价用绿色}
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,6,0 ),color005500;
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,5,0 ),color007700;
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,4,0 ),color009900;
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,2.5,0 ),color00bb00;
STICKLINE(CLOSE<=OPEN ,CLOSE ,OPEN,1,0 ),Color00E100;
{26}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7.5,0) ,COLOR000033;{收盘价>开盘价，从开盘价到收盘价用红色}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000088;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR0000BB;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.5,0) ,COLOR0000EE;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;
{33}
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
STICKLINE(var9Q,c,(o+c)/2,7.5,0),color000033;{符合上述条件，从收盘价到中间用红色}
STICKLINE(var9Q,c,(o+c)/2,6,0),color000066;
STICKLINE(var9Q,c,(o+c)/2,5,0),color000088;
STICKLINE(var9Q,c,(o+c)/2,4,0),color0000BB;
STICKLINE(var9Q,c,(o+c)/2,2.5,0),color0000EE;
STICKLINE(var9Q,c,(o+c)/2,1,0),color0000FF;
{41}
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
STICKLINE(varaQ,c,(o+c)/2,7.5,0),Color4D0099;{符合上述条件，从收盘价到中间用玫红色}
STICKLINE(varaQ,c,(o+c)/2,6,0),Color5F00BD;
STICKLINE(varaQ,c,(o+c)/2,5,0),Color6500CA;
STICKLINE(varaQ,c,(o+c)/2,4,0),Color7600EC;
STICKLINE(varaQ,c,(o+c)/2,2.5,0),Color9933FF;
STICKLINE(varaQ,c,(o+c)/2,1,0),ColorAD5BFF;
{49}
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) or ref(c,1)=llv(c,4) and c<ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
STICKLINE(varbQ,c,(o+c)/2,7.5,0),color333333;{符合上述条件，从收盘价到中间用银色}
STICKLINE(varbQ,c,(o+c)/2,6,0),color666666;
STICKLINE(varbQ,c,(o+c)/2,5,0),color888888;
STICKLINE(varbQ,c,(o+c)/2,4,0),colorBBBBBB;
STICKLINE(varbQ,c,(o+c)/2,2.5,0),colorEEEEEE;
STICKLINE(varbQ,c,(o+c)/2,1,0),colorffffff;
{57}
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
stickline(varcQ,o,(o+c)/2,7.5,0),COLOR8D0B00;{符合上述条件，从开盘价到中间用蓝色}
stickline(varcQ,o,(o+c)/2,6,0),COLORC70E00;
stickline(varcQ,o,(o+c)/2,5,0),COLORFA1C10;
stickline(varcQ,o,(o+c)/2,4,0),COLORFF6044;
stickline(varcQ,o,(o+c)/2,2.5,0),COLORF97C0D;
stickline(varcQ,o,(o+c)/2,1,0),COLORFBA960;
{65}
{昨天的收盘价=近4天的最高值，或者，今天的收盘价<前天的收盘价 或 前天的收盘价=近4天的最高值，或者，昨天的收盘价>3天前的收盘价 或 3天前的收盘价=近4天的最高值，
或者，昨天的收盘价>前天的收盘价，或者，前天的收盘价>=近4天的最高值，或者，今天的收盘价<昨天的收盘价}
vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
stickline(vardQ,o,(o+c)/2,7.5,0),color003300;{符合上述条件，从开盘价到中间用绿色}
stickline(vardQ,o,(o+c)/2,6,0),color005500;
stickline(vardQ,o,(o+c)/2,5,0),color007700;
stickline(vardQ,o,(o+c)/2,4,0),color009900;
stickline(vardQ,o,(o+c)/2,2.5,0),color00bb00;
stickline(vardQ,o,(o+c)/2,1,0),Color00E100;
{75}
{十字光标提示}
a:="LTFunc6@FORLT2";
s1:="LTFunc6@LT_S1";
hs:="LTFunc6@LT_HS";
ls:="LTFunc6@LT_LS";
p1:="LTFunc6@LT_P1";
upp:="LTFunc6@LT_UPP";
udd:="LTFunc6@LT_UDD";
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
d1:=ema(abs("ddx.ddx"),60);
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10);
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点/n','若明日收盘价>'+numtostrn(upp,2)+',出现B点/n');{1.BS点:}
tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价>'+numtostrn(hs,2)+'短线买入机会');{2.短线:}
tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));{1.BS点:}
tr3:=ifs(s1=0,'向下,','向上,');{2.短线:}
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';{3.能量级别:}
{94}
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
{97}
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
{100}
RSV:=(CLOSE-LLV(LOW,N日))/(HHV(HIGH,N日)-LLV(LOW,N日))*100;
K:SMA(RSV,K线,1),LINETHICK0;
D:SMA(K,K线,1),LINETHICK0;
J:3*K-2*D,LINETHICK0;
{105}
买入:=IF((J-D),CROSS(J, K),0);
卖出:=IF((J-D),CROSS(D, K),0);
DRAWTEXT(买入>0,L-0.25,'买'),LINETHICK4,ALIGN1,COLOR00FFFF;
DRAWTEXT(卖出>0,H+0.45,'卖'),LINETHICK4,ALIGN1,COLOR33FF33;
{110}
bs:='<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'买卖点决策系统提示“B.S”/n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'1.BS点:'+tr2+','+tr0+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'2.短线:'+tr3+tr1+'/n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+tr4+'/n'+'<*t=006000*><*c=FFFFFF*><*p=95*>'+'卫东KDJ提示“买”“卖”，仅供对比参考';
drawflagtext(1,fb,bs);

BIAS:=(C-MA20)/MA20*100;
SHOPEN:=OPEN;
SHHIGH:=HIGH;
SHLOW:=LOW;
SHCLOSE:=CLOSE;
SHAMOUNT:=AMOUNT;
SHVOL:=VOL;
J12:=(HIGH - ((HIGH - LOW) / 3));
J23:=(LOW + ((HIGH - LOW) / 3));
t1:=(((IF((CLOSE = OPEN),1,0) + IF((CLOSE >= J12),1,0)) + IF((CLOSE <= J23),1,0)) > 1);
t2:=((((CLOSE > J23) AND (CLOSE < J12)) AND (OPEN > J23)) AND (OPEN < J12));
t3:=((CLOSE >= J12) AND (OPEN <= J23));
t4:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE > J12));
t5:=(((OPEN <= J23) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t6:=((CLOSE <= J23) AND (OPEN >= J12));
t7:=(((OPEN <= J12) AND (OPEN >= J23)) AND (CLOSE < J23));
t8:=(((OPEN >= J12) AND (CLOSE <= J12)) AND (CLOSE >= J23));
t9:=(((SHAMOUNT / SHVOL) / 100) > REF(HIGH,1));
t10:=(((SHAMOUNT / SHVOL) / 100) < REF(LOW,1));
if DISPSTATUS=2 then begin;
var1000:='.';
if t1>0 then var1000:=var1000+'☆极端行情,在未来的几日内有85%的机会变更方向。';
if t2>0 then var1000:=var1000+'☆中性行情,多空双方都未能取得当日行情主动性的控制权';
if t3>0 then var1000:=var1000+'☆爬升行情,整个交易期间都有买方主导。';
if t4>0 then var1000:=var1000+'☆爬升行情,信息较少,但收盘期间是买方主导,其他未知。';
if t5>0 then var1000:=var1000+'☆爬升行情,买方把收盘价拉升到开盘价之上,卖方却也主导一段行情,但不知道是谁主导最后的行情。';
if t6>0 then var1000:=var1000+'☆漂流行情,整个交易期间都有卖方主导。';
if t7>0 then var1000:=var1000+'☆漂流行情,信息最少,但收盘期间是卖方主导,其他未知。';
if t8>0 then var1000:=var1000+'☆漂流行情,卖方把收盘价压至到开盘价之下,买方却也主导一段行情,但不知道是谁主导最后的行情。';
if t9>0 then var1000:=var1000+'☆上涨趋势。';
if t10>0 then var1000:=var1000+'☆下跌趋势。';
if MA20>=MA60 AND CROSS(MA30,MA60) then var1000:=var1000+'☆形成季托，待股价回落到20天均线或40天均线时介入，20天均价为:'+MA20+' 。';
if BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 then var1000:=var1000+'☆短线涨幅过大，有整理要求。';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA30,MA60) AND C>O AND C>REF(C,1) then var1000:=var1000+'☆芙蓉出水，趋势向好。';
if BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 then var1000:=var1000+'☆股价严重超跌，有爆发要求。';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then var1000:=var1000+'☆连收五阴，超跌有反弹要求。';
if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then var1000:=var1000+'☆平顶，-该高点有一定阻力。';
if ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 then var1000:=var1000+'☆平底，该低点有一定支撑。';
if CLOSE=OPEN AND HIGH<>close and low<>close and HIGH/LOW > 1.03 then var1000:=var1000+'☆ 长十字，多空激争 前途未明。';
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then var1000:=var1000+'☆ 大阴烛，今日空方有绝对优势。';
if REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 then var1000:=var1000+'☆双飞乌鸦，多头力竭，行情走软。';
if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then var1000:=var1000+'☆长下影，下档支撑强或空方试探进攻。';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then var1000:=var1000+'☆长上影，上档阻力大或多方试探进攻。';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then var1000:=var1000+'☆垂死十字，在顶部时重要 表强力多头开始疲软。';
if HIGH=CLOSE AND HIGH<>LOW then var1000:=var1000+'☆光头阳线，今日尾盘多方气盛，行情可能延续到明天。';
if (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) then var1000:=var1000+'☆跳空缺口，当日未补，有与跳空同向进行，上涨欲望强烈，三日内为回补观察期。';
if LOW=CLOSE AND HIGH<>LOW then var1000:=var1000+'☆赤脚阴线，尾盘空方胜。 注意股价下跌延续至次日。';
if CLOSE=OPEN AND HIGH<>close and low<>close and high <>close then var1000:=var1000+'☆十字星，警告信号。原趋势停顿或反转，依上下影线长度判后市。';
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then var1000:=var1000+'☆大阳烛，上升行情中意味行情剧烈向上攀升；下跌行情中意味行情剧烈向上反弹。';
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) THEN
var1000:=var1000+'☆早晨十字，如同晨星。 从看空平衡到看涨转强；左右跳空曰弃婴 。';
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) THEN var1000:=var1000+'☆上升三部曲，空方卖压被吸纳。 趋势易顺势走涨。';
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 THEN var1000:=var1000+'☆三胎乌鸦，多头走势被扭转。黑K价愈深量愈大，跳空愈大，反转信号愈强。';
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)) THEN
var1000:=var1000+'☆友好反攻，阴(阳)线结合，极线多方跳低(高)后反弹有企稳迹象 。';
IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
var1000:=var1000+'☆射击之星，如伴大量上遇阻力，有短期见顶可能，股价转疲。';
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 THEN
var1000:=var1000+'☆贯穿线，多头力道的反扑或是空单回补力道。长黑之后开低收在前天1/2之上，为多头反转信号。';
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)) THEN
var1000:=var1000+'☆身怀六甲，阴(阳)怀阳(阴)，怪异的走势，显示该股行情可能转向。 若量由大转缩，下跌趋势更明确。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) THEN
var1000:=var1000+'☆多头阳线吞噬，红包黑。反转趋势需量能配合量。 ';
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))) THEN
var1000:=var1000+'☆夜星，从看多平衡到看空转弱，转空。 ';
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)) THEN
var1000:=var1000+'☆十字胎，似身怀六甲，转向可能性更大，量缩观望为宜 。';
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) THEN
var1000:=var1000+'☆ 双人殉情 ，在上升趋势中最后之空头吞噬，也就是所谓的不见长红不回头。 ';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
var1000:=var1000+'☆阴线吞噬，黑包红，向空反转。 ';
IF REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1) THEN var1000:=var1000+'☆曙光，与乌云盖顶相反，行情将演化为V型反转或止跌横盘趋势 。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c<ref(o,1) AND o>ref(c,1)) THEN
var1000:=var1000+'☆多头孕育线，阴育阳。多头反转可能。';
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) THEN
var1000:=var1000+'☆空头孕育线，阳育阴。看空 。';
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) THEN
var1000:=var1000+'☆空头孕育线，阴育阴。看空。';
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) THEN
var1000:=var1000+'☆三只乌鸦，强烈转空趋势。三黑K价越深量越大越易下跌。';
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) THEN
var1000:=var1000+'☆下跌三部曲，多方弱势不堪一击，趋势易顺势走跌。';
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) THEN
var1000:=var1000+'☆连续型态之执垫，比上升三法更具多头意义。';
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) THEN
var1000:=var1000+'☆颈上线，下降趋势。若第二天大量，维持原趋势可能星大增。';
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)) THEN
var1000:=var1000+'☆乌云罩顶，上涨遇重大阻力。空头聚力。';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
var1000:=var1000+'☆最后吞噬，在下降趋势中为一黑一红组合；多头吞噬，在上升趋势中为一红一黑组合，空头吞噬。';
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) THEN
var1000:=var1000+'☆晨星，多方势盛 变盘信号';
IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THEN var1000:=var1000+'☆ 倒转槌头 -高位抛压 低位多空争执';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THEN var1000:=var1000+'☆槌头，下影线有多头意义。在下降趋势之后看涨。注意反弹卖压 。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THEN var1000:=var1000+'☆吊颈线，高档看跌。';
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))) THEN
var1000:=var1000+'☆ 穿头破脚 -若第一根K为阴(阳) 表强劲上涨(下跌)力量。';
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) THEN
var1000:=var1000+'☆黄昏之星，空方势盛。反转信号，跳空成弃婴。';
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 THEN var1000:=var1000+'☆二阳夹一阴，必须从后续的走势来研判。';
IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 THEN
var1000:=var1000+'☆ 分离 -两日开盘相同 一阴一阳 变盘前彻底整理。';
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))) THEN var1000:=var1000+'☆断头铡刀(出水芙蓉) -一根大阴(阳)线切断了三根均线 如果改变了其后均线的排列为空头(多头)排列 后势看空(多) 。';
end;
TIPTEXT(DISPSTATUS=2,0,var1000);

{113}
DRAWTEXTREL(0,0,'日K线'),COLORYELLOW;
DRAWTEXTREL(600,975,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;
DRAWTEXTABS(30,0,'《夏卫东-原创》'),COLOR0000FF;
总股本:=FINANCE2(35) ;
流通股:=FINANCE2(37);
限售A股:=FINANCE2(41);
每股收益:=FINANCE2(3);
市盈率:=DYNAINFO(39);
每股公积金:=FINANCE2(7);
所属板块:=BKNAME;
DRAWTEXTABS(0,14, '所属板块： '+所属板块),Color888888{,COLORYELLOW};
DRAWTEXTABS(0,27,'每股收益： '+NUMTOSTRN(每股收益,3)+'元 利润增长：'+FINANCE2(10)+'% 市盈率：'+NUMTOSTRN(市盈率,1)+'倍 '+' 每股公积金：'+NUMTOSTRN(每股公积金,2)+'元'),Color888888{,COLORYELLOW};
DRAWTEXTABS(0,40,'总 股 本： '+NUMTOSTRN(总股本,2)+'万股'+' 流通A股：'+NUMTOSTRN(流通股,2)+'万股'+' 限售A股：'+NUMTOSTRN(限售A股,2)+'万股'),Color888888{,COLORYELLOW};