奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 解盤 缺口振幅顯示 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=24150)

解盤 缺口振幅顯示

版主你好
我不會做 電腦解盤 無缺口 就不要顯示的判讀 所以求助於您 謝謝

//===========================================================================
//============開盤缺口===============

IF DATATYPE < 9 OR DATATYPE=11 THEN BEGIN // <60分K
SWCK:=TradedatE<>ref(Tradedate,1) or IsRegularFBar;
//VERTLINE(SWCK and datatype<7) Color008888 linedot; //隔日線
//KLINE(O,H,L,C,0);
SWSP:=barslast(SWCK);
缺口:=((ref(H,1)<L)+(ref(L,1)>H)*2)*SWCK; {1.上, 2.下}
開盤缺口上緣:ref(ref(L,缺口-1)*(缺口>0),SWSP) linethick0;
開盤缺口下緣:ref(ref(H,2-缺口)*(缺口>0),SWSP) linethick0;
缺口中線:=(開盤缺口上緣+開盤缺口下緣)/2 linethick0;
DWCK:=SWSP>0 and ref(缺口>0,SWSP);
//PARTLINE(DWCK,缺口中線) colorFF3300;
PARTLINE(DWCK,開盤缺口上緣) COLOR0066FF LINETHICK2;;
DRAWNUMBER(ISLASTBAR,開盤缺口上緣,開盤缺口上緣,0) SHIFT1,color0066FF;
DRAWTEXT(ISLASTBAR,開盤缺口上緣,'開盤缺口上緣') SHIFT5,color0066FF ;
DRAWSL(ISLASTBAR, 開盤缺口上緣,0,0,3) pxdn0 coloR0066FF LINETHICK3 LINEDOT;
DRAWNUMBER(ISLASTbar,開盤缺口上緣,開盤缺口上緣,0),shift3,COLOR0066FF PXUP40;
DRAWTEXT(ISLASTBAR,開盤缺口上緣,'開盤缺口上緣') SHIFT5, color0066FF PXUP40;

PARTLINE(DWCK,開盤缺口下緣) COLOR0066FF LINETHICK2;
DRAWSL(ISLASTBAR, 開盤缺口下緣,0,0,3) pxdn0 coloR0066FF LINETHICK3 LINEDOT;
DRAWNUMBER(ISLASTbar,開盤缺口下緣,開盤缺口下緣,0),shift3,COLOR0066FF PXUP40;
DRAWTEXT(ISLASTBAR,開盤缺口下緣,'開盤缺口下緣') SHIFT5, color0066FF PXUP40;

缺口振幅:= 開盤缺口上緣-開盤缺口下緣;

DRAWTEXT(缺口>0,缺口中線,' 缺口中線 = ') color0066FF, LINETHICK1,ALIGN2 PXUP25;
DRAWNUMBER(缺口>0,缺口中線,缺口中線,0) ALIGN1 color0066FF PXUP25;
DRAWTEXT(缺口>0,缺口中線,' 缺口振幅 = ') SHIFT5 color0066FF, LINETHICK1,ALIGN2 PXUP25;
DRAWNUMBER(缺口>0,缺口中線,缺口振幅,0) SHIFT5 ALIGN1 color0066FF PXUP25;


//AAA:= 缺口振幅=0;

//IF AAA >0 THEN BEGIN

EXPLAIN(1>0,'================'),colorFFFFFF;
EXPLAINEX(1>0,'開盤缺口上緣= ',開盤缺口上緣,0,0) COLOR0066FF;
EXPLAINEX(1>0,'開盤缺口下緣= ',開盤缺口下緣,0,0) COLOR0066FF;
EXPLAINEX(1>0,'開盤缺口振幅= ',缺口振幅,0,0) COLOR0066FF;
EXPLAIN(1>0,'================'),colorFFFFFF;

//END;

END;

//============================================================================

回覆: 解盤 缺口振幅顯示

引用:

---

最初由 ivancclai 發表
版主你好
我不會做 電腦解盤 無缺口 就不要顯示的判讀 所以求助於您 謝謝

//===========================================================================
//============開盤缺口===============

IF DATATYPE < 9 OR DATATYPE=11 THEN BEGIN // <60分K
SWCK:=TradedatE<>ref(Tradedate,1) or IsRegularFBar;
//VERTLINE(SWCK and datatype<7) Color008888 linedot; //隔日線
//KLINE(O,H,L,C,0);
SWSP:=barslast(SWCK);
缺口:=((ref(H,1)<L)+(ref(L,1)>H)*2)*SWCK; {1.上, 2.下}
開盤缺口上緣:ref(ref(L,缺口-1)*(缺口>0),SWSP) linethick0;
開盤缺口下緣:ref(ref(H,2-缺口)*(缺口>0),SWSP) linethick0;
缺口中線:=(開盤缺口上緣+開盤缺口下緣)/2 linethick0;
DWCK:=SWSP>0 and ref(缺口>0,SWSP);
//PARTLINE(DWCK,缺口中線) colorFF3300;
PARTLINE(DWCK,開盤缺口上緣) COLOR0066FF LINETHICK2;;
DRAWNUMBER(ISLASTBAR,開盤缺口上緣,開盤缺口上緣,0) SHIFT1,color0066FF;
DRAWTEXT(ISLASTBAR,開盤缺口上緣,'開盤缺口上緣') SHIFT5,color0066FF ;
DRAWSL(ISLASTBAR, 開盤缺口上緣,0,0,3) pxdn0 coloR0066FF LINETHICK3 LINEDOT;
DRAWNUMBER(ISLASTbar,開盤缺口上緣,開盤缺口上緣,0),shift3,COLOR0066FF PXUP40;
DRAWTEXT(ISLASTBAR,開盤缺口上緣,'開盤缺口上緣') SHIFT5, color0066FF PXUP40;

PARTLINE(DWCK,開盤缺口下緣) COLOR0066FF LINETHICK2;
DRAWSL(ISLASTBAR, 開盤缺口下緣,0,0,3) pxdn0 coloR0066FF LINETHICK3 LINEDOT;
DRAWNUMBER(ISLASTbar,開盤缺口下緣,開盤缺口下緣,0),shift3,COLOR0066FF PXUP40;
DRAWTEXT(ISLASTBAR,開盤缺口下緣,'開盤缺口下緣') SHIFT5, color0066FF PXUP40;

缺口振幅:= 開盤缺口上緣-開盤缺口下緣;

DRAWTEXT(缺口>0,缺口中線,' 缺口中線 = ') color0066FF, LINETHICK1,ALIGN2 PXUP25;
DRAWNUMBER(缺口>0,缺口中線,缺口中線,0) ALIGN1 color0066FF PXUP25;
DRAWTEXT(缺口>0,缺口中線,' 缺口振幅 = ') SHIFT5 color0066FF, LINETHICK1,ALIGN2 PXUP25;
DRAWNUMBER(缺口>0,缺口中線,缺口振幅,0) SHIFT5 ALIGN1 color0066FF PXUP25;


//AAA:= 缺口振幅=0;

//IF AAA >0 THEN BEGIN

EXPLAIN(1>0,'================'),colorFFFFFF;
EXPLAINEX(1>0,'開盤缺口上緣= ',開盤缺口上緣,0,0) COLOR0066FF;
EXPLAINEX(1>0,'開盤缺口下緣= ',開盤缺口下緣,0,0) COLOR0066FF;
EXPLAINEX(1>0,'開盤缺口振幅= ',缺口振幅,0,0) COLOR0066FF;
EXPLAIN(1>0,'================'),colorFFFFFF;

//END;

END;

//============================================================================

---