相關(guān)標(biāo)簽:
?
INPUT:統(tǒng)計(jì)(1,0,1,1);
IF 統(tǒng)計(jì)=1 THEN BEGIN
倉(cāng):ROUNDS(AVGENTERPRICE*HOLDING,0),NOAXIS,LINETHICK0,COLORGRAY;
浮:ROUNDS(OPENPROFIT,0),NOAXIS,LINETHICK0,COLORGRAY;
浮率:ROUNDS(OPENPROFIT/(保*ABS(HOLDING))*100,1),NOAXIS,LINETHICK0,COLORGRAY;
//策略:ROUNDS(ASSET,0),NOAXIS,LINETHICK2,COLORGREEN;
利:ROUNDS(NETPROFIT,0),NOAXIS,LINETHICK2,COLORYELLOW;
利率:100*ROUNDS( NETPROFIT/(保*開(kāi)倉(cāng)手?jǐn)?shù)),2),NOAXIS,LINETHICK1,COLORGRAY;
本:=ROUNDS( ( (GEGCHARGE(\'\',"$OPEN#MIN1",開(kāi)倉(cāng)手?jǐn)?shù),0)+GEGCHARGE(\'\',"$OPEN#MIN1",開(kāi)倉(cāng)手?jǐn)?shù),1) )*TOTALTRADE),0),NOAXIS,LINETHICK0,COLORGRAY;
本比:=ROUNDS(利/本,0),NOAXIS,LINETHICK0,COLORGRAY;
勝:=ROUNDS(PERCENTWIN*100,0),NOAXIS,LINETHICK0,COLORGRAY;
比:=ROUNDS(PAYOFFRATE,0),NOAXIS,LINETHICK0,COLORGRAY;
次:=TOTALDAYTRADE,NOAXIS,LINETHICK0,COLORGRAY;
總:=TOTALTRADE,NOAXIS,LINETHICK0,COLORGRAY;
KLINE("$OPEN#MIN1","$HIGH##MIN1","$LOW##MIN1","$CLOSE##MIN1",0);
DRAWTEXTEX( 1,0,20,20,\'平均日利\'+NUMTOSTR(利/20,1)+\'元 日利率\'+NUMTOSTR(利率/保*100,1)+\'分\' ),COLORGREEN;
DRAWTEXTEX( 1,0,20,40,\'總成本\'+NUMTOSTR(本,1)+\'元 本利比\'+NUMTOSTR(本比,1) ),COLORGREEN;
DRAWTEXTEX( 1,0,20,60,\'勝率\'+NUMTOSTR(勝,1)+\'% 盈虧比\'+NUMTOSTR(比,1) ),COLORGREEN;
DRAWTEXTEX( 1,0,20,80,\'今日內(nèi)交易\'+NUMTOSTR(次,0)+\'次 總交易次數(shù)\'+NUMTOSTR(總,0) )+"次",COLORGREEN;
END
{打印資料到文件,移倉(cāng)換月異常處理記錄}
IF 日盤(pán)收盤(pán)=1 OR 夜盤(pán)收盤(pán)=1 THEN BEGIN
WRITEINIFILESTRING(\'C:\\LOG\\7T0RY.TXT\',
\' 開(kāi)始日期 \' + NUMTOSTR(開(kāi)始日期,0) + \' 代碼 \' + STKLABEL + \' 名稱(chēng) \'+ STKNAME ,
\' 日期 \' + NUMTOSTR(DATE,0) + \' 時(shí)間 \' + NUMTOSTR(TIME,0) ,
\' 策略 7T0RY-5 \' + STKNAME + \' \' + STKLABEL + \' 主力合約 \' + DYNAINFO(210) + \' 本月 \' + NUMTOSTR(本月,0) + \'月\' + \' 主月 \' + NUMTOSTR(主月,0) + \'月\'
) ,LINETHICK0;
END
{}
?
{別忘了將本網(wǎng)告訴您身邊的朋友，向朋友傳達(dá)有用資料，也是一種人情，你朋友會(huì)感謝你的。}
?
打印本文
關(guān)閉窗口