奇狐&下單大師
奇狐訊號轉“下單大師”的〝自動下單機〞。
歷經一個多月嚐試,已能全自動化下單。
這中間除感謝 justdoit829與他的好友外, 最要感謝的是我們奇狐總編輯cgjj的接受個人不厭其煩請益請教的極有耐心一一回覆所請益問題。
以下是使用上以完全無問題的「奇狐」轉“下單大師”中的〝自動下單機〞執行文件(個人所使用經驗):
DRAWGBK(1, COLORRGB(20,80,50),COLORRGB(30,80,100),0);//此顯示背景畫面可有可無,視需求而定
VERTLINE(REF(DATE,1)<>DATE) LINEDOT,COLORMAGENTA;//將每日日期分隔參數
//K線圖示棒放大
StickLine( IsUp , HIGH , LOW , 0.1 , 0 ) , Color5050FF ; StickLine( IsUp , CLOSE , OPEN , 11 , 1 ) , Color5050FF ; StickLine( IsDown , HIGH , LOW , 0.1 , 0 ) , ColorCyan ;
StickLine( IsDown , CLOSE , OPEN , 11 , 0 ) , ColorCyan ; StickLine( IsEqual and C>REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , Color5050FF ;
StickLine( IsEqual and C>REF( C , 1 ) , CLOSE , OPEN , 11 , 0 ) , Color5050FF ; StickLine( IsEqual and C<=REF( C , 1 ) , HIGH , LOW , 0.1 , 0 ) , ColorCyan ; StickLine( IsEqual and C<=REF( C , 1 ) , CLOSE , OPEN , 11 , 0 ) , ColorCyan ;
//定義策略&總倉位
多單下單圖示:="ORDER MASTER-I.M11";//需另外建立可聯結進來"多方訊號",或直接在此行編輯「多方訊號」給予自動下單參數
空單下單圖示:="ORDER MASTER-I.M22";//需另外建立可聯結進來"空方訊號",或直接在此行編輯「空方訊號」給予自動下單參數
DRAWICON(多單下單圖示,(L*0.9998),'$SA_DA_4B.gif'),ALIGN1;//展示連接另一檔案所運算值顯示"多方訊號"可目視圖示檢驗自動下單機是否與訊號同步
DRAWICON(空單下單圖示,(H*1.0002),'$SA_DA_4S.gif'),ALIGN2;//展示連接另一檔案所運算值顯示"空方訊號"可目視圖示檢驗自動下單機是否與訊號同步
//以下四行參數請固定參數不更動,感謝奇狐總編輯Cgjj接受個人不厭其煩與之請益多次下所給予修改優化參數予自動下單機讀取所應用
多單下單:=ref(多單下單圖示,1) or barpos=0;
空單下單:=ref(空單下單圖示,1) or barpos=0;
總倉位S:=多單下單-空單下單;
期指總倉位: ref(總倉位S, barslast(總倉位S<>0)),LINETHICK0;
//下列所有參數請固定, justdoit829以編輯的相當好,給予“下單大師”的〝自動下單機〞讀取奇狐訊號的非常完整參數值
//訊號決定商品-台指期格式
// SymName,SymID,Month,NewClose#DateTime,Current,Price
// 名稱 代號 月份 A:自動 N:新倉 C:平倉
//SAMPLE:台指期,TXF,2010/05,A#2010/05/02 10:35:04,3,7218
//訊號決定商品-台指期
VAR_TMP:=NUMTOSTR(MOD(OPTIONLASTDAY(''),1000000),0);
STR_CONTRACTYD:='20'+STRMID(VAR_TMP,1,2)+'/'+STRMID(VAR_TMP,3,2);
NOW_TY:='台當月,FITX1,' +STR_CONTRACTYD+',A#';
//NOW_TY:='小台當,FIMTX1,'+STR_CONTRACTYD+',A#';//如只使用"下單大師"的〝自動下單機〞為初期測試操作在小台指上請將上行屬大台指關閉啟動此行參數
//測試時可設空字串表示不作日期時間比對
//NOW_DT:='';
NOW_DT:= NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0) + ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00';
NOW_PO:= NUMTOSTR(期指總倉位,0);
NOW_TP:= NUMTOSTR(C,0);
//檢查用:在主圖顯示輸出字串,可取消
// drawtext(islastbar,0,NOW_TY+NOW_DT+','+NOW_PO+','+NOW_TP),align4,pxdn50,COLORYELLOW;//此行程式不關閉打開,檢視訊號用,但只剩下顯示訊號,K線壓縮無法顯示,視需求而定
<%
Dim OMCOMAPI, rtn
NOW_TY = FFL.VarData("NOW_TY")
NOW_DT = FFL.VarData("NOW_DT")
NOW_PO = FFL.VarData("NOW_PO")
NOW_TP = FFL.VarData("NOW_TP")
Set OMCOMAPI = CreateObject("OMSignAPI.OMCOMAPI")
'提醒:下單大師內需先設定->策略管理->識別碼->TTX
rtn = OMCOMAPI.GoOrder("TTX",NOW_TY,NOW_DT,NOW_PO,NOW_TP)
%>
__________________
「市場只有一個方向,但不是多頭或空頭,而是對的方向」
|