当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：箱体操盘WM(通达信公式 主图 源码 测试图)
软件名称：[B]箱体操盘WM(通达信公式 主图 源码 测试图)[/B]
软件类型：国产软件
运行环境：Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言：简体中文
授权方式：免费版
软件大小：8.00 KB
官方主页：Home Page
更新时间：2022-07-27 00:15:24
软件简介:
用法注释: 股色通操盘手
股道飞扬更多指标
所谓箱体理论，是指股票在运行过程中，形成了一定的价格区域。即股价是在一定的范围内波动，这样就形成一个股价运行的箱体。当股价滑落到箱体的底部时会受到买盘的支撑，当股价上升到箱体的顶部时会受到卖盘的压力。一旦股价有效突破原箱体的顶部或底部，股价就会进入一个新的箱体里运行，原箱体的顶部或底部将成为重要的支撑位和压力位。
{箱体操盘WM}
{ 公式描述: 主图 }
{ 参数填入: { 箱体长度:(5,500,40); 均线N:(5,100,20); YMDF:(5,9000000,140112); YMDF1:(5,9000000,2282); YMDFZB:(0,900000,6479); }
DRAWTEXT_FIX(("DKX.DKX" = 1),0.1,0.15,0,STRCAT(1,2)),COLORFF0000;
ZBXH:=19;
YMD:=YMDF;
YMD1:=YMDF1;
YMD2:=YMDF1;
YMD3:=YMDF1;
YMDZB:=YMDFZB;
YC:=MOD((YMD / 10000),100);
MC:=MOD((YMD / 100),100);
DC:=MOD(YMD,100);
Y1:=((((POW(YC,2) * 10) + (POW(MC,2) * 10)) + (POW(DC,2) * 1)) + ((YC * MC) * DC));
Y2:=((((20000 + (POW(YC,2) * 100)) + (POW(MC,2) * 10)) + (POW(DC,2) * 1000)) + ((YC * MC) * DC));
Y3:=((((30000 + (POW(YC,2) * 10)) + (POW(MC,2) * 1000)) + (POW(DC,2) * 100)) + ((YC * MC) * DC));
YZB:=(((POW(YC,2) * ZBXH) + (POW(MC,2) * ZBXH)) + (POW(DC,2) * ZBXH));
YES1:=(YMD1 = Y1);
YES2:=(YMD2 = Y2);
YES3:=(YMD3 = Y3);
YESZB:=(YMDZB = YZB);
GQ0:=(DATE <= (((1000000 + (YC * 10000)) + (MC * 100)) + DC));
GQ:=IF(((GQ0 AND YES1) AND YESZB),1,DRAWNULL);
GQ10:=IF(((GQ = DRAWNULL) AND (CURRBARSCOUNT < 10)),DRAWNULL,1);
M20:MA(C,均线N);
SN:=6;
M1:=5;
M2:=10;
TOTAL:=IF((PERIOD = 1),5,IF((PERIOD = 2),15,IF((PERIOD = 3),30,IF((PERIOD = 4),60,IF((PERIOD = 5),240,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF((MTIME < 0.5),TOTAL,MTIME);
VDRYG:=IF((CURRBARSCOUNT = 1),((VOL * TOTAL) / CTIME),DRAWNULL);
V预估:=VDRYG;
VAZ:=IF(((CLOSE >= (OPEN - 0.005)) OR ((CLOSE / REF(C,1)) > 1.099)),VOL,0);
VAF:=IF(((CLOSE >= (OPEN - 0.005)) OR ((CLOSE / REF(C,1)) > 1.099)),0,(-1 * VOL));
LIANG:=VOL;
MAVOL1:=MA(LIANG,M1);
MAVOL2:=MA(LIANG,M2);
DUOTOU:=MA((SUM((VAF + VAZ),SN) / SN),2);
KONGTOU:=MA(DUOTOU,5);
多头:=DUOTOU;
空头:=KONGTOU;
TN:=8;
N:=5;
FD:=5;
HSL:=((100 * VOL) / (FINANCE(7) / 100));
MAHSL:=MA(HSL,N);
FLZ:=IF((EXIST(((HSL / MAHSL) > (1 + (FD / 10))),TN) AND (MA(C,8) > REF(MA(C,8),1))),1,DRAWNULL);
FLD:=IF((EXIST(((HSL / MAHSL) > (1 + (FD / 10))),TN) AND (MA(C,8) < REF(MA(C,8),1))),1,DRAWNULL);
持续放量涨N:=BARSLASTCOUNT((FLZ = 1));
持续放量跌N:=BARSLASTCOUNT((FLD = 1));
放巨量:=(((((HSL / REF(HSL,1)) > 2) AND ((VOL / MAVOL1) > 1.5)) AND (C > "DKX.DKX")) AND (C > REF(C,1)));
放巨量N:=BARSLAST(放巨量);
巨量第一次:=(放巨量 AND (COUNT(放巨量,30) = 1));
涨停启动N:=BARSLAST((巨量第一次 AND ((C / REF(C,1)) > 1.099)));
MA5:=MA(CLOSE,5);
MA10:=MA(CLOSE,10);
MA30:=MA(CLOSE,30);
MA60:=MA(CLOSE,60);
MA120:=MA(CLOSE,120);
MA240:=MA(CLOSE,240);
VOL5:=MA(VOL,5);
VOL10:=MA(VOL,10);
VOL40:=MA(VOL,40);
SLN:=6;
SLBL:=40;
SZXZ:=IF(CODELIKE(6),1.7,1);
VMAX:=HHV(VOL,N);
VBI:=IF((CURRBARSCOUNT = 1),(((VDRYG / 100) / VMAX) < (SLBL / 100)),((VOL / VMAX) < (SLBL / 100)));
VDI:=IF(ISLASTBAR,VDRYG,V);
DILIANG0:=((((((VDI / VMAX) < ((SLBL / 100) * SZXZ)) AND ((C / "DKX.DKX") < 1.08)) AND ("DKX.DKX" > "DKX.MADKX")) AND (C > (0.97 * "DKX.DKX"))) AND ("DKX.DKX" > REF("DKX.DKX",1)));
DILIANG:=((COUNT(DILIANG0,4) = 1) AND DILIANG0);
地量:=DILIANG;{分析家公式网www.70822.com}
地量N:=BARSLAST(地量);
地量买0:=((地量N < 3) AND ((C / "DKX.DKX") < 1.04));
地量买:=(地量买0 AND (COUNT(地量买0,3) = 1));
地量买N:=BARSLAST(地量买);
DK:="DKX.DKX";
MADK:="DKX.MADKX";
TJ1:=(((DK > MADK) AND (BARSLAST(CROSS(DK,MADK)) < 12)) AND ((L / DK) < 0.99));
TJ2:=((DILIANG AND (DK > REF(DK,1))) AND (DUOTOU > 0));
KENG:=(TJ1 AND TJ2);
黄金坑:=KENG;
黄金坑N:=BARSLAST(黄金坑);
高量:=HHV(VOL,60);
极地量:=((VOL / 高量) < 0.1);
绝底0:=((COUNT(极地量,60) > 30) AND ("DKX.DKX" > REF("DKX.DKX",1)));
大底0:=((COUNT(极地量,20) > 12) AND ("DKX.DKX" > REF("DKX.DKX",1)));
小底0:=(((COUNT(极地量,20) > 6) AND (COUNT(极地量,20) < 12)) AND ("DKX.DKX" > REF("DKX.DKX",1)));
绝底:=(绝底0 AND (COUNT(绝底0,30) = 1));
大底:=(大底0 AND (COUNT(大底0,30) = 1));
小底:=(小底0 AND (COUNT((小底0 OR 大底0),30) = 1));
绝底N:=BARSLAST(绝底);
大底N:=BARSLAST(大底);
小底N:=BARSLAST(小底);
箱体高度:=18;
XTN:=箱体长度;
XTTJ1:=((HHV(C,XTN) / LLV(C,XTN)) < (1 + (箱体高度 / 100)));
箱体内:=XTTJ1;
XTTJ20:=((C / REF(HHV(C,XTN),1)) > 1.02);
XTTJ2:=(XTTJ20 AND (COUNT(XTTJ20,(箱体长度 - 2)) = 1));
突破高点:=XTTJ2;
突破高点N:=BARSLAST(突破高点);
XTTJ3:=(COUNT(放巨量,XTN) >= 2);
XTTJ0:=(((REF(XTTJ1,1) = 1) AND XTTJ2) AND XTTJ3);
XTTJ:=(XTTJ0 AND (COUNT(XTTJ0,5) = 1));
XTTJN:=BARSLAST(XTTJ);
箱顶M:=REF(HHV(C,XTN),(突破高点N + 1));
箱底M:=REF(LLV(C,XTN),(突破高点N + 1));
DINGWEI:=BACKSET(突破高点,箱体长度);
箱体终点位置:=BARSNEXT(突破高点);
箱顶0:=IF(DINGWEI,REFX(箱顶M,箱体终点位置),DRAWNULL);
箱底0:=IF(DINGWEI,REFX(箱底M,箱体终点位置),DRAWNULL);
箱体起点:=((DINGWEI = 1) AND (REF(DINGWEI,1) = 0));
箱体终点:=突破高点;
箱体终点N:=BARSLAST(箱体终点);
箱体突破N:(箱体终点N * GQ10),NODRAW;
箱顶延长:=IF((箱体终点位置 = DRAWNULL),箱顶M,DRAWNULL);
箱底延长:=IF((箱体终点位置 = DRAWNULL),箱底M,DRAWNULL);
高度0:=(100 * ((箱顶0 / 箱底0) - 1));
高度延长:=(100 * ((箱顶延长 / 箱底延长) - 1));
箱顶:(IF(DINGWEI,箱顶0,箱顶延长) * GQ10),COLORRED;
箱底:(IF(DINGWEI,箱底0,箱底延长) * GQ10),COLORFF0000;
箱高:((100 * ((箱顶 / 箱底) - 1)) * GQ10),NODRAW;
STICKLINE(箱体起点,箱顶0,箱底0,0.5,0),COLORFF0000;
STICKLINE(箱体终点,箱顶0,箱底0,0.5,0),COLORRED;
DRAWLINE(箱体起点,箱顶0,箱体终点,箱顶0,0),CIRCLEDOT,COLORRED;
DRAWLINE(箱体起点,箱底0,箱体终点,箱底0,0),CIRCLEDOT,COLORFF0000;
DRAWICON(箱体终点,箱顶0,34);
STICKLINE(((C / REF(C,1)) > 1.099),O,C,2.5,0),COLORMAGENTA;
STICKLINE((((C / REF(C,1)) > 1.097) AND (C < 5)),O,C,2.5,0),COLORMAGENTA;
显示说明:=0;
TY:=IF((H > REF(HHV(H,50),15)),0.6,0);
DRAWTEXT_FIX((1 AND 显示说明),0.85,(0.06 + TY),0,HYBLOCK),COLORFF0000;
DRAWTEXT_FIX((1 AND 显示说明),0.85,(0.12 + TY),0,GNBLOCK),COLORFF0000;
DRAWTEXT_FIX((1 AND 显示说明),0.85,(0.18 + TY),0,ZSBLOCK),COLORFF0000;
LOCMIN:=REF(箱底,20);
LOCMAX:=H;
SHQQ:=(GQ = DRAWNU
[url=http://www.70822.com/soft/sort013/sort05/down-163446.html]箱体操盘WM(通达信公式 主图 源码 测试图)[/url]
[url=http://www.70822.com/soft/sort013/sort05/down-163446.html]箱体操盘WM(通达信公式 主图 源码 测试图)[/url]