高量周王牌柱主公式源码[通达信公式]

相关标签:通达信kd指标公式源码 、 通达信主升指标源码 、 通达信主副图指标集锦 、 通达信bs主图指标公式 、 通达信kdj副图源码 、 通达信黄金柱指标公式 、 通达信鱼身副图源码 、 通达信暴涨主图源码 、 通达信布林线主图源码 、 通达信生命线主图源码 、 通达信主图买卖源码 、 通达信好主图源码 、 通达信分时主图源码 、 通达信主副图指标结合 、

{用法注释:参数: BJ(1,4,4): 1=倍量,2=高量,3=跳空,4=全部;参数: 高量周期(3,50,5): 高量两边的周期,自行调节参数;公式源码:}

原理解析：
XA_1赋值:日期<=1250531 XA_2赋值:画底虚实 XA_3赋值:如果XA_2=1,返回收盘价和开盘价的较小值,否则返回最低价 XA_4赋值:240日内最高价的最高值-240日内最低价的最低值的最后一日取值设为常数 XA_5赋值:最低价-XA_4*0.03 XA_6赋值:最高价+XA_4*0.03 当满足条件显示板块ANDISLASTBAR时,在横轴0纵轴0位置书写文字 当满足条件显示板块ANDISLASTBAR时,在横轴0.05纵轴0位置书写文字 当满足条件显示板块ANDISLASTBAR时,在横轴0.1纵轴0位置书写文字 当满足条件1日前的最低价>最高价时,在最高价和1日前的最低价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画深灰色 当满足条件1日前的最高价<最低价时,在最低价和1日前的最高价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画深灰色 输出WEN98编_C:收盘价的最后一日取值设为常数,POINTDOT,画淡红色 XA_7赋值:1.01 XA_8赋值:高量周期 XA_9赋值:若XA_8日前的成交量(手)=2*XA_8+1日内成交量(手)的最高值的XA_8日过滤则将最近XA_8+1周期置为1的XA_8日过滤 XA_10赋值:XA_9 AND 成交量(手)/1日前的成交量(手)位于1.01和5之间 XA_11赋值:成交量(手)>1日前的成交量(手) XA_12赋值:收盘价/1日前的收盘价>=1.03 OR 收盘价/开盘价>=1.03 XA_13赋值:收阳线OROSE 收盘价>1日前的收盘价 XA_14赋值:收盘价>1日前的收盘价和开盘价的较大值 XA_15赋值:XA_12 XA_16赋值:成交量(手)/1日前的成交量(手)位于0.966和1.034之间 AND 成交量(手)的有效数据周期数>=2 XA_17赋值:XA_14 AND 1日后的XA_16ANDCOUNT(收阳线,2)=2 XA_18赋值:成交量(手)/1日前的成交量(手)位于1.01和4.99之间 AND XA_13 XA_19赋值:XA_11 AND XA_14 XA_20赋值:2日后的统计2日中满足成交量(手)>=1日前的成交量(手)ANDXA_13的天数=2 XA_21赋值:2日后的统计2日中满足收盘价/1日前的收盘价位于1.001和1.04之间的天数=2 XA_22赋值:XA_10 OR XA_15 OR XA_17 OR XA_18 OR XA_19 OR XA_20 OR XA_21 XA_23赋值:XA_13ANDXA_22的历史过滤 XA_24赋值:3日内收盘价的最低值>=3日前的收盘价和开盘价的较小值 XA_25赋值:1*(XA_23 AND 3日后的XA_24) XA_26赋值:成交量(手)的3日指数移动平均<=3日前的成交量(手)*1.03 XA_27赋值:(成交量(手)的3日指数移动平均-3日前的成交量(手))/3日前的成交量(手)<=(收盘价的3日指数移动平均-3日前的收盘价)/3日前的收盘价 XA_28赋值:XA_26 OR XA_27 XA_29赋值:3日后的收盘价的3日指数移动平均和收盘价的较小值>=收盘价 XA_30赋值:1*(XA_25 AND 3日后的XA_28 AND XA_29) XA_31赋值:统计3日中满足成交量(手)<=1日前的成交量(手)的天数=3 XA_32赋值:统计3日中满足收盘价>=1日前的收盘价的天数=3 XA_33赋值:统计4日中满足收阳线的天数=4 XA_34赋值:XA_31 AND XA_32 AND XA_33 XA_35赋值:3日后的XA_34 XA_36赋值:收盘价和开盘价的较小值>1日前的收盘价和开盘价的较大值 XA_37赋值:1*(XA_13 AND 1日后的XA_30 AND 收盘价和开盘价的较大值<1日后的开盘价) XA_38赋值:上次XA_25ANDREF(XA_25=0,1)距今天数 XA_39赋值:XA_38日前的XA_3 XA_40赋值:XA_39=1日后的XA_39 AND XA_1 输出将军白:如果XA_40,返回XA_39,否则返回无效数,画白色 当满足条件XA_38日前的XA_25时,在XA_39和XA_39位置之间画柱状线,宽度为3,0不为0则画空心柱.,画白色 XA_41赋值:上次XA_30ANDREF(XA_30=0,1)距今天数 XA_42赋值:XA_41日前的XA_3 XA_43赋值:XA_42=1日后的XA_42 AND XA_1 输出黄金黄:如果XA_43,返回XA_42,否则返回无效数,画黄色 当满足条件XA_41日前的XA_30时,在XA_42和XA_42位置之间画柱状线,宽度为3,0不为0则画空心柱.,画黄色 XA_44赋值:上次XA_37ANDREF(XA_37=0,1)距今天数 XA_45赋值:XA_44日前的收盘价和开盘价的较大值 XA_46赋值:XA_45=1日后的XA_45 AND XA_1 输出元帅黄:如果XA_46,返回XA_45,否则返回无效数,画淡红色 当满足条件XA_44日前的XA_37时,在XA_45和XA_45位置之间画柱状线,宽度为3,0不为0则画空心柱.,画淡红色 XA_47赋值:收盘价的5日简单移动平均 输出MA5角度:(XA_47/1日前的XA_47-1)*100的反正切*180/3.1416,NODRAW K线 XA_48赋值:1日前的收盘价 XA_49赋值:如果收盘价>=1,返回10000,否则返回100000 XA_50赋值:1.1*XA_48-49/XA_49 XA_51赋值:1.05*XA_48-49/XA_49 XA_52赋值:0.9*XA_48+51/XA_49 XA_53赋值:0.95*XA_48+51/XA_49 XA_54赋值:模糊匹配品种名称 OR 模糊匹配品种名称 XA_55赋值:如果XA_54,返回收盘价>=XA_51,否则返回收盘价>=XA_50 XA_56赋值:如果XA_54,返回收盘价<=XA_53,否则返回收盘价<=XA_52 XA_57赋值:如果XA_54,返回最高价>=XA_51,否则返回最高价>=XA_50 XA_58赋值:如果XA_54,返回最低价<=XA_53,否则返回最低价<=XA_52 当满足条件XA_57时,在最高价和收盘价和开盘价的较大值位置之间画柱状线,宽度为0,0不为0则画空心柱.,画洋红色 当满足条件XA_58时,在最低价和收盘价和开盘价的较小值位置之间画柱状线,宽度为0,0不为0则画空心柱.,画淡青色 XA_59赋值:收阳线ANDSE (收盘价>=XA_51 OR 收盘价>1.05*开盘价-51/XA_49) OR (收盘价>1000 AND 收盘价>XA_48*1.024) 当满足条件XA_59时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR0000BB XA_60赋值:收阴线ANDSE (收盘价<=XA_53 OR 收盘价<0.95*开盘价+49/XA_49) OR (收盘价>1000 AND 收盘价<XA_48*0.976) 当满足条件XA_60时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画淡绿色 当满足条件XA_55时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画洋红色 当满足条件XA_56时,在开盘价和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画淡青色 XA_61赋值:收阳线ANDSE 收盘价<XA_48 当满足条件XA_61时,在开盘价和收盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画绿色 XA_62赋值:收阴线ANDSE 收盘价>XA_48 当满足条件XA_62时,在开盘价和收盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画红色 XA_63赋值:成交额(元)/成交量(手)/100 XA_64赋值:收阴线ANDSE XA_63>1日前的收盘价 AND 收盘价<=XA_48 AND XA_63<=最高价 当满足条件XA_64时,在XA_63和XA_63位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色 XA_65赋值:周期类型=5 AND 模糊匹配品种名称 AND (收盘价-1日前的收盘价的绝对值/1日前的收盘价>=0.025 OR 收盘价-开盘价的绝对值>=60) 当满足条件XA_65时,在(最高价+最低价)/2和(最高价+最低价)/2位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色 XA_66赋值:0.1*收盘价-开盘价的绝对值 输出标准金柱:当满足条件XA_35ANDXA_1时,在开盘价+XA_66和收盘价-XA_66位置之间画柱状线,宽度为1,0不为0则画空心柱.,画棕色 XA_67赋值:成交量(手)>=1.9*1日前的成交量(手) AND 收阳线 XA_68赋值:成交量(手)=XA_8日内成交量(手)的最高值 AND 1日后的成交量(手)<1日前的成交量(手) XA_69赋值:如果到最后交易的周期<XA_8,返回XA_68,否则返回XA_9 XA_70赋值:收盘价>500 XA_71赋值:如果XA_70,返回最高价,否则返回收盘价和开盘价的较大值 XA_72赋值:如果XA_70,返回最低价,否则返回收盘价和开盘价的较小值 XA_73赋值:如果收阳线,返回如果XA_2=0,返回最低价,否则返回XA_72,否则返回如果XA_2=0,返回最高价,否则返回XA_71 XA_74赋值:XA_71-(XA_71-XA_72)/3 XA_75赋值:XA_72+(XA_71-XA_72)/3 XA_76赋值:XA_72+(XA_71-XA_72)/2 XA_77赋值:1+如果XA_70,返回2,否则返回4.92/100 XA_78赋值:XA_71/XA_72>=XA_77 XA_79赋值:XA_78 OR XA_67 OR XA_69 XA_80赋值:上次XA_79距今天数 输出C31:如果XA_80=0AND显3121刻度=1,返回XA_80日前的XA_74,否则返回无效数,POINTDOT,画淡红色 输出C21:如果XA_80=0AND显3121刻度=1,返回XA_80日前的XA_76,否则返回无效数,POINTDOT,画淡灰色 输出C32:如果XA_80=0AND显3121刻度=1,返回XA_80日前的XA_75,否则返回无效数,POINTDOT,画淡绿色 XA_81赋值:如果显3121刻度=1,返回XA_80日前的XA_73,否则返回无效数 XA_82赋值:1日前的KDJ的J<=10ANDCROSS(KDJ的J,1日前的KDJ的J)的3日过滤 XA_83赋值:1日前的RSI的RSI1<=20ANDCROSS(RSI的RSI1,1日前的RSI的RSI1)的3日过滤 当满足条件显买卖点=1ANDXA_82ANDCLOSE>1日前的收盘价时,在XA_5-XA_4*0.03位置画1号图标 当满足条件显买卖点=1ANDXA_83时,在XA_5位置画1号图标 XA_84赋值:1日前的2日内如果XA_2=1,返回收盘价和开盘价的较大值,否则返回最高价的最高值 XA_85赋值:收盘价>XA_84的1日过滤 XA_86赋值:1日前的2日内如果XA_2=1,返回收盘价和开盘价的较小值,否则返回最低价的最低值 XA_87赋值:收盘价<XA_86的1日过滤 XA_88赋值:XA_85 AND 统计上次XA_87距今天数日中满足XA_85的天数=1 AND 显买卖点=1 AND XA_1 XA_89赋值:XA_87 AND 统计上次XA_85距今天数日中满足XA_87的天数=1 AND 显买卖点=1 AND XA_1 当满足条件XA_89时,在XA_86和XA_86位置之间画柱状线,宽度为18,(-1)不为0则画空心柱.,画绿色 当满足条件XA_89时,在XA_6位置画39号图标 当满足条件XA_88时,在XA_84和XA_84位置之间画柱状线,宽度为18,(-1)不为0则画空心柱.,画洋红色 当满足条件XA_88时,在XA_5位置画38号图标 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

 来源:程序化99（ WWW.CXH99.COM ）

源码：

XA_1:=DATE<=1250531;XA_2:=画底虚实;XA_3:=IF(XA_2=1,MIN(CLOSE,OPEN),LOW);XA_4:=CONST(HHV(HIGH,240)-LLV(LOW,240));XA_5:=LOW-XA_4*0.03;XA_6:=HIGH+XA_4*0.03;DRAWTEXT_FIX(显示板块 AND ISLASTBAR,0,0,0,HYBLOCK);DRAWTEXT_FIX(显示板块 AND ISLASTBAR,0.05,0,0,DYBLOCK);DRAWTEXT_FIX(显示板块 AND ISLASTBAR,0.1,0,0,GNBLOCK);STICKLINE(REF(LOW,1)>HIGH,HIGH,REF(LOW,1),5,0),COLORGRAY;STICKLINE(REF(HIGH,1)<LOW,LOW,REF(HIGH,1),5,0),COLORGRAY;WEN98编_C:CONST(CLOSE),POINTDOT,COLORLIRED;XA_7:=1.01;XA_8:=高量周期;XA_9:=FILTER(BACKSET(FILTER(REF(VOL,XA_8)=HHV(VOL,2*XA_8+1),XA_8),XA_8+1),XA_8);XA_10:=XA_9 AND BETWEEN(VOL/REF(VOL,1),1.01,5);XA_11:=VOL>REF(VOL,1);XA_12:=CLOSE/REF(CLOSE,1)>=1.03 OR CLOSE/OPEN>=1.03;XA_13:=CLOSE>OPEN OR CLOSE>REF(CLOSE,1);XA_14:=CLOSE>REF(MAX(CLOSE,OPEN),1);XA_15:=XA_12;XA_16:=RANGE(VOL/REF(VOL,1),0.966,1.034) AND BARSCOUNT(VOL)>=2;XA_17:=XA_14 AND REFX(XA_16 AND COUNT(CLOSE>OPEN,2)=2,1);XA_18:=BETWEEN(VOL/REF(VOL,1),1.01,4.99) AND XA_13;XA_19:=XA_11 AND XA_14;XA_20:=REFX(COUNT(VOL>=REF(VOL,1) AND XA_13,2)=2,2);XA_21:=REFX(COUNT(BETWEEN(CLOSE/REF(CLOSE,1),1.001,1.04),2)=2,2);XA_22:=XA_10 OR XA_15 OR XA_17 OR XA_18 OR XA_19 OR XA_20 OR XA_21;XA_23:=FILTER(XA_13 AND XA_22,0);XA_24:=LLV(CLOSE,3)>=REF(MIN(CLOSE,OPEN),3);XA_25:=1*(XA_23 AND REFX(XA_24,3));XA_26:=EMA(VOL,3)<=REF(VOL,3)*1.03;XA_27:=(EMA(VOL,3)-REF(VOL,3))/REF(VOL,3)<=(EMA(CLOSE,3)-REF(CLOSE,3))/REF(CLOSE,3);XA_28:=XA_26 OR XA_27;XA_29:=REFX(MIN(EMA(CLOSE,3),CLOSE),3)>=CLOSE;XA_30:=1*(XA_25 AND REFX(XA_28,3) AND XA_29);XA_31:=COUNT(VOL<=REF(VOL,1),3)=3;XA_32:=COUNT(CLOSE>=REF(CLOSE,1),3)=3;XA_33:=COUNT(CLOSE>OPEN,4)=4;XA_34:=XA_31 AND XA_32 AND XA_33;XA_35:=REFX(XA_34,3);XA_36:=MIN(CLOSE,OPEN)>REF(MAX(CLOSE,OPEN),1);XA_37:=1*(XA_13 AND REFX(XA_30,1) AND MAX(CLOSE,OPEN)<REFX(OPEN,1));XA_38:=BARSLAST(XA_25 AND REF(XA_25=0,1));XA_39:=REF(XA_3,XA_38);XA_40:=XA_39=REFX(XA_39,1) AND XA_1;将军白:IF(XA_40,XA_39,DRAWNULL),COLORWHITE;STICKLINE(REF(XA_25,XA_38),XA_39,XA_39,3,0),COLORWHITE;XA_41:=BARSLAST(XA_30 AND REF(XA_30=0,1));XA_42:=REF(XA_3,XA_41);XA_43:=XA_42=REFX(XA_42,1) AND XA_1;黄金黄:IF(XA_43,XA_42,DRAWNULL),COLORYELLOW;STICKLINE(REF(XA_30,XA_41),XA_42,XA_42,3,0),COLORYELLOW;XA_44:=BARSLAST(XA_37 AND REF(XA_37=0,1));XA_45:=REF(MAX(CLOSE,OPEN),XA_44);XA_46:=XA_45=REFX(XA_45,1) AND XA_1;元帅黄:IF(XA_46,XA_45,DRAWNULL),COLORLIRED;STICKLINE(REF(XA_37,XA_44),XA_45,XA_45,3,0),COLORLIRED;XA_47:=MA(CLOSE,5);MA5角度:ATAN((XA_47/REF(XA_47,1)-1)*100)*180/3.1416,NODRAW;DRAWKLINE(HIGH,OPEN,LOW,CLOSE);XA_48:=REF(CLOSE,1);XA_49:=IF(CLOSE>=1,10000,100000);XA_50:=1.1*XA_48-49/XA_49;XA_51:=1.05*XA_48-49/XA_49;XA_52:=0.9*XA_48+51/XA_49;XA_53:=0.95*XA_48+51/XA_49;XA_54:=NAMELIKE(1) OR NAMELIKE(2);XA_55:=IF(XA_54,CLOSE>=XA_51,CLOSE>=XA_50);XA_56:=IF(XA_54,CLOSE<=XA_53,CLOSE<=XA_52);XA_57:=IF(XA_54,HIGH>=XA_51,HIGH>=XA_50);XA_58:=IF(XA_54,LOW<=XA_53,LOW<=XA_52);STICKLINE(XA_57,HIGH,MAX(CLOSE,OPEN),0,0),COLORMAGENTA;STICKLINE(XA_58,LOW,MIN(CLOSE,OPEN),0,0),COLORLICYAN;XA_59:=CLOSE>OPEN AND (CLOSE>=XA_51 OR CLOSE>1.05*OPEN-51/XA_49) OR (CLOSE>1000 AND CLOSE>XA_48*1.024);STICKLINE(XA_59,OPEN,CLOSE,1,0),COLOR0000BB;XA_60:=CLOSE<OPEN AND (CLOSE<=XA_53 OR CLOSE<0.95*OPEN+49/XA_49) OR (CLOSE>1000 AND CLOSE<XA_48*0.976);STICKLINE(XA_60,OPEN,CLOSE,1,0),COLORLIGREEN;STICKLINE(XA_55,OPEN,CLOSE,1,0),COLORMAGENTA;STICKLINE(XA_56,OPEN,CLOSE,1,0),COLORLICYAN;XA_61:=CLOSE>OPEN AND CLOSE<XA_48;STICKLINE(XA_61,OPEN,CLOSE,0,0),COLORGREEN;XA_62:=CLOSE<OPEN AND CLOSE>XA_48;STICKLINE(XA_62,OPEN,CLOSE,0,0),COLORRED;XA_63:=AMOUNT/VOL/100;XA_64:=CLOSE<OPEN AND XA_63>REF(CLOSE,1) AND CLOSE<=XA_48 AND XA_63<=HIGH;STICKLINE(XA_64,XA_63,XA_63,1,0),COLORRED;XA_65:=PERIOD=5 AND NAMELIKE(3) AND (ABS(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>=0.025 OR ABS(CLOSE-OPEN)>=60);STICKLINE(XA_65,(HIGH+LOW)/2,(HIGH+LOW)/2,2,0),COLORYELLOW;XA_66:=0.1*ABS(CLOSE-OPEN);标准金柱:STICKLINE(XA_35 AND XA_1,OPEN+XA_66,CLOSE-XA_66,1,0),COLORBROWN;XA_67:=VOL>=1.9*REF(VOL,1) AND CLOSE>OPEN;XA_68:=VOL=HHV(VOL,XA_8) AND REFX(VOL<REF(VOL,1),1);XA_69:=IF(CURRBARSCOUNT<XA_8,XA_68,XA_9);XA_70:=CLOSE>500;XA_71:=IF(XA_70,HIGH,MAX(CLOSE,OPEN));XA_72:=IF(XA_70,LOW,MIN(CLOSE,OPEN));XA_73:=IF(CLOSE>OPEN,IF(XA_2=0,LOW,XA_72),IF(XA_2=0,HIGH,XA_71));XA_74:=XA_71-(XA_71-XA_72)/3;XA_75:=XA_72+(XA_71-XA_72)/3;XA_76:=XA_72+(XA_71-XA_72)/2;XA_77:=1+IF(XA_70,2,4.92)/100;XA_78:=XA_71/XA_72>=XA_77;XA_79:=XA_78 OR XA_67 OR XA_69;XA_80:=BARSLAST(XA_79);C31:IF(XA_80=0 AND 显3121刻度=1,REF(XA_74,XA_80),DRAWNULL),POINTDOT,COLORLIRED;C21:IF(XA_80=0 AND 显3121刻度=1,REF(XA_76,XA_80),DRAWNULL),POINTDOT,COLORLIGRAY;C32:IF(XA_80=0 AND 显3121刻度=1,REF(XA_75,XA_80),DRAWNULL),POINTDOT,COLORLIGREEN;XA_81:=IF(显3121刻度=1,REF(XA_73,XA_80),DRAWNULL);XA_82:=FILTER(REF(KDJ.J,1)<=10 AND CROSS(KDJ.J,REF(KDJ.J,1)),3);XA_83:=FILTER(REF(RSI.RSI1,1)<=20 AND CROSS(RSI.RSI1,REF(RSI.RSI1,1)),3);DRAWICON(显买卖点=1 AND XA_82 AND CLOSE>REF(CLOSE,1),XA_5-XA_4*0.03,1);DRAWICON(显买卖点=1 AND XA_83,XA_5,1);XA_84:=REF(HHV(IF(XA_2=1,MAX(CLOSE,OPEN),HIGH),2),1);XA_85:=FILTER(CLOSE>XA_84,1);XA_86:=REF(LLV(IF(XA_2=1,MIN(CLOSE,OPEN),LOW),2),1);XA_87:=FILTER(CLOSE<XA_86,1);XA_88:=XA_85 AND COUNT(XA_85,BARSLAST(XA_87))=1 AND 显买卖点=1 AND XA_1;XA_89:=XA_87 AND COUNT(XA_87,BARSLAST(XA_85))=1 AND 显买卖点=1 AND XA_1;STICKLINE(XA_89,XA_86,XA_86,18,(-1)),COLORGREEN;DRAWICON(XA_89,XA_6,39);STICKLINE(XA_88,XA_84,XA_84,18,(-1)),COLORMAGENTA;DRAWICON(XA_88,XA_5,38);DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;


DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

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