奇狐社區論壇 - 請教版主:如何劃出直角的控盤線

奇狐社區論壇 (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=14716)

由 sunnyjboy1960 在 2010-12-01 19:53 發表:

請教版主:如何劃出直角的控盤線

請教版主:如何劃出直角的控盤線

長K判:=if(K長>=長K,1,0);
中K判:=if(K長>=中K AND K長<長K,1,0);
高3:=HHV(H,3); 低3:=LLV(L,3);
SL:=C>ref(高3,1) linethick0;
SH:=C<ref(低3,1) linethick0;
MM:BARSSINCE(SL or SH)*0,ColorMagenta,LINETHICK2; NowMM:=0;
for i=lbound(MM) to datacount do begin
if 長K判[i] then begin
IF K漲跌[i] then begin MM[i]:=K2[i];NowHL:=1;END;
ELSE begin MM[i]:=K2[i];NowHL:=-1;END;
END;
ELSE
IF 中K判[i] then begin
IF SL[i] then begin MM[i]:=K1[i];NowHL:=1;END;
ELSE IF SH[i] then begin MM[i]:=K3[i];NowHL:=-1;END;
ELSE begin MM[i]:=MM[i-1];END;
END;
ELSE begin MM[i]:=MM[i-1];END;
end;
PARTLINE(MM>C,MM) ColorYELLOW,LINETHICK3;
PARTLINE(MM<=C,MM) ColorMagenta,LINETHICK3;

如何在上列控盤程式內使用何讓折線走直角
是否為使用下列指令搭配，能否指導一下
partline(m>0 and CC>=OO,CC);
stickline(m=0 and CC>=OO,OO,CC,1,0);

由 cgjj 在 2010-12-02 09:51 發表:

回覆: 請教版主:如何劃出直角的控盤線

引用:
最初由 sunnyjboy1960 發表
請教版主:如何劃出直角的控盤線

長K判:=if(K長>=長K,1,0);
中K判:=if(K長>=中K AND K長<長K,1,0);
高3:=HHV(H,3); 低3:=LLV(L,3);
SL:=C>ref(高3,1) linethick0;
SH:=C<ref(低3,1) linethick0;
MM:BARSSINCE(SL or SH)*0,ColorMagenta,LINETHICK2; NowMM:=0;
for i=lbound(MM) to datacount do begin
if 長K判[i] then begin
IF K漲跌[i] then begin MM[i]:=K2[i];NowHL:=1;END;
ELSE begin MM[i]:=K2[i];NowHL:=-1;END;
END;
ELSE
IF 中K判[i] then begin
IF SL[i] then begin MM[i]:=K1[i];NowHL:=1;END;
ELSE IF SH[i] then begin MM[i]:=K3[i];NowHL:=-1;END;
ELSE begin MM[i]:=MM[i-1];END;
END;
ELSE begin MM[i]:=MM[i-1];END;
end;
PARTLINE(MM>C,MM) ColorYELLOW,LINETHICK3;
PARTLINE(MM<=C,MM) ColorMagenta,LINETHICK3;

如何在上列控盤程式內使用何讓折線走直角
是否為使用下列指令搭配，能否指導一下
partline(m>0 and CC>=OO,CC);
stickline(m=0 and CC>=OO,OO,CC,1,0);

//處理範例:
ma10:ma(c,10);
ma20:ma(c,20);
ck:=cross(ma10,ma20);
VERTLINE(ck) linethick linedot;
HH:ref(H,barslast(CK));

由 sunnyjboy1960 在 2010-12-03 01:03 發表:

回答非正解

試用了版大的回答，HH在轉折的K棒之間並非走直角轉彎，能否再指導，謝謝

由 sunnyjboy1960 在 2010-12-03 02:03 發表:

加問：在轉折後在本日高低點標示13個向上或向下的箭頭

在本範列中在轉折後的13個K棒標在本日高低點示向上或向下的箭頭

由 cgjj 在 2010-12-03 09:15 發表:

回覆: 回答非正解

引用:
最初由 sunnyjboy1960 發表
試用了版大的回答，HH在轉折的K棒之間並非走直角轉彎，能否再指導，謝謝

一般不會如您所想的那樣畫
既然是控盤線, 一條之一根僅會有一個值, 就是以該數繪製
若於當根畫垂直下來, 也會把K棒的 H和L給壓住看不到

硬要做的話, 可用下列方式處理: (會比前面的程式,多耗用些CPU)

ma10:ma(c,10);
ma20:ma(c,20);
ck:=cross(ma10,ma20);
HH:ref(H,barslast(CK)) linethick;
PARTLINE(HH=ref(HH,1),HH) coloryellow;
PARTLINE(HH=ref(HH,1),HH) shift1 coloryellow;
STICKLINE(HH<>Ref(HH,1),HH,ref(HH,1),0.1,0) coloryellow;

由 cgjj 在 2010-12-03 09:17 發表:

回覆: 加問：在轉折後在本日高低點標示13個向上或向下的箭頭

引用:
最初由 sunnyjboy1960 發表
在本範列中在轉折後的13個K棒標在本日高低點示向上或向下的箭頭

定義不明確, 請重新描述問題

由 sunnyjboy1960 在 2010-12-03 10:43 發表:

我要設計的條件為

5分k棒長度超過20點
成交量大於MA20的2倍
第二根K棒收盤小於第一根收盤價
從第一根K棒起在本日最高價標示向下的箭頭
一共標示1 3根K棒才結束

由 cgjj 在 2010-12-03 10:53 發表:

引用:
最初由 sunnyjboy1960 發表
我要設計的條件為

5分k棒長度超過20點
成交量大於MA20的2倍
第二根K棒收盤小於第一根收盤價
從第一根K棒起在本日最高價標示向下的箭頭
一共標示1 3根K棒才結束

定義仍然不夠明確
麻煩請再補充描述或繪圖說明

5分k棒長度超過20點 <== 那一根?
成交量大於MA20的2倍 <== 那一根?
第二根K棒收盤小於第一根收盤價 <== 自何處起算?
從第一根K棒起在本日最高價標示向下的箭頭
一共標示1 3根K棒才結束

由 sunnyjboy1960 在 2010-12-03 11:02 發表:

5分k棒長度超過20點 <== 那一根?第一根或條件成立起
成交量大於MA20的2倍 <== 那一根?第一根或條件成立起
第二根K棒收盤小於第一根收盤價 <== 自何處起算?第一根或條件成立後
從第一根K棒起在本日最高價標示向下的箭頭
一共標示1 3根K棒才結束

由 sunnyjboy1960 在 2010-12-03 11:26 發表:

1.前一根5分k棒長度超過20點且成交量大於MA20的2倍且收盤價小於最高價
2.本根5分K棒收盤小於前一根收盤價
3.從本根K棒起在本日最高價位置標示向下的箭頭一共標示1 2根K棒才結束

由 cgjj 在 2010-12-03 12:19 發表:

引用:
最初由 sunnyjboy1960 發表
1.前一根5分k棒長度超過20點且成交量大於MA20的2倍且收盤價小於最高價
2.本根5分K棒收盤小於前一根收盤價
3.從本根K棒起在本日最高價位置標示向下的箭頭一共標示1 2根K棒才結束

//看看是否為您要的結果
DESP:=barslast(date<>ref(date,1));
CK1:=REF(H-L>20 and v>ref(ma(v,20),1)*2 and C<H,1);
CK2:=C<ref(C,1);
CK:=CK1 and CK2;
MH:=HHV(H,DESP+1);
DRAWICON(barslast(CK)<12,MH,5) pxup20;

由 sunnyjboy1960 在 2010-12-03 12:24 發表:

謝謝？我再試試看

全部時間均為台灣時間, 現在時間為04:26

在這個頁面顯示本主題全部的 12 個文章