11111111111111111111111
谢谢分享这么好的公式
谢谢分享具体内容.
学习学习
金量柱副图指标
参观学习学习
_level0.str
8888888888
感谢分享，辛苦了！
金量柱副图指标
金量柱副图指标
金量柱副图指标学习学习
谢谢楼主，学习了
B1:=MA(CLOSE,1);
B2:=SMA(SMA(SMA(B1,2,1),2,1),2,1) ;
SMA2:=MA(B2,5) ;
FILLRGN(b2,sma2,b2>sma2),colorred;
FILLRGN(b2,sma2,b2<sma2),colorgreen;
X:=21;
TTY:=H;
AAT:=REF(TTY,X)=HHV(TTY,2*X+1);
BBT:=FILTER(AAT,X);
CCT:=BACKSET(BBT,X+1);
HD10T:=FILTER(CCT,X);
AA1T:=REF(TTY,X)=LLV(TTY,2*X+1);
BB1T:=FILTER(AA1T,X);
CC1T:=BACKSET(BB1T,X+1);
LD10T:=FILTER(CC1T,X);
前期高位:REF(H,BARSLAST(HD10T)),COLORBLUE,LINETHICK0;
前期低位:REF(L,BARSLAST(LD10T)),COLORRED,LINETHICK0;
T10T:=BARSLAST(HD10T) AND BARSLAST(LD10T) AND NOT(LD10T);
STICKLINE(T10T,前期高位,前期高位,20,0),COLORBLUE;
STICKLINE(T10T,前期低位,前期低位,20,0),COLORRED;
三日不破:=MIN(MIN(L,REF(L,1)),REF(L,2))>=REF(L,3);
三日量缩:=(MAX(MAX(V,REF(V,1)),REF(V,2))<REF(V,3));
三日价涨A:=C>=REF(C,1);
三日价涨B:=C<REF(C,1);
三日价涨C:=MIN(MIN(C,REF(C,1)),REF(C,2))>=REF(L,3);
TIM:=IF(DATE<1140214,1,0);
缩倍柱:=(VOL*1.95<=REF(VOL,1))*TIM;
百日低量:=(VOL=LLV(VOL,100))*TIM;
倍量柱:=C>REF(C,1)*1.04 AND (VOL>=1.9*REF(VOL,1))*TIM;
四日前倍量柱:=(REF(VOL,3)>1.9*REF(VOL,4))*TIM;
四日前高量柱:=(REF(VOL,3)>=REF(VOL,4) AND REF(VOL,3)<1.9*REF(VOL,4) AND 三日量缩)*TIM;
前三引用不成立:=COUNT(REF(四日前倍量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0 AND COUNT(REF(四日前高量柱,1) AND (REF(三日不破,1) OR REF(三日价涨C,1)),3)=0;
倍量黄金柱:=四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
高量黄金柱:=四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨A AND 前三引用不成
立;
黄金柱:=倍量黄金柱 OR 高量黄金柱;
次倍量黄金柱:=NOT(黄金柱) AND 四日前倍量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次高量黄金柱:=NOT(黄金柱) AND 四日前高量柱 AND 三日量缩 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次黄金柱:=次倍量黄金柱 OR 次高量黄金柱;
准倍量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前倍量柱 AND ((三日量缩 AND 三日价涨C) OR (COUNT(倍量柱,3)>=1 AND 三日不破)) AND 前三引用不成立;
准高量黄金柱:=NOT(黄金柱 OR 次黄金柱) AND 四日前高量柱 AND (三日量缩 AND 三日价涨C) AND 前三引用不成立;
准黄金柱:=准倍量黄金柱 OR 准高量黄金柱;
倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨A AND 前三引用不成立;
将军柱:=倍量将军柱 OR 高量将军柱;
次倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前倍量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱) AND 四日前高量柱 AND 三日不破 AND 三日价涨B AND 前三引用不成立;
次将军柱:=次倍量将军柱 OR 次高量将军柱;
准倍量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前倍量柱 AND 三日价涨C AND 前三引用不成立;
准高量将军柱:=NOT(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱) AND 四日前高量柱 AND 三日价涨C AND 前三引用不成立;
准将军柱:=准倍量将军柱 OR 准高量将军柱;
BACKSET100:=BACKSET(黄金柱 OR 次黄金柱 OR 准黄金柱 OR 将军柱 OR 次将军柱 OR 准将军柱,4);
FILTER100:=FILTER(BACKSET100,3);
BACKSET101:=BACKSET(黄金柱,4);
FILTER101:=FILTER(BACKSET101,3);
BACKSET102:=BACKSET(次黄金柱,4);
FILTER102:=FILTER(BACKSET102,3);
BACKSET103:=BACKSET(准黄金柱,4);
FILTER103:=FILTER(BACKSET103,3);
BACKSET104:=BACKSET(将军柱,4);
FILTER104:=FILTER(BACKSET104,3);
BACKSET105:=BACKSET(次将军柱,4);
FILTER105:=FILTER(BACKSET105,3);
BACKSET106:=BACKSET(准将军柱,4);
FILTER106:=FILTER(BACKSET106,3);
DRAWTEXT(FILTER101,LOW*0.986,'↖黄金柱'),COLORYELLOW;
STICKLINE(FILTER101,OPEN,CLOSE,6,0),COLORYELLOW;
DRAWTEXT(FILTER102,LOW*0.986,'↖次黄'){,COLORFF00FF},COLORYELLOW;
STICKLINE(FILTER102,OPEN,CLOSE,6,0),COLORYELLOW;
DRAWTEXT(FILTER103,LOW*0.986,'↖准黄'),COLORFF00FF{,COLORYELLOW};
STICKLINE(FILTER103,OPEN,CLOSE,6,0),COLORYELLOW;
DRAWTEXT(FILTER104,LOW*0.986,'↖将军柱'),COLORRED;
STICKLINE(FILTER104,OPEN,CLOSE,6,0),COLORYELLOW;
DRAWTEXT(FILTER105,LOW*0.986,'↖次将'),COLORFF00FF{,COLORYELLOW};
STICKLINE(FILTER105,OPEN,CLOSE,6,0),COLORYELLOW;
DRAWTEXT(FILTER106,LOW*0.986,'↖准将'),COLORFF00FF{,COLORYELLOW};
STICKLINE(FILTER106,OPEN,CLOSE,6,0),COLORYELLOW;
K1:=SUMBARS(FILTER104,1);
STICKLINE(K1,REF(L,K1-2),REF(L,K1-2),20,0),COLORYELLOW;
STICKLINE(K1,REF(L,K1-1),REF(L,K1-1),3,0),COLORGREEN;{低位线}
K2:=SUMBARS(FILTER101,1);
STICKLINE(K2,REF(L,K2-2),REF(L,K2-2),20,0),COLORYELLOW;
立桩量:=VOL=HHV(VOL,40) AND VOL>1.9*REF(VOL,1);
立桩量三日突破:=IF(BARSLAST(立桩量)=1 AND CLOSE>REF(HIGH,1),1,IF(BARSLAST(立桩量)=2 AND CLOSE>REF(HIGH,2),1,IF(BARSLAST(立桩量)=3 AND CLOSE>REF(HIGH,3),1,0)));
立桩量三日不破:=BARSLAST(立桩量)=3 AND REF(LOW,3)<=MIN(MIN(C,REF(C,1)),REF(C,2));
BACKSET300:=BACKSET(立桩量三日不破,4);
BACKSET301:=BACKSET(立桩量三日突破,4);
立桩量成立:=FILTER(BACKSET300,3) AND BACKSET301 AND 立桩量;
DRAWTEXT(立桩量成立,HIGH,'←立柱'),COLORGREEN;
感谢金将军分享
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>1,0.86,0.95,0,'★外盘大1倍'),COLORRED;
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>2,0.86,0.95,0,'★外盘大2倍'),COLORWHITE;
DRAWTEXT_FIX((DYNAINFO(23)/DYNAINFO(22))>3,0.86,0.95,0,'★外盘大3倍'),COLORYELLOW;
TS:=5;{高量两边的周期,自行调节,最好设为参数TS(5,50,10)}
HV:=FILTER(BACKSET(FILTER(REF(V,TS)=HHV(V,2*TS+1),TS),TS+1),TS);
T1:=BARSLAST(HV);{高量T}
高量底:=REF(L,T1);
高量底线: IF(LLV(C,T1)>=高量底,高量底,DRAWNULL),COLORYELLOW;{黄色实线};
{基本面数据}
所属地域:=DRAWTEXT_FIX(ISLASTBAR,0.70,0,0,HYBLOCK),COLORYELLOW;
所属概念:=DRAWTEXT_FIX(ISLASTBAR,0.77,0,0,GNBLOCK),COLORYELLOW;
所属地区:=DRAWTEXT_FIX(ISLASTBAR,0.90,0,0,DYBLOCK),COLORYELLOW;
利润同比:=STRCAT('利润同比：',CON2STR(FINANCE(43),2));
收入同比:=STRCAT('收入同比：',CON2STR(FINANCE(44),2));
所属风格:=STRCAT('所属风格：',FGBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0.50,0,0,利润同比),COLORCYAN;
DRAWTEXT_FIX(ISLASTBAR,0.60,0,0,收入同比),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0.70,0,0,所属风格),COLORCYAN;
{板块市值业绩}
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿');
流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿');
全流通:=STRCAT(STRCAT(' 全流通:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');
市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');
上市日期:=STRCAT(' 上市日期: ',CON2STR(HHV((BARSCOUNT(C)=0)*(DATE+19000000),0),0));
股本市值:=STRCAT('【股本市值】',STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值),上市日期));
市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));
市销率:=STRCAT(' 市销率:',CON2STR(C/(FINANCE(20)/FINANCE(1)),2));
市净率:=STRCAT(' 市净率:',CON2STR(C/FINANCE(34),2));
净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));
毛利率:=STRCAT(' 毛利率:',CON2STR((FINANCE(20)-FINANCE(21))/FINANCE(20)*100,2));
净利润率:=STRCAT(' 净利率:',CON2STR(FINANCE(30)/FINANCE(20)*100,2));
主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));
当前业绩:=STRCAT('【当前业绩】',STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(市盈率,市销率),市净率),净资收益率),毛利率),净利润率),主营利润率));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.02,0,所属板块),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.07,0,股本市值),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,当前业绩),COLORMAGENTA;
{FL:MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1)),COLORBLUE;
FS:MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1),COLORGREEN;
趋势:IF(MA(CLOSE,17)<FS,FS,MA(CLOSE,17)),COLORRED;}
LDM4:=CONST(HHV(REF(HIGH,1),240));{240日前最高价}
LDM5:=CONST(LLV(REF(LOW,1),240));{240日前最低价}
LDM6:=LDM4-LDM5;{240日前最高最低价之间差值}
LDM7:=LOW-LDM6*0.03;
LDM8:=HIGH+LDM6*0.03;
LDM9:=CLOSE>500;{大盘指数}
LDM10:=MAX(CLOSE,OPEN);
LDM11:=MIN(CLOSE,OPEN);
LDM12:=0;
LDM13:=1;
LDM14:=IF(LDM9,HIGH,LDM10);{如果为大盘指数则取最高价，个股取当天开收的最大值}
LDM15:=IF(LDM9,LOW,LDM11);{如果为大盘指数则取最低价，个股取当天开收的最小值}
LDM16:=IF(CLOSE>OPEN,IF(LDM13=0,LOW,LDM15),IF(LDM13=0,HIGH,LDM14));
{如果收阳，以最低价画线，否则以开盘价画线。如果收阴则以最高价画线，否则以开盘价画线}
LDM17:=2/1000;{误差值}
LDM18:=CURRBARSCOUNT;{求上市天数}
LDM19:=120;
LDM20:=LDM18<=LDM19;{上市天数小于等于精准计数周期}
LDM21:=LOW;
{选择画线位置低开高收}
LDM22:=IF(LDM12=0,LDM21,REF(LDM12,LDM12));
{如果基准前N天为0，则按LDM21取当天值，否则取基准前N天的值}
基准价:IF(LDM20,CONST(LDM22),DRAWNULL),DOTLINE,COLORLIGRAY;
{如果总交易天数小于精准计算周期，则按LDM22值画虚直线，否则不画精准线}
LDM23:=基准价;
LDM24:=LDM23*LDM17;{求误差值}
LDM25:=ABS(LOW-LDM23)<=LDM24;{最低价减误差值的绝对值小于等于误差值}
LDM26:=ABS(OPEN-LDM23)<=LDM24;{开盘价减误差值的绝对值小于等于误差值}
LDM27:=ABS(CLOSE-LDM23)<=LDM24;{收盘价减误差值的绝对值小于等于误差值}
LDM28:=ABS(HIGH-LDM23)<=LDM24;{最高价价减误差值的绝对值小于等于误差值}
LDM29:=LDM25 OR LDM26 OR LDM27 OR LDM28 AND LDM20 AND LDM18!=1;
{满足LDM25或LDM26或LDM27或LDM28及上市天数小于等于精准计数周期及上市天数不等于
基准前N天加一}
LDM30:=COUNT(LDM29,LDM19);{在精准周期LDM19内统计满足LDM29条件的周期数}
精准点个数:IF(LDM30>0,LDM30+1,0),NODRAW,COLORMAGENTA;
VAR4:=PEAKBARS(3,15,1)<10;
VAR5:=IF(VAR4=1,2,0);
顶:= IF(VAR5=2,2,0);
顶A:=IF(顶>REF(顶,1),50,0),COLORGREEN;
DRAWTEXT(顶A=50,H*1.01,'快逃'),COLOR00FF00;
DRAWTEXT(顶A=50,H*1.05,'快逃'),COLOR00FF00;
{峰顶谷底标识};
TY:=C;
N:=13;
A1:=REF(TY,N)=HHV(TY,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
HD:=FILTER(C1,N);
A2:=REF(TY,N)=LLV(TY,2*N+1);
B2:=FILTER(A2,N);
C3:=BACKSET(B2,N+1);
LD:=FILTER(C3,N);
前期低位:=REF(C,BARSLAST(LD));
前期高位:=REF(C,BARSLAST(HD));
STICKLINE(C,前期高位,前期高位,8,0),COLOR00FF00;
STICKLINE(C,前期低位,前期低位,8,0),COLORRED;
{太极左点0,1000000,0}{太极右点0,1000000,0}
{太极左日期0,1000000,0}{太极右日期0,1000000,0}
三一:H-(H-L)*0.333,NODRAW;
二一:H-(H-L)*0.5,NODRAW;
三二:H-(H-L)*0.666,NODRAW;
实三一:IF(C>O,(C-(C-O)/3),(O-(O-C)/3)),COLORWHITE,NODRAW;
实体腰线:O+(C-O)*0.5,NODRAW;
实三二:IF(C>O,(O+(C-O)/3),(C+(O-C)/3)),COLORWHITE,NODRAW;
三日均价:=MA(C,3),NODRAW;
三日后收:=REFX(三日均价,3),NODRAW;
高于实顶:C<三日后收,NODRAW;
开高三日收:= O<REFX(C,1) AND O<REFX(C,2) AND O<REFX(C,3),NODRAW;
涨幅:=(C-REF(C,1))/REF(C,1)*100>2,NODRAW;
一字板:=(C=O AND C=H AND C=L),COLORRED,NODRAW;
黄金柱:=高于实顶 AND 开高三日收 AND 涨幅 AND 一字板=0,NODRAW;
FF:=INTPART(DATE),NODRAW;
时间左:=(FF-1000000)-太极左日期=0,NODRAW;
时间右:=(FF-1000000)-太极右日期=0,NODRAW;
校正左:= 太极左点=C OR 太极左点=O OR 太极左点=H OR 太极左点=L ;
校正右:=(太极右点=C OR 太极右点=O OR 太极右点=H OR 太极右点=L);
斜衡线:DRAWLINE(时间左 AND 校正左,太极左点,时间右 AND 校正右,太极右点,1)COLORLIBLUE;
时间左至今天:=BARSSINCE(时间左)-1,NODRAW;
斜衡角度: ATAN(((REF(斜衡线,时间左至今天)/太极左点)-1)*100)*180/3.1416,COLORWHITE,NODRAW;
倍数:=1.9;
倍量:= VOL>=REF(V,1)*倍数 AND (IF(C<O,C>REF(C,1),1)),NODRAW;
DRAWICON(倍量,L*0.98,39),NODRAW;
{多彩K线-主图公式, 显示大阳\\大阴\\涨停\\跌停\\假阴\\假阳\\跳空\\大K线中点,适用于通达信 }
{DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK);}{在屏幕左上角显示所属行业板块}
{DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK);}{在屏幕左上角显示所属地域板块}
{DRAWTEXT_FIX(ISLASTBAR,0.1,0,0,GNBLOCK);}{在屏幕左上角显示所属概念板块}
{跳空
STICKLINE(REF(L,1)>H,H,REF(L,1),5,0),COLORGRAY;
STICKLINE(REF(H,1)<L,L,REF(H,1),5,0),COLORGRAY;}
DRAWKLINE(H,O,L,C);{重绘K线}
RC1:=REF(C,1);
CS:=IF(C>=1,10000,100000);
C涨停10:=1.10*RC1-49/CS;{考虑到4舍5入}
C涨停5 :=1.05*RC1-49/CS;
C跌停10:=0.90*RC1+51/CS;
C跌停5 :=0.95*RC1+51/CS;
ST:=NAMELIKE('S') OR NAMELIKE('*S');
涨停:= IF(ST, C>=C涨停5, C>=C涨停10);
跌停:= IF(ST, C<=C跌停5, C<=C跌停10);
盘中涨停:=IF(ST, H>=C涨停5, H>=C涨停10);
盘中跌停:=IF(ST, L<=C跌停5, L<=C跌停10);
STICKLINE(盘中涨停,H,MAX(C,O),0,0),COLORMAGENTA;{涨停后回落}
STICKLINE(盘中跌停,L,MIN(C,O),0,0),COLORLICYAN;{跌停后回升}
大阳线:=C>O AND (C>=C涨停5 OR C>(1.05*O-51/CS) ) OR (C>1000 AND C>RC1*1.024);
STICKLINE(大阳线,O,C,1,0),COLOR0000BB;
大阴线:=C<O AND (C<=C跌停5 OR C<(0.95*O+49/CS) ) OR (C>1000 AND C<RC1*0.976);
STICKLINE(大阴线,O,C,1,0),COLORLIGREEN;
STICKLINE(涨停,O,C,1,0),COLORMAGENTA;
STICKLINE(跌停,O,C,1,0),COLORLICYAN;
STICKLINE(黄金柱,O*1.01,C*0.99,0,0),COLORWHITE;{画黄金柱};
假阴:=C<O AND C>REF(C,1);
STICKLINE(假阴,O,C,0,0),COLORRED;{假阴柱};
假阳:=C>O AND C<REF(C,1);
STICKLINE(假阳,O,C,0,0),COLORGREEN;{假阳柱};
大盘TJ:=PERIOD=5 AND NAMELIKE('上证指数')
AND (ABS((C-REF(C,1)))/REF(C,1)>=0.025 OR ABS(C-O)>=60);
STICKLINE(大盘TJ,(H+L)/2,(H+L)/2,2,0),COLORYELLOW;{显示大盘日线的60点大K线中值};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),L+(H-L)/2,L+(H-L)/2,1,0),COLORYELLOW;{大K线画中点线};
STICKLINE((大阳线 OR 大阴线 OR 涨停 OR 跌停)
AND BETWEEN(C,1,500),实体腰线,实体腰线,1,0),COLORBLUE;{大K线画腰线};
{HHH:=CONST(HHV(H,100));
LLL:=CONST(LLV(L,100));
HH:=HHH-LLL;
TJ2:= CURRBARSCOUNT=58;
DRAWTEXT(TJ2,LLL+HH*0.90,'百日低量处,倍量要涨停,凹口平量柱,确实猛如虎');
DRAWTEXT(TJ2,LLL+HH*0.85,'倍量过左峰,涨停急先锋,凹口去淘金,报四三涨停');
DRAWTEXT(TJ2,LLL+HH*0.80,'确定黄金柱,实盘擒牛股,回踩黄金线,腾飞不眨眼');
DRAWTEXT(TJ2,LLL+HH*0.75,'接力黄金线,一步一重天,银谷黄金仓,涨停没商量');
DRAWTEXT(TJ2,LLL+HH*0.70,'二次红波起,必有好戏看,长阴压短柱,攻势猛如虎');
DRAWTEXT(TJ2,LLL+HH*0.65,'咬住峰顶线,伏击赚大钱,顶底若互换,牛股要逛奔');
STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORYELLOW;};