커뮤니티
지표식 작성간 로직문의
2015-06-24 09:24:01
139
글번호 87585
지표식 작성중에 문법로직에 대한 문의가 발생하여 문의드립니다.
원하는 지표는 다음과 같습니다.
1. 20일선 하향이탈 100건을 배열에 담는다.
2. 배열을 뒤져서 현재봉의 종가 또는 시가와 가장 근접한
봉의 위쪽, 봉의 아래쪽 값 두개를 찾아서 Plot으로 그려준다.
아래는 소스입니다.
Input: 일선1(5), 일선2(20);
Var: 종가변곡점2(0),
Cnt(0), Cnt1(0), Cnt2(0), 상위값(0), 하위값(0),
Array: 변곡발생[100](0), AA[100](0);
// 100개의 20일선 하향이탈을 기록한다.
If (CrossDown(C, 일선2)) Then
{
종가변곡점2 = (O + C) / 2;
변곡발생[0] = 종가변곡점2;
For Cnt = 1 To 100
{
변곡발생[Cnt] = 변곡발생[Cnt -1][1];
}
}
For Cnt1 = 0 To 99 {
AA[Cnt1] = Abs(C[1] - 변곡발생[Cnt1]);
MessageLog("인덱스: %f, 배열: %.2f", Cnt1, AA[Cnt1]);
}
하위값 = AA[0];
상위값 = AA[0];
For Cnt2 = 0 To 99 {
If (AA[Cnt2] < 하위값) Then {
하위값 = AA[Cnt2];
}
}
MessageLog("하위값: %.2f", 하위값);
//Plot3(상위값, "저항선", RED, DEF, 3);
Plot4(하위값, "지지선", BLUE, DEF, 3);
답변 1
예스스탁 예스스탁 답변
2015-06-24 14:07:25
안녕하세요
예스스탁입니다.
Input: 일선1(5), 일선2(20);
Var: 종가변곡점2(0),Cnt(0), Cnt1(0), Cnt2(0), 상위값(0), 하위값(0),HH(0),LL(0);
Array: 변곡발생[100](0), upv[100](0),dnv[100](0);
var1 = ma(c,일선2);
// 100개의 20일선 하향이탈을 기록한다.
If (CrossDown(C, var1)) Then
{
변곡발생[0] = (O + C) / 2;
For Cnt = 1 To 99
{
변곡발생[Cnt] = 변곡발생[Cnt -1][1];
}
}
for cnt = 0 to 99{
if 변곡발생[cnt] >= C Then
upv[cnt] = 변곡발생[cnt];
Else
upv[cnt] = 99999999;
if 변곡발생[cnt] <= C Then
dnv[cnt] = 변곡발생[cnt];
Else
dnv[cnt] = 0;
}
HH = 99999999;
LL = 0;
for cnt = 0 to 99{
if upv[cnt] < HH Then
HH = upv[cnt];
if dnv[cnt] > LL Then
LL = dnv[cnt];
}
plot1(HH);
plot2(LL);
즐거운 하루되세요
> 가락국수 님이 쓴 글입니다.
> 제목 : 지표식 작성간 로직문의
> 지표식 작성중에 문법로직에 대한 문의가 발생하여 문의드립니다.
원하는 지표는 다음과 같습니다.
1. 20일선 하향이탈 100건을 배열에 담는다.
2. 배열을 뒤져서 현재봉의 종가 또는 시가와 가장 근접한
봉의 위쪽, 봉의 아래쪽 값 두개를 찾아서 Plot으로 그려준다.
아래는 소스입니다.
Input: 일선1(5), 일선2(20);
Var: 종가변곡점2(0),
Cnt(0), Cnt1(0), Cnt2(0), 상위값(0), 하위값(0),
Array: 변곡발생[100](0), AA[100](0);
// 100개의 20일선 하향이탈을 기록한다.
If (CrossDown(C, 일선2)) Then
{
종가변곡점2 = (O + C) / 2;
변곡발생[0] = 종가변곡점2;
For Cnt = 1 To 100
{
변곡발생[Cnt] = 변곡발생[Cnt -1][1];
}
}
For Cnt1 = 0 To 99 {
AA[Cnt1] = Abs(C[1] - 변곡발생[Cnt1]);
MessageLog("인덱스: %f, 배열: %.2f", Cnt1, AA[Cnt1]);
}
하위값 = AA[0];
상위값 = AA[0];
For Cnt2 = 0 To 99 {
If (AA[Cnt2] < 하위값) Then {
하위값 = AA[Cnt2];
}
}
MessageLog("하위값: %.2f", 하위값);
//Plot3(상위값, "저항선", RED, DEF, 3);
Plot4(하위값, "지지선", BLUE, DEF, 3);
다음글
이전글