软件名称：[B]【壹瓣心花】的【八分图】－－【飞狐版】以形改名【金色篱笆】[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-08-02 05:39:37
软件简介:
{【八分图】 - 创幻论坛 壹瓣杺埖 原创 }
{创幻论坛 舍得快乐 修改 飞狐版 -【金色篱笆】}
{请设置参数:HHDAY 1 999 15 寻找区间高点
LLDAY 1 999 15 寻找区间低点
PE 0 11 0 将网格向右移动
KE 1 2 1 将Ｋ线向左移动 }
INPUT:HHDAY(15,1,999),LLDAY(15,1,999),PE(0,0,11),KE(1,1,2);
CURR:DATACOUNT-BARPOS+1,LINETHICK;
TCH:=REFX(HHV(H,HHDAY*10),CURR-1);
GTT1:=BARSLAST(TCH=H)+1;
GTT:=GTT1[DATACOUNT];
SX跌H1:=REFX(IF(GTT=1,H,REF(H,GTT-1)),CURR-1);
SX跌H:=SX跌H1[DATACOUNT];
BCL:=REFX(LLV(L,LLDAY*10),CURR-1);
DTT1:=BARSLAST(BCL=L)+1;
DTT:=DTT1[DATACOUNT];
SX涨L1:=REFX(IF(DTT=1,L,REF(L,DTT-1)),CURR-1);
SX涨L:=SX涨L1[DATACOUNT];
STICKLINE(1=1,H,L,24,0),COLOR878787;
R:=ABS(GTT-DTT);
DTLT:=IF(DTT>GTT,GTT,DTT);
GTHT:=IF(DTT>GTT,DTT,GTT);
SLXH:=IF(CURR<=GTHT+R/8,(SX跌H+SX涨L)/2,0);
H跌X2:=IF(CURR<=GTHT+R/8,(SX跌H+SLXH)/2,0);
L涨X2:=IF(CURR<=GTHT+R/8,(SLXH+SX涨L)/2,0);
GH跌X:=SX跌H+(SX跌H-SX涨L)/8;
DL涨X:=SX涨L-(SX跌H-SX涨L)/8;
{DRAWBAND(IF(CURR<=GTHT+R/8,GH跌X,DRAWNULL),RGB(80,124,124),DL涨X,RGB(80,124,124));}
FILLRGN(CURR<=GTHT+R/8 AND GH跌X>DL涨X,GH跌X,DL涨X),Color7C7C50;
FILLRGN(CURR<=GTHT+R/8 AND GH跌X<DL涨X,GH跌X,DL涨X),Color7C7C50;
{DRAWBAND(IF(CURR<=GTHT+R/8,SX跌H,DRAWNULL),RGB(8,168,168),SX跌H,RGB(8,168,168));}
STICKLINE(CURR<=GTHT+R/8,SX跌H,SX跌H,10,0),ColorA8A808;
{DRAWBAND(IF(CURR<=GTHT+R/8,SX涨L,DRAWNULL),RGB(8,168,168),SX涨L,RGB(8,168,168));}
STICKLINE(CURR<=GTHT+R/8,SX涨L,SX涨L,10,0),ColorA8A808;
{DRAWBAND(IF(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/8,DRAWNULL),RGB(80,124,24),SX涨L+(SX跌H-SX涨L)/8,RGB(80,124,24));}
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)/8>SX涨L+(SX跌H-SX涨L)/8,SX跌H-(SX跌H-SX涨L)/8,SX涨L+(SX跌H-SX涨L)/8),Color187C50;
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)/8<SX涨L+(SX跌H-SX涨L)/8,SX跌H-(SX跌H-SX涨L)/8,SX涨L+(SX跌H-SX涨L)/8),Color187C50;
{DRAWBAND(IF(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)/4,DRAWNULL),RGB(0,124,154),SX涨L+(SX跌H-SX涨L)/4,RGB(0,124,154));}
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)/4>SX涨L+(SX跌H-SX涨L)/4,SX跌H-(SX跌H-SX涨L)/4,SX涨L+(SX跌H-SX涨L)/4),Color9A7C00;
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)/4<SX涨L+(SX跌H-SX涨L)/4,SX跌H-(SX跌H-SX涨L)/4,SX涨L+(SX跌H-SX涨L)/4),Color9A7C00;
{DRAWBAND(IF(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX涨L)*3/8,DRAWNULL),RGB(80,124,24),SX涨L+(SX跌H-SX涨L)*3/8,RGB(80,124,24));}
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)*3/8>SX涨L+(SX跌H-SX涨L)*3/8,SX跌H-(SX跌H-SX涨L)*3/8,SX涨L+(SX跌H-SX涨L)*3/8),Color187C50;
FILLRGN(CURR<=GTHT+R/8 AND SX跌H-(SX跌H-SX涨L)*3/8<SX涨L+(SX跌H-SX涨L)*3/8,SX跌H-(SX跌H-SX涨L)*3/8,SX涨L+(SX跌H-SX涨L)*3/8),Color187C50;
{DRAWBAND(SLXH,RGB(8,168,168),SLXH,RGB(8,168,168));}
STICKLINE(SLXH,SLXH,SLXH,10,0),ColorA8A808;
DRAWTEXT(CURR=GTHT,SX涨L-(SX跌H-SX涨L)/16,'【金色篱笆】 - 创幻论坛 壹瓣杺埖 ^_^ BY 创幻loy518 '),COLOR8899AA;
PEDAY:=IF(PE=0,0,IF(PE=1,R/2,IF(PE=2,R,IF(PE=3,R*3/2,IF(PE=4,R*2,IF(PE=5,R*5/2,IF(PE=6,R*3,IF(PE=7,R*7/2,
IF(PE=8,R*4,IF(PE=9,R*9/2,IF(PE=10,R*5,R*11/2)))))))))));
{DRAWKLINE(IF(KE=2 AND CURR>R/2,REFX(H,R/2),IF(KE=2,DRAWNULL,H)),
IF(KE=2 AND CURR>R/2,REFX(O,R/2),IF(KE=2,DRAWNULL,O)),
IF(KE=2 AND CURR>R/2,REFX(L,R/2),IF(KE=2,DRAWNULL,L)),
IF(KE=2 AND CURR>R/2,REFX(C,R/2),IF(KE=2,DRAWNULL,C)));}
IF KE=2{ AND CURR>R/2 }THEN
KLINE(REFX(O,R/2),REFX(H,R/2),REFX(L,R/2),REFX(C,R/2),0);
ELSE
IF KE<>2{ AND CURR>R/2 }THEN
KLINE(O,H,L,C,0);
X8分:=(SX跌H-SX涨L)/8; X8R:=ROUND(R/8);
八分1:=LINEVALUE(CURR=DTLT+X8R*8,SX涨L,CURR=DTLT,SX跌H,0,0);
八分2:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H,CURR=DTLT,SX涨L,0,0);
八分3:=LINEVALUE(CURR=DTLT+X8R*8,SLXH,CURR=DTLT+X8R*4,SX涨L,0,0);
八分4:=LINEVALUE(CURR=DTLT+X8R*8,SLXH,CURR=DTLT+X8R*4,SX跌H,0,0);
八分5:=LINEVALUE(CURR=DTLT+X8R*4,SX涨L,CURR=DTLT,SLXH,0,0);
八分6:=LINEVALUE(CURR=DTLT+X8R*4,SX跌H,CURR=DTLT,SLXH,0,0);
八分7:=LINEVALUE(CURR=DTLT+X8R*8,X8分+SX涨L,CURR=DTLT+X8R*7,SX涨L,0,0);
八分8:=LINEVALUE(CURR=DTLT+X8R,SX涨L,CURR=DTLT,X8分+SX涨L,0,0);
八分9:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分,CURR=DTLT+X8R*7,SX跌H,0,0);
八分10:=LINEVALUE(CURR=DTLT+X8R,SX跌H,CURR=DTLT,SX跌H-X8分,0,0);
八分11:=LINEVALUE(CURR=DTLT+X8R*8,X8分*2+SX涨L,CURR=DTLT+X8R*6,SX涨L,0,0);
八分12:=LINEVALUE(CURR=DTLT+X8R*2,SX涨L,CURR=DTLT,X8分*2+SX涨L,0,0);
八分13:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分*2,CURR=DTLT+X8R*6,SX跌H,0,0);
八分14:=LINEVALUE(CURR=DTLT+X8R*2,SX跌H,CURR=DTLT,SX跌H-X8分*2,0,0);
八分15:=LINEVALUE(CURR=DTLT+X8R*8,X8分+SX涨L,CURR=DTLT+X8R,SX跌H,0,0);
八分16:=LINEVALUE(CURR=DTLT+X8R*8,X8分*2+SX涨L,CURR=DTLT+X8R*2,SX跌H,0,0);
八分17:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分,CURR=DTLT+X8R,SX涨L,0,0);
八分18:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分*2,CURR=DTLT+X8R*2,SX涨L,0,0);
八分19:=LINEVALUE(CURR=DTLT+X8R*7,SX跌H,CURR=DTLT,X8分+SX涨L,0,0);
八分20:=LINEVALUE(CURR=DTLT+X8R*6,SX跌H,CURR=DTLT,X8分*2+SX涨L,0,0);
八分21:=LINEVALUE(CURR=DTLT+X8R*7,SX涨L,CURR=DTLT,SX跌H-X8分,0,0);
八分22:=LINEVALUE(CURR=DTLT+X8R*6,SX涨L,CURR=DTLT,SX跌H-X8分*2,0,0);
八分23:=LINEVALUE(CURR=DTLT+X8R*5,SX跌H,CURR=DTLT,X8分*3+SX涨L,0,0);
八分24:=LINEVALUE(CURR=DTLT+X8R*3,SX跌H,CURR=DTLT,X8分*5+SX涨L,0,0);
八分25:=LINEVALUE(CURR=DTLT+X8R*5,SX涨L,CURR=DTLT,SX跌H-X8分*3,0,0);
八分26:=LINEVALUE(CURR=DTLT+X8R*3,SX涨L,CURR=DTLT,SX跌H-X8分*5,0,0);
八分27:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分*5,CURR=DTLT+X8R*5,SX涨L,0,0);
八分28:=LINEVALUE(CURR=DTLT+X8R*8,SX跌H-X8分*3,CURR=DTLT+X8R*3,SX涨L,0,0);
八分29:=LINEVALUE(CURR=DTLT+X8R*8,X8分*5+SX涨L,CURR=DTLT+X8R*5,SX跌H,0,0);
八分30:=LINEVALUE(CURR=DTLT+X8R*8,X8分*3+SX涨L,CURR=DTLT+X8R*3,SX跌H,0,0);
{DRAWBAND(REF(八分1,PEDAY),RGB(255,200,8),REF(八分1,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分1,PEDAY)<=SX跌H AND REF(八分1,PEDAY)>=SX涨L,REF(八分1,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分2,PEDAY),RGB(255,200,8),REF(八分2,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分2,PEDAY)<=SX跌H AND REF(八分2,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分2,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分3,PEDAY),RGB(255,200,8),REF(八分3,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分3,PEDAY)<=SX跌H AND REF(八分3,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分3,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分4,PEDAY),RGB(255,200,8),REF(八分4,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分4,PEDAY)<=SX跌H AND REF(八分4,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分4,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分5,PEDAY),RGB(255,200,8),REF(八分5,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分5,PEDAY)<=SX跌H AND REF(八分5,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分5,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分6,PEDAY),RGB(255,200,8),REF(八分6,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分6,PEDAY)<=SX跌H AND REF(八分6,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分6,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分7,PEDAY),RGB(255,200,8),REF(八分7,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分7,PEDAY)<=SX跌H AND REF(八分7,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分7,PEDAY)),Color08C8FF;
{DRAWBAND(REF(八分8,PEDAY),RGB(255,200,8),REF(八分8,PEDAY),RGB(255,200,8));}
PARTLINE(REF(八分8,PEDAY)<=SX跌H AND REF(八分8,PEDAY)>=SX涨L AND (REF(C
[url=http://www.70822.com/soft/sort013/sort02/down-37075.html]【壹瓣心花】的【八分图】－－【飞狐版】以形改名【金色篱笆】[/url]