相關標簽:
?
INPUT:統計(1,0,1,1);
IF 統計=1 THEN BEGIN
倉: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/(保*開倉手數),2),NOAXIS,LINETHICK1,COLORGRAY;
本:=ROUNDS( ( (GEGCHARGE(\'\',"$OPEN#MIN1",開倉手數,0)+GEGCHARGE(\'\',"$OPEN#MIN1",開倉手數,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,\'今日內交易\'+NUMTOSTR(次,0)+\'次 總交易次數\'+NUMTOSTR(總,0) )+"次",COLORGREEN;
END
{打印資料到文件,移倉換月異常處理記錄}
IF 日盤收盤=1 OR 夜盤收盤=1 THEN BEGIN
WRITEINIFILESTRING(\'C:\\LOG\\7T0RY.TXT\',
\' 開始日期 \' + NUMTOSTR(開始日期,0) + \' 代碼 \' + STKLABEL + \' 名稱 \'+ STKNAME ,
\' 日期 \' + NUMTOSTR(DATE,0) + \' 時間 \' + NUMTOSTR(TIME,0) ,
\' 策略 7T0RY-5 \' + STKNAME + \' \' + STKLABEL + \' 主力合約 \' + DYNAINFO(210) + \' 本月 \' + NUMTOSTR(本月,0) + \'月\' + \' 主月 \' + NUMTOSTR(主月,0) + \'月\'
) ,LINETHICK0;
END
{}
?
{別忘了將本網告訴您身邊的朋友，向朋友傳達有用資料，也是一種人情，你朋友會感謝你的。}
?
打印本文
關閉窗口