 |
chungdune
資深會員
註冊日期: Mar 2008
來 自:
文章數量: 114 |
|
回覆: 回覆: [求救]請問缺口上下緣被突破或跌破的公式寫法
引用:
最初由 cgjj 發表
該篇文章
依據的是 "直至另一根K棒碰到該價位"
與您所想的需求應該是不一樣的
請先詳細定義 "缺口上下緣被突破或跌破" 之判斷規則
建議搭配圖形說明, 會比較清楚易懂
1.我要的就是那個功能，只是該文章要的是「某個缺口的最低價向右畫一條線，直至他被回補」，而我要的是「某個缺口的最低價與最高價向右畫一條線，直至他被回補」。
2.根據該文章的公式修改結果，發現兩個問題：（請看附圖）
a.向下缺口（藍色線）的下緣與向上缺口（紅色線）的上緣無法畫出線條。
b.2012/10/11跌破2012/09/12的缺口，但是線條還是繼續往右畫。
|
|
向版主報告此篇 |  |
|
2012-10-17 10:11 |
|
|
| |
|
chungdune
資深會員
註冊日期: Mar 2008
來 自:
文章數量: 114 |
|
引用:
最初由 cgjj 發表
圖的寬和高必需在999個像素之內
碰到K棒和被回補 兩者是不同的
該篇文章處理的結果, 與您的需求是相當不一樣的
看看以下處理結果是否為您要的:
原碼:
CK:=(L>ref(H,1))-(H<=ref(L,1));
MM:=(CK=1)*L+(CK=-1)*H;
HH:=H; LL:=L; PP:=C*0;
for i=lbound(CK) to datacount do begin
if CK[i]<>0 then begin
for j=i+1 to datacount do begin
if (CK[i]=1)*(LL[j]<=LL[i])+(CK[i]=-1)*(HH[j]>=HH[i]) then begin
PP[i]:=j-i; break;
end;
end;
end;
end;
DRAWSL(CK,MM,0,PP,3) pxdn2 linedot coloryellow;
報告版主：向下缺口的上緣與向上缺口的下緣無法畫出線條。
應該這麼說：完全缺口的上下緣都要劃線，上緣被碰到（包含跳空過或破）則上緣停止劃線，下緣被碰到（包含跳空過或破）則下緣停止劃線。
|
|
向版主報告此篇 | |
|
|
2012-10-17 13:50 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18091 |
|
引用:
最初由 chungdune 發表
報告版主：向下缺口的上緣與向上缺口的下緣無法畫出線條。
應該這麼說：完全缺口的上下緣都要劃線，上緣被碰到（包含跳空過或破）則上緣停止劃線，下緣被碰到（包含跳空過或破）則下緣停止劃線。
注意: 此公式計算負載較重, 請注意使用
原碼:
CK:=(L>ref(H,1))-(H<=ref(L,1));
MM1:=(CK=1)*L+(CK=-1)*H;
RCK:=refx(CK,1) and ISLASTBAR=0;
MM2:=(RCK=1)*H+(RCK=-1)*L;
HH:=H; LL:=L; P1:=C*0; P2:=P1;
for i=lbound(CK) to datacount do begin
if CK[i]<>0 then begin
for j=i+1 to datacount do begin
if (CK[i]=1)*(LL[j]<=LL[i])+(CK[i]=-1)*(HH[j]>=HH[i]) then begin
P1[i]:=j-i; break;
end;
end;
k:=i-1;
for j=i+1 to datacount do begin
if (CK[i]=1)*(LL[j]<=HH[k])+(CK[i]=-1)*(HH[j]>=LL[k]) then begin
P2[k]:=j-k; break;
end;
end;
end;
end;
DRAWSL(CK,MM1,0,P1,3) pxdn2 linedot coloryellow;
DRAWSL(RCK,MM2,0,P2,3) pxdn2 linedot colormagenta;
|
|
向版主報告此篇 | |
|
|
2012-10-17 14:22 |
|
|
| |
|
chungdune
資深會員
註冊日期: Mar 2008
來 自:
文章數量: 114 |
|
引用:
最初由 cgjj 發表
注意: 此公式計算負載較重, 請注意使用
原碼:
CK:=(L>ref(H,1))-(H<=ref(L,1));
MM1:=(CK=1)*L+(CK=-1)*H;
RCK:=refx(CK,1) and ISLASTBAR=0;
MM2:=(RCK=1)*H+(RCK=-1)*L;
HH:=H; LL:=L; P1:=C*0; P2:=P1;
for i=lbound(CK) to datacount do begin
if CK[i]<>0 then begin
for j=i+1 to datacount do begin
if (CK[i]=1)*(LL[j]<=LL[i])+(CK[i]=-1)*(HH[j]>=HH[i]) then begin
P1[i]:=j-i; break;
end;
end;
k:=i-1;
for j=i+1 to datacount do begin
if (CK[i]=1)*(LL[j]<=HH[k])+(CK[i]=-1)*(HH[j]>=LL[k]) then begin
P2[k]:=j-k; break;
end;
end;
end;
end;
DRAWSL(CK,MM1,0,P1,3) pxdn2 linedot coloryellow;
DRAWSL(RCK,MM2,0,P2,3) pxdn2 linedot colormagenta;
報告版主：向上跳空缺口的線條正常，但是向下跳空缺口的上緣線條有問題，應該是畫在k棒的最低點而非最高點。
|
|
向版主報告此篇 | |
|
|
2012-10-17 14:37 |
|
|
| |
|
chungdune
資深會員
註冊日期: Mar 2008
來 自:
文章數量: 114 |
|
不好意思，請問版主，若此公式要改成實體缺口（就是相鄰二根K棒實體之間有缺口）劃線要如何作，我改了之後只會變成在當根畫線，懇請協助，謝謝。
|
|
向版主報告此篇 | |
|
|
2012-10-17 19:39 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18091 |
|
引用:
最初由 chungdune 發表
不好意思，請問版主，若此公式要改成實體缺口（就是相鄰二根K棒實體之間有缺口）劃線要如何作，我改了之後只會變成在當根畫線，懇請協助，謝謝。
1.改成用K棒柱狀體判斷缺口
2.添加了控制運算K棒數的功能(請視電腦負載和效能自行調整)
原碼:
MAXKBAR:=1500; //設定運算近期N根(0為全部)
StPos:=datacount-MAXKBAR+1;
if StPos<1 or MAXKBAR=0 then StPos:=1;
SH:=MAX(O,C); SL:=MIN(O,C);
x:=SETLBOUND(SH,StPos);
x:=SETLBOUND(SL,StPos);
CK:=(SL>ref(SH,1))-(SH<=ref(SL,1));
MM1:=(CK=1)*SL+(CK=-1)*SH;
RCK:=refx(CK,1)*(ISLASTBAR=0);
MM2:=(RCK=1)*SH+(RCK=-1)*SL;
P1:=C*0; P2:=P1;
for i=lbound(CK) to datacount do begin
if CK[i]<>0 then begin
for j=i+1 to datacount do begin
if (CK[i]=1)*(SL[j]<=SL[i])+(CK[i]=-1)*(SH[j]>=SH[i]) then begin
P1[i]:=j-i; break;
end;
end;
k:=i-1;
for j=i+1 to datacount do begin
if (CK[i]=1)*(SL[j]<=SH[k])+(CK[i]=-1)*(SH[j]>=SL[k]) then begin
P2[k]:=j-k; break;
end;
end;
end;
end;
DRAWSL(CK,MM1,0,P1,3) pxdn2 linedot coloryellow;
DRAWSL(RCK,MM2,0,P2,3) pxdn2 linedot colormagenta;
|
|
向版主報告此篇 | |
|
|
2012-10-18 09:33 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
