커뮤니티
밑에 3872 질문 답변 부탁드립니다. (내용무)
2005-08-29 15:32:31
993
글번호 8150
첨부한 식 대로 하여도 안되네요. 흑흑...
답변 1
예스스탁 예스스탁 답변
2005-08-30 16:05:58
안녕하세요
예스스탁입니다.
식을 다시 올려 드립니다.
불편을 드려서 죄송합니다.
1. 매수청산
Inputs: Acceleration(.02), FirstBarMultp(1.5);
Variables: AF(0), StopPrice(0), MP(0), HighValue(0),value1(0);
MP = MarketPosition();
If High > HighValue Then
HighValue = High;
value1 = TrueRange();
If MP == 1 Then Begin
If MP[1] <> 1 Then Begin
StopPrice = Low - MA(value1, 3) * FirstBarMultp;
AF = Acceleration;
HighValue = High;
End
Else Begin
StopPrice = StopPrice + AF * (HighValue - StopPrice);
If HighValue > HighValue[1] AND AF < 0.2 Then
AF = AF + MIN(Acceleration, 0.2 - AF);
End;
If StopPrice > Low Then
StopPrice = Low;
End;
If MP == 1 Then
ExitLong ("PT_EL", AtStop, StopPrice);
2.매도청산
Inputs: Acceleration(0.02), FirstBarMultp(3);
Variables: AF(0), StopPrice(0), MP(0), LowValue(0),value1(0);
MP = MarketPosition();
If Low < LowValue Then
LowValue = Low;
value1 = TrueRange();
If MP == -1 Then Begin
If MP[1] <> 1 Then Begin
StopPrice = High + MA(value1, 3) * FirstBarMultp;
AF = Acceleration;
LowValue = Low;
End
Else Begin
StopPrice = StopPrice + AF * (LowValue - StopPrice);
If LowValue < LowValue[1] AND AF < 0.2 Then
AF = AF + MIN(Acceleration, 0.2 - AF);
End;
If StopPrice < high Then
StopPrice = high;
End;
messagelog("%.f",stopprice);
If MP == -1 Then
ExitShort("PT_SX",atstop, StopPrice);
즐거운 하루되세요
> CJ_sangkeel 님이 쓴 글입니다.
> 제목 : 밑에 3872 질문 답변 부탁드립니다. (내용무)
> 첨부한 식 대로 하여도 안되네요. 흑흑...
다음글
이전글