커뮤니티

9642 메일관련

프로필 이미지
베드로
2009-02-10 12:49:12
920
글번호 20136
답변완료
안녕하세요. 9642번 메일과 관련하여 다시 한번 검토 하여주셨으면 고맙겠읍니다 감사합니다
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2009-02-10 15:30:51

안녕하세요 예스스탁입니다. Input : shortPeriod(12), longPeriod(26), Period(9); input : DayProfit(0.5); var : PL(0),Commission(0),Slippage(0),OpenPL(0),dayPL(0),count(0); Commission = C*(EntryCommission+ExitCommission)/100; Slippage = EntrySlippage+ExitSlippage; ## 당일손익(현재진입제외) PL = 0; count = 0; for var1 = 1 to 10{ if sdate == EntryDate(var1) Then{ count = count+1; PL = PL+PositionProfit(var1); } } ##당일손익(현재진입) if MarketPosition() == 1 Then OpenPL = ((C-EntryPrice)-Commission-Slippage)*CurrentContracts; Else if MarketPosition() == -1 Then OpenPL = ((EntryPrice-C)-Commission-Slippage)*CurrentContracts; Else OpenPL = 0; if MarketPosition() == 0 Then dayPL = PL; Else dayPL = PL+OpenPL; value1 = MACD(shortPeriod, longPeriod); value2 = ema(value1, Period); if count == 0 Then{ If CrossUP(value1, value2) Then { Buy(); } If CrossDown(value1, value2) Then { Sell(); } } if count >= 1 Then{ if dayPL > 0 Then{ If CrossUP(value1, value2) Then { ExitShort(); } If CrossDown(value1, value2) Then { ExitLong(); } } if dayPL < 0 Then { If CrossUP(value1, value2) Then { Buy(); } If CrossDown(value1, value2) Then { Sell(); } } } if dayPL > 0 and count >= 2 Then{ ExitShort(); ExitLong(); } 즐거운 하루되세요 > 베드로 님이 쓴 글입니다. > 제목 : 9642 메일관련 > 안녕하세요. 9642번 메일과 관련하여 다시 한번 검토 하여주셨으면 고맙겠읍니다 감사합니다