{【八分图】 - 创幻论坛 壹瓣杺埖 原创 } {创幻论坛 舍得快乐 修改 飞狐版 -【金色篱笆】} {请设置参数:HHDAY 1 999 15 寻找区间高点 LLDAY 1 999 15 寻找区间低点 PE 0 11 0 将网格向右移动 KE 1 2 1 将K线向左移动 } 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(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分8,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分9,PEDAY),RGB(255,200,8),REF(八分9,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分9,PEDAY)<=SX跌H AND REF(八分9,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分9,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分10,PEDAY),RGB(255,200,8),REF(八分10,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分10,PEDAY)<=SX跌H AND REF(八分10,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分10,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分11,PEDAY),RGB(255,200,8),REF(八分11,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分11,PEDAY)<=SX跌H AND REF(八分11,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分11,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分12,PEDAY),RGB(255,200,8),REF(八分12,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分12,PEDAY)<=SX跌H AND REF(八分12,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分12,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分13,PEDAY),RGB(255,200,8),REF(八分13,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分13,PEDAY)<=SX跌H AND REF(八分13,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分13,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分14,PEDAY),RGB(255,200,8),REF(八分14,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分14,PEDAY)<=SX跌H AND REF(八分14,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分14,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分15,PEDAY),RGB(255,200,8),REF(八分15,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分15,PEDAY)<=SX跌H AND REF(八分15,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分15,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分16,PEDAY),RGB(255,200,8),REF(八分16,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分16,PEDAY)<=SX跌H AND REF(八分16,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分16,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分17,PEDAY),RGB(255,200,8),REF(八分17,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分17,PEDAY)<=SX跌H AND REF(八分17,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分17,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分18,PEDAY),RGB(255,200,8),REF(八分18,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分18,PEDAY)<=SX跌H AND REF(八分18,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分18,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分19,PEDAY),RGB(255,200,8),REF(八分19,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分19,PEDAY)<=SX跌H AND REF(八分19,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分19,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分20,PEDAY),RGB(255,200,8),REF(八分20,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分20,PEDAY)<=SX跌H AND REF(八分20,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分20,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分21,PEDAY),RGB(255,200,8),REF(八分21,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分21,PEDAY)<=SX跌H AND REF(八分21,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分21,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分22,PEDAY),RGB(255,200,8),REF(八分22,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分22,PEDAY)<=SX跌H AND REF(八分22,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分22,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分23,PEDAY),RGB(255,200,8),REF(八分23,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分23,PEDAY)<=SX跌H AND REF(八分23,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分23,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分24,PEDAY),RGB(255,200,8),REF(八分24,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分24,PEDAY)<=SX跌H AND REF(八分24,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分24,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分25,PEDAY),RGB(255,200,8),REF(八分25,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分25,PEDAY)<=SX跌H AND REF(八分25,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分25,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分26,PEDAY),RGB(255,200,8),REF(八分26,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分26,PEDAY)<=SX跌H AND REF(八分26,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分26,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分27,PEDAY),RGB(255,200,8),REF(八分27,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分27,PEDAY)<=SX跌H AND REF(八分27,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分27,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分28,PEDAY),RGB(255,200,8),REF(八分28,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分28,PEDAY)<=SX跌H AND REF(八分28,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分28,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分29,PEDAY),RGB(255,200,8),REF(八分29,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分29,PEDAY)<=SX跌H AND REF(八分29,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分29,PEDAY)),Color08C8FF; {DRAWBAND(REF(八分30,PEDAY),RGB(255,200,8),REF(八分30,PEDAY),RGB(255,200,8));} PARTLINE(REF(八分30,PEDAY)<=SX跌H AND REF(八分30,PEDAY)>=SX涨L AND (REF(COUNT(CURR=DTLT,0)=0,PEDAY) OR REF(CURR=DTLT,PEDAY)),REF(八分30,PEDAY)),Color08C8FF; {以下放到飞狐的参数精灵中 请设置计算参数: HHDAY: Param#1 (1.00--999.00) 寻找区间高点 LLDAY: Param#2 (1.00--999.00) 寻找区间低点 PE: Param#3 (0.00--11.00) 将网格向右移动 KE: Param#4 (1.00--2.00) 将K线向左移动 } {点击看本软件截图: 58股票 公式网 http://www. 58gu. com 整理} |