  
等级: 管理员
- 注册:
- 2021-5-18
- 曾用名:
|
//工作线常规买入金额
PRICE := 150000;
//工作线首次买入金额
PRICE_SC := 300000;
// 常规最大资金使用额
max_val := 10000 * 15;
// 首次最大资金使用额
max_val_sc := 10000 * 30;
ZT := C / REF( C , 1) > 1.093 AND C = H ;
c_tot_val := TAVGENTERPRICE * TBUYHOLDINGEX('', '', 2);
buy_limit := CEILING((max_val - c_tot_val) / DYNAINFO(34) / 100) * 100;
buy_limit_sc := CEILING((max_val_sc - c_tot_val) / DYNAINFO(34) / 100) * 100;
JCTJ:= DYNAINFO(7) > 1 AND BARSLAST( ZT ) >= 1 AND BARSLAST( ZT ) <= 10 AND REF(V , BARSLAST( ZT )) > REF(V , BARSLAST( ZT )+1) * 1.9
AND REF(C ,BARSLAST( ZT )) > REF(EMA(C , 25),BARSLAST( ZT )) AND REF(C ,BARSLAST( ZT )) > REF(EMA(C , 14),BARSLAST( ZT )) AND
O >= REF(C , 1) * 0.95 AND REF(C , 1)> REF(EMA(C , 14),1) AND DYNAINFO(34) <= EMA(C , 14) AND DYNAINFO(7) >= REF(C , BARSLAST( ZT )+1) ;
IF JCTJ AND COUNT(LOW <= EMA(C , 14),BARSLAST( ZT )) = 1
THEN BEGIN
volume_SC := CEILING(PRICE_SC / DYNAINFO(34) / 100) * 100;
IF volume_SC > buy_limit_sc
THEN BEGIN
volume_SC = buy_limit_sc;
END
TBUY(volume_SC > 0, volume_SC, LMT, DYNAINFO(34));
EXIT;
END
IF JCTJ AND REF(EMA(C , 14) , 1) > REF(EMA(C , 25) , 1) AND COUNT(LOW <= EMA(C , 14),BARSLAST( ZT )) > 1
THEN BEGIN
volume := CEILING(PRICE / DYNAINFO(34) / 100) * 100;
IF volume > buy_limit
THEN BEGIN
volume = buy_limit;
END
TBUY(volume > 0, volume, LMT, DYNAINFO(34));
EXIT;
END
|
|