领涨版块部分需要安装千钧老师“涨幅引用”的引用公式，有些部分自行选用。
INPUT:n(21,1,999),n1(8,1,256),n2(64,1,256),k1(3,0,3),线数(3,1,8),nn(3,1,20);DRAWGBK(1>0,COLORRGB(0,0,0) ,COLORRGB(0,0,0),1);
//DRAWGBK(CLOSE,COLORRGB(36,68,36),COLORRGB(60,80,80),1);
//DRAWGBK(C,COLORRGB(20,1,14),COLORRGB(100,50,60),1);
DRAWTEXTEX(1,1,0,0,'■所属板块：'+BLKNAME),Colorwhite;
DRAWTEXTEX(1,1,680,60,'市盈率:'+NUMTOSTR(DYNAINFO(39),2)+' 净资产: '+NUMTOSTR(FINANCE(34),2)),Color0F7AC5;
DRAWTEXTEX(1,1,680,100,'收 益:'+NUMTOSTR(FINANCE(33),2)+' '+'利 润: '+NUMTOSTR(FINANCE(54),0)+' %'),Color0F7AC5;
星期数字:=WEEKDAY,LINETHICK0;
星期X:=' 星期';
星期j:=IF(星期数字=5 ,星期X+'五',IF(星期数字=4 ,星期X+'四',
IF(星期数字=3 ,星期X+'三',IF(星期数字=2 ,星期X+'二',IF(星期数字=1 ,星期X+'一',星期X)))));
农历月:=LMONTH;
农历日:=LDAY;
农历:=IF( BARSTATUS=2 ,' 农历 '+NUMTOSTR(农历月,0)+'月 '+NUMTOSTR(农历日,0)+'日',' ');
DRAWTEXTEX(1,1,400,40,星期j+农历),LINETHICK3,ColorFFFF80;
eMA5:=EMA(CLOSE,5);
eMA10:=EMA(CLOSE,10);
eMA20:=EMA(CLOSE,20);
eMA30:=EMA(CLOSE,30);
eMA60:=EMA(CLOSE,60);
eMA128:=EMA(CLOSE,128);
eMA256:=EMA(CLOSE,256);
//均线系统解盘
EXPLAIN(1,' '+'均线系统'),colorFFFF;
EXPLAIN(CLOSE>=ema128,'股价在半年线之上'),LINETHICK2,color6633CC;
EXPLAIN(CLOSE>=ema256,'股价在年线之上'),color6633CC;
EXPLAIN(CLOSE<ema128,'股价在半年线之下'),colorCCFF99;
EXPLAIN(CLOSE<ema256,'股价在年线之下'),colorCCFF99;
EXPLAIN(ema128>=REF(ema128,1),'半年线趋势向上'),color6633CC;
EXPLAIN(ema256>=REF(ema256,1),'年线趋势向上'),color6633CC;
EXPLAIN(ema128<REF(ema128,1),'半年线趋势向下'),colorCCFF99;
EXPLAIN(ema256<REF(ema256,1),'年线趋势向下'),colorCCFF99;
EXPLAIN((EMa60>EMa128 and EMa128>EMa256 and EMa60>EMa256),'60日以上均线多头排列'),color6633CC;
EXPLAIN((EMa60<EMa128 and EMa128<EMa256 and EMa60<EMa256),'60日以上均线空头排列'),colorCCFF99;
EXPLAIN((EMa30>EMa60 and EMa30>EMa128 and EMa60>EMa128),'中期均线多头排列'),color6633CC;
EXPLAIN((EMa30<EMa60 and EMa30<EMa128 and EMa60<EMa128),'中期均线空头排列'),colorCCFF99;
EXPLAIN((CROSS(C,ema60) and CROSS(C,ema128) and CROSS(C,ema256)),'股价一阳上穿三线'),color6633CC;
EXPLAIN((EMa30>REF(EMa30,1)),'30日均线向上'),color6633CC;
EXPLAIN((EMa30>REF(EMa30,1) AND EMa30<REF(EMa30,1)*1.001),'30日均线走平');
EXPLAIN((EMa30<REF(EMa30,1)),'30日均线向下'),colorCCFF99;
EXPLAIN((EMa5>REF(EMa5,1)*1.015),'5日均线强劲向上'),color6633CC;
EXPLAIN((EMa5>REF(EMa5,1) AND EMa5<REF(EMa5,1)*1.005),'5日均线方向不明');
EXPLAIN((EMa5<REF(EMa5,1)*0.985),'5日均线快速向下'),colorCCFF99;
EXPLAIN((CROSS(EMa5,EMa10)),'5日10日均线金叉'),color6633CC;
EXPLAIN((CROSS(EMa10,EMa5)),'5日10日均线死叉'),colorCCFF99;
EXPLAIN((EMa5>EMa10 and EMa10>EMa30 and EMa5>EMa30),'30日以下均线多头排列'),color6633CC;
EXPLAIN((EMa5<EMa10 and EMa10<EMa30 and EMa5<EMa30),'30日以下均线空头排列'),colorCCFF99;//资金动向解盘
HSL:=vol/capital*100;
LD:=MA(VOL/(HIGH-LOW),5);
DMP:=ABS(CLOSE-OPEN);
DMM:=VOL/(HIGH-LOW);
EXPLAIN(1,' '+'资金动向'),colorFFFF;
EXPLAINEX(HSL<=1,'地量/换手率=',HSL,2,2),COLORWHITE;
EXPLAINEX(HSL>=1 AND HSL<2,'无量/换手率=',HSL,2,2),COLORCYAN;
EXPLAINEX(HSL>2 AND HSL<3,'温和/换手率=',HSL,2,2),COLORGRAY;
EXPLAINEX(HSL>3 AND HSL<5,'活跃/换手率=',HSL,2,2),COLORGREEN;
EXPLAINEX(HSL>5 AND HSL<8,'带量/换手率=',HSL,2,2),COLORYELLOW;
EXPLAINEX(HSL>8 AND HSL<15,'放量/换手率=',HSL,2,2),COLORMAGENTA;
EXPLAINEX(HSL>15 AND HSL<25,'巨量/换手率=',HSL,2,2),COLORRED;
EXPLAINEX(HSL>=25,'异常/换手率=',HSL,2,2),COLORBLUE;
EXPLAIN(DMM<LD AND DMP<MA(DMP,5),'资金入场意愿萎缩'), colorFFCC33;
EXPLAIN(DMM<LD AND DMP>MA(DMP,5),'场内资金有运作行为'), colorFFCC33;
EXPLAIN(DMM>LD AND DMP<MA(DMP,5),'多空双方激烈争夺'), colorFFCC33;
EXPLAIN(DMM>LD AND DMP>MA(DMP,5),'场外资金介入（或出局）意愿强烈'), colorFFCC33;
EXPLAIN(CROSS("VOL.MA1","VOL.MA2") AND "VOL.MA2">"VOL.MA3" AND "VOL.MA1">"VOL.MA3",'成交量均线金叉.'), colorCCFF99;
EXPLAIN("VOL.MA1">"VOL.MA2" AND "VOL.MA2">"VOL.MA3" AND "VOL.MA1">"VOL.MA3",'成交量均线多头排列.'), colorCCFF99;SY:=IF(CLOSE>=OPEN,HIGH-CLOSE,HIGH-OPEN);
XY:=IF(CLOSE>=OPEN,OPEN-LOW,CLOSE-LOW);
CD:=2*(SY+XY)+ABS(CLOSE-OPEN);
SYJ:=IF(CLOSE>=OPEN,(HIGH+CLOSE)/2,(HIGH+OPEN)/2);
XYJ:=IF(CLOSE>=OPEN,(OPEN+LOW)/2,(CLOSE+LOW)/2);
MAJ1:=(SYJ*2*SY/CD+XYJ*2*XY/CD+(CLOSE+OPEN)/2*ABS(CLOSE-OPEN)/CD);
maj:=if(maj1=0,c,maj1);短趋:=(8*maj+7*ref(maj,1)+6*ref(maj,2)+5*ref(maj,3)+4*ref(maj,4)+3*ref(maj,5)+2*ref(maj,6)+ref(maj,8))/36;
中趋:=(LLV(短趋,2)+LLV(短趋,4)+LLV(短趋,6))/3;
立桩量:=FILTER(VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>短趋,5);
突破:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0)))=1;
三天法则:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(LOW,3),1,0)))=1;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
MA30:=MA(C,30);
MA120:=SMA(C,120,1);
ZH520:=ABS(MA5-MA20)/MA20*100<=10;
ZH530:=ABS(MA5-MA30)/MA30*100<=10;
QSXS1:=MA5>REF(MA5,1);
QSXS2:=MA20>REF(MA20,1);
QSXS3:=MA30>REF(MA30,1);
DTPL:=MA20>MA30 AND MA30>MA120;
LYHT:=DTPL AND QSXS2 AND QSXS3 AND NOT(QSXS1) AND REF(QSXS1,1);{三DK线}
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1);
STICKLINE(TJ,CLOSE,OPEN,7,0),COLOR000045;
STICKLINE(TJ,CLOSE,OPEN,6,0),COLOR000065;
STICKLINE(TJ,CLOSE,OPEN,5,0),COLOR000085;
STICKLINE(TJ,CLOSE,OPEN,4,0),COLOR0000A5;
STICKLINE(TJ,CLOSE,OPEN,3,0),COLOR0000C5;
STICKLINE(TJ,CLOSE,OPEN,2,0),COLOR0000E5;
STICKLINE(TJ,HIGH,LOW,1,0),COLOR0000F5;
STICKLINE(NOT(TJ),CLOSE,OPEN,7,0),COLOR353500;
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),COLOR454500;
STICKLINE(NOT(TJ),CLOSE,OPEN,5,0),COLOR555500;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),COLOR656500;
STICKLINE(NOT(TJ),CLOSE,OPEN,3,0),COLOR757500;
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),COLOR858500;
STICKLINE(NOT(TJ),HIGH,LOW,1,0),COLOR959500;TJTS:=BACKSET(ISLASTBAR,5);
早晨之星:=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);
黄昏之星:=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);
长十字:=CLOSE=OPEN AND HIGH/LOW>1.03;
垂死十字:=CLOSE=OPEN AND CLOSE=LOW AND CLOSE<>HIGH;
早晨十字星:=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);
黄昏十字星:=REF(CLOSE,2)/REF(OPEN,2)>1.05 AND REF(OPEN,1)>REF(CLOSE,2) AND REF(OPEN,1)=REF(CLOSE,1) AND CLOSE/OPEN<0.95 AND CLOSE<REF(CLOSE,2);
射击之星:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE>MA(CLOSE,5);
倒转锤头:=MIN(OPEN,CLOSE)=LOW AND HIGH-LOW>3*(MAX(OPEN,CLOSE)-LOW) AND CLOSE<MA(CLOSE,5);
锤头:=HIGH=MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE<MA(CLOSE,5);
吊颈:=HIGH=MAX(OPEN,CLOSE) AND HIGH-LOW>3*(HIGH-MIN(OPEN,CLOSE)) AND CLOSE>MA(CLOSE,5);
穿头破脚:=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);
乌云盖顶:=REF(CLOSE,1)/REF(OPEN,1)>1.03 AND CLOSE/OPEN<0.97 AND OPEN>REF(CLOSE,1) AND CLOSE<REF(CLOSE,1);
曙光初现:=REF(CLOSE,1)/REF(OPEN,1)<0.97 AND CLOSE/OPEN>1.03 AND OPEN<REF(CLOSE,1) AND CLOSE>REF(CLOSE,1);
身怀六甲:=(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));
十字胎:=(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));
平顶:=(ABS(HIGH-REF(HIGH,1)))/HIGH<0.001;
平底:=(ABS(LOW-REF(LOW,1)))/LOW<0.001 AND (ABS(REF(LOW,1)-REF(LOW,2)))/REF(LOW,1)<=0.001;
大阳烛:=CLOSE/OPEN>1.05 AND HIGH/LOW<CLOSE/OPEN+0.018;
三个白武士:=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);
双飞乌鸦:=REF(CLOSE,1)<REF(OPEN,1) AND CLOSE<OPEN AND CLOSE/OPEN<0.98;
孕育线:=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 CLOSE>=OPEN AND (CLOSE-OPEN)/OPEN>=2/100 AND CLOSE>=REF(OPEN,1) AND OPEN<=REF(CLOSE,1) AND (MAX(CLOSE,REF(CLOSE,2))-MIN(CLOSE,REF(CLOSE,2)))/MIN(CLOSE,REF(CLOSE,2))<=1/100;
多方炮:=REF(CLOSE,2)>REF(OPEN,2) AND REF(CLOSE,1)<REF(OPEN,1) AND CLOSE>OPEN;
出水芙蓉:=(OPEN<EMA(CLOSE,20) OR OPEN<EMA(CLOSE,40) OR OPEN<EMA(CLOSE,60)) AND CLOSE>MAX(EMA(CLOSE,20),MAX(EMA(CLOSE,40),EMA(CLOSE,60))) AND VOL/MA(VOL,30)>1.2 AND CLOSE/REF(CLOSE,1)>1.049;
上升三部曲:=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);
下跌三部曲:=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);
跳空缺口:=HIGH<REF(LOW,1) OR LOW>REF(HIGH,1);
三只乌鸦:=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);
光脚阴线:=LOW=CLOSE AND HIGH<>LOW;
光头阳线:=HIGH=CLOSE AND HIGH<>LOW;
分离:=OPEN=REF(OPEN,1) AND (CLOSE-OPEN)*(REF(CLOSE,1)-REF(OPEN,1))<0;
长下影:=(MIN(CLOSE,OPEN)-LOW)/(HIGH-LOW)>0.667;
长上影:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)>0.667;
十字星:=CLOSE=OPEN AND HIGH<>LOW;
大阴烛:=OPEN/CLOSE>1.05 AND HIGH/LOW<OPEN/CLOSE+0.018;
好友反攻:=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;
倾盆大雨:=REF(CLOSE,1)/REF(OPEN,1)>=1.03 AND OPEN<REF(CLOSE,1) AND OPEN>REF(OPEN,1) AND CLOSE<REF(OPEN,1);
立桩量K线:=FILTER(三天法则 AND 突破,3);
老鸭回头:=LYHT;
∠45升:=FILTER(ATAN(EMA(maj,13)-REF(EMA(maj,13),1))*3.1416*10>1 AND EMA(maj,13)>REF(EMA(maj,8),1),10);
TJ1:=IF(倾盆大雨 AND TJTS,'倾盆大雨,见顶信号‖','');
TJ2:=IF(大阴烛 AND TJTS,'大阴烛,后市向淡,发生逆转‖','');
TJ3:=IF(好友反攻 AND TJTS,'好友反攻,跌势已尽,要展开一段反弹行情‖','');
TJ4:=IF(跳空缺口 AND TJTS,'跳空缺口,突破长期盘整,向上跳空,上涨行情开始;向下跳空,下跌行情开始‖','');
TJ5:=IF(光脚阴线 AND TJTS,'光脚阴线,下跌信号‖','');
TJ6:=IF(光头阳线 AND TJTS,'光头阳线,多方上攻,后市看涨‖','');
TJ7:=IF(三只乌鸦 AND TJTS,'三只乌鸦,可能见顶‖','');
TJ8:=IF(分离 AND TJTS,'分离,注意看涨和看跌分离‖','');
TJ9:=IF(长下影 AND TJTS,'长下影,持续下跌后出现,可能止跌;升势末期,须留意‖','');
TJ10:=IF(长上影 AND TJTS,'长上影,上档压力沉重,升势受阻‖','');
TJ11:=IF(下跌三部曲 AND TJTS,'下跌三部曲,下跌信号‖','');
TJ12:=IF(上升三部曲 AND TJTS,'上升三部曲,上涨信号‖','');
TJ13:=IF(早晨之星 AND TJTS,'早晨之星,见底回升‖','');
TJ14:=IF(黄昏之星 AND TJTS,'黄昏之星,见顶回落‖','');
TJ15:=IF(十字星 AND TJTS,'十字星,重要的警告信号,原趋势停顿或反转‖','');
TJ16:=IF(长十字 AND TJTS,'长十字,重要的警告信号,原趋势停顿或反转‖','');
TJ17:=IF(垂死十字 AND TJTS,'垂死十字,下跌信号‖','');
TJ18:=IF(早晨十字星 AND TJTS,'早晨十字星,上涨信号,见底回升‖','');
TJ19:=IF(黄昏十字星 AND TJTS,'黄昏十字星,趋势停顿或反转,下跌信号,见顶回落‖','');
TJ20:=IF(射击之星 AND TJTS,'射击之星,出现在短期的上升趋势,表明市场顶部就在眼前,可能见顶回落,可靠性低‖','');
TJ21:=IF(倒转锤头 AND TJTS,'倒转锤头构成一个看涨信号,可能见底回升‖','');
TJ22:=IF(锤头 AND TJTS,'锤头,可能见底回升,如有量配合,信号强烈‖','');
TJ23:=IF(吊颈 AND TJTS,'吊颈,上升行情见顶回落,顶部见顶信号‖','');
TJ24:=IF(平顶 AND TJTS,'平顶,摸高见顶,行将反转。但下跌力度较小‖','');
TJ25:=IF(穿头破脚 AND TJTS,'穿头破脚,顶部见顶回落‖','');
TJ26:=IF(乌云盖顶 AND TJTS,'乌云盖顶,见顶回落‖','');
TJ27:=IF(曙光初现 AND TJTS,'曙光初现,行情将演化为V型反转或止跌横盘趋势。后市见底回升‖','');
TJ28:=IF(身怀六甲 AND TJTS,'身怀六甲,底部见底回升;顶部见顶回落‖','');
TJ29:=IF(十字胎 AND TJTS,'十字胎‖','');
TJ30:=IF(平底 AND TJTS,'平底,探低见底,将反转上升,但力度较小‖','');
TJ31:=IF(大阳烛 AND TJTS,'大阳烛,上升行情中剧烈向上攀升,下跌行情中剧烈向上反弹‖','');
TJ32:=IF(三个白武士 AND TJTS,'三个白武士,收盘价上移,可能见底回升‖','');
TJ33:=IF(双飞乌鸦 AND TJTS,'双飞乌鸦,疲软见顶‖','');
TJ34:=IF(孕育线 AND TJTS,'孕育线,注意股价位置‖','');
TJ35:=IF(多方炮 AND TJTS,'多方炮,底部可能上涨,中间有可能中继上涨,顶部复合见顶‖','');
TJ36:=IF(出水芙蓉 AND TJTS,'出水芙蓉,阳线穿过20、40、60日季均线,上攻势头初现‖','');
TJ37:=IF(立桩量K线 AND TJTS,'立桩量,启动信号‖','');
TJ38:=IF(∠45升 AND TJTS,'∠45升,上攻信号‖','');
TJ39:=IF(老鸭回头 AND TJTS,'老鸭回头,上攻信号‖','');
TJ:='【Ｋ线形态】'+TJ1+TJ2+TJ3+TJ4+TJ5+TJ6+TJ7+TJ8+TJ9+TJ10+TJ11+TJ12+TJ13+TJ14+TJ15+TJ16+TJ17+TJ18+TJ19+TJ20+TJ21+TJ22+TJ23+TJ24+TJ25+TJ26+TJ27+TJ28+TJ29+TJ30+TJ31+TJ32+TJ33+TJ34+TJ35+TJ36+TJ37+TJ38+TJ39;
DRAWTEXT(SYSPARAM(2)=BARSCOUNT(CLOSE),CLOSE,TJ),ALIGN5,pxdn6,color5BBBB5;LC:=REF(CLOSE,1);
品种强弱:=(SMA(MAX(CLOSE-LC,0),N1,1))/(SMA(ABS(CLOSE-LC),N1,1))*100;
CC:="1A0001$CLOSE";
FF:="399001$CLOSE";
LC1:=REF(IF(INBLOCK('深圳A股')=1,FF,CC),1);
指数强弱:=(SMA(MAX((IF(INBLOCK('深圳A股')=1,FF,CC))-LC1,0),N1,1))/(SMA(ABS((IF(INBLOCK('深圳A股')=1,FF,CC))-LC1),N1,1))*100;
强弱度:=品种强弱-指数强弱;涨幅比:=100*(CLOSE/REF(CLOSE,1)-1);
跌幅比:=100*(1-CLOSE/REF(CLOSE,1));
EXPLAIN(1,' '+'图形分析'),colorFFFF;
早晨之星的中部:=(ABS(REF(OPEN,1)-REF(CLOSE,1)))/REF(CLOSE,1);
早晨两日前倍比:=(REF(OPEN-CLOSE,2))/REF(OPEN,2)/早晨之星的中部;
早晨今日倍比:=(CLOSE-OPEN)/OPEN/早晨之星的中部;
早晨:=REF(ISDOWN,2) AND 早晨两日前倍比>3 AND 早晨之星的中部<0.03 AND REF(OPEN,1)<REF(CLOSE,2) AND ISUP AND 早晨今日倍比>3 AND CLOSE>REF(CLOSE,2);
EXPLAIN(早晨,' '+'早晨之星'),color3300FF;
EXPLAIN(早晨,'若低位上涨即将启动，若在高位请小心冲高出货'),color6633CC;
EXPLAIN(早晨,'可靠性排序一');
黄昏之星的中部:=(ABS(REF(OPEN,1)-REF(CLOSE,1)))/REF(CLOSE,1);
黄昏两日前倍比:=(ABS(REF(OPEN-CLOSE,2)))/REF(OPEN,2)/黄昏之星的中部;
黄昏今日倍比:=(ABS(CLOSE-OPEN))/OPEN/黄昏之星的中部;
黄昏:=REF(ISUP,2) AND 黄昏两日前倍比>3 AND 黄昏之星的中部<0.03 AND REF(OPEN,1)>REF(CLOSE,2) AND ISDOWN AND 黄昏今日倍比>3 AND CLOSE<REF(CLOSE,2);
EXPLAIN(黄昏,' '+'黄昏之星'),colorFF00;
EXPLAIN(黄昏,'进入盘整期或者下跌期，具体视行情而定'),colorCCFF33;
EXPLAIN(黄昏,'可靠性排序一');
十字星:=(ABS(CLOSE-OPEN))/CLOSE<0.004 AND (ABS(LOW-IF(ISUP,OPEN,CLOSE)))/CLOSE>0.004 AND HIGH>IF(ISUP,CLOSE,OPEN);
EXPLAIN(十字星,' '+'十字星'),colorFF6600;
EXPLAIN(十字星,'转折信号,升势末期效果显著'),colorCCFF33;
EXPLAIN(十字星,'其它位置需要配合第二日确认'),colorFFCC33;
EXPLAIN(REF(十字星,1) AND ISDOWN,' '+'黄昏十字星'),colorFF00;
EXPLAIN(REF(十字星,1) AND ISDOWN,'在上升势头中出现，后市走跌'),colorCCFF33;
EXPLAIN(REF(十字星,1) AND ISDOWN,'在下跌势头中出现，跌势趋缓'),colorCCFF99;
EXPLAIN(REF(十字星,1) AND ISDOWN,'在盘整中出现，需要配合周边态势'),colorCCFF99;
EXPLAIN(REF(十字星,1) AND ISUP,' '+'早晨十字星'),color3300FF;
EXPLAIN(REF(十字星,1) AND ISUP,'在下跌势头中出现早晨十字星，后市走高'),color6633CC;
EXPLAIN(REF(十字星,1) AND ISUP,'在上升势头中出现早晨十字星，涨势趋缓'),colorCCCCCC;
EXPLAIN(十字星,'可靠性排序三');
垂死十字:=IF(CLOSE>20,(ABS(CLOSE-OPEN))/CLOSE<=0.004 AND (ABS(IF(ISUP,OPEN,CLOSE)-LOW))/CLOSE<=0.002 AND (HIGH-IF(ISUP,CLOSE,OPEN))/CLOSE>0.004,CLOSE=OPEN AND HIGH>OPEN AND LOW=CLOSE);
EXPLAIN(垂死十字,' '+'垂死十字'),colorFF00;
EXPLAIN(垂死十字,'顶部看空，淡气逼人'),colorCCFF33;
射击之星:=ABS(CLOSE-OPEN)<ABS(HIGH-IF(ISUP,CLOSE,OPEN)) AND (ABS(CLOSE-OPEN))/CLOSE>0.004 AND (ABS(IF(ISUP,OPEN,CLOSE)-LOW))/CLOSE<=0.004;
非标准射击之星:=(ABS(CLOSE-OPEN))/CLOSE>0.004 AND (ABS(IF(ISUP,OPEN,CLOSE)-LOW))/CLOSE<=0.004 AND (ABS(HIGH-IF(ISUP,CLOSE,OPEN)))/CLOSE>0.004;
EXPLAIN(射击之星,' '+'射击之星'),colorFF6600;
EXPLAIN(射击之星,'升、跌、盘，转折预警'),colorFFCC33;
EXPLAIN(非标准射击之星 AND NOT(射击之星),' '+'非标准射击之星'),colorFF6600;
EXPLAIN(非标准射击之星 AND NOT(射击之星),'非标准的射击之星，但具有参考意义'),colorFFCC33;
EXPLAIN(射击之星,'可靠性排序四');
锤头:=(ABS(IF(ISUP,CLOSE,OPEN)-HIGH))/CLOSE<0.004 AND LOW<IF(ISUP,OPEN,CLOSE) AND (IF(ISUP,OPEN,CLOSE)-LOW)/(IF(ISUP,CLOSE,OPEN)-IF(ISUP,OPEN,CLOSE))>=2;
非标准锤头:=(ABS(IF(ISUP,CLOSE,OPEN)-HIGH))/CLOSE>0.004 AND (ABS(IF(ISUP,CLOSE,OPEN)-HIGH))/CLOSE<0.001 AND LOW<IF(ISUP,OPEN,CLOSE);
EXPLAIN(锤头,' '+'锤头'),colorFF6600;
EXPLAIN(锤头,'转折信号，上影越短下影越长可靠度越高'),colorFFCC33;
EXPLAIN(锤头,'低谷初阳或者高位初阴可靠度更高'),colorFFCC33;
EXPLAIN(非标准锤头 AND NOT(锤头),' '+'非标准锤头'),colorFF6600;
EXPLAIN(非标准锤头 AND NOT(锤头),'严格地说这不是一个锤头，但具有转折参考意义'),colorFFCC33;
EXPLAIN(锤头,'可靠性排序四');
穿头破脚:=ISDOWN AND REF(ISUP,1) AND OPEN>REF(CLOSE,1) AND CLOSE<REF(OPEN,1) OR ISUP AND REF(ISDOWN,1) AND OPEN<REF(CLOSE,1) AND CLOSE>REF(OPEN,1);
穿两日:=REF(ISUP,2) AND OPEN>REF(CLOSE,2) AND CLOSE<REF(OPEN,2) OR REF(ISDOWN,2) AND OPEN<REF(CLOSE,2) AND CLOSE>REF(OPEN,2);
EXPLAIN(穿头破脚,' '+'穿头破脚'),colorFF6600;
EXPLAIN(穿头破脚 AND ISUP,'若低位,收阳,则反转上升'),color6633CC;
EXPLAIN(穿头破脚 AND ISUP,'若高位,收阳,盘整向下'),color6633CC;
EXPLAIN(穿头破脚 AND ISDOWN,'若高位,收阴,则反转下降'),colorCCFF33;
EXPLAIN(穿头破脚,'翌日确认的信号更加可靠'),colorFFCC33;
EXPLAIN(穿头破脚 AND VOL>REF(VOL,1),'配合交易量放大，可靠度较高'),colorFFCC33;
EXPLAIN(穿头破脚 AND 穿两日,'今日K线覆盖前两日，反转明显'),colorFF6600;
EXPLAIN(穿头破脚,'可靠性排序二');
乌云盖顶:=REF(ISUP,1) AND ISDOWN AND REF(CLOSE/OPEN>1.03,1) AND CLOSE>REF(OPEN,1) AND CLOSE<REF(CLOSE,1) AND OPEN>REF(CLOSE,1) AND OPEN>REF(HIGH,1) AND (CLOSE-REF(OPEN,1))/(REF(CLOSE,1)-CLOSE)<1.22;
非标准乌云盖顶:=REF(ISUP,1) AND ISDOWN AND REF(CLOSE/OPEN>1.03,1) AND CLOSE>REF(OPEN,1) AND OPEN>REF(CLOSE,1) AND CLOSE-REF(OPEN,1)<REF(CLOSE,1)-CLOSE;
EXPLAIN(乌云盖顶,' '+'乌云盖顶'),colorFF00;
EXPLAIN(乌云盖顶,'行情见顶回落信号'),colorCCFF33;
EXPLAIN(乌云盖顶,'影线越短越好并观察交易量是否存在夺路而逃的放大'),colorCCFF33;
EXPLAIN(非标准乌云盖顶 AND NOT(乌云盖顶),' '+'非标准乌云盖顶'),colorFF00;
EXPLAIN(非标准乌云盖顶 AND NOT(乌云盖顶),'不是一个标准的乌云盖顶，若出现在顶部具有参考意义'),colorCCFF33;
EXPLAIN(乌云盖顶,'可靠性排序六');
曙光初现:=REF(ISDOWN,1) AND ISUP AND REF(CLOSE/OPEN<0.97,1) AND OPEN<REF(CLOSE,1) AND CLOSE<REF(OPEN,1) AND REF(OPEN,1)-CLOSE<CLOSE-REF(CLOSE,1);
EXPLAIN(曙光初现,' '+'曙光初现'),color3300FF;
EXPLAIN(曙光初现,'行情见底升信号，影线越短越好'),color6633CC;
EXPLAIN(曙光初现,'可靠性排序七');
身怀六甲:=REF(ISUP,1) AND REF(CLOSE/OPEN>1.03,1) AND IF(ISUP,CLOSE,OPEN)<REF(CLOSE,1) AND IF(ISUP,OPEN,CLOSE)>REF(OPEN,1) OR REF(ISDOWN,1) AND REF(CLOSE/OPEN<0.97,1) AND IF(ISUP,CLOSE,OPEN)<REF(OPEN,1) AND IF(ISUP,OPEN,CLOSE)>REF(CLOSE,1);
EXPLAIN(身怀六甲,' '+'身怀六甲'),colorFF6600;
EXPLAIN(身怀六甲,'力度减弱，行情趋缓或者转势'),colorFFCC33;
EXPLAIN(身怀六甲 AND ISDOWN,'高位多为见顶转跌'),colorCCFF33;
EXPLAIN(身怀六甲 AND ISDOWN,'低位多为缓跌慢升'),colorFFCC33;
EXPLAIN(身怀六甲 AND ISUP,'低位多为见底转升'),color6633CC;
EXPLAIN(身怀六甲 AND ISUP,'高位多为冲高速降'),colorCCFF99;
EXPLAIN(身怀六甲 AND CLOSE=OPEN,'十字胎趋缓转折'),colorFF6600;
EXPLAIN(身怀六甲,'可靠性排序五');
平顶:=REF(HIGH,1)>REF(HIGH,2) AND (REF(HIGH,1)=HIGH OR IF(ISUP,CLOSE,OPEN)=IF(REF(ISUP,1),REF(CLOSE,1),REF(OPEN,1))) AND CLOSE<HHV(HIGH,2);
平底:=REF(LOW,1)<REF(LOW,2) AND REF(LOW,1)=LOW OR IF(ISUP,OPEN,CLOSE)=IF(REF(ISUP,1),REF(OPEN,1),REF(CLOSE,1));EXPLAIN(平顶,' '+'平顶'),colorFF6600;
EXPLAIN(平顶,'转向形态，高位有效'),colorFFCC33;
EXPLAIN(平底,' '+'平底'),colorFF6600;
EXPLAIN(平底,'转向形态，低位有效'),colorFFCC33;
EXPLAIN(平底 OR 平顶,'首先准确判断'),colorFFCC33;
EXPLAIN(平底 OR 平顶,'是上升初、中、末期'),colorFFCC33;
EXPLAIN(平底 OR 平顶,'还是下跌初、中、末期'),colorFFCC33;
各种形态:=早晨 OR 黄昏 OR 十字星 OR 射击之星 OR 锤头 OR 穿头破脚 OR 乌云盖顶 OR 曙光初现 OR 身怀六甲 OR 非标准乌云盖顶 OR 非标准锤头;
EXPLAIN(平底 AND 各种形态,'平底组合其它形态，可信度高'),colorFF6600;
EXPLAIN(平顶 AND 各种形态,'平顶组合其它形态，可信度高'),colorFF6600;
好友反攻:=ISUP AND REF(ISDOWN,1) AND CLOSE=REF(CLOSE,1);
EXPLAIN(好友反攻,' '+'好友反攻'),color3300FF;
EXPLAIN(好友反攻,'见底反攻形态'),color6633CC;
淡友反攻:=ISDOWN AND REF(ISUP,1) AND CLOSE=REF(CLOSE,1);
EXPLAIN(淡友反攻,' '+'淡友反攻'),colorFF00;
EXPLAIN(淡友反攻,'见顶反攻形态'),colorCCFF33;
三兵:=ALL(ISUP,3) AND ALL(CLOSE>REF(CLOSE,1),2) AND REF(ISDOWN,3) AND ALL(涨幅比>0.5,3);
大兵:=ALL(涨幅比>REF(涨幅比,1),2) AND 三兵;
小兵:=ALL(涨幅比<REF(涨幅比,1),2) AND 三兵;
EXPLAIN((小兵 OR 大兵),' '+'三兵形态'),colorFF6600;
EXPLAIN(大兵,'放大三阳，后市看好'),color6633CC;
EXPLAIN(小兵,'缩小三阳，后市看淡,第三K线影线较长，蜡烛部分较短'),colorCCFF33;
两只乌鸦:=REF(CLOSE,1)>REF(IF(ISUP,CLOSE,OPEN),2) AND OPEN>REF(OPEN,1) AND CLOSE<REF(CLOSE,1) AND ALL(ISDOWN,2);
EXPLAIN(两只乌鸦,' '+'两只乌鸦'),colorFF00;
EXPLAIN(两只乌鸦,'连续高开却上冲无力'),colorCCFF33;
EXPLAIN(两只乌鸦,'特别注意在高位的信号'),colorCCFF33;
EXPLAIN(两只乌鸦,'若在中期出现，需要对消息面和人气进行分析'),colorFF6600;
EXPLAIN(两只乌鸦,'若在低位出现说明人气开始回升只是力量还不够，可以在之后的适当价位介入'),colorFFCC33;
三只乌鸦:=ALL(ISDOWN,3) AND ALL(CLOSE<REF(CLOSE,1),2) AND ALL(OPEN<REF(OPEN,1) AND OPEN>REF(CLOSE,1),2);
EXPLAIN(三只乌鸦,' '+'三只乌鸦'),colorFF00;
EXPLAIN(三只乌鸦,'行情严重向淡'),colorCCFF33;
塔形顶:=跌幅比>3 AND BARSLAST(涨幅比>3) AND ALL(IF(ISUP,CLOSE,OPEN)>OPEN AND IF(ISUP,CLOSE,OPEN)>REF(CLOSE,BARSLAST(涨幅比>3)),BARSLAST(涨幅比>3));
EXPLAIN(塔形顶,'塔形顶');
上升三部曲预备:=REF(涨幅比,BARSLAST(ISUP))>ANY(跌幅比,BARSLAST(ISUP)-1) AND ALL(ISDOWN,BARSLAST(ISUP)-1) AND REF(CLOSE,BARSLAST(ISUP))>HHV(OPEN,BARSLAST(ISUP)-1) AND REF(OPEN,BARSLAST(ISUP))<LLV(CLOSE,BARSLAST(ISUP)-1);
EXPLAIN(上升三部曲预备,'上升三部曲前奏'),color3300FF;
EXPLAIN(上升三部曲预备,'连续的下跌却一直没有跌破前一根阳线'),color6633CC;
EXPLAIN(上升三部曲预备,'后期看涨可以介入'),color6633CC;
EXPLAIN(上升三部曲预备,'建议等待阳线确认上升'),color6633CC;
看好:=早晨 OR REF(十字星,1) AND ISUP OR 穿头破脚 AND ISUP OR 曙光初现 OR 平底 AND LOW=LLV(LOW,4) OR 好友反攻 OR 大兵;
看空:=黄昏 OR REF(十字星,1) AND ISDOWN OR 垂死十字 OR 穿头破脚 AND ISDOWN OR 乌云盖顶 OR 非标准乌云盖顶 OR 平顶 OR 淡友反攻 OR 小兵;
中立:=射击之星 OR 十字星 OR 锤头 OR 非标准锤头 OR 非标准射击之星 OR 身怀六甲;
交易量比较:=VOL>REF(VOL,2)*1.05;
蜡烛跳空:=IF(ISUP,OPEN,CLOSE)>REF(IF(ISUP,CLOSE,OPEN),1) OR IF(ISUP,CLOSE,OPEN)<REF(IF(ISUP,OPEN,CLOSE),1);
跳空:=LOW>REF(HIGH,1) OR HIGH<REF(LOW,1);
连续跳空:=REF(跳空,1) AND 跳空;
EXPLAIN(1,' '+'附加k线确认'),colorFFFF;
EXPLAIN(REF(看好,1) AND ISUP,'收阳确认昨日信号'),color3300FF;
EXPLAIN(REF(看空,1) AND ISDOWN,'收阴确认昨日信号'),colorFF00;
EXPLAIN(REF(看空,1) AND ISUP,'收阳降低了昨日信号的向淡强度'),colorCCFF99;
EXPLAIN(REF(看好,1) AND ISDOWN,'收阴降低了昨日信号的向好强度'),colorCCFF99;
EXPLAIN((早晨 OR 黄昏),'请自行分析买卖力道是否存在由被动性沽盘到主动性沽盘的转变'),colorFFCC33;
EXPLAIN(跳空 AND (看好 OR 看空 OR 中立),'跳空星体信号，可靠度高，星体越小越可靠'),colorFFCC33;
EXPLAIN(连续跳空 AND (REF(看好 OR 看空 OR 中立,1)),'再次跳空确认昨天的星体信号高度可靠'),colorFFCC33;
EXPLAIN(REF(锤头,1) AND ISDOWN AND CLOSE<REF(LOW,1),'今日走跌是对昨日锤头见顶信号的确认'),colorCCFF33;
EXPLAIN(REF(上升三部曲预备,1) AND ISUP AND 涨幅比>3,'阳线收复下跌空间拉升在即'),color3300FF;
EXPLAIN(CLOSE>REF(HIGH,1) AND 品种强弱>=MA(品种强弱,5),'多头攻击K线\n做多以当日最低价为止损位'),colorCCFF99;
EXPLAIN(CLOSE<REF(LOW,1) AND HIGH<REF(HIGH,1) AND 品种强弱<MA(品种强弱,8),'空头攻击K线\n多头注意止损'),colorCCFF33;
EXPLAIN(HIGH>REF(HIGH,1) AND LOW<REF(LOW,1) AND CLOSE>OPEN AND 品种强弱>=MA(品种强弱,5),'变盘k线，\n多头设置当日最低点为止损位'),colorCCFF33;
EXPLAIN(HIGH>REF(HIGH,1) AND LOW<REF(LOW,1) AND CLOSE<=OPEN,'变盘k线，\n多头小心,设置当日最低点为止损位'),colorCCFF99;
//技术指标;EXPLAIN(c,' '+'技术指标'),colorFFFF;{KDJ}
日K:="KDJ.K#DAY"(20,5,5);
日D:="KDJ.D#DAY"(20,5,5);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
EXPLAINEX(周K>0 and 周K<=20,'低位/周线K=',周K,2,0);
EXPLAINEX(周K>0 and 周K>=80,'高位/周线K=',周K,2,0);
EXPLAINEX(周K>0 and (周K>20 AND 周K<50),'中低/周线K=',周K,2,0);
EXPLAINEX(周K>0 and (周K>50 AND 周K<80),'中高/周线K=',周K,2,0);
EXPLAINEX(日K>0 and 日K<=20,'低位/日线K=',日K,2,0);
EXPLAINEX(日K>0 and 日K>=80,'高位/日线K=',日K,2,0);
EXPLAINEX(日K>0 and (日K>20 AND 日K<50),'中低/日线K=',日K,2,0);
EXPLAINEX(日K>0 and (日K>50 AND 日K<80),'中高/日线K=',日K,2,0);
EXPLAIN((CROSS(日K,日D)),'日K与日D今日金叉');
EXPLAIN((CROSS(日D,日K)),'日K与日D今日死叉');
EXPLAIN((CROSS(周K,周D)),'周K与周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'周K与周D今日死叉');KDJ_A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
KDJ_B2:=REF(C,KDJ_A2+1)>C AND REF("KDJ.K", KDJ_A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
EXPLAIN(KDJ_B2>0,'KDJ底背离');
KDJ_C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
KDJ_D2:=REF(C,KDJ_C2+1)<C AND REF("KDJ.K",KDJ_C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
EXPLAIN(KDJ_D2>0,'KDJ顶背离');
EXPLAIN("KDJ.J"<20, 'KDJ之J值小于20');
EXPLAIN("KDJ.J">80, 'KDJ之J值大于80');
EXPLAIN("KDJ.K">"KDJ.D",'KDJ之K值大于D值');
EXPLAIN("KDJ.K"<"KDJ.D",'KDJ之K值小于D值');{RSI}
RSI_A1:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
RSI_B1:=REF(C,RSI_A1+1)>C AND REF("RSI.RSI1",RSI_A1+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
EXPLAIN ("RSI.RSI1"<20, 'RSI超卖');
EXPLAIN (RSI_B1>0,'RSI底背离');
RSI_A2:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
RSI_b2:=REF(C, RSI_A2+1)<C AND REF("RSI.RSI1", RSI_A2+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
EXPLAIN("RSI.RSI1">80, 'RSI超买');
EXPLAIN(RSI_B2>0,'RSI顶背离');
EXPLAIN("RSI.RSI1">"RSI.RSI2", 'RSI多头');
EXPLAIN("RSI.RSI1"<"RSI.RSI2", 'RSI空头');
{MACD}
MACD_A1:=BARSLAST(ref(cross("MACD.diff","MACD.dea"),1));
MACD_b1:=ref(c, MACD_A1+1)>c and ref("MACD.diff", MACD_A1+1)<"MACD.diff" and cross("MACD.diff","MACD.dea");
EXPLAIN(MACD_b1>0,'MACD底背离');
MACD_A2:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1));
MACD_b2:=REF(CLOSE, MACD_A2+1)<CLOSE AND REF("MACD.DIFF", MACD_A2+1)>"MACD.DIFF" AND CROSS("MACD.DEA","MACD.DIFF");
EXPLAIN (MACD_b2>0,'MACD顶背离');
JC:=CROSS("MACD.diff","MACD.dea");
SC:=CROSS("MACD.dea","MACD.diff");
DCJC:=JC AND "MACD.dea">0;
EXPLAIN((JC AND "MACD.dea">0),'MACD在0轴上金叉');
EXPLAIN((JC AND "MACD.dea"<0),'MACD在0轴下金叉');
EXPLAIN((SC AND "MACD.dea">0),'MACD在0轴上死叉');
EXPLAIN((SC AND "MACD.dea"<0),'MACD在0轴下死叉');
EXPLAIN(("MACD.macd">0 AND "MACD.macd">REF("MACD.macd",1)),'MACD红柱增长');
EXPLAIN(("MACD.macd">0 AND "MACD.macd"<REF("MACD.macd",1)),'MACD红柱缩短');
EXPLAIN(("MACD.macd"<0 AND ABS("MACD.macd")>REF(ABS("MACD.macd"),1)),'MACD绿柱增长');
EXPLAIN(("MACD.macd"<0 AND ABS("MACD.macd")<REF(ABS("MACD.macd"),1)),'MACD绿柱缩短');
EXPLAIN((COUNT(DCJC,20)=2 AND JC AND "MACD.dea">0),'0轴上2次金叉');
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND "MACD.dea">0),'0轴上3次金叉');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND "MACD.dea">0),'0轴上4次金叉');{DMI}
PDI:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
MDI:=HIGH-REF(HIGH,1);
ADX:=REF(LOW,1)-LOW;
ADXR:=SUM(IF(MDI>0 AND MDI>ADX,MDI,0),14);
TYP:=SUM(IF(ADX>0 AND ADX>MDI,ADX,0),14);
CCI:=ADXR*100/PDI;
WR:=TYP*100/PDI;
MTM:=MA((ABS(WR-CCI))/(WR+CCI)*100,6);
MTMMA:=(MTM+REF(MTM,6))/2;
EXPLAIN(CROSS(CCI,WR),'PDI向上突破MDI，新多头进场，买进信号'),colorFF;
EXPLAIN(CROSS(WR,CCI),'PDI向下跌破MDI，新空头进场，卖出信号'),colorFF00;
EXPLAIN(MTM>REF(MTM,1),'ADX值持续高于前一日，行情将维持原趋势'),colorFFFF00;
EXPLAIN(MTM<REF(MTM,1) AND MTM<20,'ADX值递减，降到20以下，且横向行进，市场盘整'),colorFFFF;
EXPLAIN(MTM<REF(MTM,1) AND REF(MTM,1)<REF(MTM,2) AND REF(MTM,2)>REF(MTM,3) AND REF(MTM,3)>REF(MTM,4),'ADX值上升倾向转为下降，行情即将反转'),color99FF;
{BOLL}
PSY:=CLOSE-REF(CLOSE,6);
布尔1:=MA(PSY,6);
EXPLAIN(CROSS(PSY,布尔1) AND 布尔1<-0.8,'MTM突破MTMMA，买入信号'),colorFF;
EXPLAIN(CROSS(布尔1,PSY) AND 布尔1>0.8,'MTM跌破MTMMA，卖出信号'),colorFF00;
布尔2:=REF(CLOSE,1);
布尔3:=(SMA(MAX(CLOSE-布尔2,0),6,1))/(SMA(ABS(CLOSE-布尔2),6,1))*100;
布尔4:=(SMA(MAX(CLOSE-布尔2,0),12,1))/(SMA(ABS(CLOSE-布尔2),12,1))*100;
EXPLAIN(布尔3>85,'6日RSI突破85超买,防回挡,卖出信号'),colorFFFF00;
EXPLAIN(布尔3<15,'6日RSI跌破15超卖,可能反弹，买进信号'),colorFFFF;
布尔5:=(COUNT(CLOSE>REF(CLOSE,1),12))/12*100;
布尔6:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
布尔7:=布尔6+3*STD(布尔6,10);
XX:=布尔6-3*STD(布尔6,10);
A001:=(布尔7-XX)/布尔7<0.03;
A002:=(布尔7-XX)/布尔7>0.18;
A003:=(MA(CLOSE,60)-MA(CLOSE,5))/MA(CLOSE,60)>0.15;
A004:=(MA(CLOSE,5)-MA(CLOSE,60))/MA(CLOSE,5)>0.15;
EXPLAIN(A001,'多空布尔收敛中，有变盘可能'),colorFFFF00;
EXPLAIN(A003 AND A002 AND CLOSE>OPEN,'布尔上下乖离太大，有反弹可能'),colorFFFF;
EXPLAIN(A004 AND A002 AND CLOSE<OPEN,'布尔上下乖离太大，有回落可能'),colorFF00;VAR01:=(2*CLOSE+HIGH+LOW)/4;
VAR02:=WMA(WMA(WMA(VAR01,4),4),4);
J:=(VAR02-REF(VAR02,1))/REF(VAR02,1)*100;
D:=MA(J,3);
K:=MA(J,1);
高级MACD出现:=ANY(CROSS(K,D),3) AND NOT(ANY(CROSS(D,K),3)) AND 看好 OR ANY(CROSS(D,K),3) AND NOT(ANY(CROSS(K,D),3)) AND 看空;
EXPLAIN(高级MACD出现,' '+'高级MACD'),colorFF6600;
//EXPLAINICON(ANY(CROSS(K,D),2) AND NOT(ANY(CROSS(D,K),2)) AND 看好,2);
//EXPLAINICON(ANY(CROSS(D,K),2) AND NOT(ANY(CROSS(K,D),2)) AND 看空,1);
EXPLAIN(高级MACD出现,'中低参考');
VAR002:=REF(LOW,1);
VAR003:=(SMA(ABS(LOW-VAR002),13,1))/(SMA(MAX(LOW-VAR002,0),13,1))*100;
VAR004:=EMA(IF(CLOSE*1.2,VAR003*13,VAR003/13),13);
VAR005:=LLV(LOW,34);
VAR006:=HHV(VAR004,34);
VAR007:=IF(LLV(LOW,56),1,0);
VAR008:=(EMA(IF(LOW<=VAR005,(VAR004+VAR006*2)/2,0),3))/(618)*VAR007;
VAR009:=EMA(CLOSE,5);
VAR0010:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(-10);
XL1:=MA(LOW,2)*0.96;
XL2:=MA(LOW,26)*0.85;
抄底:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1 AND REF(XL1,1)<REF(XL1,2);
跟进:=VAR008>REF(VAR008,1);
EXPLAIN((ANY(跟进 OR 抄底,3)) AND 看好,' '+'跟庄抄底'),colorFF6600;
EXPLAINICON((ANY(跟进 OR 抄底,3)) AND 看好,3);
EXPLAIN((ANY(跟进 OR 抄底,3)) AND 看好,'形态位置好配合信号介入成功率极高‖中高参考');
//DRAWICON((ANY(跟进 OR 抄底,3)) AND 看好,2,1);
线1:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,25))/3;
线2:=(MA(CLOSE,5)+MA(CLOSE,10)+MA(CLOSE,20)+MA(CLOSE,30)+MA(CLOSE,60)+MA(CLOSE,120))/6;
线3:=(MA(CLOSE,20)+MA(CLOSE,60)+MA(CLOSE,120))/3;
线4:=(MA(CLOSE,13)+MA(CLOSE,34)+MA(CLOSE,55))/3;
EXPLAIN(CROSS(线1,线4),' '+'跟进买入‖高度参考'),colorFF;
EXPLAINICON(CROSS(线1,线4),4);
//DRAWICON(CROSS(线1,线4),4,3);
VARL1:=100-90*(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21));
VARL2:=100-90*(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21));
VARL3:=100-MA(100*(HHV(HIGH,6)-CLOSE)/(HHV(HIGH,6)-LLV(LOW,6)),34);
//DRAWICON(CROSS(VARL2,MA(VARL3,6)) AND 看好,6,6);
//EXPLAIN(IF(NOT(高级MACD出现) AND NOT((ANY(跟进 OR 抄底,3)) AND 看好) AND NOT(CROSS(线1,线4)),1,0),' '+'无'),colorFF6600;
//DRAWICON(看好,10,6);
//DRAWICON(看空,10,7);
VARL3:=ref(hhv(h,3)/llv(l,3)<=1.06,1) and c=hhv(c,4) and vol=hhv(vol,4);
EXPLAIN((ANY(VARL3,1)),'升浪中盘整突破、配合信号介入成功率高');LC:=REF(CLOSE,1);
品种强弱:=(SMA(MAX(CLOSE-LC,0),13,1))/(SMA(ABS(CLOSE-LC),13,1))*100;
CC:="1A0001$CLOSE";
FF:="399001$CLOSE";
LC1:=REF(IF(INBLOCK('深圳A股')=1,FF,CC),1);
指数强弱:=(SMA(MAX((IF(INBLOCK('深圳A股')=1,FF,CC))-LC1,0),13,1))/(SMA(ABS((IF(INBLOCK('深圳A股')=1,FF,CC))-LC1),13,1))*100;
强弱度:=品种强弱-指数强弱;
EXPLAIN(CLOSE>0,' '+'大盘强弱'),colorFFFF;
EXPLAIN(强弱度>0,'现阶段强于大盘指数'),color3300FF;
EXPLAIN(强弱度=0,'现阶段与大盘指数同步'),colorFFCC33;
EXPLAIN(强弱度<0,'现阶段弱于大盘指数'),colorCCFF33;
EXPLAIN(品种强弱>=50,'现阶段属于强势'),color6633CC;
EXPLAIN(品种强弱<50,'现阶段属于弱势'),colorCCFF33;
EXPLAIN(品种强弱>=MA(品种强弱,8),'指标处于多头趋势'),color6633CC;
EXPLAIN(品种强弱<MA(品种强弱,8),'指标处于空头趋势'),colorCCFF33;qs1:=ema((21*ema(maj,3)+13*ema(maj,5)+5*ema(maj,13)+3*ema(maj,21)+8*ema(maj,8))/50,2);
PARTLINE(QS1<= REF(QS1,1),Qs1),LINETHICK2,colorFFFF60;
PARTLINE((QS1> REF(QS1,1)) or (ref(QS1,1)>ref(QS1,2) and ref(QS1,1)>qs1 and c>QS1),QS1),LINETHICK2,Color3200DE;M2:=EMA(qs1,5);
M3:=EMA(M2,5);
M4:=EMA(M3,5);
M5:=EMA(M4,5);
{PARTLINE(M2,M2),LINETHICK1,COLORGREEN;
PARTLINE(M3,M3),LINETHICK1,COLORGREEN;
PARTLINE(M4,M4),LINETHICK1,COLORGREEN;
PARTLINE(M5,M5),LINETHICK1,COLORGREEN;
partline(M2>REF(M2,1),M2),,Color00B5FF;
partline(M3>REF(M3,1),M3),,Color00B5FF;
partline(M4>REF(M4,1),M4),,Color00B5FF;
partline(M5>REF(M5,1),M5),,Color00B5FF;}{QSf1:=fft(maj,n2);
PARTLINE((QSf1> REF(QSf1,1)),QSf1),LINETHICK1,colorFF;
PARTLINE((QSf1<= REF(QSf1,1)),QSf1),LINETHICK1,colorgreen;}
{QS2:=fft(maj,n1);
PARTLINE((QS2> REF(QS2,1)),QS2),LINETHICK1,Color5C97D3;
PARTLINE((QS2<= REF(QS2,1)),QS2),LINETHICK1,Color5C9713;}
{通道上:=fft(HIGH*0.9,n2);
通道下:=fft(LOW*1.1,n2);
A2:=通道上-REF(通道上,1);
A3:=通道下-REF(通道下,1);
PARTLINE(A2>0,通道上) LINETHICK1 COLORRED;
PARTLINE(A2=0,通道上) LINETHICK1 COLORWHITE;
PARTLINE(A2<0,通道上) LINETHICK1 COLORGREEN;
PARTLINE(A3>0,通道下) LINETHICK1 COLORRED;
PARTLINE(A3=0,通道下) LINETHICK1 COLORWHITE;
PARTLINE(A3<0,通道下) LINETHICK1 COLORGREEN;}{bk:='板块指数';stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=STKFROMBLK(bk,k);
dmstr[k]:=dm;
temp1:=STKINDI(dm,yygs4,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=SORTPOS(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];DRAWTEXTEX(1,1,500,920,'【领涨版块】'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)+' '+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)+' ' +STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color00FFFF;
yygs5:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=STKFROMBLK(bk,k);
dmstr[k]:=dm;
temp1:=STKINDI(dm,yygs5,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=SORTPOS(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(1,1,500,960,'【领跌版块】'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)+' '+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)+' '+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),ColorFFFF00;}//时间窗口
var31:=HHVBARS(ZIG(3, 19)>REF(ZIG(3,19),1)
and REF(ZIG(3,19), 1)<REF(ZIG(3,19), 2),0);
DRAWTEXT(var31=2,LOW*0.98,'↑\n 3天'),align0,coloryellow;
DRAWTEXT(var31=4,HIGH*1.06,' 5天\n↓'),align0,coloryellow;
DRAWTEXT(var31=7,LOW*0.98,'↑\n 8天'),align0,coloryellow;
DRAWTEXT(var31=12,HIGH*1.06,' 13天\n↓'),align0,coloryellow;
DRAWTEXT(var31=20,LOW*0.98,'↑\n 21天'),align0,coloryellow;
DRAWTEXT(var31=33,HIGH*1.06,' 34天\n↓'),align0,coloryellow;
DRAWTEXT(var31=54,LOW*0.98,'↑\n 55天'),align0,coloryellow;
DRAWTEXT(var31=88,HIGH*1.06,' 89天\n↓'),align0,coloryellow;
DRAWTEXT(var31=143,LOW*0.98,'↑\n 144天'),align0,coloryellow;
DRAWTEXT(var31=232,HIGH*1.06,' 233天\n↓'),align0,coloryellow;
DRAWTEXT(var31=376,LOW*0.98,'↑\n 376天'),align0,coloryellow;{时段均价计算}
D:=DATACOUNT;GB:=SYSPARAM(1);
周期:=D-GB+1,LINETHICK;
额:=REFX(SUM(AMOUNT,周期),D-GB);
量:=REFX(SUM(VOL*100,周期),D-GB);
总换:=REFX(SUM(VOL,周期),D-GB)/CAPITAL*100,LINETHICK;
均换:=(REFX(SUM(VOL,周期),D-GB)/CAPITAL*100)/周期,LINETHICK;
大盘:=(2*CLOSE+HIGH+LOW)/4;
均价:=IF(CAPITAL>0,额/量,REFX(SUM(大盘,周期),D-GB)/周期);
//DRAWLINE(BARPOS=SYSPARAM(1) ,均价,BARPOS=SYSPARAM(1)+1,REF(均价,1),1),ColorE1E100,LINETHICK1;{点石成金}
bc:=BARSLAST(SYSPARAM(1)=BARPOS)+1;
点石成金H:=IF(CLOSE>100,SUM(HIGH*VOL,bc)/SUM(VOL,bc),SUM(AMOUNT,bc)/SUM(VOL,bc)/100*SUM(HIGH,bc)/SUM(CLOSE,BC));
点石成金L:=IF(CLOSE>100,SUM(LOW*VOL,bc)/SUM(VOL,bc),SUM(AMOUNT,bc)/SUM(VOL,bc)/100*SUM(LOW,bc)/SUM(CLOSE,BC));
点石成金:=IF(REF(HIGH,bc-1)>REF(HIGH,bc) and REF(HIGH,bc-1)>REF(HIGH,bc-2) ,点石成金h,点石成金l),Color02BBF9,LINETHICK1;
//DRAWTEXTEX(CLOSE,1,800,50,'周 期:'+NUMTOSTR(周期,0)+' 天\n'
//+ '点石成金:'+NUMTOSTR(点石成金[DATACOUNT],2)+'元\n'
//+ '时段均价:'+NUMTOSTR(均价[DATACOUNT],2)+'元\n'
//+ '时段均换:'+NUMTOSTR(均换[DATACOUNT],2)+'%'),Color00DDDD;
DRAWTEXTEX(1,1,20,50,'【 周 期 】: '+NUMTOSTR(周期,0)+' 天'),Color0F7AC5;
DRAWTEXTEX(1,1,20,90,'【时段均价】: '+NUMTOSTR(均价[DATACOUNT],2)+' 元'),Color0F7AC5;
DRAWTEXTEX(1,1,20,130,'【时段均换】: '+NUMTOSTR(均换[DATACOUNT],2)+' %'),Color0F7AC5;
DRAWTEXTEX(1,1,20,170,'【点石成金】: '+NUMTOSTR(点石成金[DATACOUNT],2)+' 元'),Color0F7AC5;
DRAWTEXTEX(1,1,20,210,'【总换手率】: '+NUMTOSTR(总换[DATACOUNT],0)+' %'),Color0F7AC5;eMA30:=EMA(CLOSE,30);
eMA60:=EMA(CLOSE,60);
eMA128:=EMA(CLOSE,128);
eMA256:=EMA(CLOSE,256);
sjt1:=IF(eMA30[SYSPARAM(1)]>eMA30[SYSPARAM(1)-1],'↑','↓');
sjt2:=IF(eMA60[SYSPARAM(1)]>eMA60[SYSPARAM(1)-1],'↑','↓');
sjt3:=IF(eMA128[SYSPARAM(1)]>eMA128[SYSPARAM(1)-1],'↑','↓');
sjt4:=IF(eMA256[SYSPARAM(1)]>eMA256[SYSPARAM(1)-1],'↑','↓');
DRAWTEXTEX(1,1,20,300,'【 EMA30 】: '+NUMTOSTR(eMA30[SYSPARAM(1)],2)+' 元 '+sjt1),Color0F7AC5;
DRAWTEXTEX(1,1,20,340,'【 EMA60 】: '+NUMTOSTR(eMA60[SYSPARAM(1)],2)+' 元 '+sjt2),Color0F7AC5;
DRAWTEXTEX(1,1,20,380,'【 EMA128 】: '+NUMTOSTR(eMA128[SYSPARAM(1)],2)+' 元 '+sjt3),Color0F7AC5;
DRAWTEXTEX(1,1,20,420,'【 EMA256 】: '+NUMTOSTR(eMA256[SYSPARAM(1)],2)+' 元 '+sjt4),Color0F7AC5;SAT:=IF((AMOUNT/CLOSE)/(HHV(AMOUNT,20)/HHV(CLOSE,20))*100>100,100,(AMOUNT/CLOSE)/(HHV(AMOUNT,20)/HHV(CLOSE,20))*100);
sjt5:=IF(SAT[SYSPARAM(1)]>SAT[SYSPARAM(1)-1],'↑','↓');
DRAWTEXTEX(1,1,20,500,'【量能饱和度】: '+NUMTOSTR(SAT[SYSPARAM(1)],0)+' '+sjt5),LINETHICK5,Color0F7AC5;{均价线:=MA(c,1),colorDDDDDD;
EXPMA:=均价线;K0:=LBOUND(EXPMA);K2:=UBOUND(EXPMA);
FOR I=K0+1 TO K2 do begin
EXPMA[I]:(EXPMA[I]-EXPMA[I-1])/(Nn+线数/2)+EXPMA[I-1],Colorwhite;
END;IF 线数=1 THEN EXIT;
EXPMB:=EXPMA;
FOR I=K0+1 TO K2 do begin
EXPMB[I]:(EXPMA[I]-EXPMB[I-1])/(Nn+线数/2)+EXPMB[I-1],ColorFD04C5;
END;IF 线数=2 THEN EXIT;
EXPMc:=EXPMB;
FOR I=K0+1 TO K2 do begin
EXPMc[I]:(EXPMB[I]-EXPMc[I-1])/(Nn+线数/2)+EXPMc[I-1],Color00EA00;
END;
IF 线数=3 THEN EXIT;
EXPMd:=EXPMc;
FOR I=K0+1 TO K2 do begin
EXPMd[I]:(EXPMc[I]-EXPMd[I-1])/(Nn+线数/2)+EXPMd[I-1],COLORAAFFBB;
END;
IF 线数=4 THEN EXIT;
EXPMe:=EXPMd;
FOR I=K0+1 TO K2 do begin
EXPMe[I]:(EXPMd[I]-EXPMe[I-1])/(Nn+线数/2)+EXPMe[I-1],COLOREEFF66;
END;
IF 线数=5 THEN EXIT;
EXPMf:=EXPMe;
FOR I=K0+1 TO K2 do begin
EXPMf[I]:(EXPMe[I]-EXPMf[I-1])/(Nn+线数/2)+EXPMf[I-1],COLOR00CCFF;
END;
IF 线数=6 THEN EXIT;
EXPMG:=EXPMF;
FOR I=K0+1 TO K2 do begin
EXPMG[I]:(EXPMF[I]-EXPMG[I-1])/(Nn+线数/2)+EXPMG[I-1],COLORAA00FF,LINEDOT;
END;}{RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
压力位:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),COLORred,pointdot;
支撑位:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),COLOR77AAFF,pointdot;}{K_t1:MA(H,5)*(1+5/100);}{DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,5)>ref(ma(c,5),1),ma(c,5),' 5-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,10)>ref(ma(c,10),1),ma(c,10),' 10-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,20)>ref(ma(c,20),1),ma(c,20),' 20-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,30)>ref(ma(c,30),1),ma(c,30),' 30-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,60)>ref(ma(c,60),1),ma(c,60),' 60-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,90)>ref(ma(c,90),1),ma(c,90),' 90-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,120)>ref(ma(c,120),1),ma(c,120),'120-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,250)>ref(ma(c,250),1),ma(c,250),'250-'),pxup8,colorred;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,5)<ref(ma(c,5),1),ma(c,5),' 5-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,10)<ref(ma(c,10),1),ma(c,10),' 10-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,20)<ref(ma(c,20),1),ma(c,20),' 20-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,30)<ref(ma(c,30),1),ma(c,30),' 30-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,60)<ref(ma(c,60),1),ma(c,60),' 60-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,90)<ref(ma(c,90),1),ma(c,90),' 90-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,120)<ref(ma(c,120),1),ma(c,120),'120-'),pxup8,colorblue;
DRAWTEXT(SYSPARAM(1)=BARPOS and ma(c,250)<ref(ma(c,250),1),ma(c,250),'250-'),pxup8,colorblue;}{缺口跟踪--听雪寻股}
{fh:=HIGH;fl:=LOW;
for p=DATACOUNT-1 downto 1 do begin
IF fh[p]<fh[p+1] then
fh[p]:=fh[p+1];
IF fl[p]>fl[p+1] then
fl[p]:=fl[p+1];
end;
qk:=LOW>REF(HIGH,1)OR HIGH<REF(LOW,1);
G:=IF(LOW>REF(HIGH,1),LOW,IF(HIGH<REF(LOW,1),REF(LOW,1),0));
D:=IF(LOW>REF(HIGH,1),REF(HIGH,1),IF(HIGH<REF(LOW,1),HIGH,0));
S:=IF(LOW>REF(HIGH,1),2,IF(HIGH<REF(LOW,1),1,0));
tjj:=s=2 and fL<=G AND fL>=D OR s=1 and fH<G AND fH>=D ;w:=BARSSINCE(BACKSET(BARSTATUS=2,BARSLAST(TJj*BARPOS=BARPOS)+1))+1;
DD:=DATE;
最近缺口日:REF(DD,W-1)+19000000,LINETHICK0,COLORAAFF33;
S1:=IF(REF(S,W-1)=2,REF(fL,w-1),IF(REF(S,W-1)=1,REF(fH,w-1),0));
S2:=IF(REF(S,W-1)=2,REF(D,w-1),IF(REF(S,W-1)=1,REF(G,w-1),0));
A:=MAX(S1,S2);
B:=MIN(S1,S2);
缺口:B[DATACOUNT],COLORWHITE,LINETHICK,,PRECISION2;
→:A[DATACOUNT],COLORWHITE,LINETHICK,PRECISION2;
STICKLINE(w and s1<COST(50) and s1>COST(0),S1,S2,15,0),COLOR8B795E;
//DRAWTEXT(BARSTATUS=2,A,NUMTOSTR(B,2)+'-'+NUMTOSTR(A,2)),Color000080,ALIGN2;//显示缺口数字 可删除
hh:=HIGH;LL:=LOW;DD:=DATE;
gb:=SYSPARAM(1);
上突缺口:=LOW>REF(HIGH,1),COLOR00EEFF,LINETHICK0;
下突缺口:=HIGH<REF(LOW,1),COLOREE9933,LINETHICK0;
XQS:=UBOUND(下突缺口),LINETHICK0;
s111:=SUMBARS(上突缺口,1);
s211:=SUMBARS(上突缺口,2);
x111:=SUMBARS(下突缺口,1);
x211:=SUMBARS(下突缺口,2);
上突位置1:=gb-s111[gb]+1,LINETHICK0;
下突位置1:=gb-x111[gb]+1,LINETHICK0;
//DRAWTEXT(下突缺口,HIGH,'△'),Color026DD9,PXUP15,ALIGN0;
//DRAWTEXT(下突缺口,REF(LOW,1),'▽'),Color026DD9,ALIGN0;
//DRAWTEXT(上突缺口,LOW,'▽'),Color008080,ALIGN0;
//DRAWTEXT(上突缺口,REF(HIGH,1),'△'),Color008080,PXUP15,ALIGN0;
XQ1:=LL[下突位置1-1];
XQD:=DD[下突位置1];
BXQ:=COUNT(RANGE(BARPOS,下突位置1,XQS) AND HH>XQ1,XQS-下突位置1)=1;
BXQ:=FILTER(BXQ,XQS-下突位置1);
SQ1:=HH[上突位置1-1];
SQD:=DD[上突位置1];
上缺日:=IF(XQD<SQD,SQD+19000000,0),LINETHICK0,COLOR00EEFF;
下缺日:=IF(SQD<XQD,XQD+19000000,0),LINETHICK0,COLOREE9933;
BSQ:=COUNT(RANGE(BARPOS,上突位置1,XQS) AND LL<SQ1,XQS-上突位置1)=1;BSQ:=FILTER(BSQ,XQS-上突位置1);
//DRAWTEXT(BSQ,(OPEN+CLOSE)/2,' \n 补'+STRRIGHT(NUMTOSTR(SQD,0),6)+'\n 上突缺口'),ColorFFFFFF;
//DRAWTEXT(BSQ,SQ1,'←'),ALIGN0,COLOR00EEEE;
//DRAWTEXT(BXQ,(OPEN+CLOSE)/2,' \n 补'+STRRIGHT(NUMTOSTR(XQD,0),6)+'\n 下突缺口'),ColorFFFFFF;
//DRAWTEXT(BXQ,XQ1,'←'),ALIGN0,COLOR00EEEE;}{买:EMA(maj,2);
卖:EMA(SLOPE(maj,21)*20+maj,42);}//股价尺
{INPUT:W1(0,-1,1),W2(0.125,-1,1),W3(0.25,-1,1),W4(0.375,-1,1),W5(0.50,-1,1),
W6(0.625,-1,1),W7(0.75,-1,1),W8(0.875,-1,1),W9(1,-1,1);
//////以上参数根据自己需要可调
hhk:=h;
llk:=l;
光标:SYSPARAM(6),LINETHICK,COLOR00AAFF;
STICKLINE(BARPOS=SYSPARAM(1),光标,光标*0.999,600,0),COLOR00AAFF;
PP:=SYSPARAM(1);
KK:=光标-C;
IF KK[PP]>0 THEN BEGIN
{光标向上}
起始L:LLK[PP],COLOR0066FF,LINETHICK2;
涨幅统计:(光标-起始L)/起始L*100,LINETHICK;STICKLINE(BARPOS=SYSPARAM(1),起始L,光标,0.1,0),COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),起始L,'∨'),ALIGN0,PXUP20,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),光标,'∧'),ALIGN0,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-2,光标,NUMTOSTR(涨幅统计,3)),ALIGN2,PXUP20,COLOR00ffff;X1:起始L*(1+W1),LINEDOT,COLORFF9966;
X2:起始L*(1+W2),LINEDOT,COLORFF9966;
X3:起始L*(1+W3),LINEDOT,COLORFF9966;
X4:起始L*(1+W4),LINEDOT,COLORFF9966;
X5:起始L*(1+W5),LINEDOT,COLORFF9966;
X6:起始L*(1+W6),LINEDOT,COLORFF9966;
X7:起始L*(1+W7),LINEDOT,COLORFF9966;
X8:起始L*(1+W8),LINEDOT,COLORFF9966;
X9:起始L*(1+W9),LINEDOT,COLORFF9966;
DRAWNUMBER(BARPOS=SYSPARAM(3),X1,X1,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X2,X2,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X3,X3,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X4,X4,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X5,X5,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X6,X6,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X7,X7,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X8,X8,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X9,X9,2),COLORAAAAAA,ALIGN2,PXUP25;DRAWTEXT(BARPOS=SYSPARAM(1)-4,X1,NUMTOSTR(W1*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X2,NUMTOSTR(W2*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X3,NUMTOSTR(W3*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X4,NUMTOSTR(W4*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X5,NUMTOSTR(W5*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X6,NUMTOSTR(W6*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X7,NUMTOSTR(W7*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X8,NUMTOSTR(W8*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X9,NUMTOSTR(W9*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
END;
ELSE BEGIN
{光标向下}
起始H:HHK[PP],COLORFF66DD,LINETHICK2;
跌幅统计:(光标-起始H)/起始H*100,LINETHICK;STICKLINE(BARPOS=SYSPARAM(1),起始H,光标,0.1,0),COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),起始H,'∨'),ALIGN0,PXUP20,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1),光标,'∧'),ALIGN0,COLOR00AAFF;
DRAWTEXT(BARPOS=SYSPARAM(1)-2,光标,NUMTOSTR(跌幅统计,3)),ALIGN2,PXUP20,COLOR00ffff;X11:起始H*(1-W1),LINEDOT,COLORFF9966;
X21:起始H*(1-W2),LINEDOT,COLORFF9966;
X31:起始H*(1-W3),LINEDOT,COLORFF9966;
X41:起始H*(1-W4),LINEDOT,COLORFF9966;
X51:起始H*(1-W5),LINEDOT,COLORFF9966;
X61:起始H*(1-W6),LINEDOT,COLORFF9966;
X71:起始H*(1-W7),LINEDOT,COLORFF9966;
X81:起始H*(1-W8),LINEDOT,COLORFF9966;
X91:起始H*(1-W9),LINEDOT,COLORFF9966;
DRAWNUMBER(BARPOS=SYSPARAM(3),X11,X11,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X21,X21,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X31,X31,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X41,X41,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X51,X51,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X61,X61,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X71,X71,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X81,X81,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWNUMBER(BARPOS=SYSPARAM(3),X91,X91,2),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X11,NUMTOSTR(-W1*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X21,NUMTOSTR(-W2*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X31,NUMTOSTR(-W3*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X41,NUMTOSTR(-W4*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X51,NUMTOSTR(-W5*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X61,NUMTOSTR(-W6*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X71,NUMTOSTR(-W7*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X81,NUMTOSTR(-W8*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
DRAWTEXT(BARPOS=SYSPARAM(1)-4,X91,NUMTOSTR(-W9*100,1)+'%'),COLORAAAAAA,ALIGN2,PXUP25;
END;}{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
