커뮤니티
부탁드려요.
2010-03-30 22:55:57
748
글번호 29040
대신증권 CT로 작성된 2가지 번역 부탁드려요.
1. 지표식
Var1 = mov(close, MovLen, s)
Var2 = 0
Var3 = 0
For i = 0 To TIILen - 1
Var2 = Var2 + abs(close(i) - Var1)
Var3 = Var3 + close(i)
Next
Var4 = Var3 - TIILen * Var1
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4
Else
Var5 = (Var2 + Var4) / 2
End If
Var6 = Var5 / Var2 * 100
Call ploti1("TII", Var6)
Call ploti2("ELPoint", ELPoint)
Call ploti3("ESPoint", ESPoint)
2. 시스템식
Var1 = mov(close, MovLen, s)
Var2 = 0
Var3 = 0
For i = 0 To TIILen - 1
Var2 = Var2 + abs(close(i) - Var1)
Var3 = Var3 + close(i)
Next
Var4 = Var3 - TIILen * Var1
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4
Else
Var5 = (Var2 + Var4) / 2
End If
Var6 = Var5 / Var2 * 100
If crossup(Var6, ELPoint) Then
Call buy("TII매수", Atmarket)
End If
If position = 1 Then
If crossdn(Var6, ELLimit) Then
Call exitlong("매수청산", Atmarket)
End If
End If
If crossdn(Var6, ESPoint) Then
Call sell("TII매도", Atmarket)
End If
If position = -1 Then
If crossup(Var6, ESLimit) Then
Call exitshort("매도청산", Atmarket)
End If
End If
답변 1
예스스탁 예스스탁 답변
2010-03-31 10:39:42
안녕하세요
예스스탁입니다.
설명이 없는 외부변수는 모두 1로 기초값을 정했습니다.
1.
input : movlen(1),TIILen(1),ELPoint(1),ESPoint(1);
var : ii(0);
Var1 = ma(close, MovLen);
Var2 = 0;
Var3 = 0;
For ii = 0 To TIILen - 1{
Var2 = Var2 + abs(close[ii] - Var1);
Var3 = Var3 + close[ii];
}
Var4 = Var3 - TIILen * Var1;
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4;
Else
Var5 = (Var2 + Var4) / 2;
Var6 = Var5 / Var2 * 100;
plot1(Var6,"TII");
plot2(ELPoint,"ELPoint");
plot3(ESPoint,"ESPoint");
2.
input : movlen(1),TIILen(1),ELPoint(0),ELLimit(1),ESPoint(1),ESLimit(0);
var : ii(0);
Var1 = ma(close, MovLen);
Var2 = 0;
Var3 = 0;
For ii = 0 To TIILen - 1{
Var2 = Var2 + abs(close[ii] - Var1);
Var3 = Var3 + close[ii];
}
Var4 = Var3 - TIILen * Var1;
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4;
Else
Var5 = (Var2 + Var4) / 2;
Var6 = Var5 / Var2 * 100;
If crossup(Var6, ELPoint) Then
buy("TII매수", Atmarket);
If MarketPosition == 1 Then{
If crossdown(Var6, ELLimit) Then
exitlong("매수청산", Atmarket);
}
If CrossDown(Var6, ESPoint) Then
sell("TII매도", Atmarket);
If MarketPosition == -1 Then{
If crossup(Var6, ESLimit) Then
exitshort("매도청산", Atmarket);
}
즐거운 하루되세요
> 무료한나날 님이 쓴 글입니다.
> 제목 : 부탁드려요.
> 대신증권 CT로 작성된 2가지 번역 부탁드려요.
1. 지표식
Var1 = mov(close, MovLen, s)
Var2 = 0
Var3 = 0
For i = 0 To TIILen - 1
Var2 = Var2 + abs(close(i) - Var1)
Var3 = Var3 + close(i)
Next
Var4 = Var3 - TIILen * Var1
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4
Else
Var5 = (Var2 + Var4) / 2
End If
Var6 = Var5 / Var2 * 100
Call ploti1("TII", Var6)
Call ploti2("ELPoint", ELPoint)
Call ploti3("ESPoint", ESPoint)
2. 시스템식
Var1 = mov(close, MovLen, s)
Var2 = 0
Var3 = 0
For i = 0 To TIILen - 1
Var2 = Var2 + abs(close(i) - Var1)
Var3 = Var3 + close(i)
Next
Var4 = Var3 - TIILen * Var1
If Var4 > 0 Then
Var5 = (Var2 - Var4) / 2 + Var4
Else
Var5 = (Var2 + Var4) / 2
End If
Var6 = Var5 / Var2 * 100
If crossup(Var6, ELPoint) Then
Call buy("TII매수", Atmarket)
End If
If position = 1 Then
If crossdn(Var6, ELLimit) Then
Call exitlong("매수청산", Atmarket)
End If
End If
If crossdn(Var6, ESPoint) Then
Call sell("TII매도", Atmarket)
End If
If position = -1 Then
If crossup(Var6, ESLimit) Then
Call exitshort("매도청산", Atmarket)
End If
End If
다음글
이전글