커뮤니티
부탁 드립니다.
2018-05-15 09:17:57
186
글번호 118896
도움주심에 감사 드립니다.
1)57780 재질문 부탁 드립니다.
2)data2를 활용한 타주기 지표식 부탁 드립니다.
Input : Period(2),histo_sig(3);
var:곱배수(1);
value1 = (3 * Ema(c,Period*1*곱배수)) - (3 * Ema(Ema(c,Period*1*곱배수),Period*1*곱배수)) + (Ema(Ema(Ema(c,Period*1*곱배수),Period*1*곱배수),Period*1*곱배수));
value2 = (3 * Ema(c,Period*2*곱배수)) - (3 * Ema(Ema(c,Period*2*곱배수),Period*2*곱배수)) + (Ema(Ema(Ema(c,Period*2*곱배수),Period*2*곱배수),Period*2*곱배수));
value21 = (3 * Ema(c,Period*21*곱배수)) - (3 * Ema(Ema(c,Period*21*곱배수),Period*21*곱배수)) + (Ema(Ema(Ema(c,Period*21*곱배수),Period*21*곱배수),Period*21*곱배수));
value22 = (3 * Ema(c,Period*22*곱배수)) - (3 * Ema(Ema(c,Period*22*곱배수),Period*22*곱배수)) + (Ema(Ema(Ema(c,Period*22*곱배수),Period*22*곱배수),Period*22*곱배수));
var52=(value1+value2)/2;
var53=(value1+value2+value3)/3;
var62= (value22+value21)/2;
var63= (value21+value20+value22)/3;
var92=ema((var52-var62),histo_sig);
var93=ema((var53-var63),histo_sig);
var99=(var92+var93)/2;
plot1(var99,"지표");
PlotBaseLine1(0,"0");
미리 감사 드립니다.
답변 1
예스스탁 예스스탁 답변
2018-05-15 11:52:02
안녕하세요
예스스탁입니다.
1-1
var : cnt(0),TL(0);
Array : D1[10](0),T1[10](0),C1[10](0);
Array : D2[10](0),T2[10](0),C2[10](0);
#영업일 기준 월변경
if bdate > bdate[1]+30 Then{
#횟수 카운트 하는 변수는 0으로 초기화
var1 = 0;
var2 = 0;
#날짜/시간/종가 저장하는 배열들은 0으로 초기화
for cnt = 0 to 9{
D1[cnt] = 0;
T1[cnt] = 0;
C1[cnt] = 0;
D2[cnt] = 0;
T2[cnt] = 0;
C2[cnt] = 0;
}
}
#영업일 변경되고 화요일이면
if bdate != bdate[1] and DayOfWeek(bdate) == 2 Then
{
#카운트 1씩 증가
var1 = var1+1;
#카운트에 해당하는 배열방에 날짜 시간 종가 저장
D1[var1] = sdate;
T1[var1] = stime;
C1[var1] = C;
}
#영업이 변경되고 목요일이면
if bdate != bdate[1] and DayOfWeek(bdate) == 4 Then
{
#카운트 1씩 증가
var2 = var2+1;
#카운트에 해당하는 배열방에 날짜 시간 종가 저장
D2[var2] = sdate;
T2[var2] = stime;
C2[var2] = C;
//화요일은 2번이상 발생하고 목요일은 세번째이면
if var1 >= 2 and var2 == 3 then
{
TL_Delete(TL);
TL = TL_new(D1[2],T1[2],C1[2],D2[3],T2[3],C2[3]);
}
}
1-2
var : cnt(0),TL(0);
Array : D1[10](0),T1[10](0),C1[10](0);
Array : D11[10](0),T11[10](0),C11[10](0);
Array : D2[10](0),T2[10](0),C2[10](0);
Array : D21[10](0),T21[10](0),C21[10](0);
#영업일 기준 월변경
if bdate > bdate[1]+30 Then{
#횟수 카운트 하는 변수는 0으로 초기화
var1 = 0;
var2 = 0;
#전달 카운트 값 다른변수에 저장
var11 = var1[1];
var21 = var2[1];
#기존저장된 값을 전월값을 알기 위해 다른변수에 옮김
for cnt = 1 to 9{
D11[cnt] = D1[cnt];
T11[cnt] = T1[cnt];
C11[cnt] = C1[cnt];
D21[cnt] = D2[cnt];
T21[cnt] = T2[cnt];
C21[cnt] = C2[cnt];
}
#날짜/시간/종가 저장하는 배열들은 0으로 초기화
for cnt = 0 to 9{
D1[cnt] = 0;
T1[cnt] = 0;
C1[cnt] = 0;
D2[cnt] = 0;
T2[cnt] = 0;
C2[cnt] = 0;
}
}
#영업일 변경되고 화요일이면
if bdate != bdate[1] and DayOfWeek(bdate) == 2 Then
{
#카운트 1씩 증가
var1 = var1+1;
#카운트에 해당하는 배열방에 날짜 시간 종가 저장
D1[var1] = sdate;
T1[var1] = stime;
C1[var1] = C;
//첫번째 화요일이고 지날달 금요일 카운트가 4회이상
if var1 == 1 and var21 >= 4 then
{
TL_Delete(TL);
TL = TL_new(D21[4],T21[4],C21[4],D1[1],T1[1],C1[1]);
}
}
#영업이 변경되고 금요일이면
if bdate != bdate[1] and DayOfWeek(bdate) == 5 Then
{
#카운트 1씩 증가
var2 = var2+1;
#카운트에 해당하는 배열방에 날짜 시간 종가 저장
D2[var2] = sdate;
T2[var2] = stime;
C2[var2] = C;
}
2
Input : Period(2),histo_sig(3);
var:곱배수(1);
var: val1(0,data2),val2(0,data2),val3(0,data2),val21(0,data2),val22(0,data2),val20(0,data2);
var: v52(0,data2),v53(0,data2),v62(0,data2),v63(0,data2),v92(0,data2),v93(0,data2),v99(0,data2);
val1 = data2((3 * Ema(c,Period*1*곱배수)) - (3 * Ema(Ema(c,Period*1*곱배수),Period*1*곱배수)) + (Ema(Ema(Ema(c,Period*1*곱배수),Period*1*곱배수),Period*1*곱배수)));
val2 = data2((3 * Ema(c,Period*2*곱배수)) - (3 * Ema(Ema(c,Period*2*곱배수),Period*2*곱배수)) + (Ema(Ema(Ema(c,Period*2*곱배수),Period*2*곱배수),Period*2*곱배수)));
val21 = data2((3 * Ema(c,Period*21*곱배수)) - (3 * Ema(Ema(c,Period*21*곱배수),Period*21*곱배수)) + (Ema(Ema(Ema(c,Period*21*곱배수),Period*21*곱배수),Period*21*곱배수)));
val22 = data2((3 * Ema(c,Period*22*곱배수)) - (3 * Ema(Ema(c,Period*22*곱배수),Period*22*곱배수)) + (Ema(Ema(Ema(c,Period*22*곱배수),Period*22*곱배수),Period*22*곱배수)));
v52=(val1+val2)/2;
v53=(val1+val2+val3)/3;
v62= (val22+val21)/2;
v63= (val21+val20+val22)/3;
v92=data2(ema((v52-v62),histo_sig));
v93=data2(ema((v53-v63),histo_sig));
v99=(v92+v93)/2;
plot1(v99,"지표");
PlotBaseLine1(0,"0");
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움주심에 감사 드립니다.
1)57780 재질문 부탁 드립니다.
2)data2를 활용한 타주기 지표식 부탁 드립니다.
Input : Period(2),histo_sig(3);
var:곱배수(1);
value1 = (3 * Ema(c,Period*1*곱배수)) - (3 * Ema(Ema(c,Period*1*곱배수),Period*1*곱배수)) + (Ema(Ema(Ema(c,Period*1*곱배수),Period*1*곱배수),Period*1*곱배수));
value2 = (3 * Ema(c,Period*2*곱배수)) - (3 * Ema(Ema(c,Period*2*곱배수),Period*2*곱배수)) + (Ema(Ema(Ema(c,Period*2*곱배수),Period*2*곱배수),Period*2*곱배수));
value21 = (3 * Ema(c,Period*21*곱배수)) - (3 * Ema(Ema(c,Period*21*곱배수),Period*21*곱배수)) + (Ema(Ema(Ema(c,Period*21*곱배수),Period*21*곱배수),Period*21*곱배수));
value22 = (3 * Ema(c,Period*22*곱배수)) - (3 * Ema(Ema(c,Period*22*곱배수),Period*22*곱배수)) + (Ema(Ema(Ema(c,Period*22*곱배수),Period*22*곱배수),Period*22*곱배수));
var52=(value1+value2)/2;
var53=(value1+value2+value3)/3;
var62= (value22+value21)/2;
var63= (value21+value20+value22)/3;
var92=ema((var52-var62),histo_sig);
var93=ema((var53-var63),histo_sig);
var99=(var92+var93)/2;
plot1(var99,"지표");
PlotBaseLine1(0,"0");
미리 감사 드립니다.
다음글
이전글