到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 請教版主大大.................[多空交易範例]
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
微笑 請教版主大大.................[多空交易範例]

不好意思!又要再次麻煩版主大大幫忙解疑了,因為小弟想了5天都寫不出來..................................

假設flag=1------->買1口
flag=0,-------->平倉
flag=-1--------->,空1口
flag=0,---------->平倉

假設 A>B------> flag=1(買1口)
50點停利----------->flag=0(停利平倉),直到A<B才再flag=-1(空1 口)


若未到50點跌下來,造成A<B------>flag=-1(反空1 口)
50點停利----------->flag=0(停利平倉)

若未到50點反漲上去,造成A>B------>flag=1(反買1 口)

感謝.感謝.感謝大大...........................

最後由 trtc516 在 2009-11-04 01:51 編輯 向版主報告此篇 | 查IP位址
Old Post 2009-11-04 01:29
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211
回覆: 請教版主大大.................

引用:
最初由 trtc516 發表
不好意思!又要再次麻煩版主大大幫忙解疑了,因為小弟想了5天都寫不出來..................................

假設flag=1------->買1口
flag=0,-------->平倉
flag=-1--------->,空1口
flag=0,---------->平倉

假設 A>B------> flag=1(買1口)
50點停利----------->flag=0(停利平倉),直到A<B才再flag=-1(空1 口)


若未到50點跌下來,造成A<B------>flag=-1(反空1 口)
50點停利----------->flag=0(停利平倉)

若未到50點反漲上去,造成A>B------>flag=1(反買1 口)

感謝.感謝.感謝大大........................... 


原碼:


多進:=A>B or barpos=0;

空進:=A<B or barpos=0;

進出:C*0;

多空:=0; //1.多 -1.空 0.無

控利:=50; 進價:=0; CC:=C;

進向:=多進-空進;

盈虧:c*0 linethick;

for i= 1 to datacount do begin

  if 多空=0 then begin

    多空:=進向[i]; 進出[i]:=多空;

    if 多空<>0 then 進價:=CC[i];

  end else if 多空<>0 then begin

    盈虧[i]:=(CC[i]-進價)*多空;

    if 多空<>進向[i] and 進向[i]<>0 then begin

      進出[i]:=-多空*3; 多空:=-多空;

    end else if  盈虧[i]>=控利 then begin

      進出[i]:=多空*2; 多空:=0;

    end;

  end;

end;
[進出] 這變數值代表意義如下:
1.多單進場, 2.多控利出, 3.空轉多
-1.空單進場,-2.空控利出,-3.多轉空

//關鍵字:交易系統範例

向版主報告此篇 | 查IP位址
Old Post 2009-11-04 11:46
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
感謝版主大大!!

不好意思!!看不懂程式,所以就照樣KEY入,但.電腦只會判別0,1,-1

所以小弟最後加上下列式子,但............都沒資料顯示???

FLAG:=if(進出=1,1,FLAG);
FLAG:=if(進出=2,0,FLAG);
FLAG:=if(進出=3,-1,FLAG);

FLAG:=if(進出=-1,-1,FLAG);
FLAG:=if(進出=-2,0,FLAG);
FLAG:=if(進出=-3,1,FLAG);


[進出] 這變數值代表意義如下:
1.多單進場, 2.多控利出, 3.空轉多
-1.空單進場,-2.空控利出,-3.多轉空

向版主報告此篇 | 查IP位址
Old Post 2009-11-04 20:02
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211
回覆: 感謝版主大大!!

引用:
最初由 trtc516 發表
不好意思!!看不懂程式,所以就照樣KEY入,但.電腦只會判別0,1,-1

所以小弟最後加上下列式子,但............都沒資料顯示???

FLAG:=if(進出=1,1,FLAG);
FLAG:=if(進出=2,0,FLAG);
FLAG:=if(進出=3,-1,FLAG);

FLAG:=if(進出=-1,-1,FLAG);
FLAG:=if(進出=-2,0,FLAG);
FLAG:=if(進出=-3,1,FLAG);


[進出] 這變數值代表意義如下:
1.多單進場, 2.多控利出, 3.空轉多
-1.空單進場,-2.空控利出,-3.多轉空


這三行是給您的說明不是公式, 不需加入
[進出] 這變數值代表意義如下:
1.多單進場, 2.多控利出, 3.空轉多
-1.空單進場,-2.空控利出,-3.多轉空


另外

FLAG:=if(進出=1,1,FLAG);
FLAG:=if(進出=2,0,FLAG);
FLAG:=if(進出=3,-1,FLAG);
FLAG:=if(進出=-1,-1,FLAG);
FLAG:=if(進出=-2,0,FLAG);
FLAG:=if(進出=-3,1,FLAG);

您自己用這六行程式, 依據 [進出] 這個變數, 設定 FLAG 變數結果為 0,1,-1
這是您自己創造的最終結果呀 <== 電腦只會判別0,1,-1

不懂您所謂的 " 沒資料顯示" 所指為何 ??

向版主報告此篇 | 查IP位址
Old Post 2009-11-05 10:02
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
感謝版主大大!!

感謝版主大大!!

因為我有輸出flag 來檢視結果,但都沒圖形顯示???

MA1:=MA(C,90);

多進:=C>MA1 or barpos=0;

空進:= C<MA1 or barpos=0;

進出:=C*0;

多空:=0; //1.多 -1.空 0.無

控利:=30; 進價:=0; CC:=C;

進向:=多進-空進;

盈虧:=c*0 ;

for i= 1 to datacount do begin

if 多空=0 then begin

多空:=進向[i]; 進出[i]:=多空;

if 多空<>0 then 進價:=CC[i];

end else if 多空<>0 then begin

盈虧[i]:=(CC[i]-進價)*多空;

if 多空<>進向[i] and 進向[i]<>0 then begin

進出[i]:=-多空*3; 多空:=-多空;

end else if 盈虧[i]>=控利 then begin

進出[i]:=多空*2; 多空:=0;

end;

end;

end;


Flag:=if(進出=1,1,Flag);
Flag:=if(進出=2,0,Flag);
Flag:=if(進出=3,-1,Flag);

Flag:=if(進出=-1,-1,Flag);
Flag:=if(進出=-2,0,Flag);
Flag:=if(進出=-3,1,Flag);

StickLine(Flag=1,-1,1,7,0),Colorred;
StickLine(Flag=-1,-1,1,7,0),Colorgreen;
StickLine(Flag=0,-1,1,7,0),Coloryellow;

向版主報告此篇 | 查IP位址
Old Post 2009-11-05 20:40
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

問題在於

Flag 變數您尚未定義, 就取用它

Flag:=if(進出=1,1,Flag);
Flag:=if(進出=2,0,Flag);
Flag:=if(進出=3,-1,Flag);
Flag:=if(進出=-1,-1,Flag);
Flag:=if(進出=-2,0,Flag);
Flag:=if(進出=-3,1,Flag);

改為下面這樣即可解決問題

Flag:=C*0;
Flag:=if(進出=1,1,Flag);
Flag:=if(進出=2,0,Flag);
Flag:=if(進出=3,-1,Flag);
Flag:=if(進出=-1,-1,Flag);
Flag:=if(進出=-2,0,Flag);
Flag:=if(進出=-3,1,Flag);

向版主報告此篇 | 查IP位址
Old Post 2009-11-06 09:06
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

原寫的有錯(漏掉一部份), 更正如下:

原碼:


多進:=A>B or barpos=0;

空進:=A<B or barpos=0;

進出:C*0;

多空:=0; //1.多 -1.空 0.無

控利:=50; 進價:=0; CC:=C;

進向:=多進-空進;

盈虧:c*0 linethick;

for i= 1 to datacount do begin

  if 多空=0 then begin

    多空:=進向[i]; 進出[i]:=多空;

    if 多空<>0 then 進價:=CC[i];

  end else if 多空<>0 then begin

    盈虧[i]:=(CC[i]-進價)*多空;

    if 多空<>進向[i] and 進向[i]<>0 then begin

      進出[i]:=-多空*3; 多空:=-多空; 進價:=CC[i];

    end else if  盈虧[i]>=控利 then begin

      進出[i]:=多空*2; 多空:=0;

    end;

  end;

end;

向版主報告此篇 | 查IP位址
Old Post 2009-11-09 17:46
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
感謝版主大大.................

MA1:=MA(C,30);


多進:=C>MA1 or barpos=0;
空進:=C<MA1 or barpos=0;
進出:C*0;
多空:=0; //1.多 -1.空 0.無
控利:=50; 進價:=0; CC:=C;
進向:=多進-空進;
盈虧:c*0 linethick;
for i= 1 to datacount do begin
if 多空=0 then begin
多空:=進向[i]; 進出[i]:=多空;
if 多空<>0 then 進價:=CC[i];
end else if 多空<>0 then begin
盈虧[i]:=(CC[i]-進價)*多空;
if 多空<>進向[i] and 進向[i]<>0 then begin
進出[i]:=-多空*3; 多空:=-多空; 進價:=CC[i];
end else if 盈虧[i]>=控利 then begin
進出[i]:=多空*2; 多空:=0;
end;
end;
end;

Flag:=c*0;
Flag:=if(進出=1,1,Flag);
Flag:=if(進出=2,0,Flag);
Flag:=if(進出=3,-1,Flag);

Flag:=if(進出=-1,-1,Flag);
Flag:=if(進出=-2,0,Flag);
Flag:=if(進出=-3,1,Flag);

StickLine(Flag=1,-2,2,7,0),Colorred;
StickLine(Flag=-1,-2,2,7,0),Colorgreen;
StickLine(Flag=0,-2,2,7,0),Coloryellow;

最後由 trtc516 在 2009-11-10 01:16 編輯 向版主報告此篇 | 查IP位址
Old Post 2009-11-10 00:38
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
感謝版主大大!!

感謝版主大大!!

小弟不知問題出在哪?????????

trtc516 附帶上了此圖片:

最後由 trtc516 在 2009-11-10 01:21 編輯 向版主報告此篇 | 查IP位址
Old Post 2009-11-10 01:17
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211
回覆: 感謝版主大大!!

引用:
最初由 trtc516 發表
感謝版主大大!!

小弟不知問題出在哪?????????


看畫面不懂您說的 "問題出在哪?"
請詳述問題, 謝謝!

向版主報告此篇 | 查IP位址
Old Post 2009-11-10 09:01
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
trtc516
中級會員

註冊日期: Oct 2005
來　　自: 台北市
文章數量: 82
不好意思!麻煩版主大大..................................

不好意思!麻煩版主大大..................................

原由:
假設flag=1------->買1口
flag=0,-------->平倉
flag=-1--------->,空1口
flag=0,---------->平倉

假設 C>MA1------> flag=1(買1口)
50點停利----------->flag=0(停利平倉),直到C<MA1才再flag=-1(空1 口)


若未到50點跌下來,造成C<MA1------>flag=-1(反空1 口)
50點停利----------->flag=0(停利平倉)

若未到50點反漲上去,造成C>MA1------>flag=1(反買1 口)


因為我有輸出flag 來檢視結果,但結果如上圖顯示,都不對,小弟不知錯在哪裡???
Flag:=if(進出=1,1,Flag);
Flag:=if(進出=2,0,Flag);
Flag:=if(進出=3,-1,Flag);

Flag:=if(進出=-1,-1,Flag);
Flag:=if(進出=-2,0,Flag);
Flag:=if(進出=-3,1,Flag);

StickLine(Flag=1,-1,1,7,0),Colorred;
StickLine(Flag=-1,-1,1,7,0),Colorgreen;
StickLine(Flag=0,-1,1,7,0),Coloryellow;

向版主報告此篇 | 查IP位址
Old Post 2009-11-11 00:22
trtc516 現在離線 點選這裡查看 trtc516 的個人資料 點選這裡給 trtc516 傳送一條短訊 查找更多關於 trtc516 的文章 增加 trtc516 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18211

[進出] 這變數值代表意義如下:
1.多單進場, 2.多控利出, 3.空轉多
-1.空單進場,-2.空控利出,-3.多轉空

您設反了
Flag:=if(進出=3,-1,Flag);
Flag:=if(進出=-3,1,Flag);

要改為
Flag:=if(進出=3,1,Flag);
Flag:=if(進出=-3,-1,Flag);

向版主報告此篇 | 查IP位址
Old Post 2009-11-12 18:32
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
hwyhon
資深會員

註冊日期: Sep 2004
來　　自: 台中
文章數量: 332

Flag:進向;
//不就是您要的這六行嗎

__________________

就是發蓊梨(ㄛㄥˇ ㄌㄞˊ) 程式交易網站
[教學]指標公式及程式交易系統撰寫 [代工]

學會指標策略程式化的撰寫,將可讓你不再盲目投下辛苦賺來的血汗錢
要知道交易的策略或交易的模式長期執行下確實可獲利
交易才有意義的.否則寧可不交易


向版主報告此篇 | 查IP位址
Old Post 2010-01-01 18:12
hwyhon 現在離線 點選這裡查看 hwyhon 的個人資料 點選這裡給 hwyhon 傳送一條短訊 查找更多關於 hwyhon 的文章 增加 hwyhon 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為17:39 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們