 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18163 |
回覆: 畫柱線
引用: 最初由 N122562663 發表
總版主您好:請費心再增加支援一組多、空訊成立後、但尚未停利出一半、之k棒公式、感恩有您。
畫柱線(持有<0,開盤價,收盤價,6.6,0),;
畫柱線(持有<0,最高價,最低價,1.1,0),;
畫柱線(持有>0,開盤價,收盤價,6.6,0);
畫柱線(持有>0,最高價,最低價,1.1,0),;
尚未停利出一半, 之持有值為 +2 或 -2
若已停利出一半, 之持有值為 +1 或 -1
您運用它去判斷畫柱線就可
|
|
向版主報告此篇 |  |
|
2012-12-10 11:05 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18163 |
回覆: 各出場1口
引用: 最初由 N122562663 發表
總版主您好:是、控利A, 控利B, 控利C, 控利D 、各出場1口、感恩有您。
原碼: 多訊:AA>1000;
空訊:AA<-1000;
強出:=TIME>=134500; //K棒週期時間為 13:45:00 時做強制出場(請自行決定更改)
多進:=多訊 and 強出=0 or barpos=0;
空進:=空訊 and 強出=0 or barpos=0;
進場:=多進-空進;
控損:=25; WrkNum:=5;
VARIABLE:控利[WrkNum]=0;
控利[1]:=30; 控利[2]:=60; 控利[3]:=90; 控利[4]:=120; 控利[5]:=150;
進價:=0; CC:=C; RecOutM:='';
多空:=0; //1.多 -1.空 0.無
進出:C*0 NOAXIS;
持有:進出 linethick0;
for i = 1 to datacount do begin
if 多空=0 then begin
多空:=進場[i]*WrkNum; 進出[i]:=SGN(多空);
if 多空<>0 then 進價:=CC[i]; RecOutM:='';
end else if 多空<>0 then begin
NowDir:=SGN(多空);
if NowDir=-進場[i] or NowDir=-進場[i] then begin
進出[i]:=-NowDir*2; 多空:=-NowDir*WrkNum; 進價:=CC[i]; RecOutM:='';
end else begin
盈虧[i]:=(CC[i]-進價)*NowDir;
if 強出[i] then begin
進出[i]:=NowDir*4; 多空:=0;
end else if 盈虧[i]<=-控損 then begin
進出[i]:=NowDir*3; 多空:=0;
end else begin
for j=WrkNum downto 1 do begin
jstr:=numtostr(j,0);
if 盈虧[i]>=控利[j] and STRFIND(RecOutM, jstr, 1)=0 then begin
進出[i]:=NowDir*10+NowDir*j; RecOutM:=RecOutM+jstr;
多空:=多空-NowDir; if j=WrkNum then 多空:=0;
break;
end;
end;
end;
end;
end;
持有[i]:=多空; //為該根動作完成後所持有的值
end;
//[進出] 這變數值代表意義如下:
// 1.多單進場, 2.空轉多, 3.多控損出, 4.強制出場, 10到15.多控利出
//-1.空單進場, -2.多轉空,-3.空控損出,-4.強制出場,-10到-15.空控利出
畫柱線(持有<0,開盤價,收盤價,6.6,0),COLORGREEN;
畫柱線(持有<0,最高價,最低價,1.1,0),COLORGREEN;
畫柱線(持有>0,開盤價,收盤價,6.6,0),COLORRED;
畫柱線(持有>0,最高價,最低價,1.1,0),COLORRED;
僅提供程式架構處理範例, 做為參考
判斷次序會影響特性, 請自行依需求修改為您要的
|
|
向版主報告此篇 |  |
|
2012-12-20 16:51 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|