老師麻煩幫把tbquant改成文華
作者：文華財經 來源：cxh99.com 發布時間：2023年01月09日
-
咨詢內容：
?
Params??
//此處添加參數
Numeric XVol(1000);//有效成交量
Numeric losebalance(2);//連續失衡次數(計算堆積)
Numeric N(1.5);//失衡比率
Numeric X(10);//微單判斷比例
Numeric Lots(1);//手數
Numeric PL(100);//止盈跳
Numeric SL(100);//止損跳
Numeric NT(1);//夜盤交易時間參數1是默認21-23時，參數2是21-02.29停止交易；
Numeric TICKN(120);//默認120個TICK更新一次，即1分鐘；Vars
//此處添加變量
Numeric avg;
Global Integer BarCountstar(0);
Global Numeric DVol_Ask(0);
Global Numeric DVol_Bid(0);
Global Numeric DVol_Delta(0);
Global Numeric SumVol(0);
Numeric Askprice;
Numeric Bidprice;
Numeric A_Vol;?
Numeric B_Vol;
Numeric AH_price;
Global Numeric Up_Aprice;
Numeric BL_price;
Global Numeric Dn_Bprice;
Bool Demand;
Bool Supply;
Bool Max_cond;
Bool Min_cond;
Numeric SSprice;
Global Numeric SS_vol;
Numeric j;
Numeric i;
Global Numeric count_J;
Global Numeric count_K;
Numeric i_Num;
Numeric up_Vol;
Numeric dn_Vol;
Numeric D_i(0);
Numeric S_i(0);
Global Integer KG;
Global Integer Bar_Red_Green(0);
Global Integer PG;
Global Integer PN;
Global Position myPos;
Global Integer CloseClear(0);
Global Integer PGG;
Global Integer PNN;
Global Numeric W_maxprice;
Global Numeric M_minprice;
Global Numeric ShortEntryprice(0);
Global Numeric LongEntryprice(0);
Global Numeric Min_price;
Global Numeric Max_price;
Bool PK_cond1;
Bool PK_cond2;
Bool PD_cond1;
Bool PD_cond2;
Global Integer runCoreModule(0);
//poc
Integer poc_SumVol;
Global Numeric poc_Vol;
Global Numeric poc_Ask;
Global Numeric poc_Bid;
Global Numeric Max_pocVol;
Global Numeric poc_price;
//數據錄入
Global Array<Numeric> Alastprice;
Global Array<Numeric> Blastprice;
Global Array<Numeric> arraskvol;
Global Array<Numeric> arrbidvol;
Global Array<Numeric> Avol;
Global Array<Numeric> Bvol;
Global Array<Numeric> Aprice;
Global Array<Numeric> Bprice;
Global Array<Numeric> A_lastP;
Global Array<Numeric> B_lastP;
Global Numeric tempprice;
Global Numeric tickaskP;
Global Numeric tickbidP;
Global Numeric tickVoL;
Global Integer i_N(0);
Numeric i_Max;
Numeric lx;
Numeric sx;
Global Numeric sumA(0);
Global Numeric sumB(0);
//Tick
Tick tickdata;
Tick tickdataref;
Global Numeric D_close;
Global Numeric D_open;
Global Numeric D_high;
Global Numeric D_Low;
Defs //插入自定義公式(自定義模塊)
Integer LogFile(String str)
{
FileAppend("D:\\orderflow_日志\\"+Symbol+"日志.tbf","["+Text(SystemDateTime())+"]"+ str);
Return 0;
}?
Integer TradeLogFile(String str)
{
FileAppend("D:\\orderflow_日志\\"+Symbol+"交易日志.tbf","["+Text(SystemDateTime())+"]"+ str);
Return 0;
}?
//數據錄入
Integer loadData(ArrayRef<Integer> indexs)
{
GetTick(tickdata,0);
GetTick(tickdataref,1);
tempprice=tickdata.last;
tickaskP=tickdataref.bidask1.askP;
tickbidP=tickdataref.bidask1.bidP;
tickVoL=tickdata.volume;
Commentary("tempprice"+Text(tempprice));
Commentary("tickaskP"+Text(tickaskP));
Commentary("tickbidP"+Text(tickbidP));
i_N=i_N+1;
if(tempprice==tickaskP)
{
Alastprice[i_N]=tempprice;
arraskvol[i_N]=tickVoL;
DVol_Ask=DVol_Ask+arraskvol[i_N];
}
if(tempprice==tickbidP)
{
Blastprice[i_N]=tempprice;
arrbidvol[i_N]=tickVoL;
DVol_Bid=DVol_Bid+arrbidvol[i_N];
}?
if(tempprice==tickaskP)
{
for i=1 to i_N-1
{
if(tickaskP==Alastprice[i] and tempprice==Alastprice[i] and Alastprice[i]<>InvalidNumeric and Alastprice[i]>0)
{
SS_vol=arraskvol[i]+SS_vol;
//Print("A_SS_vol"+text(SS_vol));
//Print("tickVoL"+text(tickVoL));
}
}
sumA=sumA+1;
Aprice[sumA]=tempprice;
Avol[Aprice[sumA]]=SS_vol;
SS_vol=0;
//Print("sumA:= "+Text(sumA)+"Aprice"+Text(Aprice[sumA])+" Avol:= "+ text(Avol[Aprice[sumA]]));
}else if(tempprice==tickbidP)
{
for i=1 to i_N-1
{
if(tickbidP==Blastprice[i] and tempprice==Blastprice[i] and Blastprice[i]<>InvalidNumeric and Blastprice[i]>0)
{
SS_vol=arrbidvol[i]+SS_vol;
//Print("B_SS_vol"+text(SS_vol));
//Print("tickVoL"+text(tickVoL));
}
}
sumB=sumB+1;
Bprice[sumB]=tempprice;
Bvol[Bprice[sumB]]=SS_vol;
SS_vol=0;
//Print("sumB:= "+Text(sumB)+"Bprice"+Text(Bprice[sumB])+" Bvol:= "+text(Bvol[Bprice[sumB]]));
}?Events
-
文華技術人員：
?您是實盤用戶，可以聯系您的服務經理進行處理。
菜單-》幫助-》登錄文文通VIP服務軟件。
打印本文
關閉窗口