커뮤니티
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번 메일과 관련하여 다시 한번 검토 하여주셨으면 고맙겠읍니다
감사합니다