通达信斋主交响乐公式源码
玄:=1+(BARSLAST(YEAR!=REF(YEAR,1) OR DATETODAY(DATE)=1));
悟斋:=IF(PERIOD=5,玄,DRAWNULL);
主:=LLV(L,悟斋);
底:CONST(主),NODRAW,COLOR00FF00;
RC:=底;
{MACD}
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORBLACK;
DIFFA:=(RC+DIFF*3);
DEA:=EMA(DIFF,9),COLORMAGENTA;
DEAA:=(RC+DEA*3);
LC:=REF(C,1);
MA5:=MA(C,5);
K:=BARSLAST(CURRBARSCOUNT=250);
高1:=CONST(IF(ISLASTBAR=1,HHV(H,K),0));
低0:=CONST(IF(ISLASTBAR=1,LLV(L,K),0)),COLOR00FF00;
KJ:=高1-低0;
GD4:=IF(CURRBARSCOUNT<=250/2,高1,DRAWNULL);
高压:=IF(1=1,低0+KJ*0.873,DRAWNULL),COLOR0000FF,NODRAW;
压力:=IF(1=1,低0+KJ*0.809,DRAWNULL),COLORFF00FF,NODRAW;
上中:=IF(1=1,低0+KJ*0.618,DRAWNULL),COLORMAGENTA,NODRAW;
中线:=IF(1=1,低0+KJ/2,DRAWNULL),COLORCCCCCC,POINTDOT;
下中:=IF(1=1,低0+KJ*0.382,DRAWNULL),COLORMAGENTA,NODRAW;
支撑:=IF(1=1,低0+KJ*0.191,DRAWNULL),COLORFFAA00,NODRAW;
超跌:=IF(1=1,低0+KJ*0.127,DRAWNULL),COLORFFAA00,;
STICKLINE(1=1,GD4,高压,10,0),COLOR330000;
STICKLINE(1=1,高压,压力,10,0),COLORAA0000;
STICKLINE(1=1,压力,上中,10,0),COLOR990000;
STICKLINE(1=1,上中,下中,10,0),COLOR770000;
STICKLINE(1=1,下中,支撑,10,0),COLOR550000;
STICKLINE(1=1,支撑,低0,10,0),COLOR110000;
MACD:=(DIFF-DEA)*4;
STICKLINE(MACD>0,RC,RC+MACD,1,0),COLORRED;
STICKLINE(MACD<0,RC,RC+MACD,1,1),COLOR008000;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),RC,RC+MACD,1,1),COLORFF00AA;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),RC,RC+MACD,1,0),COLOR889900;
HH:=HHV(HIGH,5);
LL:=LLV(LOW,5);
HH1Z:=BARSLAST((HH > REF(HH,1)));
LL1Z:=BARSLAST((LL < REF(LL,1)));
STICKLINE((HH1Z < LL1Z),CLOSE,OPEN,3,0),COLORRED;
STICKLINE((HH1Z < LL1Z),HIGH,LOW,0,0),COLORRED;
STICKLINE((HH1Z > LL1Z),CLOSE,OPEN,3,0),COLORBLUE;
STICKLINE((HH1Z > LL1Z),HIGH,LOW,0,0),COLORBLUE;
黄金分割中线:IF(1=1,低0+KJ/2,DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK4;
卖:MA5*1.1,LINETHICK2,COLORGREEN;
高:MA5*1.05,LINETHICK1,COLORCYAN;
中:MA5,LINETHICK2,COLORYELLOW;
低:MA5*0.945,LINETHICK1,COLORMAGENTA;
买:MA5*0.88,LINETHICK2,COLORRED;
STICKLINE(C>LC AND C>O,H,H*0.92,0,0),COLORFFFFFF;
STICKLINE(C>LC AND C>O AND C>高,H,H*0.9,0,0),COLORFFFFFF;
STICKLINE(1=1,H,L,0,0),COLORFFFFFF;
STICKLINE(C<LC AND C<O,L,L*1.08,0,0),COLORFFFFFF;
STICKLINE(C<LC AND C<O AND C<低,L,L*1.1,0,0),COLORFFFFFF;
IF(C>=LC AND C>O,H,DRAWNULL),POINTDOT,LINETHICK9,COLOR000099;
IF(C>=LC AND C<O,L*0.98,DRAWNULL),POINTDOT,LINETHICK9,COLORFF5500;
IF(C<=LC AND C<O,L,DRAWNULL),POINTDOT,LINETHICK9,COLORFF5500;
IF(C<=LC AND C>O,H*0.995,DRAWNULL),POINTDOT,LINETHICK9,COLORFF5500;
IF(C<=MA5*0.945,L*1.03,DRAWNULL),POINTDOT,LINETHICK9,COLORFFFF00;
IF(C<=MA5*0.945,L,DRAWNULL),POINTDOT,LINETHICK9,COLORFFFF00;
IF(C<=买 AND C<O,L*1.03,DRAWNULL),POINTDOT,LINETHICK9,COLOR00FF00;
IF(C<=买 AND C<O,L,DRAWNULL),POINTDOT,LINETHICK7,COLOR00FA00;
IF(C>=MA5*1.05 AND L>MA5*0.945,H*0.97,DRAWNULL),POINTDOT,LINETHICK9,COLOR0000FF;
IF(C>=MA5*1.05 AND L>MA5*0.945,H,DRAWNULL),POINTDOT,LINETHICK9,COLOR0000FF;
IF(C>=MA5*1.1,H*0.97,DRAWNULL),POINTDOT,LINETHICK9,COLOR00CCFF;
IF(C>=MA5*1.1,H,DRAWNULL),POINTDOT,LINETHICK9,COLOR00CCFF;
IF(FILTER(C<MA5*0.945,10),H*1.25,DRAWNULL),POINTDOT,LINETHICK5,COLORAA0000;
IF(FILTER(C<MA5*0.945,10),H*1.25,DRAWNULL),POINTDOT,LINETHICK3,COLOR00CCFF;
DRAWTEXT(FILTER(C<MA5,30),卖,'降调出'),COLORGREEN;
RSV:=(CLOSE - LLV(LOW,18))/(HHV(HIGH,18) - LLV(LOW,18))*100;
KZ:=EMA(RSV,3);
DZ:=EMA(KZ,3);
JZ:=(3*KZ-2*DZ);
KDJ1:=REF(COUNT(JZ<REF(JZ,1),5)>=3,1) AND REF(JZ,1)<20;
KDJ2:=JZ>REF(JZ,1);
反转:=IF(FILTER(KDJ1 AND KDJ2,3),50,0),COLORRED;
VAR22:=REF(LOW,1);
VAR33:=SMA(ABS(LOW-VAR22),3,1)/SMA(MAX(LOW-VAR22,0),3,1)*100;
VAR44:=EMA(IF(CLOSE*1.3,VAR33*10,VAR33/10),3);
VAR55:=LLV(LOW,13);
VAR66:=HHV(VAR44,13);
VAR77:=IF(MA(CLOSE,34),1,0);
VAR888:=EMA(IF(LOW<=VAR55,(VAR44+VAR66*2)/2,0),3)/618*VAR77;
VAR999:=IF(VAR888>100,100,VAR888);
吸筹:=VAR999,LINETHICK1,COLORCD7F32 ;
HHZ:=CONST(HHV(C,120))*1;
LLZ:=CONST(LLV(C,120))*1;
HL:=CONST(IF(CONST((HHZ+LLZ)/2)<CONST(C),LLZ-(HHZ-LLZ)*0.4,HHZ+(HHZ-LLZ)*0.4));
HH1:=IF(CONST((HHZ+LLZ)/2)>CONST(C),HHZ,HL);
LL1:=IF(CONST((HHZ+LLZ)/2)<CONST(C),LLZ,HL);
HLMAX:=MAX(HH1,LL1);
HLMIN:=MIN(HH1,LL1);
HLMN1:=(HLMAX+HLMIN)/2;
HLMN2:=HLMAX-HLMIN;
HLMN3:=(100-0)/2;
HLMN4:=100-0;
STICKLINE(吸筹,(0-50)*HLMN2/100+HLMN1,
(VAR999-50)*HLMN2/100+HLMN1,2,10),COLORFF00FF;
STICKLINE(JZ<=0,(90-50)*HLMN2/100+HLMN1,
(100-50)*HLMN2/100+HLMN1,4,0),COLORYELLOW;
IF(反转=50,(50-50)*HLMN2/100+HLMN1,
(0-50)*HLMN2/100+HLMN1),COLORRED;
K1:(KZ-50)*HLMN2/100+HLMN1,COLORFFFFFF;
D1:(DZ-50)*HLMN2/100+HLMN1,COLOR00FFFF;
J1:(JZ-50)*HLMN2/100+HLMN1,COLOR00FF00;
A5:=EMA(CLOSE,12)-EMA(CLOSE,26);
A6:=EMA(A5,9);
A7:=(A5<-0.1 AND A5>A6);
财神:IF(A7,LLV(L,21),DRAWNULL),COLORYELLOW,CIRCLEDOT,LINETHICK5;
VAR326:=IF(CLOSE>REF(CLOSE,1),88,0);
VAR327:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND VAR326>0, 91, 0);
STICKLINE(VAR327>90,L*0.99,L*0.94,2,0),COLORMAGENTA;
DRAWTEXT(VAR327>90,LOW*0.93,'升调追涨'),COLORMAGENTA;
来函数检测结果如下：
该公式没有未来函数
解密、定制、编写公式指标请联系QQ或微信同号：88652583
置顶指标
相关指标公式
玄赋值:1+(上次年份不等于1日前的年份ORDATETODAY(日期)=1距今天数)
悟斋赋值:如果周期类型=5,返回玄,否则返回无效数
主赋值:悟斋日内最低价的最低值
输出底:主的最后一日取值设为常数,NODRAW,COLOR00FF00
RC赋值:底
DIFF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均,画黑色
DIFFA赋值:(RC+DIFF*3)
DEA赋值:DIFF的9日指数移动平均,画洋红色
DEAA赋值:(RC+DEA*3)
LC赋值:1日前的收盘价
MA5赋值:收盘价的5日简单移动平均
K赋值:上次到最后交易的周期=250距今天数
高1赋值:如果是否最后一个周期=1,返回K日内最高价的最高值,否则返回0的最后一日取值设为常数
低0赋值:如果是否最后一个周期=1,返回K日内最低价的最低值,否则返回0的最后一日取值设为常数,COLOR00FF00
KJ赋值:高1-低0
GD4赋值:如果到最后交易的周期<=250/2,返回高1,否则返回无效数
高压赋值:如果1=1,返回低0+KJ*0.873,否则返回无效数,COLOR0000FF,NODRAW
压力赋值:如果1=1,返回低0+KJ*0.809,否则返回无效数,COLORFF00FF,NODRAW
上中赋值:如果1=1,返回低0+KJ*0.618,否则返回无效数,画洋红色,NODRAW
中线赋值:如果1=1,返回低0+KJ/2,否则返回无效数,COLORCCCCCC,POINTDOT
下中赋值:如果1=1,返回低0+KJ*0.382,否则返回无效数,画洋红色,NODRAW
支撑赋值:如果1=1,返回低0+KJ*0.191,否则返回无效数,COLORFFAA00,NODRAW
超跌赋值:如果1=1,返回低0+KJ*0.127,否则返回无效数,COLORFFAA00,
当满足条件1=1时,在GD4和高压位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLOR330000
当满足条件1=1时,在高压和压力位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLORAA0000
当满足条件1=1时,在压力和上中位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLOR990000
当满足条件1=1时,在上中和下中位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLOR770000
当满足条件1=1时,在下中和支撑位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLOR550000
当满足条件1=1时,在支撑和低0位置之间画柱状线,宽度为10,0不为0则画空心柱.,COLOR110000
MACD赋值:(DIFF-DEA)*4
当满足条件MACD>0时,在RC和RC+MACD位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色
当满足条件MACD<0时,在RC和RC+MACD位置之间画柱状线,宽度为1,1不为0则画空心柱.,COLOR008000
当满足条件MACD>0ANDMACD<1日前的MACD时,在RC和RC+MACD位置之间画柱状线,宽度为1,1不为0则画空心柱.,COLORFF00AA
当满足条件MACD<0ANDMACD>1日前的MACD时,在RC和RC+MACD位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR889900
HH赋值:5日内最高价的最高值
LL赋值:5日内最低价的最低值
HH1Z赋值:上次(HH>1日前的HH)距今天数
LL1Z赋值:上次(LL<1日前的LL)距今天数
当满足条件(HH1Z当满足条件(HH1Z当满足条件(HH1Z>LL1Z)时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,画蓝色
当满足条件(HH1Z>LL1Z)时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画蓝色
输出黄金分割中线:如果1=1,返回低0+KJ/2,否则返回无效数,画黄色,POINTDOT,线宽为4
输出卖:MA5*1.1,线宽为2,画绿色
输出高:MA5*1.05,线宽为1,画青色
输出中:MA5,线宽为2,画黄色
输出低:MA5*0.945,线宽为1,画洋红色
输出买:MA5*0.88,线宽为2,画红色
当满足条件收盘价>LCANDC>开盘价时,在最高价和最高价*0.92位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFFFF
当满足条件收盘价>LCANDC>OANDC>高时,在最高价和最高价*0.9位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFFFF
当满足条件1=1时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFFFFF
当满足条件收盘价当满足条件收盘价如果收盘价>=LCANDC>开盘价,返回最高价,否则返回无效数,POINTDOT,线宽为9,COLOR000099
如果收盘价>=LCANDC<开盘价,返回最低价*0.98,否则返回无效数,POINTDOT,线宽为9,COLORFF5500
如果收盘价<=LCANDC<开盘价,返回最低价,否则返回无效数,POINTDOT,线宽为9,COLORFF5500
如果收盘价<=LCANDC>开盘价,返回最高价*0.995,否则返回无效数,POINTDOT,线宽为9,COLORFF5500
如果收盘价<=MA5*0.945,返回最低价*1.03,否则返回无效数,POINTDOT,线宽为9,COLORFFFF00
如果收盘价<=MA5*0.945,返回最低价,否则返回无效数,POINTDOT,线宽为9,COLORFFFF00
如果收盘价<=买ANDC<开盘价,返回最低价*1.03,否则返回无效数,POINTDOT,线宽为9,COLOR00FF00
如果收盘价<=买ANDC<开盘价,返回最低价,否则返回无效数,POINTDOT,线宽为7,COLOR00FA00
如果收盘价>=MA5*1.05ANDL>MA5*0.945,返回最高价*0.97,否则返回无效数,POINTDOT,线宽为9,COLOR0000FF
如果收盘价>=MA5*1.05ANDL>MA5*0.945,返回最高价,否则返回无效数,POINTDOT,线宽为9,COLOR0000FF
如果收盘价>=MA5*1.1,返回最高价*0.97,否则返回无效数,POINTDOT,线宽为9,COLOR00CCFF
如果收盘价>=MA5*1.1,返回最高价,否则返回无效数,POINTDOT,线宽为9,COLOR00CCFF
如果收盘价如果收盘价当满足条件收盘价RSV赋值:(收盘价 - 18日内最低价的最低值)/(18日内最高价的最高值 - 18日内最低价的最低值)*100
KZ赋值:RSV的3日指数移动平均
DZ赋值:KZ的3日指数移动平均
JZ赋值:(3*KZ-2*DZ)
KDJ1赋值:1日前的统计5日中满足JZ<1日前的JZ的天数>=3 AND 1日前的JZ<20
KDJ2赋值:JZ>1日前的JZ
反转赋值:如果KDJ1ANDKDJ2的3日过滤,返回50,否则返回0,画红色
VAR22赋值:1日前的最低价
VAR33赋值:最低价-VAR22的绝对值的3日[1日权重]移动平均/最低价-VAR22和0的较大值的3日[1日权重]移动平均*100
VAR44赋值:如果收盘价*1.3,返回VAR33*10,否则返回VAR33/10的3日指数移动平均
VAR55赋值:13日内最低价的最低值
VAR66赋值:13日内VAR44的最高值
VAR77赋值:如果收盘价的34日简单移动平均,返回1,否则返回0
VAR888赋值:如果最低价<=VAR55,返回(VAR44+VAR66*2)/2,否则返回0的3日指数移动平均/618*VAR77
VAR999赋值:如果VAR888>100,返回100,否则返回VAR888
吸筹赋值:VAR999,线宽为1,COLORCD7F32
HHZ赋值:120日内收盘价的最高值的最后一日取值设为常数*1
LLZ赋值:120日内收盘价的最低值的最后一日取值设为常数*1
HL赋值:如果(HHZ+LLZ)/2的最后一日取值设为常数<收盘价的最后一日取值设为常数,返回LLZ-(HHZ-LLZ)*0.4,否则返回HHZ+(HHZ-LLZ)*0.4的最后一日取值设为常数
HH1赋值:如果(HHZ+LLZ)/2的最后一日取值设为常数>收盘价的最后一日取值设为常数,返回HHZ,否则返回HL
LL1赋值:如果(HHZ+LLZ)/2的最后一日取值设为常数<收盘价的最后一日取值设为常数,返回LLZ,否则返回HL
HLMAX赋值:HH1和LL1的较大值
HLMIN赋值:HH1和LL1的较小值
HLMN1赋值:(HLMAX+HLMIN)/2
HLMN2赋值:HLMAX-HLMIN
HLMN3赋值:(100-0)/2
HLMN4赋值:100-0
当满足条件吸筹时,在(0-50)*HLMN2/100+HLMN1和(VAR999-50)*HLMN2/100+HLMN1位置之间画柱状线,宽度为2,10不为0则画空心柱.,COLORFF00FF
当满足条件JZ<=0时,在(90-50)*HLMN2/100+HLMN1和(100-50)*HLMN2/100+HLMN1位置之间画柱状线,宽度为4,0不为0则画空心柱.,画黄色
如果反转=50,返回(50-50)*HLMN2/100+HLMN1,否则返回(0-50)*HLMN2/100+HLMN1,画红色
输出K1:(KZ-50)*HLMN2/100+HLMN1,COLORFFFFFF
输出D1:(DZ-50)*HLMN2/100+HLMN1,COLOR00FFFF
输出J1:(JZ-50)*HLMN2/100+HLMN1,COLOR00FF00
A5赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均
A6赋值:A5的9日指数移动平均
A7赋值:(A5<-0.1 AND A5>A6)
输出财神:如果A7,返回21日内最低价的最低值,否则返回无效数,画黄色,CIRCLEDOT,线宽为5
VAR326赋值:如果收盘价>1日前的收盘价,返回88,否则返回0
VAR327赋值:如果收盘价/1日前的收盘价>1.050ANDHIGH/收盘价<1.010ANDVAR326>0,返回91,否则返回0
当满足条件VAR327>90时,在最低价*0.99和最低价*0.94位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
当满足条件VAR327>90时,在最低价*0.93位置书写文字,画洋红色
