美女寻巨阳+股魔雷达主图副图指标公式源码[通达信公式]

相关标签:

原理解析：
填充背景 K线 输出涨家数:大盘的上涨家数,NODRAW, 输出跌家数:大盘的下跌家数,NODRAW,画绿色 C3赋值:1日前的收盘价 涨停赋值:如果(收盘价-C3)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 当满足条件涨停时,在开盘价和收盘价位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,画红色 跌停赋值:如果(C3-收盘价)*100/C3>=(10-0.01*100/C3),返回1,否则返回0 当满足条件跌停时,在开盘价和收盘价位置之间画柱状线,宽度为2.5,0不为0则画空心柱.,画绿色 VAR1赋值:收盘价>1日前的收盘价 AND 收盘价>2日前的收盘价 K赋值:(收盘价+最高价+最低价)/3 D赋值:K的4日简单移动平均 当满足条件1日前的收盘价>DANDC<DANDD>1日前的D时,在最高价*0.95位置书写文字,画绿色 当满足条件1日前的收盘价<DANDC>DANDD<1日前的D时,在最低价*0.98位置书写文字,画红色 D1赋值:当满足条件收盘价=60日内收盘价的最高值时,在3日内最高价的最高值位置画直线起点，当满足条件收盘价=30日内收盘价的最高值ANDC<45日内收盘价的最高值时,在3日内最高价的最高值位置画直线终点,1表示是否延长. E1赋值:当满足条件收盘价=60日内收盘价的最低值时,在最低价位置画直线起点，当满足条件收盘价=30日内收盘价的最低值ANDC>45日内收盘价的最低值时,在3日内最低价的最低值位置画直线终点,1表示是否延长.,线宽为2 输出E1P:当满足条件收盘价=30日内收盘价的最低值时,在最低价位置画直线起点，当满足条件收盘价=10日内收盘价的最低值ANDC>22日内收盘价的最低值时,在3日内最低价的最低值位置画直线终点,1表示是否延长.,线宽为1,画蓝色 输出E1PP:当满足条件收盘价=10日内收盘价的最低值时,在最低价位置画直线起点，当满足条件收盘价=5日内收盘价的最低值ANDC>10日内收盘价的最低值时,在3日内最低价的最低值位置画直线终点,1表示是否延长.,线宽为1,画红色 日赋值:181 昨前赋值:74 高1赋值:昨前日前的日日内最高价的最高值 低1赋值:昨前日前的日日内最低价的最低值,画蓝色,线宽为3 H1赋值:高1-(高1-低1)*0.191,POINTDOT H2赋值:高1-(高1-低1)*0.382,POINTDOT H3赋值:高1-(高1-低1)*0.5,POINTDOT H4赋值:高1-(高1-低1)*0.618,POINTDOT H5赋值:高1-(高1-低1)*0.809,画蓝色,POINTDOT 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

源码：

DRAWGBK(C>0,RGB(0,0,0),RGB(00,0,0),0,'BJ1',0);DRAWKLINE(H,O,L,C);
涨家数:INDEXADV,NODRAW, ;
跌家数:INDEXDEC,NODRAW,COLORGREEN;
C3:=REF(C,1);
涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(涨停,OPEN,CLOSE,2.5,0),COLORRED;
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
STICKLINE(跌停,OPEN,CLOSE,2.5,0),COLORGREEN;
VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
K:=(C+H+L)/3;
D:=MA(K,4);
DRAWTEXT(REF(C,1)>D AND C<D AND D>REF(D,1),H*0.95, 'S'),COLORGREEN;
DRAWTEXT(REF(C,1)<D AND C>D AND D<REF(D,1),L*0.98 ,'B'),COLORRED;
{自动分割画线}
D1:=DRAWLINE(C=HHV(C,60),HHV(H,3),C=HHV(C,30) AND C<HHV(C,45),
HHV(HIGH,3),1);
E1:=DRAWLINE(C=LLV(C,60),LOW,C=LLV(C,30) AND C>LLV(C,45),LLV(LOW,3),1),
LINETHICK2;
E1P:DRAWLINE(C=LLV(C,30),LOW,C=LLV(C,10) AND C>LLV(C,22),LLV(LOW,3),1),
LINETHICK1,COLORBLUE;
E1PP:DRAWLINE(C=LLV(C,10),LOW,C=LLV(C,5) AND C>LLV(C,10),LLV(LOW,3),1),
LINETHICK1,COLORRED;
日:=181;昨前:=74;
高1:=REF(HHV(H,日),昨前);
低1:=REF(LLV(L,日),昨前),COLORBLUE,LINETHICK3;
H1:=高1-(高1-低1)*0.191,POINTDOT;
H2:=高1-(高1-低1)*0.382,POINTDOT;
H3:=高1-(高1-低1)*0.5,POINTDOT;
H4:=高1-(高1-低1)*0.618,POINTDOT;
H5:=高1-(高1-低1)*0.809,COLORBLUE,POINTDOT;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】