当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：庄氏量学（通达信公式 主图 源码 测试图）
软件名称：[B]庄氏量学（通达信公式 主图 源码 测试图）[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：18.0 KB
官方主页：Home Page
更新时间：2021-08-17 00:15:28
软件简介:
{庄氏量学}
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
[url=http://www.70822.com/soft/sort013/sort05/down-157550.html]庄氏量学（通达信公式 主图 源码 测试图）[/url]
[url=http://www.70822.com/soft/sort013/sort05/down-157550.html]庄氏量学（通达信公式 主图 源码 测试图）[/url]