三色图指标（通达信软件安装主图指标）

短趋势线:EMA(C,7),COLORYELLOW,LINETHICK2;
涨:IF(短趋势线>REF(短趋势线,1),短趋势线,DRAWNULL),COLORRED,LINETHICK2;
平:IF(短趋势线=REF(短趋势线,1),短趋势线,DRAWNULL),COLORYELLOW,LINETHICK2;
跌:IF(短趋势线<REF(短趋势线,1),短趋势线,DRAWNULL),COLORGREEN,LINETHICK2;

VARC:=(ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND
(REF(ZIG(3,5),2)<=REF(ZIG(3,5),3));
VARD:=(ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND
(REF(ZIG(3,5),2)>=REF(ZIG(3,5),3));
DRAWTEXT((VARC=1),L,'←短'),COLOR0000FF;
DRAWTEXT((VARD=1),H,'←短'),COLOR00FF00;

VAR01:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),25);
VAR02:=HIGH-REF(HIGH,1);
VAR03:=REF(LOW,1)-LOW;
VAR04:=SUM(IF(VAR02>0 AND VAR02>VAR03,VAR02,0),25);
VAR05:=SUM(IF(VAR03>0 AND VAR03>VAR02,VAR03,0),25);
VAR06:=VAR04*100/VAR01;
VAR07:=VAR05*100/VAR01;
VAR08:=MA(ABS(VAR07-VAR06)/(VAR07+VAR06)*100,15);
VAR09:=(VAR08+REF(VAR08,15))/2;
P:=(VAR07>VAR06 AND VAR07>25 AND VAR06<25);
B:=ZIG(3,50/5)*100,COLORRED,LINETHICK2;
G:=MA(B,2),COLORGREEN,LINETHICK2;
I:=CROSS(B,G)*1000,COLORRED;
W:=CROSS(G,B)*1000,COLORBLUE;
E:=REF(INDEXC,1);
F:=SMA(MAX(INDEXC-E,0),3,1)/SMA(ABS(INDEXC-E),3,1);
VAR10:=F AND F<8;
VAR11:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR12:=SMA(VAR11,3,1);
VAR13:=SMA(VAR12,3,1);
VAR14:=VAR13 AND VAR13<20;
MM:=P AND I AND VAR10 AND VAR14 ;
DRAWTEXT(W=1000,H*1.05,'中' ),COLOR00FF00;
DRAWTEXT(I=1000,L*0.95,'中'),COLORRED;

{自动划趋势线}
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);
MMM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK2;
DRAWLINE(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1),1),COLOR0055FF,POINTDOT;
DRAWLINE(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1),1),COLORYELLOW,POINTDOT;
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) COLORRED,LINETHICK2;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=CONST((高点压力+低点支撑)/2);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
中轨:DRAWLINE(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND,1),
COLORFF55FF,LINETHICK2;
DRAWLINE(CURRBARSCOUNT=DDCS1,L,ISLASTBAR,
REF(L,DDCS1-1),1),COLORFF00FF,POINTDOT,;
DRAWLINE(CURRBARSCOUNT=DDCS2,L,ISLASTBAR,
REF(L,DDCS2-1),1),COLORCYAN,POINTDOT;
AAAA:=FILTER(CLOSE>REF(HHV(HIGH,100),1)
AND REF(C,1)<REF(HHV(HIGH,100),1),5)
AND EXIST(EVERY(C>EMA(C,120),30),100)AND C/EMA(C,100)<1.5;
DRAWICON(AAAA,LOW,1);

N:=8;
M:=REF(CLOSE,1);
A:=SMA(MAX(CLOSE-M,0),N,1)/SMA(ABS(CLOSE-M),N,1)*100,COLORYELLOW,LINETHICK1;
B0:=A=DRAWLINE(A>=HHV(A,N),A,A<=LLV(A,N),1,A),COLOR00FF00;
B1:=A=DRAWLINE(A>=HHV(A,N),A,A<=LLV(A,N),A,1),COLOR00FF00;
B2:= A<REF(A,1);
B3:=A>REF(1,A);
C1:=DRAWICON(B1 AND B2,A,9);
C2:=DRAWICON(B0 AND B3,A,15);
DRAWICON(FILTER(C1>0,1),L*0.97,9);
DRAWICON(FILTER(C2>0,1),H*1.02,15);

 

 

 

输出短趋势线:收盘价的7日指数移动平均,画黄色,线宽为2
输出涨:如果短趋势线>昨日短趋势线,返回短趋势线,否则返回无效数,画红色,线宽为2
输出平:如果短趋势线=昨日短趋势线,返回短趋势线,否则返回无效数,画黄色,线宽为2
输出跌:如果短趋势线<昨日短趋势线,返回短趋势线,否则返回无效数,画绿色,线宽为2
VARC赋值:(收盘价5%的之字转向>昨日收盘价5%的之字转向) AND (昨日收盘价5%的之字转向<=2日前的收盘价5%的之字转向) AND (2日前的收盘价5%的之字转向<=3日前的收盘价5%的之字转向)
VARD赋值:(收盘价5%的之字转向<昨日收盘价5%的之字转向) AND (昨日收盘价5%的之字转向>=2日前的收盘价5%的之字转向) AND (2日前的收盘价5%的之字转向>=3日前的收盘价5%的之字转向)
 当满足条件(VARC=1)时,在最低价位置书写文字,COLOR0000FF
 当满足条件(VARD=1)时,在最高价位置书写文字,COLOR00FF00
VAR01赋值:最高价-最低价和最高价-昨收的绝对值的较大值和最低价-昨收的绝对值的较大值的25日累和
VAR02赋值:最高价-昨日最高价
VAR03赋值:昨日最低价-最低价
VAR04赋值:如果VAR02>0ANDVAR02>VAR03,返回VAR02,否则返回0的25日累和
VAR05赋值:如果VAR03>0ANDVAR03>VAR02,返回VAR03,否则返回0的25日累和
VAR06赋值:VAR04*100/VAR01
VAR07赋值:VAR05*100/VAR01
VAR08赋值:VAR07-VAR06的绝对值/(VAR07+VAR06)*100的15日简单移动平均
VAR09赋值:(VAR08+15日前的VAR08)/2
P赋值:(VAR07>VAR06 AND VAR07>25 AND VAR06<25)
B赋值:收盘价50/5%的之字转向*100,画红色,线宽为2
G赋值:B的2日简单移动平均,画绿色,线宽为2
I赋值:B上穿G*1000,画红色
W赋值:G上穿B*1000,画蓝色
E赋值:昨收
F赋值:收盘价-E和0的较大值的3日[1日权重]移动平均/收盘价-E的绝对值的3日[1日权重]移动平均
VAR10赋值:F AND F<8
VAR11赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100
VAR12赋值:VAR11的3日[1日权重]移动平均
VAR13赋值:VAR12的3日[1日权重]移动平均
VAR14赋值:VAR13 AND VAR13<20
MM赋值:P AND I AND VAR10 AND VAR14
当满足条件W=1000时,在最高价*1.05位置书写文字,COLOR00FF00
当满足条件I=1000时,在最低价*0.95位置书写文字,画红色
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
MMM赋值:如果到最后交易的周期>GDCS2,返回0,否则返回1
输出高点压力:当满足条件到最后交易的周期=GDCS2时,在最高价位置画直线起点，当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线终点,1表示是否延长. 画绿色,线宽为2
当满足条件到最后交易的周期=GDCS2时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在GDCS2-1日前的最高价位置画直线终点,1表示是否延长.,COLOR0055FF,POINTDOT
当满足条件到最后交易的周期=GDCS1时,在最高价位置画直线起点，当满足条件是否最后一个周期时,在GDCS1-1日前的最高价位置画直线终点,1表示是否延长.,画黄色,POINTDOT
AA1赋值:LOWN日前的最低价=2*LOWN+1日内最低价的最低值
QY1赋值:若AA1则将最近LOWN+1周期置为1
CC1赋值:QY1的LOWN日过滤 AND 最低价=LOWN+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表示是否延长. 画红色,线宽为2
ZGSTAR赋值:(高点压力+低点支撑)/2
ZGEND赋值:(高点压力+低点支撑)/2的最后一日取值设为常数
STARDAY赋值:如果DDCS2<GDCS2,返回DDCS2,否则返回GDCS2
输出中轨:当满足条件到最后交易的周期=STARDAY时,在ZGSTAR位置画直线起点，当满足条件是否最后一个周期时,在ZGEND位置画直线终点,1表示是否延长.,COLORFF55FF,线宽为2
当满足条件到最后交易的周期=DDCS1时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在DDCS1-1日前的最低价位置画直线终点,1表示是否延长.,COLORFF00FF,POINTDOT,
当满足条件到最后交易的周期=DDCS2时,在最低价位置画直线起点，当满足条件是否最后一个周期时,在DDCS2-1日前的最低价位置画直线终点,1表示是否延长.,画青色,POINTDOT
AAAA赋值:收盘价>昨日100日内最高价的最高值ANDREF(收盘价,1)<昨日100日内最高价的最高值的5日过滤AND 最近100日存在最近30日一直存在收盘价>收盘价的120日指数移动平均AND 收盘价/收盘价的100日指数移动平均<1.5
当满足条件AAAA时,在最低价位置画1号图标
N赋值:8
M赋值:昨收
A赋值:收盘价-M和0的较大值的N日[1日权重]移动平均/收盘价-M的绝对值的N日[1日权重]移动平均*100,画黄色,线宽为1
B0赋值:A=当满足条件A>=N日内A的最高值时,在A位置画直线起点，当满足条件A<=N日内A的最低值时,在1位置画直线终点,A表示是否延长.,COLOR00FF00
B1赋值:A=当满足条件A>=N日内A的最高值时,在A位置画直线起点，当满足条件A<=N日内A的最低值时,在A位置画直线终点,1表示是否延长.,COLOR00FF00
B2赋值: A<昨日A
B3赋值:A>A日前的1
C1赋值:当满足条件B1ANDB2时,在A位置画9号图标
C2赋值:当满足条件B0ANDB3时,在A位置画15号图标
当满足条件C1>0的1日过滤时,在最低价*0.97位置画9号图标
当满足条件C2>0的1日过滤时,在最高价*1.02位置画15号图标