커뮤니티
이평선접점을 선으로 연결
2017-05-21 00:02:52
175
글번호 109725
예전에 보내주신 아래의 서식 잘받았습니다.
작성해주신 이평선 접점을 수평선으로 표현했던 것을 접점과 접점끼리 선으로 연결하여 차트에 표현하고 싶습니다. 도와주십시요
- 아 래 -
input : Atime(60),P1(60),P2(120);
var : TF(0),cnt(0),sum1(0),mav1(0),sum2(0),mav2(0);
var : sum11(0),mav11(0),mav22(0),sum22(0);
Array : CC[200](0);
TF = TimeToMinutes(stime)%Atime;
if bdate != bdate[1] or (TF < TF[1] and bdate == bdate[1]) Then{
for cnt = 1 to 199{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[P2] > 0 then{
sum1 = 0;
sum11 = 0;
sum2 = 0;
sum22 = 0;
for cnt = 0 to P2{
if cnt < P1 Then{
sum1 = sum1+CC[cnt];
sum11 = sum11+CC[cnt+1];
}
if cnt < P2 Then{
sum2 = sum2+CC[cnt];
sum22 = sum22+CC[cnt+1];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav2 = sum2/P2;
mav22 = sum22/P2;
if mav1 > mav2 and mav11 < mav22 then
var1 = (mav1+mav2)/2;
if mav1 < mav2 and mav11 > mav22 then
var1 = (mav1+mav2)/2;
plot1(var1);
}
답변 1
예스스탁 예스스탁 답변
2017-05-22 16:57:30
안녕하세요
예스스탁입니다.
input : Atime(60),P1(60),P2(120);
var : TF(0),cnt(0),sum1(0),mav1(0),sum2(0),mav2(0);
var : sum11(0),mav11(0),mav22(0),sum22(0),T(0),TL1(0),TL2(0);
Array : CC[200](0);
TF = TimeToMinutes(stime)%Atime;
if bdate != bdate[1] or (TF < TF[1] and bdate == bdate[1]) Then{
for cnt = 1 to 199{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[P2] > 0 then{
sum1 = 0;
sum11 = 0;
sum2 = 0;
sum22 = 0;
for cnt = 0 to P2{
if cnt < P1 Then{
sum1 = sum1+CC[cnt];
sum11 = sum11+CC[cnt+1];
}
if cnt < P2 Then{
sum2 = sum2+CC[cnt];
sum22 = sum22+CC[cnt+1];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav2 = sum2/P2;
mav22 = sum22/P2;
if T <= 0 and mav1 > mav2 and mav11 < mav22 then{
T = 1;
var11 = sdate;
var12 = stime;
var13 = (mav1+mav2)/2;
if var23 > 0 Then
TL2 = TL_New(var21,var22,var23,var11,var12,var13);
}
if T >= 0 and mav1 < mav2 and mav11 > mav22 then{
T = -1;
var21 = sdate;
var22 = stime;
var23 = (mav1+mav2)/2;
if var13 > 0 Then
TL2 = TL_New(var11,var12,var13,var21,var22,var23);
}
}
TL_Delete(TL1);
if T == 1 Then
TL1 = TL_New(var11,var12,var13,sdate,stime,c);
if T == -1 Then
TL1 = TL_New(var21,var22,var23,sdate,stime,c);
즐거운 하루되세요
> 카카 님이 쓴 글입니다.
> 제목 : 이평선접점을 선으로 연결
> 예전에 보내주신 아래의 서식 잘받았습니다.
작성해주신 이평선 접점을 수평선으로 표현했던 것을 접점과 접점끼리 선으로 연결하여 차트에 표현하고 싶습니다. 도와주십시요
- 아 래 -
input : Atime(60),P1(60),P2(120);
var : TF(0),cnt(0),sum1(0),mav1(0),sum2(0),mav2(0);
var : sum11(0),mav11(0),mav22(0),sum22(0);
Array : CC[200](0);
TF = TimeToMinutes(stime)%Atime;
if bdate != bdate[1] or (TF < TF[1] and bdate == bdate[1]) Then{
for cnt = 1 to 199{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[P2] > 0 then{
sum1 = 0;
sum11 = 0;
sum2 = 0;
sum22 = 0;
for cnt = 0 to P2{
if cnt < P1 Then{
sum1 = sum1+CC[cnt];
sum11 = sum11+CC[cnt+1];
}
if cnt < P2 Then{
sum2 = sum2+CC[cnt];
sum22 = sum22+CC[cnt+1];
}
}
mav1 = sum1/P1;
mav11 = sum11/P1;
mav2 = sum2/P2;
mav22 = sum22/P2;
if mav1 > mav2 and mav11 < mav22 then
var1 = (mav1+mav2)/2;
if mav1 < mav2 and mav11 > mav22 then
var1 = (mav1+mav2)/2;
plot1(var1);
}
이전글