커뮤니티

함수변환요청(SK)

프로필 이미지
통큰베팅
2016-02-19 16:24:53
129
글번호 95575
답변완료
안녕하세요? 아래는 SK증권에서 사용했던 함수입니다. 예스랭귀지로 변환 부탁드립니다. 감사합니다. --------------------------------------------------------------------------------------- Input : MarketStart_Time( 9 ), MarketClose_Time( 11 ); Vars : Today_Profit( 0 ), MedianPrice_( 0 ), Highest_Value( 0 ), Lowest_Value( 0 ); value1 = OneTick * PriceScale; // Tick value value2 = IntPortion(time/10000); If value2 = MarketStart_Time And value2[1] <> MarketStart_Time Then Value3 = NetProfit[1]; Today_profit = NetProfit - Value3; condition1 = Today_profit <= value1 * -40; HighestLowest(H, L, 6, Highest_Value, v1, Lowest_Value, v2); MedianPrice_ = (Highest_Value + Lowest_Value)/2; Value4 = FracPortion(Time/10000) * 100; If condition1 = False And Fracportion(Value4/100) = 0.0 Then Begin If MedianPrice_ < NextBarOpen Then Buy("매수", Atmarket); If MedianPrice_ > NextBarOpen Then Sell("매도", Atmarket); End; SetStopProfittarget(value1 * 2); SetStopLoss(value1 * 20); SetStopEndofday(MarketClose_Time * 10000 - 1000);
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2016-02-19 18:16:56

안녕하세요 예스스탁입니다. 수식의 내용을 글로 올려주시기 바랍니다. 사용하지 않는 타사의 제품이라 해당식이 내용안에 어떤 값을 리턴하는지 모르는 함수가 있습니다. 즐거운 하루되세요 > 통큰베팅 님이 쓴 글입니다. > 제목 : 함수변환요청(SK) > 안녕하세요? 아래는 SK증권에서 사용했던 함수입니다. 예스랭귀지로 변환 부탁드립니다. 감사합니다. --------------------------------------------------------------------------------------- Input : MarketStart_Time( 9 ), MarketClose_Time( 11 ); Vars : Today_Profit( 0 ), MedianPrice_( 0 ), Highest_Value( 0 ), Lowest_Value( 0 ); value1 = OneTick * PriceScale; // Tick value value2 = IntPortion(time/10000); If value2 = MarketStart_Time And value2[1] <> MarketStart_Time Then Value3 = NetProfit[1]; Today_profit = NetProfit - Value3; condition1 = Today_profit <= value1 * -40; HighestLowest(H, L, 6, Highest_Value, v1, Lowest_Value, v2); MedianPrice_ = (Highest_Value + Lowest_Value)/2; Value4 = FracPortion(Time/10000) * 100; If condition1 = False And Fracportion(Value4/100) = 0.0 Then Begin If MedianPrice_ < NextBarOpen Then Buy("매수", Atmarket); If MedianPrice_ > NextBarOpen Then Sell("매도", Atmarket); End; SetStopProfittarget(value1 * 2); SetStopLoss(value1 * 20); SetStopEndofday(MarketClose_Time * 10000 - 1000);