커뮤니티
지표문의
2011-03-24 11:01:28
569
글번호 36858
1.아래는 게시판에있는 렌코차트입니다
두 가지만 질문할께요
첫째;지표를 시스템식으로 만들어 주세요
Plot1 이 Plot2 를 cross 할때 매수
Plot1 이 Plot2 를 dead 할때 매도
둘째;if 렌코[1] > 0 Then Plot1(렌코[0],"렌코");
If 렌코[1] > 0 Then Plot2(렌코[1],"렌코[1]");
이런 표현이 맞나요 틀림 고쳐서라도
렌코[1] > 0 Then 면 Plot1또 되고 Plot2도 되고...
input:단위호가(5);
var:j(0),벽돌크기(0),벽돌개수(0),방향(0),상승(100),하락(-100);
array:고[10](0),저[10](0),고Bar[10](0),저Bar[10](0),렌코[500](0);
#==========================================#
# 초기 처리
#==========================================#
If Index == 0 Then
{
벽돌크기 = PriceScale * 단위호가;
고[0] = C;
고Bar[0] = 0;
저[0] = C;
저Bar[0] = 0;
렌코[0] = C;
}
#==========================================#
# 렌코 계산
#==========================================#
If 방향 == 0 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
Else If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 하락 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
If 저[0] + 2*벽돌크기 <= C Then
{
벽돌개수 = Int((C-저[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[0] = 저[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 상승 Then
{
If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
If 고[0] - 2*벽돌크기 >= C Then
{
벽돌개수 = Int((고[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
저[0] = 고[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
}
If 고[2] > 0 Then 저항선 = (고[1]-고[2])/(고Bar[2]-고Bar[1])*고Bar[2]+고[2];
If 저[2] > 0 Then 지지선 = (저[1]-저[2])/(저Bar[2]-저Bar[1])*저Bar[2]+저[2];
If 렌코[1] > 0 Then Plot1(렌코[0],"렌코");
If 렌코[1] > 0 Then Plot2(렌코[1],"렌코[1]");
3.그럼 수고하세요
즐거운 하루 되세요.
답변 1
예스스탁 예스스탁 답변
2011-03-24 16:37:29
안녕하세요
예스스탁입니다.
1.
input:단위호가(5);
var:j(0),벽돌크기(0),벽돌개수(0),방향(0),상승(100),하락(-100),저항선(0),지지선(0);
array:고[10](0),저[10](0),고Bar[10](0),저Bar[10](0),렌코[500](0);
#==========================================#
# 초기 처리
#==========================================#
If Index == 0 Then
{
벽돌크기 = PriceScale * 단위호가;
고[0] = C;
고Bar[0] = 0;
저[0] = C;
저Bar[0] = 0;
렌코[0] = C;
}
#==========================================#
# 렌코 계산
#==========================================#
If 방향 == 0 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
Else If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 하락 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
If 저[0] + 2*벽돌크기 <= C Then
{
벽돌개수 = Int((C-저[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[0] = 저[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 상승 Then
{
If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
If 고[0] - 2*벽돌크기 >= C Then
{
벽돌개수 = Int((고[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
저[0] = 고[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
}
If 고[2] > 0 Then 저항선 = (고[1]-고[2])/(고Bar[2]-고Bar[1])*고Bar[2]+고[2];
If 저[2] > 0 Then 지지선 = (저[1]-저[2])/(저Bar[2]-저Bar[1])*저Bar[2]+저[2];
If 렌코[1] > 0 Then
var1 = 렌코[0];
If 렌코[1] > 0 Then
var2 = 렌코[1];
if crossup(var1,var2) Then
buy();
if CrossDown(var1,var2) Then
sell();
2.
예 맞는 표현입니다.
즐거운 하루되세요
> 성공예견 님이 쓴 글입니다.
> 제목 : 지표문의
> 1.아래는 게시판에있는 렌코차트입니다
두 가지만 질문할께요
첫째;지표를 시스템식으로 만들어 주세요
Plot1 이 Plot2 를 cross 할때 매수
Plot1 이 Plot2 를 dead 할때 매도
둘째;if 렌코[1] > 0 Then Plot1(렌코[0],"렌코");
If 렌코[1] > 0 Then Plot2(렌코[1],"렌코[1]");
이런 표현이 맞나요 틀림 고쳐서라도
렌코[1] > 0 Then 면 Plot1또 되고 Plot2도 되고...
input:단위호가(5);
var:j(0),벽돌크기(0),벽돌개수(0),방향(0),상승(100),하락(-100);
array:고[10](0),저[10](0),고Bar[10](0),저Bar[10](0),렌코[500](0);
#==========================================#
# 초기 처리
#==========================================#
If Index == 0 Then
{
벽돌크기 = PriceScale * 단위호가;
고[0] = C;
고Bar[0] = 0;
저[0] = C;
저Bar[0] = 0;
렌코[0] = C;
}
#==========================================#
# 렌코 계산
#==========================================#
If 방향 == 0 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
Else If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 하락 Then
{
If 저[0] - 벽돌크기 >= C Then
{
벽돌개수 = Int((저[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
저[0] = 저[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
If 저[0] + 2*벽돌크기 <= C Then
{
벽돌개수 = Int((C-저[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
저[j+1] = 저[j];
저Bar[j+1] = 저Bar[j];
}
고[0] = 저[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
방향 = 상승;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
}
Else If 방향 == 상승 Then
{
If 고[0] + 벽돌크기 <= C Then
{
벽돌개수 = Int((C-고[0])/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수;
저Bar[j] = 저Bar[j] + 벽돌개수;
}
고[0] = 고[0] + (벽돌크기 * 벽돌개수);
고Bar[0] = 0;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 고[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] - 벽돌크기;
}
}
If 고[0] - 2*벽돌크기 >= C Then
{
벽돌개수 = Int((고[0]-C)/벽돌크기);
For j = 0 To 9
{
고Bar[j] = 고Bar[j] + 벽돌개수 - 1;
저Bar[j] = 저Bar[j] + 벽돌개수 - 1;
}
For j = 8 DownTo 0
{
고[j+1] = 고[j];
고Bar[j+1] = 고Bar[j];
}
저[0] = 고[0] - (벽돌크기 * 벽돌개수);
저Bar[0] = 0;
방향 = 하락;
For j = 499 DownTo 벽돌개수
{
렌코[j] = 렌코[j-벽돌개수];
}
렌코[0] = 저[0];
For j = 1 To 벽돌개수-1
{
렌코[j] = 렌코[j-1] + 벽돌크기;
}
}
}
If 고[2] > 0 Then 저항선 = (고[1]-고[2])/(고Bar[2]-고Bar[1])*고Bar[2]+고[2];
If 저[2] > 0 Then 지지선 = (저[1]-저[2])/(저Bar[2]-저Bar[1])*저Bar[2]+저[2];
If 렌코[1] > 0 Then Plot1(렌코[0],"렌코");
If 렌코[1] > 0 Then Plot2(렌코[1],"렌코[1]");
3.그럼 수고하세요
즐거운 하루 되세요.