【原】通达信抄底逃顶副图指标 看长做短精品 源码分享 编程思路

​编程思路:

N1赋值:5

N2赋值:10
RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100
K赋值:(RSV的9日[1日权重]移动平均)
KK赋值:RSV的3日[1日权重]移动平均的整数部分
DD赋值:K的3日[1日权重]移动平均的整数部分
A赋值:(KK-DD)*5
A1赋值:1日前的A
B赋值:A1-A,COLOR808080
B1赋值:1日前的A1-A
B2赋值:2日前的A1-A
CC赋值:B+B1+B2,COLOR00FFFF
赋值: (最高价 + 最低价 + 收盘价)/3
输出CCI:(TYP-TYP的14日简单移动平均)/(0.015*TYP的14日平均绝对偏差),线宽为2
输出底部W:-200
输出买入:-100,画深灰色
输出卖出:100

输出AASS:0
底部WW赋值:CCI上穿-100
当满足条件底部WW时,在-100位置画1号图标
顶部W赋值:150上穿CCI
当满足条件顶部W时,在150位置画2号图标
VAR1A赋值:收盘价的1日指数移动平均的3日指数移动平均的3日指数移动平均,COLOR00FF00
AAS赋值:VAR1A-1日前的VAR1A+VAR1A,
TYPS赋值:(最高价 + 最低价 + 收盘价)/3
AD赋值:1日前的收盘价
RSISD赋值:收盘价-AD和0的较大值的6日[1日权重]移动平均/收盘价-AD的绝对值的6日[1日权重]移动平均*100
A1D赋值:收盘价-收盘价的5日简单移动平均/收盘价的5日简单移动平均*100<1
A2D赋值:收盘价-收盘价的13日简单移动平均/收盘价的13日简单移动平均*100<-10
A3D赋值:收盘价-收盘价的34日简单移动平均/收盘价的34日简单移动平均*100<-15
A4D赋值:RSI<18

A5D赋值:CCI<-120
输出底D:(A1D AND A2D AND A3D AND A4D AND A5D)*100
输出RK:CCI的3日[1日权重]移动平均,线宽为0
输出RD:RK的3日[1日权重]移动平均,线宽为0
输出RJ:3*RK-2*RD,线宽为0
头D赋值:390+RJ的1日指数移动平均的相反数
底DD赋值:-290+RJ的1日指数移动平均的相反数,线宽为0
输出抛D:如果RJ>头D,返回200,否则返回300,画绿色
输出吸D:如果RJ<底DD,返回-200,否则返回-300,画红色,线宽为2
输出 中线: -200*(40日内最高价的最高值-收盘价)/(40日内最高价的最高值-40日内最低价的最低值),线宽为0
输出短线: -200*(10日内最高价的最高值-收盘价)/(10日内最高价的最高值-10日内最低价的最低值),COLORFFFF00,线宽为0
输出逃顶线: -5,COLOR00FF00,线宽为0
输出 抄底线: -250,画红色,线宽为0
当满足条件中线>-3.5时,在逃顶线+220位置书写文字,画绿色
当满足条件中线<-196时,在抄底线-18位置书写文字,COLORFF00FF
赋值: (最高价 + 最低价 + 收盘价)/3
JG1赋值:(TYPF-TYPF的N1日简单移动平均)/(0.015*TYPF的N1日平均绝对偏差)

JG2赋值:(TYPF-TYPF的N2日简单移动平均)/(0.015*TYPF的N2日平均绝对偏差)
JGA赋值:JG1的13日指数移动平均
JGB赋值:JG2的13日指数移动平均
AA赋值:JG2上穿-200 AND JG1>-100
当满足条件JGB上穿JGAANDJGB>0时,在260位置书写文字线宽为2 ,COLOR9999FF
当满足条件AA的5日过滤=1时,在-260位置书写文字线宽为2, 画黄色
当满足条件JGB上穿JGAANDJGB>0时,在180和210位置之间画柱状线,宽度为10,0不为0则画空心柱.,画绿色
当满足条件AA的5日过滤=1时,在-180和-210位置之间画柱状线,宽度为10,0不为0则画空心柱.,画红色

公式源码:

N1:=5;
N2:=10;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=(SMA(RSV,9,1));
KK:=INTPART(SMA(RSV,3,1));
DD:=INTPART(SMA(K,3,1));
A:=(KK-DD)*5;
A1:=REF(A,1);
B:=A1-A,COLOR808080;
B1:=REF(A1-A,1);
B2:=REF(A1-A,2);
CC:=B+B1+B2,COLOR00FFFF;

TYP := (HIGH + LOW + CLOSE)/3;
CCI:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),LINETHICK2;
底部W:-200;
买入:-100,COLORGRAY;
卖出:100;
AASS:0;
底部WW:=CROSS(CCI,-100);
DRAWICON(底部WW,-100,1);
顶部W:=CROSS(150,CCI);
DRAWICON(顶部W,150,2); 
VAR1A:=EMA(EMA(EMA(CLOSE,1),3),3),COLOR00FF00;
AAS:=VAR1A-REF(VAR1A,1)+VAR1A,;
TYPS:=(HIGH + LOW + CLOSE)/3; 
AD:=REF(C,1);
RSISD:=SMA(MAX(C-AD,0),6,1)/SMA(ABS(C-AD),6,1)*100;
A1D:=C-MA(C,5)/MA(C,5)*100<1;
A2D:=C-MA(C,13)/MA(C,13)*100<-10;
A3D:=C-MA(C,34)/MA(C,34)*100<-15;
A4D:=RSI<18;
A5D:=CCI<-120;
底D:(A1D AND A2D AND A3D AND A4D AND A5D)*100;
RK:SMA(CCI,3,1),LINETHICK0;
RD:SMA(RK,3,1),LINETHICK0;
RJ:3*RK-2*RD,LINETHICK0;
头D:=390+REVERSE(EMA(RJ, 1));
底DD:=-290+REVERSE(EMA(RJ,1)),LINETHICK0;
抛D:IF(RJ>头D,200,300),COLORGREEN;
吸D:IF(RJ<底DD,-200,-300),COLORRED,LINETHICK2; 
中线: -200*(HHV(HIGH,40)-CLOSE)/(HHV(HIGH,40)-LLV(LOW,40)),LINETHICK0;
短线: -200*(HHV(HIGH,10)-CLOSE)/(HHV(HIGH,10)-LLV(LOW,10)),COLORFFFF00,LINETHICK0;
逃顶线: -5,COLOR00FF00,LINETHICK0; 
抄底线: -250,COLORRED,LINETHICK0;
DRAWTEXT(中线>-3.5,逃顶线+220,'逃'),COLORGREEN;
DRAWTEXT(中线<-196,抄底线-18,'底'),COLORFF00FF;

TYPF := (HIGH + LOW + CLOSE)/3; 
JG1:=(TYPF-MA(TYPF,N1))/(0.015*AVEDEV(TYPF,N1)); 
JG2:=(TYPF-MA(TYPF,N2))/(0.015*AVEDEV(TYPF,N2)); 
JGA:=EMA(JG1,13 );  
JGB:=EMA(JG2,13); 
AA:=CROSS(JG2,-200) AND JG1>-100; 
DRAWTEXT(CROSS(JGB,JGA)AND JGB>0,260,'  ＄逃顶')LINETHICK2 ,COLOR9999FF; 
DRAWTEXT(FILTER(AA,5)=1,-260,'  ＄抄底')LINETHICK2, COLORYELLOW;
STICKLINE(CROSS(JGB,JGA)AND JGB>0,180,210,10,0),COLORGREEN ;
STICKLINE(FILTER(AA,5)=1,-180,-210,10,0),COLORRED;