커뮤니티
문의드립니다
2017-02-27 13:22:47
129
글번호 107270
안녕하세요
아래 지표을 이용한 10 개의 추세선을 표현하고자 합니다.
추세선(대각선)으로표현
1.var4 에서 var2 를 이어지는 추세선
2.var4 에서 var3 를 이어지는 추세선
3.var5 에서 var2 를 이어지는 추세선
4.var5 에서 var3 를 이어지는 추세선
5.var6 에서 var2 를 이어지는 추세선
6.var6 에서 var3 를 이어지는 추세선
7.var7 에서 var2 를 이어지는 추세선
8.var7 에서 var3 를 이어지는 추세선
9.var8 에서 var2 를 이어지는 추세선
10.var8 에서 var3 를 이어지는 추세선
감사합니다.
#####################################################
input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4);
var : cnt(0);
Array : DO[10](0),DH[10](0),DL[10](0),DC[10](0);
if Bdate != Bdate[1] then{
if dayofweek(Bdate) < dayofweek(Bdate[1]) or
(dayofweek(Bdate) > dayofweek(Bdate[1]) and DayOfWeek(bdate) >= 2) Then{
DO[0] = O;
DH[0] = H;
DL[0] = L;
for cnt = 1 to 9{
DO[cnt] = DO[cnt-1][1];
DH[cnt] = DH[cnt-1][1];
DL[cnt] = DL[cnt-1][1];
DC[cnt] = DC[cnt-1][1];
}
}
}
if H > DH[0] Then
DH[0] = H;
if L < DL[0] Then
DL[0] = L;
var1 = DO[1];
var2 = DH[1];
var3 = DL[1];
var4 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per1/100));
var5 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per2/100));
var6 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per3/100));
var7 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per4/100));
var8 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per5/100));
답변 1
예스스탁 예스스탁 답변
2017-02-27 18:41:06
안녕하세요
예스스탁입니다.
input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4);
var : cnt(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
Array : DO[10](0),DH[10](0),DL[10](0),DC[10](0);
Array : DHD[10](0),DHT[10](0),DLD[10](0),DLT[10](0);
if Bdate != Bdate[1] then{
if dayofweek(Bdate) < dayofweek(Bdate[1]) or
(dayofweek(Bdate) > dayofweek(Bdate[1]) and DayOfWeek(bdate) >= 2) Then{
DO[0] = O;
DH[0] = H;
DL[0] = L;
DHD[0] = sdate;
DHT[0] = stime;
DLD[0] = sdate;
DLT[0] = stime;
for cnt = 1 to 9{
DO[cnt] = DO[cnt-1][1];
DH[cnt] = DH[cnt-1][1];
DL[cnt] = DL[cnt-1][1];
DC[cnt] = DC[cnt-1][1];
DHD[cnt] = DHD[cnt-1][1];
DHT[cnt] = DHT[cnt-1][1];
DLD[cnt] = DLD[cnt-1][1];
DLT[cnt] = DLT[cnt-1][1];
}
}
}
if H > DH[0] Then{
DH[0] = H;
DHD[0] = sdate;
DHT[0] = stime;
}
if L < DL[0] Then{
DL[0] = L;
DLD[0] = sdate;
DLT[0] = stime;
}
var1 = DO[1];
var2 = DH[1];
var3 = DL[1];
var4 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per1/100));
var5 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per2/100));
var6 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per3/100));
var7 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per4/100));
var8 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per5/100));
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL_Delete(TL9);
TL_Delete(TL10);
if var2 > 0 and var3 > 0 then TL1 = TL_New(DHD[1],DHT[1],var2,sdate,stime,var4);
if var2 > 0 and var3 > 0 then TL2 = TL_New(DLD[1],DLT[1],var3,sdate,stime,var4);
if var2 > 0 and var3 > 0 then TL3 = TL_New(DHD[1],DHT[1],var3,sdate,stime,var5);
if var2 > 0 and var3 > 0 then TL4 = TL_New(DLD[1],DLT[1],var3,sdate,stime,var5);
if var2 > 0 and var3 > 0 then TL5 = TL_New(DHD[1],DHT[1],var3,sdate,stime,var6);
if var2 > 0 and var3 > 0 then TL6 = TL_New(DLD[1],DLT[1],var3,sdate,stime,var6);
if var2 > 0 and var3 > 0 then TL7 = TL_New(DHD[1],DHT[1],var3,sdate,stime,var7);
if var2 > 0 and var3 > 0 then TL8 = TL_New(DLD[1],DLT[1],var3,sdate,stime,var7);
if var2 > 0 and var3 > 0 then TL9 = TL_New(DHD[1],DHT[1],var3,sdate,stime,var8);
if var2 > 0 and var3 > 0 then TL10 = TL_New(DLD[1],DLT[1],var3,sdate,stime,var8);
즐거운 하루되세요
> 베드로 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 안녕하세요
아래 지표을 이용한 10 개의 추세선을 표현하고자 합니다.
추세선(대각선)으로표현
1.var4 에서 var2 를 이어지는 추세선
2.var4 에서 var3 를 이어지는 추세선
3.var5 에서 var2 를 이어지는 추세선
4.var5 에서 var3 를 이어지는 추세선
5.var6 에서 var2 를 이어지는 추세선
6.var6 에서 var3 를 이어지는 추세선
7.var7 에서 var2 를 이어지는 추세선
8.var7 에서 var3 를 이어지는 추세선
9.var8 에서 var2 를 이어지는 추세선
10.var8 에서 var3 를 이어지는 추세선
감사합니다.
#####################################################
input : Per1(23.6),Per2(38.2),Per3(50.0),Per4(61.8),Per5(76.4);
var : cnt(0);
Array : DO[10](0),DH[10](0),DL[10](0),DC[10](0);
if Bdate != Bdate[1] then{
if dayofweek(Bdate) < dayofweek(Bdate[1]) or
(dayofweek(Bdate) > dayofweek(Bdate[1]) and DayOfWeek(bdate) >= 2) Then{
DO[0] = O;
DH[0] = H;
DL[0] = L;
for cnt = 1 to 9{
DO[cnt] = DO[cnt-1][1];
DH[cnt] = DH[cnt-1][1];
DL[cnt] = DL[cnt-1][1];
DC[cnt] = DC[cnt-1][1];
}
}
}
if H > DH[0] Then
DH[0] = H;
if L < DL[0] Then
DL[0] = L;
var1 = DO[1];
var2 = DH[1];
var3 = DL[1];
var4 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per1/100));
var5 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per2/100));
var6 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per3/100));
var7 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per4/100));
var8 = 10^(LOG10(VAR2)-(LOG10(VAR2)-LOG10(VAR3))*(Per5/100));