 |
sunnyjboy1960
中級會員
註冊日期: Sep 2010
來 自: 桃園
文章數量: 81 |
|
5分鐘關K判斷改寫成在1分鐘使用
以前問過的問題是5分鐘取前一波高低判斷
巳修改完成可以抓到並在 上漲關K低點 及 下跌關K高
分別標示O X
{-------------------------時間線型參數-----------------------------------}
昨日:=REF(Date,1)<>Date;K號:=BarsLast(昨日=1) + 1;日高:="OHLC.HH#DAY";日低:="OHLC.LL#DAY";
日低D:=BARSLAST(L=日低);日高D:=BARSLAST(H=日高);
K低:=L;K收:=C;K高:=H;;K開:=O;K紅:=ISUP;K黑:=ISdown;K平:=O=C;K漲:=K收>ref(K收,1);K跌:=K收<ref(K收,1);
K紅漲:=K紅 and K漲;十字:=O=C;K黑跌:=K黑 and K跌;K紅跌:=K紅 and K跌;K黑漲:=K黑 and K漲;
中K:=15;長K:=25;
{-------------------------------------------K判斷-----------------------}
K長:=(H-L);KL4:=ROUND(K長/4);KL2:=ROUND(K長/2);
K2:=K低+KL2;中K紅:=K2;中K黑:=K2;K中:=K2;KM:=(H+L+O+C)/4;
上影大:=K長>中K AND H-C>(C-O)*1.5;下影大:=K長>中K AND C-L>(H-C)*1.5;上影:=O>=C and (H-C>C-O OR H-C>C-L);下影:=(C-L>O-C OR C-L>H-C);
//長上影:=(H-C > (C-L)*2)AND H-C>=5;長下影:=((H-C)*2 < C-L)AND C-L>=5;下影5:=C-L>=5;
中K判:=(K長>=中K AND K長<長K);中長K判:=K長>=中K;長K判:=(K長>=長K);中K紅判:=(中K判 AND K紅);中K黑判:=(中K判 AND K黑);
長K紅判:=長K判 AND K紅;長K黑判:=長K判 AND K黑;長K紅:=K高-KL4;長K黑:=K低+KL4;K高紅H:=K高-KL4;K低黑L:=K低+KL4;
{----------------------------------關K--前一波高低判斷--------------------------------}
FH1:=PEAK(1,0.03,1)LINETHICK1,Colorff40ff,LINEDOT;
FL1:=TROUGH(2,0.03,1) LINETHICK1,ColorGREEN,LINEDOT;
HH:=H; PPH:=C*0;
for i=1 to datacount do begin TempH:=HH[i]; PPH[i]:=-1;{HH[i-1]}
for j=i-1 downto 1 do begin if HH[j]>TempH then begin PPH[i]:=i-j; break; end; end;
end;
LL:=L; PPL:=C*0;
for x=1 to datacount do begin TempL:=LL[x]; PPL[x]:=-1;{LL[x-1]}
for y=x-1 downto 1 do begin if LL[y]<TempL then begin PPL[x]:=x-y; break; end; end;
end;
{----------------------------------上漲關K低---------------------------------}
FHH:=IF(REF(H,1)=FH1,FH1,REF(FH1,PPH)) LINETHICK1,ColorRED,LINEDOT;
MsKbU小1:=IF((L<REF(FHH,1) AND H>REF(FHH,1)) OR (REF(L,1)<=REF(FHH,1) AND H>REF(FHH,1)) OR (L<=FHH AND H>FHH),1,0);{上漲小關K}
MsKbU長1:=IF(MsKbU小1 AND ((中K紅判 OR 長K紅判) and not(上影大)),1,0);{上漲長關K}
MsKbU先1:=IF(MsKbU小1 AND Sum(MsKbU小1,日低D)=1,1,0);{上漲先關K}
MsKbU1:=MsKbU長1 or MsKbU先1;{上漲關K} DRAWICON(MsKbU1,L,13);{上漲關K高下方標小紅O}
{----------------------------------下跌關K高---------------------------------}
FLL:=IF(REF(L,1)=FL1,FL1,REF(FL1,PPL)) LINETHICK1,Colorgreen,LINEDOT;
MsKbD小1:=IF((H>REF(FLL,1) AND L<REF(FLL,1)) OR (REF(H,1)>=REF(FLL,1) AND L<REF(FLL,1)) OR (H>=FLL AND L<FLL),1,0);{下跌小關K}
MsKbD長1:=IF(MsKbD小1 AND ((中K黑判 OR 長K黑判) and not(下影大)),1,0);{下跌長關K}
MsKbD先1:=IF(MsKbD小1 AND Sum(MsKbD小1,日高D)=1,1,0);{下跌先關K}
MsKbD1:=MsKbD長1 or MsKbD先1;{下跌關K} DRAWICON(MsKbD1,H+2,14);{下跌關K高上方標小紅X}
請問版主，要如何修改
讓這段程式可以使用在1分鐘的線圖並取得相同的高低點
|
|
向版主報告此篇 |  |
|
2011-08-05 01:26 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 18125 |
|
回覆: 5分鐘關K判斷改寫成在1分鐘使用
引用:
最初由 sunnyjboy1960 發表
以前問過的問題是5分鐘取前一波高低判斷
巳修改完成可以抓到並在 上漲關K低點 及 下跌關K高
分別標示O X
{-------------------------時間線型參數-----------------------------------}
昨日:=REF(Date,1)<>Date;K號:=BarsLast(昨日=1) + 1;日高:="OHLC.HH#DAY";日低:="OHLC.LL#DAY";
日低D:=BARSLAST(L=日低);日高D:=BARSLAST(H=日高);
K低:=L;K收:=C;K高:=H;;K開:=O;K紅:=ISUP;K黑:=ISdown;K平:=O=C;K漲:=K收>ref(K收,1);K跌:=K收<ref(K收,1);
K紅漲:=K紅 and K漲;十字:=O=C;K黑跌:=K黑 and K跌;K紅跌:=K紅 and K跌;K黑漲:=K黑 and K漲;
中K:=15;長K:=25;
{-------------------------------------------K判斷-----------------------}
K長:=(H-L);KL4:=ROUND(K長/4);KL2:=ROUND(K長/2);
K2:=K低+KL2;中K紅:=K2;中K黑:=K2;K中:=K2;KM:=(H+L+O+C)/4;
上影大:=K長>中K AND H-C>(C-O)*1.5;下影大:=K長>中K AND C-L>(H-C)*1.5;上影:=O>=C and (H-C>C-O OR H-C>C-L);下影:=(C-L>O-C OR C-L>H-C);
//長上影:=(H-C > (C-L)*2)AND H-C>=5;長下影:=((H-C)*2 < C-L)AND C-L>=5;下影5:=C-L>=5;
中K判:=(K長>=中K AND K長<長K);中長K判:=K長>=中K;長K判:=(K長>=長K);中K紅判:=(中K判 AND K紅);中K黑判:=(中K判 AND K黑);
長K紅判:=長K判 AND K紅;長K黑判:=長K判 AND K黑;長K紅:=K高-KL4;長K黑:=K低+KL4;K高紅H:=K高-KL4;K低黑L:=K低+KL4;
{----------------------------------關K--前一波高低判斷--------------------------------}
FH1:=PEAK(1,0.03,1)LINETHICK1,Colorff40ff,LINEDOT;
FL1:=TROUGH(2,0.03,1) LINETHICK1,ColorGREEN,LINEDOT;
HH:=H; PPH:=C*0;
for i=1 to datacount do begin TempH:=HH[i]; PPH[i]:=-1;{HH[i-1]}
for j=i-1 downto 1 do begin if HH[j]>TempH then begin PPH[i]:=i-j; break; end; end;
end;
LL:=L; PPL:=C*0;
for x=1 to datacount do begin TempL:=LL[x]; PPL[x]:=-1;{LL[x-1]}
for y=x-1 downto 1 do begin if LL[y]<TempL then begin PPL[x]:=x-y; break; end; end;
end;
{----------------------------------上漲關K低---------------------------------}
FHH:=IF(REF(H,1)=FH1,FH1,REF(FH1,PPH)) LINETHICK1,ColorRED,LINEDOT;
MsKbU小1:=IF((L<REF(FHH,1) AND H>REF(FHH,1)) OR (REF(L,1)<=REF(FHH,1) AND H>REF(FHH,1)) OR (L<=FHH AND H>FHH),1,0);{上漲小關K}
MsKbU長1:=IF(MsKbU小1 AND ((中K紅判 OR 長K紅判) and not(上影大)),1,0);{上漲長關K}
MsKbU先1:=IF(MsKbU小1 AND Sum(MsKbU小1,日低D)=1,1,0);{上漲先關K}
MsKbU1:=MsKbU長1 or MsKbU先1;{上漲關K} DRAWICON(MsKbU1,L,13);{上漲關K高下方標小紅O}
{----------------------------------下跌關K高---------------------------------}
FLL:=IF(REF(L,1)=FL1,FL1,REF(FL1,PPL)) LINETHICK1,Colorgreen,LINEDOT;
MsKbD小1:=IF((H>REF(FLL,1) AND L<REF(FLL,1)) OR (REF(H,1)>=REF(FLL,1) AND L<REF(FLL,1)) OR (H>=FLL AND L<FLL),1,0);{下跌小關K}
MsKbD長1:=IF(MsKbD小1 AND ((中K黑判 OR 長K黑判) and not(下影大)),1,0);{下跌長關K}
MsKbD先1:=IF(MsKbD小1 AND Sum(MsKbD小1,日高D)=1,1,0);{下跌先關K}
MsKbD1:=MsKbD長1 or MsKbD先1;{下跌關K} DRAWICON(MsKbD1,H+2,14);{下跌關K高上方標小紅X}
請問版主，要如何修改
讓這段程式可以使用在1分鐘的線圖並取得相同的高低點
若您是要與5分鐘相同的高低點
那麼去引用5分鐘此公式的計算結果, 來1分鐘顯示就可
|
|
向版主報告此篇 | |
|
|
2011-08-05 09:38 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
