Список проголосовавших за комментарий " вот код на купиэль<br/> <p>PORTFOLIO_EX(15)(треллинг)(MMM6); DESCRIPTION (15)(треллинг) (MMM6); CLIENTS_LIST ALL_CLIENTS; FIRMS_LIST ALL_FIRMS;</p><p>USE_CASE_SENSITIVE_CONSTANTS;</p><p>PROGRAM</p><p>ACCOUNT = "...." MARKET = «SPBFUT» TICKER = «MMM6»</p><p>NEW_GLOBAL(«TRANS_ID», 0)</p><p>STOP_FACTOR = 5 SPREAD_FACTOR =15</p><p>NEW_GLOBAL(«LAST_ORDER», 0)</p><p>IF LAST_ORDER == 0 BALANCE = GET_BALANCE(MARKET, TICKER)+0 IF BALANCE != 0 LAST_ORDER = NEW_STOP_ORDER(MARKET, TICKER, ACCOUNT, BALANCE)+0 END IF END IF</p><p>TOTAL = GET_NUMBER_OF(«STOP_ORDERS») FOR INDEX FROM 0 TO (TOTAL-1) RINDEX = TOTAL — INDEX ORDER = GET_ITEM(«STOP_ORDERS», RINDEX) IF (GET_VALUE(ORDER, «NUMBER»)+0) == LAST_ORDER STATUS = GET_VALUE(ORDER, «STATUS») IF STATUS == «ACTIVE» HAVE_CHANGE = 0 QUANTITY = GET_VALUE(ORDER, «QUANTITY»)+0 BALANCE = GET_BALANCE(MARKET, TICKER) IF QUANTITY !=ABS(BALANCE) HAVE_CHANGE =1 LOG(«Количество изменилось: » & BALANCE) ELSE PRICES = CREATE_MAP() PRICES = SET_STOPPRICE(PRICES, MARKET, TICKER, QUANTITY) SPRICE = GET_VALUE(PRICES, «STOPPRICE»)+0 OPRICE = GET_VALUE(ORDER, «CONDITION_PRICE»)+0 IF GET_VALUE(ORDER, «OPERATION») == «BUY» IF SPRICE < OPRICE LOG(«Цена стопа продажи уменьшилась: » & SPRICE) HAVE_CHANGE =1 END IF IF SPRICE > OPRICE LOG(«Цена стопа продажи увеличилась: » & SPRICE) END IF ELSE IF SPRICE < OPRICE LOG(«Цена стопа покупки уменьшилась: » & SPRICE) END IF IF SPRICE > OPRICE LOG(«Цена стопа покупки увеличилась: » & SPRICE) HAVE_CHANGE =1 END IF</p><p> END IF END IF IF HAVE_CHANGE == 1 KILL_STOP_ORDER(MARKET, TICKER, ACCOUNT, LAST_ORDER) END IF ELSE LAST_ORDER = 0 END IF END IF END FOR</p><p>FUNC KILL_STOP_ORDER(_MARKET, _TICKER, _ACCOUNT, _NUMBER) T = CREATE_MAP() TRANS_ID = TRANS_ID + 1 T = SET_VALUE(T, «TRANS_ID», TRANS_ID) T = SET_VALUE(T, «ACTION», «KILL_STOP_ORDER») T = SET_VALUE(T, «STOP_ORDER_KEY», _NUMBER) T = SET_VALUE(T, «CLASSCODE», _MARKET) T = SET_VALUE(T, «SECCODE», _TICKER) T = SET_VALUE(T, «ACCOUNT», ACCOUNT) R = SEND_TRANSACTION(30, T) RESULT = GET_VALUE(R, «RESULT»)+0 LOG(GET_VALUE(R, «DESCRIPTION»)) END FUNC</p><p>FUNC NEW_STOP_ORDER(_MARKET, _TICKER, _ACCOUNT, _SIZE) T = CREATE_MAP() TRANS_ID = TRANS_ID + 1 T = SET_VALUE(T, «TRANS_ID», TRANS_ID) T = SET_VALUE(T, «ACTION», «NEW_STOP_ORDER») T = SET_VALUE(T, «CLASSCODE», _MARKET) T = SET_VALUE(T, «SECCODE», _TICKER) T = SET_VALUE(T, «ACCOUNT», ACCOUNT) T = SET_STOPPRICE(T, _MARKET, _TICKER, _SIZE) IF BALANCE > 0 T = SET_VALUE(T, «OPERATION», «S») ELSE T = SET_VALUE(T, «OPERATION», «B») END IF T = SET_VALUE(T, «QUANTITY», ABS(_SIZE)) R = SEND_TRANSACTION(30, T) LOG(GET_VALUE(R, «DESCRIPTION»)) RESULT = GET_VALUE(R, «ORDER_NUMBER») END FUNC</p><p>FUNC LOG(_MSG) ROW = CREATE_MAP() DT = GET_DATETIME() ROW = SET_VALUE(ROW, «DT», GET_VALUE(DT, «DATETIME»)) ROW = SET_VALUE(ROW, «MSG», _MSG) ADD_ITEM(1, ROW) END FUNC</p><p>FUNC GET_BALANCE(_MARKET, _TICKER) RESULT = 0 _TOTAL = GET_NUMBER_OF(«FUTURES_CLIENT_HOLDINGS») FOR _INDEX FROM 1 TO _TOTAL DEPO = GET_ITEM(«FUTURES_CLIENT_HOLDINGS», _INDEX) IF GET_VALUE(DEPO, «SECCODE») == TICKER IF GET_VALUE(DEPO, «TRDACCID») == ACCOUNT RESULT = GET_VALUE(DEPO, «TOTAL_NET»)+0 BREAK END IF END IF END FOR END FUNC</p><p>FUNC SET_STOPPRICE(_MAP, _MARKET, _TICKER, _SIZE) _PRICE = GET_PARAM(_MARKET, _TICKER, «LAST»)+0 _STEP = GET_VALUE(GET_PARAM_EX(_MARKET, _TICKER, «SEC_PRICE_STEP»), «PARAM_VALUE»)+0 IF BALANCE > 0 _STOPPRICE = _PRICE — (STOP_FACTOR)' * _STEP) _PRICE = _STOPPRICE — (SPREAD_FACTOR)' * _STEP) ELSE _STOPPRICE = _PRICE + (STOP_FACTOR)' * _STEP) _PRICE = _STOPPRICE + (SPREAD_FACTOR)' * _STEP) END IF _R = CREATE_MAP(_MAP) _R = SET_VALUE(_R, «PRICE», _PRICE) _R = SET_VALUE(_R, «STOPPRICE», _STOPPRICE) RESULT = _R END FUNC</p><p>FUNC ROUND_PRICE(_PRICE, _STEP) RESULT = APPLY_SCALE(_PRICE / _STEP, 0) * _STEP END FUNC</p><p>END_PROGRAM</p><p>PARAMETER DT; PARAMETER_TITLE Дата и Время; PARAMETER_DESCRIPTION Дата и Время; PARAMETER_TYPE STRING(30); END</p><p>PARAMETER MSG; PARAMETER_TITLE Сообщение; PARAMETER_DESCRIPTION Сообщение; PARAMETER_TYPE STRING(300); END</p><p>END_PORTFOLIO