 |
N122562663
資深會員

註冊日期: Jan 2010
來 自:
文章數量: 270 |
第1K最高價
總版主您好:請幫忙看下方程式、我錯誤在何處、為何第1K最高價、後續K棒沒有收盤價高於第1K最高價、且會出訊、是引用到前日的嗎、請支援修正公式。
CK:=年月日<>向前引用(年月日,1);
畫垂直線(CK OR 是否最後週期),短虛線,COLOR77FF;
DESP:=上一次條件成立位置(年月日<>向前引用(年月日,1));
MV:=最高值(成交量,DESP+1);
CKV:=MV<>向前引用(MV,1) or DESP=0;
CKV1:=上一次條件成立位置(CKV);
M:向前引用(最高價,CKV1) 短虛線;
W:向前引用(最低價,CKV1) 短虛線;
原多:=收盤價>M;
空訊A:=收盤價<0;
多訊A:=向前引用(原多,1);
強出A:=時分秒>=134200;
多進A:=多訊A and 強出A=0 or 數據位置=0;
空進A:=空訊A and 強出A=0 or 數據位置=0;
進場A:=多進A-空進A;
控損A:=20; 控盈衰起A:=1000; 控盈衰值A:=1000; WrkNum:=1;
VARIABLE:控利A[WrkNum]=0;
控利A[1]:=1000;
進價A:=0; CC:=開盤價; HH:=最高價; LL:=最低價; RecOutM:='';
多空A:=0;
進出A:=開盤價*0 NOAXIS,linethick0;
持有A:=進出A linethick0;
for i = 1 to 序列數據量 do begin
條件函數 多空A=0 then begin
多空A:=進場A[i]*WrkNum; 進出A[i]:=符號值(多空A);
條件函數 多空A<>0 then 進價A:=CC[i]; RecOutM:=''; Max盈A:=0;
end else 條件函數 多空A<>0 then begin
NowDir:=符號值(多空A);
條件函數 NowDir=-進場A[i] or NowDir=-進場A[i] then begin
進出A[i]:=-NowDir*2; 多空A:=-NowDir*WrkNum; 進價A:=CC[i]; RecOutM:=''; Max盈A:=0;
end else begin
H盈虧A:=(HH[i]-進價A)*(NowDir=1)+(進價A-LL[i])*(NowDir=-1);
L盈虧A:=(LL[i]-進價A)*(NowDir=1)+(進價A-HH[i])*(NowDir=-1);
條件函數 強出A[i] then begin
進出A[i]:=NowDir*4; 多空A:=0;
end else 條件函數 L盈虧A<=-控損A then begin
進出A[i]:=NowDir*3; 多空A:=0;
end else 條件函數 Max盈A>=控盈衰起A and Max盈A-L盈虧A>=控盈衰值A then begin
進出A[i]:=NowDir*5; 多空A:=0;
end else begin
for j=WrkNum downto 1 do begin
jstr:=數字轉化為字符串(j,0);
條件函數 H盈虧A>=控利A[j] and 尋找字符串(RecOutM, jstr, 1)=0 then begin
進出A[i]:=NowDir*10+NowDir*j; RecOutM:=RecOutM+jstr;
多空A:=多空A-NowDir; 條件函數 j=WrkNum then 多空A:=0;
break;
end;
end;
end;
條件函數 H盈虧A>Max盈A then Max盈A:=H盈虧A;
end;
end;
持有A[i]:=多空A;
end;
{白K棒}
畫柱線(1,開盤價,收盤價,7.7,0),COLORWHITE;
畫柱線(1,最高價,最低價,2.2,0),COLORWHITE;
{粉K棒}
畫柱線(進出A=1 OR 進出A=2,開盤價,收盤價,7.7,0),COLORMAGENTA;
畫柱線(進出A=1 OR 進出A=2,最高價,最低價,2.2,0),COLORMAGENTA;
顯示文字(進出A=1 OR 進出A=2,最低價,'\n多'),ALIGN,COLORMAGENTA,PXDN35;
顯示數字(進出A=1 OR 進出A=2,最低價,開盤價,0),ALIGN,COLORMAGENTA,PXDN70;
N122562663 附帶上了此圖片:
|
|
向版主報告此篇 |  |
|
2016-08-14 17:09 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|