INPUT:M(5,1,250,1);均线:(MA(CLOSE,M) * 1),LINETHICK2,COLORYELLOW;DRAWGBKLAST(1,STRIP(RGB(10,10,50),RGB(50,10,10),0));
MA3:MA(CLOSE,3); MA4:MA(CLOSE,4);MA10:MA(C,10),COLORE66878;
警报:=CROSS(MA4,MA3);DRAWTEXT(警报,H*1.05,'↓'),LINETHICK6,ALIGN1,COLORFFFFFF;安全:=CROSS(MA3,MA4);DRAWTEXT(安全,L*0.95,'↑'),LINETHICK6,ALIGN1,colorRED;
SD:=HHV(HIGH,13)=HIGH AND HIGH>REF(HIGH,1);
a:="LTFunc5@FORLT2";
s1:="LTFunc5@LT_S1";
hs:="LTFunc5@LT_HS";
ls:="LTFunc5@LT_LS";
p1:="LTFunc5@LT_P1";
upp:="LTFunc5@LT_UPP";
udd:=LTFunc5@LT_UDD;
{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
买入:p1=1 and ref(p1,1)=0,LineThick0,Precis0,ColorRed;
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');
tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价>'+numtostrn(hs,2)+'短线买入机会');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';
bs:=''+datestr(date)+'买卖点决策系统提示\n'+'1.BS点:'+tr2+','+tr0+'2.短线:'+tr3+tr1+'\n'+tr4;
drawflagtext(1,fb,bs);
STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;
{http://www.88gs.com}
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;
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;
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; SD1:=FILTER(SD,12);
SF:=LLV(LOW,13)=LOW AND LOW<REF(LOW,1);
SF1:=FILTER(SF,12);
AA1:=MA(CLOSE,20);
AA2:=(CLOSE > MA(CLOSE,5));
AA3:=(MA(CLOSE,5) > MA(CLOSE,10));
AA4:=(CLOSE > MA(CLOSE,10));
AA5:=(MA(CLOSE,5) > MA(CLOSE,20));
AA6:=(CLOSE > MA(CLOSE,20));
AA7:=REF(AA1,1);
AA8:=(AA1 > AA7);
AAX:=(((((IF(AA2,10,(0 - 10)) + IF(AA3,10,(0 - 10))) + IF(AA4,10,(0 - 10))) + IF(AA5,10,(0 - 10))) + IF(AA6,10,(0 - 10))) + IF(AA8,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
T := BARSLAST(DISPSTATUS=1)+1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。'),colorYELLOW,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 > V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。'),colorYELLOW,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(AAX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。'),colorYELLOW,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'随大盘一起下跌，呈明显缩量走势，考虑到大盘风险，减持或清仓。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'放量下跌，走势明显偏弱，离场观望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((CROSS(1,AAX) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'缩量下跌，走势偏弱，离场观望。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形态良好，强势明显，量能充足，可以继续持有。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'上行趋势不变，强势依然，但量能开始转弱，注意风险。'),colorRED,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'仍然具备上涨潜力，但股性偏弱，可考虑减仓。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'走势趋弱，量能不足，减持大部分筹码。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'形态不佳，注意成交量的变化，但目前不适合参与。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)) THEN
DRAWTEXTREL(500,20,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'有走强迹象，但量能不足，趋势不明，不适合操作。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c<200 and ((((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)) THEN
DRAWTEXTREL(500,20,'走势太弱，没有参与价值。'),colorGREEN,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(AAX,1) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盘形态走坏，重仓者可以减去大部分仓位。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (CROSS(1,AAX) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盘缩量调整，注意风险，短线清仓观望。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盘走势良好，量能理想，可以继续持有强势股。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX >= 1) AND (REF(AAX,1) > 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盘形态良好，但量能稍显不足，随时准备减仓。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 >= V2)) THEN
DRAWTEXTREL(500,20,'大盘趋势不明，注意成交量变化，目前不适宜进场。'),color8000FF,LINETHICK1,ALIGN1;
IF BARSTATUS=2 and c>200 and (((AAX < 1) AND (REF(AAX,1) < 0)) AND (V1 < V2)) THEN
DRAWTEXTREL(500,20,'大盘趋势向下，量能萎缩，不适合进场。'),color8000FF,LINETHICK1,ALIGN1;
MA20:=MA(C,20);
MA40:=MA(C,40);
MA60:=MA(C,60);
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;
GP:='';
if t9>0then GP:=GP+'上涨趋势。';
if t10>0then GP:=GP+'下跌趋势。';
if t1>0then GP:=GP+'极端行情,在未来的几日内有85%的机会变更方向。';
if t2>0then GP:=GP+'中性行情,多空双方都未能取得当日行情主动性的控制权';
if t3>0then GP:=GP+'爬升行情,整个交易期间都有买方主导。';
if t4>0then GP:=GP+'爬升行情,信息很少,但收盘期间是买方主导,其他未知。';
if t5>0then GP:=GP+'爬升行情,买方把收盘价拉升到开盘价之上,卖方也在盘中主导一段行情,但不知道是谁主导最后的行情。';
if t6>0then GP:=GP+'漂流行情,整个交易期间都有卖方主导。';
if t7>0then GP:=GP+'漂流行情,信息很少,但收盘期间是卖方主导,其他未知。';
if t8>0then GP:=GP+'漂流行情,卖方把收盘价压至到开盘价之下,买方也在盘中主导一段行情,但不知道是谁主导最后的行情。';
if MA20>=MA60 AND CROSS(MA40,MA60) then GP:=GP+'形成季托，待股价回落到20天均线或40天均线时介入，20天均价为:'+MA20+'，40天均价为:'+MA40+' 。';
if BIAS>9.5 AND (C-REF(C,1))/REF(C,1)*100<9.8 then GP:=GP+'短线涨幅过大，有整理要求。';
if MA20>=MA60 AND H>=MA20 AND L<=MIN(MA40,MA60) AND C>O AND C>REF(C,1) then GP:=GP+'芙蓉出水，趋势向好。';
if BIAS<-18 AND (C-REF(C,1))/REF(C,1)*100>-9.8 then GP:=GP+'股价严重超跌，有爆发要求。';
if BIAS<-7 AND ALL(CLOSE<OPEN,5) then GP:=GP+'连收五阴，超跌有反弹要求。';
if ABS(HIGH-REF(HIGH,1))/HIGH<0.001 then GP:=GP+'平顶，该高点有一定阻力。';
if ABS(LOW-REF(LOW,1))/LOW<0.001 and abs(ref(low,1)-ref(low,2))/ref(low,1)<=0.00 then GP:=GP+'平底，该低点有一定支撑。';
if CLOSE=OPEN ANDHIGH<>close and low<>close and HIGH/LOW > 1.03 then GP:=GP+' 长十字，多空激争 前途未明。';
if OPEN/CLOSE > 1.05 AND HIGH/LOW < OPEN/CLOSE+0.018 then GP:=GP+' 大阴烛，今日空方有绝对优势。';
if REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98 then GP:=GP+'双飞乌鸦，多头力竭，行情走软。';
if (MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667 then GP:=GP+'长下影，下档支撑强或空方试探进攻。';
if (HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667 then GP:=GP+'长上影，上档阻力大或多方试探进攻。';
if CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH then GP:=GP+'垂死十字，在顶部时重要 表强力多头开始疲软。';
if HIGH=CLOSE AND HIGH<>LOW then GP:=GP+'光头阳线，今日尾盘多方气盛，行情可能延续到明天。';
if (HIGH<REF(LOW,1) OR LOW>REF(HIGH,1)) then GP:=GP+'跳空缺口，当日未补，有与跳空同向进行，上涨欲望强烈，三日内为回补观察期。';
if LOW=CLOSE AND HIGH<>LOW then GP:=GP+'赤脚阴线，尾盘空方胜。 注意股价下跌延续至次日。';
if CLOSE=OPEN AND HIGH<>close and low<>close and high <>close then GP:=GP+'十字星，警告信号。原趋势停顿或反转，依上下影线长度判后市。';
if CLOSE/OPEN>1.05 AND HIGH/LOW < CLOSE/OPEN+0.018 then GP:=GP+'大阳烛，上升行情中意味行情剧烈向上攀升；下跌行情中意味行情剧烈向上反弹。';
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
GP:=GP+'早晨十字 - 如同晨星。 从看空平衡到看涨转强；左右跳空曰弃婴 。';
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) THENGP:=GP+'上升三部曲，空方卖压被吸纳。 趋势易顺势走涨。';
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 THENGP:=GP+'三胎乌鸦，多头走势被扭转。黑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
GP:=GP+'友好反攻 - 阴(阳)线结合，极线多方跳空向下(跳空向上)后反弹有企稳迹象 。';
IF close<>open and MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE > MA(CLOSE,5) THEN
GP:=GP+'射击之星 - 如伴大量上遇阻力，有短期见顶可能，股价转疲。';
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
GP:=GP+'贯穿线，多头力道的反扑或是空单回补力道。长阴线之后开低收在昨天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
GP:=GP+'身怀六甲 - 阴(阳)怀阳(阴)，怪异的走势，显示该股行情可能转向。 若量由大转缩，下跌趋势更明确。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c>ref(o,1) AND o<ref(c,1)) THEN
GP:=GP+'多头阳线吞噬，阳包阴。反转趋势需量能配合量。 ';
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
GP:=GP+'夜星 - 从看多平衡到看空转弱，转空。 ';
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
GP:=GP+'十字胎 - 似身怀六甲，转向可能性更大，量缩观望为宜 。';
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
GP:=GP+' 双人殉情 - 在上升趋势中最后之空头吞噬，也就是所谓的不见长红不回头。 ';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'阴线吞噬，阴包阳，向空反转。 ';
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 GP:=GP+'曙光，与乌云盖顶相反，行情将演化为V型反转或止跌横盘趋势 。';
IF (ref(c,1)-ref(o,1)<0 AND c-o>0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'多头孕育线，阴育阳。多头反转可能。';
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
GP:=GP+'空头孕育线，阳育阴。看空 。';
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
GP:=GP+'空头孕育线，阴育阴。看空。';
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
GP:=GP+'三只乌鸦 - 强烈转空趋势，阴线越深量越大越易下跌。';
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
GP:=GP+'下跌三部曲，多方弱势不堪一击，趋势易顺势走跌。';
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
GP:=GP+'连续型态之执垫，比上升三法更具多头意义。';
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
GP:=GP+'颈上线 - 下降趋势。若第二天大量，维持原趋势的可能性大增。';
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
GP:=GP+'乌云罩顶 - 上涨遇重大阻力。空头聚力。';
IF (ref(c,1)-ref(o,1)>0 AND c-o<0 AND c<ref(o,1) AND o>ref(c,1)) THEN
GP:=GP+'最后吞噬 - 在下降趋势中为一阴一阳组合，多头吞噬；在上升趋势中为一阳一阴组合，空头吞噬。';
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
GP:=GP+'晨星 - 多方势盛 变盘信号';
IF MIN(OPEN,CLOSE)=LOW AND HIGH-LOW > 3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE < MA(CLOSE,5) THENGP:=GP+' 倒转槌头 - 高位抛压或低位多空争执';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE < MA(CLOSE,5) THENGP:=GP+'槌头 - 下影线有多头意义。在下降趋势之后看涨。注意反弹卖压 。';
IF HIGH = MAX(OPEN,CLOSE) AND HIGH-LOW > 3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE > MA(CLOSE,5) THENGP:=GP+'吊颈线 - 高档看跌。';
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
GP:=GP+' 穿头破脚 - 若第一根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
GP:=GP+'黄昏之星 - 空方势盛。反转信号，跳空成弃婴。';
IF REF(CLOSE,2)>REF(OPEN,2) AND (REF(CLOSE,2)-REF(OPEN,2))/REF(OPEN,2)>=2/100AND 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 THENGP:=GP+'二阳夹一阴，必须从后续的走势来研判。';
IF OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0 THEN
GP:=GP+' 分离 - 两日开盘相同 一阴一阳 变盘前彻底整理。';
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 GP:=GP+'断头铡刀(出水芙蓉) -一根大阴(阳)线切断了三根均线 如果改变了其后均线的排列为空头(多头)排列 后势看空(多) 。';
end;
TIPTEXT(DISPSTATUS=2,0,GP);
{支撑压力}
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(DISPSTATUS=2and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(DISPSTATUS=2and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(DISPSTATUS=2and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(DISPSTATUS=2and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF0000;
下档线:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
aRSV:=SMA(下档线,3,1);
aK:=SMA(aRSV,3,1);
aD:=((3 * aRSV) - (2 * aK));
aJ12:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
aRSV24:=SMA(aJ12,3,1);
aK24:=SMA(aRSV24,3,1);
aD24:=((3 * aRSV24) - (2 * aK24));
撑压位:=IF(CROSS(aD24,aD),HIGH,REF(HIGH,BARSLAST(CROSS(aD24,aD)))){,LINETHICK2,COLORFFFFFF};
底:=LLV(HIGH,30){,COLOR00FF00,LINETHICK2};
STICKLINE(BARSTATUS=2 ,撑压位,撑压位,30,1),LINETHICK1,COLORFFFFFF;
DRAWTEXT(BARSTATUS=2 ,撑压位,' 撑压'),COLORFFFFFF,VALIGN1;
STICKLINE(BARSTATUS=2 ,底,底,30,1),COLOR00FF00,LINETHICK1;
DRAWTEXT(BARSTATUS=2 ,底,' 底线'),COLOR00FF00,VALIGN0;{43}
DRAWGBK(c,'7' );
Var3:=LLV(H,240);
Var4:=100*(C-Var3)/Var3;
Var5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
Var6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
{Var7:=0;}
Var8:=MA(HHV(C-REF(C,1),0),34)/MA(ABS(C-REF(C,1)),7)*100;
Var9:=MA(HHV(C-REF(C,1),0),13)/MA(ABS(C-REF(C,1)),13)*100;
VarA:=BARSCOUNT(C);
VarB:=Var8<20 AND Var9<23 AND VarA>35;
VarC:=VarB AND COUNT(VarB,1)=1;
VarD:=EMA(C,21)-EMA(C,8);
VarE:=EMA(VarD,5);
VarF:=TROUGH(3,6,1)<4 AND CROSS(VarD,VarE);
Var10:=IF(TROUGH(3,16,1)=0 AND H>L+0.04,4,0);
Var11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
Var12:=ZIG(3,6)<REF(ZIG(3,6),1)AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);
Var13:=ZIG(3,22)>REF(ZIG(3,22),1)AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2)AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
Var14:=ZIG(3,22)<REF(ZIG(3,22),1)AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2)AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);
Var15:=ZIG(3,51)>REF(ZIG(3,51),1)AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
Var16:=ZIG(3,51)<REF(ZIG(3,51),1)AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2)AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);
Var17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2)AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
Var18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2)AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);
Var19:=EMA(C,2)-EMA(C,150);
Var1A:=EMA(Var19,100);
Var1B:=2*(Var19-Var1A);
Var1C:=POW(Var1B,3)*0.1+POW(Var1B,1);
Var1D:=SQRT(SQRT(L*H*O*C));
Var1E:=EMA(Var1D*0.97,3);
Var1F:=(H+L+C)/3;
Var20:=(Var1F-MA(Var1F,14))/(0.015*AVEDEV(Var1F,14));
Var21:=CROSS(Var1E,L);
买点1:=Var10;
买点2:=(Var11+Var13+Var15+Var17);
卖点1:=(Var12+Var14+Var16+Var18);
Var22:=买点1 AND VarF AND VarC AND Var21 AND Var4<0AND Var5=0 AND Var6=0 AND Var20<(-110);
DRAWTEXT(买点1>0,L-0.15,'B'),LINETHICK4,ALIGN1,colorred;{B}
DRAWTEXT(买点2>0,L-0.25,{'B'}'买'),LINETHICK2,ALIGN1,COLORYELLOW;{B}
DRAWTEXT(卖点1>0,H+0.95,{'S'}'卖'),LINETHICK2,ALIGN1,ColorGREEN;{S};出:EMA(c+(h-l)*0.618,3),Color0099FF,LINETHICK0;入:EMA((o+h+l)/3,4),COLORCYAN,LINETHICK0;
预测明日买点:=EMA((o+h+l)/3,4)+((h+l)/2-ref((o+h+l)/3,3))/4;
DRAWTEXTREL(800,950,'测今日低点：'+NUMTOSTRN(ref(预测明日买点,1),2 )),ColorGREEN;
预测明日卖点:=EMA(c+(h-l)*0.618,3)+(EMA(c+(h-l)*0.618,3)-入)*0.618;
DRAWTEXTREL(580,950,'测今日高点：'+NUMTOSTRN(ref(预测明日卖点,1),2 )),Colorred;{一品资料说明}
WW:=BARSLAST(DISPSTATUS=1);
低涨:(C/LLV(LOW,WW)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;
天:BARSLAST(L=LLV(LOW,WW)),COLOR00FFFF,LINETHICK0,PRECIS0;
DRAWTEXTABS(0,30,'◇低点至今上涨:'+NUMTOSTRN(低涨,2)+'％'+NUMTOSTRN(天,0)+'天'),COLOR0000FF;
DRAWTEXTABS(0,10,'◇目前可见K线:'+NUMTOSTRN(WW+1,0)+'天'),COLORYELLOW;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
