打印本文
關閉窗口
相關標簽: 等了好久終于等到今天 、 盼了好久終于盼到今天 、 夢了好久終于把夢實現(xiàn) 、 我們終于一起來到這里 、 等你等了好久終于出現(xiàn) 、 等到好久終于把夢實現(xiàn) 、 盼了好久終于把夢實現(xiàn) 、 等到好久終于等到今天 、 5c5c5c改了什么 、
飛狐的完美版在這里，唉！改了好久，終于比較可以了（除了K線左移后面的K線拖影無法消掉-自己在心里把它 時間：2012-1-26 18:57:23 {本文來至程序化交易網 cxh99.com}
核心提示：飛狐的完美版在這里，唉！改了好久，終于比較可以了（除了K線左移后面的K線拖影無法消掉-自己在心里把它消除掉吧{【睿方圖】 - 壹瓣心花 \(^o^)/~ 舍得快樂 改飛狐版 }{以下放到飛狐的參數精靈... {內容來至程序化交易網 CXH99.COM}
飛狐的完美版在這里，唉！改了好久，終于比較可以了（除了K線左移后面的K線拖影無法消掉-自己在心里把它消除掉吧
{【睿方圖】 - 壹瓣心花 \(^o^)/~ 舍得快樂 改飛狐版 }
{以下放到飛狐的參數精靈中
請設置計算參數:
HHDAY: Param#1 (1--999) 尋找區(qū)間高點
LLDAY: Param#2 (1--999) 尋找區(qū)間低點
PE: Param#3 (1--15) 將網格向右移動
KE: Param#4 (0--99) 將K線向左移動
以上放到飛狐的參數精靈中}
INPUT:HHDAY(15,1,999),LLDAY(15,1,999),PE(1,1,15),KE(0,0,99);
CURR:DATACOUNT-BARPOS+1,LINETHICK;
TCH:=refX(HHV(H,HHDAY*10),CURR-1);
GTTA:=refX(BARSLAST(TCH=H),CURR-1)+1;
GTT:=GTTA[DATACOUNT];
SX跌HA:=refX(IF(GTT=1,H,ref(H,GTT-1)),CURR-1);
SX跌H:=SX跌HA[DATACOUNT];
BCL:=refX(LLV(L,LLDAY*10),CURR-1);
DTTA:=refX(BARSLAST(BCL=L),CURR-1)+1;
DTT:=DTTA[DATACOUNT];
SX漲LA:=refX(IF(DTT=1,L,ref(L,DTT-1)),CURR-1);
SX漲L:=SX漲LA[DATACOUNT];
IM68:=((SX跌H-SX漲L)/6-(SX跌H-SX漲L)/8);
GH跌X:=SX跌H+(SX跌H-SX漲L)/8; DL漲X:=SX漲L-(SX跌H-SX漲L)/8;
STICKLINE(1=1,H,L,24,0)COLOR000000;
GTHT:=IF(DTT>GTT,DTT,GTT); R:=ABS(GTT-DTT);
FILLRGN(CURR<=GTHT+R/8,GH跌X,DL漲X),Color7C7C50;
STICKLINE(CURR<=GTHT+R/8,SX跌H,SX跌H,10,0),ColorA8A808;
STICKLINE(CURR<=GTHT+R/8,SX漲L,SX漲L,10,0),ColorA8A808;
FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX漲L)/8,SX漲L+(SX跌H-SX漲L)/8),Color187C50;
FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX漲L)/4,SX漲L+(SX跌H-SX漲L)/4),Color9A7C00;
FILLRGN(CURR<=GTHT+R/8,SX跌H-(SX跌H-SX漲L)*3/8,SX漲L+(SX跌H-SX漲L)*3/8),Color187C50;
STICKLINE(CURR<=GTHT+R/8,(SX跌H+SX漲L)/2,(SX跌H+SX漲L)/2,10,0),ColorA8A808;
DRAWTEXT(CURR=GTHT,SX漲L-IM68,' 壹瓣心花 \(^o^)/~ 舍得快樂\n創(chuàng)幻財經 股票論壇'),COLOR8899AA,ALIGN0;
SX漲:=(CURR=KE+DTT)-1;
SX跌:=(CURR=KE+GTT)-1;
SX漲跌:=LINEVALUE(SX漲=0,SX漲L,SX跌=0,SX跌H,0,0);
SX跌漲:=LINEVALUE(SX漲=0,SX跌H,SX跌=0,SX漲L,0,0);
S漲跌X:=LINEVALUE(SX跌=0,SX跌H,SX漲=0,SX漲L,0,0);
S跌漲X:=LINEVALUE(SX跌=0,SX漲L,SX漲=0,SX跌H,0,0);
SX漲跌X:=IF(DTT>GTT,SX漲跌,S漲跌X);
SX跌漲X:=IF(DTT>GTT,SX跌漲,S跌漲X);
PEDAY:=IF(PE=1,0,IF(PE=2,R/2,IF(PE=3,R,IF(PE=4,R+R/2,IF(PE=5,2*R,IF(PE=6,2*R+R/2,IF(PE=7,3*R,3*R+R/2)))))));
SLXH:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),(SX跌H+SX漲L)/2,0),COLOR8E0000,LINETHICK;
PARTLINE(SLXH<>0,(SX跌H+SX漲L)/2),COLOR8E0000,LINETHICK3;
H跌X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX跌H,0),COLOR8E0000,LINETHICK;
PARTLINE(H跌X<>0,SX跌H),COLOR8E0000,LINETHICK3;
L漲X:IF((CURR>=MIN(KE+DTT-PEDAY,KE+GTT-PEDAY) AND CURR<MAX(KE+DTT-PEDAY,KE+GTT-PEDAY)),SX漲L,0),COLOR8E0000,LINETHICK;
PARTLINE(L漲X<>0,SX漲L),COLOR8E0000,LINETHICK3;
STICKLINE(ref(SX漲=0,PEDAY) OR ref(SX跌=0,PEDAY) OR ref(CURR=KE+ROUND((GTT+DTT)/2),PEDAY),SX跌H,SX漲L,0.27,0),COLOR8E0000,LINETHICK3;
X漲點:=IF(SX漲>SX跌,SX漲,SX跌);
X跌點:=IF(SX漲>SX跌,SX漲,SX跌);
//TJA:=BARSLAST(ref(SX漲=0,PEDAY) OR ref(SX跌=0,PEDAY));
//TJ:=TJA[DATACOUNT];
睿分1:=ref(LINEVALUE(X跌點=0,SX跌H,CURR=KE+ROUND((GTT+DTT)/2),SX漲L,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分1>=SX漲L,睿分1),COLOR00FFFF;
睿分2:=ref(LINEVALUE(X跌點=0,(SX跌H+SX漲L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX漲L,0,0),PEDAY),COLORFF0000,LINETHICK2;
PARTLINE(睿分2>=SX漲L,睿分2),COLORFF0000,LINETHICK2;
睿分3:=ref(LINEVALUE(X跌點=0,SX漲L,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分3<=SX跌H,睿分3),COLOR00FFFF;
睿分4:=ref(LINEVALUE(X跌點=0,SX跌H,X漲點=0,(SX跌H+SX漲L)/2,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分4>=(SX跌H+SX漲L)/2,睿分4),COLOR00FFFF;
睿分5:=ref(LINEVALUE(X跌點=0,SX漲L,X漲點=0,(SX跌H+SX漲L)/2,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分5<=(SX跌H+SX漲L)/2,睿分5),COLOR00FFFF;
睿分6:=ref(LINEVALUE(X跌點=0,(SX跌H+SX漲L)/2,CURR=KE+ROUND((GTT+DTT)/2),SX跌H,0,0),PEDAY),COLORFF0000,LINETHICK2;
PARTLINE(睿分6<=SX跌H,睿分6),COLORFF0000,LINETHICK2;
睿分7:=ref(LINEVALUE(X跌點=0,(SX跌H+SX漲L)/2,X漲點=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分7<=SX跌H,睿分7),COLOR00FFFF;
睿分8:=ref(LINEVALUE(X跌點=0,(SX跌H+SX漲L)/2,X漲點=0,SX漲L,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分8>=SX漲L,睿分8),COLOR00FFFF;
睿分9:=ref(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX漲L,X漲點=0,(SX跌H+SX漲L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
PARTLINE(睿分9<=(SX跌H+SX漲L)/2,睿分9),COLORFF0000,LINETHICK2;
睿分10:=ref(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X漲點=0,(SX跌H+SX漲L)/2,0,0),PEDAY),COLORFF0000,LINETHICK2;
// www.tumamayizhan.com
PARTLINE(睿分10>=(SX跌H+SX漲L)/2,睿分10),COLORFF0000,LINETHICK2;
睿分11:=ref(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX跌H,X漲點=0,SX漲L,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分11>=SX漲L,睿分11),COLOR00FFFF;
睿分12:=ref(LINEVALUE(CURR=KE+ROUND((GTT+DTT)/2),SX漲L,X漲點=0,SX跌H,0,0),PEDAY),COLOR00FFFF;
PARTLINE(睿分12<=SX跌H,睿分12),COLOR00FFFF;
睿分13:=ref(SX漲跌X,PEDAY),COLOR8E00E8;
PARTLINE(睿分13<=SX跌H AND 睿分13>=SX漲L,睿分13),COLOR8E00E8;
睿分14:=ref(SX跌漲X,PEDAY),COLOR8E00E8;
PARTLINE(睿分14>=SX漲L AND 睿分14<=SX跌H,睿分14),COLOR8E00E8;
PARTLINE(CURR<MAX(KE+DTT,KE+GTT) AND CURR>=MIN(KE+DTT,KE+GTT),SX跌H),COLOR8E0000,LINETHICK3;
PARTLINE(CURR<MAX(KE+DTT,KE+GTT) AND CURR>=MIN(KE+DTT,KE+GTT),SX漲L),COLOR8E0000,LINETHICK3;
STICKLINE(SX漲=0 OR SX跌=0,SX跌H,SX漲L,0.27,0),COLOR8E0000,LINETHICK3;
DRAWTEXT(CURR=KE+ROUND((GTT+DTT)/2)+5,SX跌H*0.98,'歷史區(qū)間'),COLOR8800AA;
KLINE(refX(O,KE),refX(H,KE),refX(L,KE),refX(C,KE),0);
{本文來源:'www.tumamayizhan.com '}
