您现在的位置:好股网 >> 股票公式 >> 通达信公式 >> 一键转帖:[★睿数分图★] - - 历史区间横纵等分{通达信主图+图示}

[★睿数分图★] - - 历史区间横纵等分{通达信主图+图示}


指标功能:[B]国产软件[/B]
指标类型:简体中文
所需积分:0
推荐星级:
授权方式:共享版
公式大小:5.00 KB
更新时间:2015-08-06 08:33:00
公式简介:

理念: 将历史高低点进行区间横(价)纵(时)分等份。

{★睿数分图★ 壹瓣杺埖
请设置参数:HDAY 1 999 10 寻找区间高点
LDAY 1 999 10 寻找区间低点
PE 0 999 0 将网格向右小移
EP 1 8 8 将网格向左倍移
KE 1 2 1 将K线向右倍移动
}
CURR:=CURRBARSCOUNT;
TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));
GTT:=CONST(BARSLAST(TCH=H))+1;
XAM:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
BCL:=CONST(FINDLOW(L,0,LDAY*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
XIM:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
STICKLINE(1=1,H,L,9,0)COLOR878787;
R:=ABS(GTT-DTT);
SX涨:=(CURR=PE+DTT)-1;
SX跌:=(CURR=PE+GTT)-1;
DTLT:=PE+IF(DTT>GTT,GTT,DTT);
GTHT:=PE+IF(DTT>GTT,DTT,GTT);
SLXH:=IF(CURR<=R+GTHT,(XAM+XIM)/2,DRAWNULL);
H跌X2:=IF(CURR<=R+GTHT,(XAM+SLXH)/2,DRAWNULL);
L涨X2:=IF(CURR<=R+GTHT,(XIM+SLXH)/2,DRAWNULL);
IM68:=((XAM-XIM)/6-(XAM-XIM)/8);
IM1:=IF(CURR<=ROUND(R/4)+GTHT,XAM,DRAWNULL);
IM2:=IF(CURR<=ROUND(R/4)+GTHT,XIM,DRAWNULL);
IM3:=IF(CURR<=ROUND(R/4)+GTHT,SLXH,DRAWNULL);
IM4:=IF(CURR<=ROUND(R/4)+GTHT,H跌X2,DRAWNULL);
IM5:=IF(CURR<=ROUND(R/4)+GTHT,L涨X2,DRAWNULL);
IM6:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)/8+XIM,DRAWNULL);
IM7:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)*3/8+XIM,DRAWNULL);
IM8:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)*5/8+XIM,DRAWNULL);
IM9:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)*7/8+XIM,DRAWNULL);
IM10:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)/6+XIM,DRAWNULL);
IM11:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)/3+XIM,DRAWNULL);
IM12:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)*5/6+XIM,DRAWNULL);
IM13:=IF(CURR<=ROUND(R/4)+GTHT,(XAM-XIM)*2/3+XIM,DRAWNULL);
X涨点:=IF(SX涨>SX跌,SX涨,SX跌);
X跌点:=IF(SX涨>SX跌,SX涨,SX跌);
高跌H:=(XAM-XIM)/8+XAM; 低跌L:=XIM-(XAM-XIM)/8;
网格倍移:=IF(EP=1,CEILING(R/2)-1,IF(EP=2,CEILING(R)-1,IF(EP=3,CEILING(R*1.5)-1,IF(EP=4,CEILING(R*2)-1,IF(EP=5,CEILING(R*2.5)-1,IF(EP=6,CEILING(R*3)-1,IF(EP=7,CEILING(R*3.5)-1,0)))))));
定位1:=CURR=ROUND(R/6)+DTLT OR CURR=ROUND(R*5/6)+DTLT OR
REF(CURR=ROUND(R/6)+DTLT,R*3) OR REF(CURR=ROUND(R*5/6)+DTLT,R*3) OR
REF(CURR=ROUND(R/6)+DTLT,R*2) OR REF(CURR=ROUND(R*5/6)+DTLT,R*2) OR
REF(CURR=ROUND(R/6)+DTLT,R) OR REF(CURR=ROUND(R*5/6)+DTLT,R) OR
CURR=ROUND(R/3)+DTLT OR CURR=ROUND(R*2/3)+DTLT OR
REF(CURR=ROUND(R/3)+DTLT,R*3) OR REF(CURR=ROUND(R*2/3)+DTLT,R*3) OR
REF(CURR=ROUND(R/3)+DTLT,R*2) OR REF(CURR=ROUND(R*2/3)+DTLT,R*2) OR
REF(CURR=ROUND(R/3)+DTLT,R) OR REF(CURR=ROUND(R*2/3)+DTLT,R);
STICKLINE(CURR=PE+ROUND(R/6)+IF(DTT>GTT,DTT,GTT) OR 定位1 OR REF(定位1,网格倍移),XAM+IM68,XIM-IM68,0,-1),COLOR00FFFF;
定位2:=SX涨=0 OR SX跌=0 OR CURR=GTHT-ROUND(R/8) OR CURR=GTHT-ROUND(R*7/8) OR CURR=GTHT-ROUND(R*3/4) OR
CURR=GTHT-ROUND(R*5/8) OR CURR=GTHT-ROUND(R/2) OR CURR=GTHT-ROUND(R*3/8) OR CURR=GTHT-ROUND(R/4) OR CURR=DTLT-ROUND(R/8) OR
CURR=DTLT-ROUND(R*7/8) OR CURR=DTLT-ROUND(R*3/4) OR CURR=DTLT-ROUND(R*5/8) OR CURR=DTLT-ROUND(R/2) OR
CURR=DTLT-ROUND(R*3/8) OR CURR=DTLT-ROUND(R/4);
定位3:=REF(定位2,R*2);
STICKLINE(CURR=PE+ROUND(R/8)+IF(DTT>GTT,DTT,GTT) OR 定位2 OR REF(定位2,网格倍移) OR 定位3 OR REF(定位3,网格倍移),XAM+IM68,XIM-IM68,0,-1),COLORFFFF00;

DRAWBAND(IM1,RGB(80,255,125),IM1,RGB(80,225,225));
DRAWBAND(IM2,RGB(80,255,125),IM2,RGB(80,225,225));
DRAWBAND(IM3,RGB(80,255,125),IM3,RGB(80,225,225));
DRAWBAND(IM4,RGB(80,255,125),IM4,RGB(80,225,225));
DRAWBAND(IM5,RGB(80,255,125),IM5,RGB(80,225,225));
DRAWBAND(IM6,RGB(80,255,125),IM6,RGB(80,225,225));
DRAWBAND(IM7,RGB(80,255,125),IM7,RGB(80,225,225));
DRAWBAND(IM8,RGB(80,255,125),IM8,RGB(80,225,225));
DRAWBAND(IM9,RGB(80,255,125),IM9,RGB(80,225,225));
DRAWBAND(IM10,RGB(225,225,0),IM10,RGB(225,225,0));
DRAWBAND(IM11,RGB(225,225,0),IM11,RGB(225,225,0));
DRAWBAND(IM12,RGB(225,225,0),IM12,RGB(225,225,0));
DRAWBAND(IM13,RGB(225,225,0),IM13,RGB(225,225,0));

RCX:=IF(PE=0,C,IF(REFX(C,PE)!=REF(REFX(C,PE),1),REFX(C,PE),DRAWNULL));
ROX:=IF(PE=0,O,IF(REFX(O,PE)!=REF(REFX(O,PE),1),REFX(O,PE),DRAWNULL));
RHX:=IF(PE=0,H,IF(REFX(H,PE)!=REF(REFX(H,PE),1),REFX(H,PE),DRAWNULL));
RLX:=IF(PE=0,L,IF(REFX(L,PE)!=REF(REFX(L,PE),1),REFX(L,PE),DRAWNULL));
DRAWKLINE(IF(KE=2 AND CURR>R/2,REFX(H,R/2),IF(KE=2,DRAWNULL,RHX)),
IF(KE=2 AND CURR>R/2,REFX(O,R/2),IF(KE=2,DRAWNULL,ROX)),
IF(KE=2 AND CURR>R/2,REFX(L,R/2),IF(KE=2,DRAWNULL,RLX)),
IF(KE=2 AND CURR>R/2,REFX(C,R/2),IF(KE=2,DRAWNULL,RCX)));




[url=http://www.goodgupiao.com/gupiaogongshi/37918.html][B][★睿数分图★] - - 历史区间横纵等分{通达信主图+图示}[/B][/url]