|
编程思路破译 AD1赋值:收盘价>4日前的收盘价 NT赋值:条件连续成立次数 TJ11赋值:NT=9 TJ13赋值:是否最后一个周期 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=9 TJ23赋值:是否最后一个周期 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日指数移动平均,画红色,线宽为3 B赋值:生命线>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赋值:10 LOWN赋值:10 HIGHDISPLAY赋值:0 LOWDISPLAY赋值:0 ZGDISPLAY赋值:0 MADISPLAY赋值:0 AA赋值:HIGHN日前的最高价=2*HIGHN+1日内最高价的最高值 QY赋值:若AA则将最近HIGHN+1周期置为1 CC赋值:QY的HIGHN日过滤 AND 最高价=HIGHN+1日内最高价的最高值 当满足条件CC时,在最高价*1.02位置画2号图标 DDD赋值:上次CC距今天数 GDTS赋值:如果CC,返回到最后交易的周期,否则返回0 DINGBU赋值:如果DDD,返回DDD日前的最高价,否则返回最高价 DINGBUTS赋值:如果DDD,返回DDD日前的GDTS,否则返回GDTS DINGBU1赋值:DDD+1日前的DINGBU GDCS1赋值:DINGBUTS的最后一日取值设为常数 DINGBUTS1赋值:DDD+1日前的DINGBUTS GDCS2赋值:DINGBUTS1的最后一日取值设为常数 DINGBU2赋值:DDD+1日前的DINGBU1 MM赋值:如果到最后交易的周期>GDCS2,返回0,否则返回1 输出高点压力:当满足条件到最后交易的周期=GDCS2时,在最高价位置画直线起点，当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线终点,1表示是否延长. 画绿色,线宽为0 当满足条件到最后交易的周期=GDCS2时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在GDCS2-1日前的最高价位置画直线终点,1表示是否延长.,画绿色,DOTLINE 当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在GDCS1-1日前的最高价位置画直线终点,1表示是否延长.,COLORFF0000,DOTLINE AA1赋值:LOWN日前的最低价=2*LOWN+1日内最低价的最低值 QY1赋值:若AA1则将最近LOWN+1周期置为1 CC1赋值:QY1的LOWN日过滤 AND 最低价=LOWN+1日内最低价的最低值 当满足条件CC1时,在最低价*0.98位置画1号图标 DD1赋值:上次CC1距今天数 DDTS赋值:如果CC1,返回到最后交易的周期,否则返回0 YDB赋值:如果DD1,返回DD1日前的最低价,否则返回最低价 DDTS1赋值:如果DD1,返回DD1日前的DDTS,否则返回DDTS DDCS1赋值:DDTS1的最后一日取值设为常数 ZDB赋值:DD1+1日前的YDB DDTS2赋值:DD1+1日前的DDTS1 DDCS2赋值:DDTS2的最后一日取值设为常数 输出低点支撑:当满足条件到最后交易的周期=DDCS2时,在最低价位置画直线起点，当满足条件到最后交易的周期=DDCS1时,在最低价位置画直线终点,1表示是否延长. COLORFF00FF,线宽为0 ZGSTAR赋值:(高点压力+低点支撑)/2 ZGEND赋值:(高点压力+低点支撑)/2的最后一日取值设为常数 STARDAY赋值:如果DDCS2<GDCS2,返回DDCS2,否则返回GDCS2 输出中轨:当满足条件到最后交易的周期=STARDAY时,在ZGSTAR位置画直线起点，当满足条件是否最后一个周期时,在ZGEND位置画直线终点,1表示是否延长.,COLORFFFFFF,线宽为0 当满足条件到最后交易的周期=DDCS1时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在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),COLORFF0000; {生命线: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;ZGDISPLAY:=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,DDCS1-1),1),COLOR0000FF,DOTLINE; DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,REF(L,DDCS2-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; {程序使用说明： 该公式包含未来函数:BACKSET |
|
|
