通达信单线涨停板主图指标公式源码编程思路破译编程思路破译AD1赋值:收盘价>4日前的收盘价NT赋值:条件连续成立次数TJ11赋值:NT=9TJ13赋值:是否最后一个周期 AND NT位于5和8之间AY赋值:(若TJ11>0则将最近9周期置为1 OR 若TJ13>0则将最近NT周期置为1)*NT当满足条件AY>0时,在最高价*1.02位置书写文字,COLORFF00FF 当满足条件NT=9时,在最高价*1.02位置书写文字,画绿色B1赋值:收盘价<4日前的收盘价NT0赋值:条件连续成立次数TJ21赋值:NT0=9TJ23赋值:是否最后一个周期 AND NT0位于5和8之间AY1赋值:(若TJ21>0则将最近9周期置为1 OR 若TJ23>0则将最近NT0周期置为1)*NT0当满足条件AY1>0时,在最低价*0.98位置书写文字,COLORFF00FF当满足条件NT0=9时,在最低价*0.98位置书写文字,画绿色TJ赋值: 收盘价/1日前的收盘价<0.95当满足条件TJ时,在(开盘价+收盘价)/2位置画直线起点,当满足条件1日前的TJ时,在1日前的(开盘价+收盘价)/2位置画直线终点,1表示是否延长.,COLORFF0000输出生命线:收盘价的10日指数移动平均的10日指数移动平均,画红色,线宽为3B赋值:生命线>1日前的生命线如果B-1,返回生命线,否则返回无效数画蓝色,线宽为3当满足条件最低价上穿生命线时,在最低价*0.99位置画7号图标当满足条件生命线上穿最低价时,在最高价*1.01位置画8号图标AB赋值:收盘价的5日指数移动平均 > 收盘价的20日指数移动平均BB赋值:收盘价的5日指数移动平均 < 收盘价的20日指数移动平均CA赋值: 收盘价的5日指数移动平均> 收盘价的10日指数移动平均CA1赋值:收盘价的5日指数移动平均 < 收盘价的10日指数移动平均DD赋值:收阴线当满足条件AB时,在最高价和最低价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画红色当满足条件AB时,在开盘价和收盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.,画红色当满足条件ABANDDD时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画红色当满足条件BB时,在最高价和最低价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画绿色当满足条件BB时,在开盘价和收盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.,画绿色当满足条件BBANDDD时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画绿色当满足条件BBANDCA时,在最高价和最低价位置之间画柱状线,宽度为0.1,1不为0则画空心柱.,画白色当满足条件BBANDCA时,在开盘价和收盘价位置之间画柱状线,宽度为3,0.1不为0则画空心柱.,画白色当满足条件BBANDCAANDDD时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画白色当满足条件ABANDCA1时,在最高价和最低价位置之间画柱状线,宽度为0.1,0不为0则画空心柱.,画白色当满足条件ABANDCA1时,在开盘价和收盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.,画白色当满足条件ABANDCA1ANDDD时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画白色HIGHN赋值:10LOWN赋值:10HIGHDISPLAY赋值:0LOWDISPLAY赋值:0ZGDISPLAY赋值:0MADISPLAY赋值:0AA赋值:HIGHN日前的最高价=2*HIGHN+1日内最高价的最高值QY赋值:若AA则将最近HIGHN+1周期置为1CC赋值:QY的HIGHN日过滤 AND 最高价=HIGHN+1日内最高价的最高值当满足条件CC时,在最高价*1.02位置画2号图标DDD赋值:上次CC距今天数GDTS赋值:如果CC,返回到最后交易的周期,否则返回0DINGBU赋值:如果DDD,返回DDD日前的最高价,否则返回最高价DINGBUTS赋值:如果DDD,返回DDD日前的GDTS,否则返回GDTSDINGBU1赋值:DDD+1日前的DINGBUGDCS1赋值:DINGBUTS的最后一日取值设为常数DINGBUTS1赋值:DDD+1日前的DINGBUTSGDCS2赋值:DINGBUTS1的最后一日取值设为常数DINGBU2赋值:DDD+1日前的DINGBU1MM赋值:如果到最后交易的周期>GDCS2,返回0,否则返回1输出高点压力:当满足条件到最后交易的周期=GDCS2时,在最高价位置画直线起点,当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线终点,1表示是否延长. 画绿色,线宽为0点,当满足条件是否最后一个周期时,在GDCS2-1日前的最高价位置画直线终点,1表示是否延长.,画绿色,DOTLINE当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线起点,当满足条件是否最后一个周期时,在GDCS1-1日前的最高价位置画直线终点,1表示是否延长.,COLORFF0000,DOTLINEAA1赋值:LOWN日前的最低价=2*LOWN+1日内最低价的最低值QY1赋值:若AA1则将最近LOWN+1周期置为1CC1赋值:QY1的LOWN日过滤 AND 最低价=LOWN+1日内最低价的最低值当满足条件CC1时,在最低价*0.98位置画1号图标DD1赋值:上次CC1距今天数DDTS赋值:如果CC1,返回到最后交易的周期,否则返回0YDB赋值:如果DD1,返回DD1日前的最低价,否则返回最低价DDTS1赋值:如果DD1,返回DD1日前的DDTS,否则返回DDTS DDCS1赋值:DDTS1的最后一日取值设为常数ZDB赋值:DD1+1日前的YDBDDTS2赋值:DD1+1日前的DDTS1DDCS2赋值:DDTS2的最后一日取值设为常数输出低点支撑:当满足条件到最后交易的周期=DDCS2时,在最低价位置画直线起点,当满足条件到最后交易的周期=DDCS1时,在最低价位置画直线终点,1表示是否延长. COLORFF00FF,线宽为0 ZGSTAR赋值:(高点压力+低点支撑)/2ZGEND赋值:(高点压力+低点支撑)/2的最后一日取值设为常数STARDAY赋值:如果DDCS2<GDCS2,返回DDCS2,否则返回GDCS2输出中轨:当满足条件到最后交易的周期=STARDAY时,在ZGSTAR 位置画直线起点,当满足条件是否最后一个周期时,在ZGEND位置画直线终点,1表示是否延长.,COLORFFFFFF,线宽为0点,当满足条件是否最后一个周期时,在DDCS1-1日前的最低价位置画直线终点,1表示是否延长.,COLOR0000FF,DOTLINE当满足条件到最后交易的周期=DDCS2时,在最低价位置画直线起点,当满足条件是否最后一个周期时,在DDCS2-1日前的最低价位置画直线终点,1表示是否延长.,COLORFF00FF,DOTLINE涨停开板赋值:最高价>1日前的收盘价*1.090 AND 收盘价<最高价当满足条件涨停开板时,在最高价*1.02位置书写文字,画绿色涨停赋值:如果1日前的收盘价*1.1-收盘价<0.01,返回1,否则返回0当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,画红色当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色D2赋值:1日前的收盘价跌停赋值:如果(D2-收盘价)*100/D2>=(10-0.01*100/D2),返回1,否则返回0当满足条件跌停时,在开盘价和收盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画蓝色当满足条件跌停时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画蓝色当满足条件1时,在横轴0.01纵轴0位置书写文字,COLOR0000FF 当满足条件1时,在横轴0.04纵轴0位置书写文字,画黄色当满足条件1时,在横轴0.01纵轴0.06位置书写文字,COLOR0000FF当满足条件1时,在横轴0.04纵轴0.06位置书写文字,画黄色当满足条件1时,在横轴0.01纵轴0.12位置书写文字,COLOR0000FF当满足条件1时,在横轴0.04纵轴0.12位置书写文字,画黄色当满足条件1时,在横轴0.01纵轴0.18位置书写文字,COLOR0000FF当满足条件1时,在横轴0.04纵轴0.18位置书写文字,画黄色当满足条件1时,在横轴0.01纵轴0.24位置书写文字,COLOR0000FF当满足条件1时,在横轴0.04纵轴0.24位置书写文字,画黄色平均成本赋值:字符串相加主力成本赋值:字符串相加重心赋值:字符串相加套牢盘%赋值:字符串相加获利盘%赋值:字符串相加筹码分析赋值:字符串相加当满足条件是否最后一个周期时,在横轴0纵轴1位置书写文字,COLOR0000FF输出MA5:收盘价的5日简单移动平均输出流通市值:(流通市值/100000000),NODRAW,画红色程序源码{TD结构序列=神奇9转}AD1:=C>REF(C,4);NT:=BARSLASTCOUNT(AD1);TJ11:=NT=9;TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN;B1:=C<REF(C,4);NT0:=BARSLASTCOUNT(B1);TJ21:=NT0=9 ;TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORFF00FF;DRAWTEXT(NT0=9,L*0.98,'9'),COLORGREEN;{极阴极阳二一位}TJ:= C/REF(C,1)<0.95;DRAWLINE(TJ,(O+C)/2,REF(TJ,1),REF((O+C)/2,1),1),COLORFF 0000;{生命线:EMA(EMA(C,10),10),COLORBLUE,LINETHICK3;B:=生命线<REF(生命线,1);IF(B-1,生命线,DRAWNULL)COLORRED,LINETHICK3;}生命线:EMA(EMA(C,10),10),COLORRED,LINETHICK3;B:=生命线>REF(生命线,1);IF(B-1,生命线,DRAWNULL)COLORBLUE,LINETHICK3;DRAWICON(CROSS(L,生命线),L*0.99,7);DRAWICON(CROSS(生命线,L),H*1.01,8);AB:=EMA(C,5) > EMA(C,20);BB:=EMA(C,5) < EMA(C,20);CA:= EMA(C,5) > EMA(C,10);CA1:=EMA(C,5) < EMA(C,10);DD:=CLOSE<OPEN;STICKLINE(AB,H,L,0.1,0),COLORRED;STICKLINE(AB,O,C,3,1),COLORRED;STICKLINE(AB AND DD,O,C,3,0),COLORRED;STICKLINE(BB,H,L,0.1,0),COLORGREEN;STICKLINE(BB,O,C,3,1),COLORGREEN;STICKLINE(BB AND DD,O,C,3,0),COLORGREEN;STICKLINE(BB AND CA,H,L,0.1,1),COLORWHITE;STICKLINE(BB AND CA,O,C,3,0.1),COLORWHITE;STICKLINE(BB AND CA AND DD,O,C,3,0),COLORWHITE;STICKLINE(AB AND CA1,H,L,0.1,0),COLORWHITE;STICKLINE(AB AND CA1,O,C,3,1),COLORWHITE;STICKLINE(AB AND CA1 AND DD,O,C,3,0),COLORWHITE;{缠论画笔}{黄金柱:=V/REF(V,1)>=1.9;DRAWLINE(黄金柱,L,REF(黄金柱,1),REF(L,1),1),COLORFFFFFF;DRAWLINE(黄金柱,H,REF(黄金柱,1),REF(H,1),1),COLORFFFFFF;} HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;Z GDISPLAY:=0;MADISPLAY:=0;AA:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);QY:=BACKSET(AA,HIGHN+1);CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);DRAWICON(CC,H*1.02,2);DDD:=BARSLAST(CC);GDTS:=IF(CC,CURRBARSCOUNT,0);DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);DINGBU1:=REF(DINGBU,DDD+1);GDCS1:=CONST(DINGBUTS);DINGBUTS1:=REF(DINGBUTS,DDD+1);GDCS2:=CONST(DINGBUTS1);DINGBU2:=REF(DINGBU1,DDD+1);MM:=IF(CURRBARSCOUNT>GDCS2,0,1);高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT= GDCS1,H,1) COLORGREEN,LINETHICK;DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H, GDCS2-1),1),COLORGREEN,DOTLINE;DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H, GDCS1-1),1),COLORFF0000,DOTLINE;AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);QY1:=BACKSET(AA1,LOWN+1);CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);DRAWICON(CC1,L*0.98,1);DD1:=BARSLAST(CC1);DDTS:=IF(CC1,CURRBARSCOUNT,0);YDB:=IF(DD1,REF(L,DD1),L);DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);DDCS1:=CONST(DDTS1);ZDB:=REF(YDB,DD1+1);DDTS2:=REF(DDTS1,DD1+1);DDCS2:=CONST(DDTS2);低点支撑:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT= DDCS1,L,1) COLORFF00FF,LINETHICK;ZGSTAR:=(高点压力+低点支撑)/2;ZGEND:=CONST((高点压力+低点支撑)/2);STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR, ZGEND,1),COLORFFFFFF,LINETHICK;DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,REF(L,D DCS1-1),1),COLOR0000FF,DOTLINE;DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,D DCS2-1),1),COLORFF00FF,DOTLINE;涨停开板:=H>REF(C,1)*1.090 AND C<H;DRAWTEXT(涨停开板,HIGH*1.02,'炸板'),COLORGREEN;{涨停公式提示}涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);STICKLINE(涨停,OPEN,CLOSE,4,0),COLORRED;STICKLINE(涨停,OPEN,CLOSE,3,0),COLORYELLOW;{跌停公式提示}D2:=REF(C,1);跌停:=IF((D2-C)*100/D2>=(10-0.01*100/D2),1,0);STICKLINE(跌停,OPEN,CLOSE,2,0),COLORBLUE;STICKLINE(跌停,H,L,0,1),COLORBLUE;{板块公式}DRAWTEXT_FIX(1,0.01,0,0,'行业:'),COLOR0000FF;DRAWTEXT_FIX(1,0.04,0,0,HYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.01,0.06,0,'概念:'),COLOR0000FF;DRAWTEXT_FIX(1,0.04,0.06,0,GNBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.01,0.12,0,'地区:'),COLOR0000FF;DRAWTEXT_FIX(1,0.04,0.12,0,DYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.01,0.18,0,'风格:'),COLOR0000FF;DRAWTEXT_FIX(1,0.04,0.18,0,FGBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.01,0.24,0,'指数:'),COLOR0000FF;DRAWTEXT_FIX(1,0.04,0.24,0,ZSBLOCK),COLORYELLOW;{盘面分析}平均成本:=STRCAT(' 平均成本:',CON2STR(COST(50),2));主力成本:=STRCAT(' 主力成本:',CON2STR(COST(4),2));重心:=STRCAT(' 重心:',CON2STR((H+L+C)/3,2));套牢盘%:=STRCAT(' 【套牢概率】:',CON2STR((1-WINNER(C))*100,2));获利盘%:=STRCAT(' 【获利概率】:',CON2STR(100*WINNER(C),2));筹码分析:=STRCAT('【筹码分析】',STRCAT(STRCAT(STRCAT(STRCAT(平均成本,主力成本),重心),套牢盘%),获利盘%));{DRAWTEXT_FIX(ISLASTBAR,0,0,0,所属板块),COLORLIRED;}DRAWTEXT_FIX(ISLASTBAR,0,1,0,筹码分析),COLOR0000FF;{均线}MA5:MA(C,5);{MA8:=MA(C,8);MA10:MA(C,10);MA20:MA(C,20);MA30:=MA(C,30);}{MA60:MA(C,60),COLORFFFFFF;牛熊线:MA(C,100),COLORFF0000;}{MA250:MA(C,250);};流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED; {程序使用说明:1、生命线红做多趋势(绿线下方不做,白K线观望,红线上方做多);2、神奇9转;3、极阴二一位(大于3%阴线实体半分位都过不去不会涨);4、压力位和支撑位;5、涨停板黄S,跌停板蓝色一目了然;6、涨停炸板提示;7、板块属性;8、盘面分析;9、流通市值。