庄氏量学（通达信公式 主图 源码 测试图）

 {庄氏量学}

 

TJ360:=C=HHV(C,150);{黑马线}

TS360:=BARSLAST(TJ360);

HHC360:=REF(C,TS360);

RHHC360:=REF(HHC360,1);

TJ1360:=H>L AND C>RHHC360 ;

CS1360:=BARSLASTCOUNT(TJ1360);

CSS:=COUNT(CS1360=1,60);

MR:=CS1360=1 AND CSS=1;

HMXTS:=BARSLAST(MR);

黑马线:CONST(REF(C,HMXTS)),COLORFFFF00,LINETHICK2;

BBI:=(MA(C,3)+MA(C,6)+MA(C,12)+MA(C,24))/4,COLORYELLOW,LINETHICK2;

大周期:=MA(C,N),COLORWHITE,LINETHICK2;

JJ:=(C+O+H+L)/4;

AQ:=EMA(JJ,10);

QB:=REF(AQ,1); 

IF(AQ>QB,AQ,QB),COLORWHITE,LINETHICK2;

IF(AQ>REF(AQ,1),AQ+0.001,DRAWNULL),LINETHICK2,COLORFF05F9;

IF(AQ<REF(AQ,1),AQ,DRAWNULL),COLOR00FF00;

斜角:=ATAN((AQ/REF(AQ,1)-1)*100)*180/3.1416,NODRAW,COLOR5588FF;

开盘:=(O-REF(C,1))/REF(C,1)*100,NODRAW,COLORLIGREEN;

现价:REFDATE(C,DATE),DOTLINE,COLORLIGRAY;

MA5角度:=ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.1416,NODRAW,COLOR5588FF;

振幅:=(H-L)/REF(C,1)*100,NODRAW,COLORCCCCFF;

获利:=WINNER(C)*100,NODRAW,COLORRED; 

高:=REF(HHV(H,72),5);

龙门:REFDATE(高,DATE),COLORWHITE,LINETHICK2;

月线:=EMA(C,21);

DRAWTEXT(CURRBARSCOUNT=1,L*0.995,EXTERNSTR(0,4));  { 涨停原因}

DRAWKLINE(H,O,L,C);

高量线:=V=HHV(V,20) AND H=HHV(H,60),NODRAW;

CYZ:=ABS(C-O)>=REF(ABS(C-O),1){价柱大于昨天};

LZF:=V/REF(V,1){量柱今昨比};

D1:=CYZ AND (C/REF(C,1)<=0.94 OR C/O<=0.94) AND (V/HHV(V,10)<=0.618 OR V<REF(V,1));

D2:=CYZ AND (C/REF(C,1)<=0.94 OR C/O<=0.94) AND BETWEEN(LZF,1,1.75) AND V>REF(V,1) AND CYZ>LZF;

长阴短柱:=D1 OR D2;

凹底:=长阴短柱 AND (MA(C,3)-LLV(L,20))/LLV(L,20)<0.08;

凹口:=长阴短柱 AND EXIST(高量线,10) AND BETWEEN(O,HHV(H,10)*0.9,HHV(H,10)*0.95);

乖离1:=H/AQ,COLORRED,NODRAW;

乖离2:=L/AQ,COLORRED,NODRAW;

DRAWTEXT(乖离1>1.35,H,'顶背'),COLORGREEN;

DRAWTEXT(乖离2<-1.35,L,'底背'),COLORRED;

TM:=1200823;

涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;

跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(CODELIKE('688'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(CODELIKE('688') OR CODELIKE('300'),0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;

明涨停:=IF(DATE<TM,C*IF(CODELIKE('688'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(IF(CODELIKE('688') OR CODELIKE('300'),1.2,IF(NAMEINCLUDE('S'),1.05,1.1)))),NODRAW,COLORLIMAGENTA;

明跌停:=IF(DATE<TM,C*IF(CODELIKE('688'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(IF(CODELIKE('688') OR CODELIKE('300'),0.8,IF(NAMEINCLUDE('S'),0.45,0.9)))),NODRAW,COLORFFFF00;

半分:(O+C)/2,NODRAW,COLORWHITE;

昨半:REF((O+C)/2,1),NODRAW,COLORYELLOW;

STICKLINE(ISLASTBAR,昨半,昨半,10,2),COLORFF00FF;

P:=7000;

炸板:=H=涨停 AND H>C; 

历史涨停:=COUNT((C>=涨停) AND L!=C,P),NODRAW,COLORYELLOW;

开板数:=COUNT(炸板,P);

封板率:=100*(1-(开板数/(历史涨停+开板数))),NODRAW,COLORYELLOW;

ZT1:=H>=涨停 AND PERIOD=5 AND H>C;

DT:=C<=跌停 AND PERIOD=5 AND L=C;

DT1:=L<=跌停 AND PERIOD=5 AND L<C;

ZT:=C>=涨停 AND PERIOD=5 AND H=C;

涨停周期:BARSLAST(ZT),NODRAW,COLORFF00FF;

STICKLINE((BARSLAST(MONTH!=REF(MONTH,1) OR DATETODAY(DATE)=1))+1=1,H#MONTH,L#MONTH,0,-1),COLORGREEN;

月开价:REF(O,BARSLAST(MONTH!=REF(MONTH,1))),COLORRED,NODRAW;

STICKLINE(C>月开价,月开价,月开价,5,0),COLORRED;

STICKLINE(C<月开价,月开价,月开价,5,0),COLORFFFF00;

STICKLINE(C=月开价,月开价,月开价,5,0),COLORWHITE;

LB:=REF(EVERY(ZT,3),2) AND REF(H=HHV(H,20),1) AND H<REF(H,1);

LBQ:=BARSLAST(LB);

打折:=REF(H,LBQ+1)*0.618,NODRAW,COLORWHITE;

SLB:=EVERY(ZT,3);

KK2:=SUMBARS(REFX(SLB,1),1);

STICKLINE(KK2,REF(C,KK2-1),REF(C,KK2-1),5,0),COLORFFCC99;

龙回头天数:=SUMBARS(REFX(SLB,1),1)-2,NODRAW,COLORFF00FF;

 

TT:=DRAWTEXT(REFX(NOT(ZT),1) AND SLB,REF(C,1),'回头线');

STICKLINE(打折,打折,打折,5,0),COLORFFFF44;

Q3:=STRCAT(CON2STR(打折,2),'打折线'); 

DRAWTEXT(ISLASTBAR,打折,VARCAT(VARCAT('打折价',VAR2STR(打折,2)),'元'))COLORFFFF00;

STICKLINE(CURRBARSCOUNT=4,C,C,25,0),COLORWHITE;

DRAWTEXT(CURRBARSCOUNT=5,REF(L-0.02,1),'   ◇'),COLORWHITE;

DRAWNUMBER(CURRBARSCOUNT=4,L*0.99,C),COLORWHITE;

 

流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED; 

{涨停K线颜色设置}

STICKLINE(ZT,C,(O+C)/2,3,0),COLOR000099;

STICKLINE(ZT,C,(O+C)/2,2.2,0),COLOR0000CC;

STICKLINE(ZT,C,(O+C)/2,1.5,0),COLOR0000FF;

STICKLINE(ZT,C,(O+C)/2,0.5,0),COLORCC66FF;

 

STICKLINE(ZT,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(ZT,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(ZT,O,(O+C)/2,1.5,0),COLORDDDDDD; 

STICKLINE(ZT,O,(O+C)/2,0.5,0),COLORFFFFFF;

 

STICKLINE(DT,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(DT,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(DT,O,(O+C)/2,1.5,0),COLORDDDDDD; 

STICKLINE(DT,O,(O+C)/2,0.5,0),COLORFFFFFF;

 

STICKLINE(DT,C,(O+C)/2,3,0),COLOR009900;

STICKLINE(DT,C,(O+C)/2,2.2,0),COLOR00BB00; 

STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00; 

STICKLINE(DT,C,(O+C)/2,0.5,0),COLOR00FF00;

{曾涨跌停打开K线颜色设置}

STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;

STICKLINE(ZT1,C,(O+C)/2,2.2,0),COLORFF00FF;

STICKLINE(ZT1,C,(O+C)/2,1.5,0),COLOR0000FF;

STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;

STICKLINE(ZT1,O,(O+C)/2,2.2,0),COLORBBBBBB; 

STICKLINE(ZT1,O,(O+C)/2,1.5,0),COLORDDDDDD; 

STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;

STICKLINE(DT1,O,(O+C)/2,2.2,0),COLORBBBBBB;

STICKLINE(DT1,O,(O+C)/2,1.5,0),COLORDDDDDD;

STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;

STICKLINE(DT1,C,(O+C)/2,2.2,0),COLOR00BB00; 

STICKLINE(DT1,C,(O+C)/2,1.5,0),COLOR00DD00; 

STICKLINE(DT1,C,(O+C)/2,0.5,0),COLOR00FF00;

DRAWTEXT(DT1,L-0.09,'撬'),COLORCC00CC;{从涨停到跌停};

量价:=(VOL/CLOSE)/3;

BB2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);

BB3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);

BB6:=BB2+BB3;DD1:=1;比:=BB2/BB3;

DB1:=YEAR AND MONTH AND DAY;

BA1:=STRCAT(CON2STR(YEAR,0),'年');

BA2:=STRCAT(CON2STR(MONTH,0),'月');

BA3:=STRCAT(CON2STR(DAY,0),'日');

BA4:=STRCAT('周',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))); 

AA:=STRCAT(STRCAT(STRCAT(BA1,BA2),STRCAT(BA3,BA4)),'');

DRAWTEXT_FIX(DD1,0.895,0,0,AA),COLORLIGRAY;

JYZY:=(REF(C>=O,1) OR O>REF(H,1)) AND AMOUNT/V/100>REF(C,1) AND C<O;

假阳:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;

乾坤眼:=(C>O AND REF(C,1)<REF(O,1) AND REF(C,2)<REF(O,2) AND C>REF(C,2)AND V<REF(V,2)&&REF(V,1)<REF(V,2)),COLORYE