커뮤니티
5등분선 요청 드립니다.
2019-01-08 23:33:10
205
글번호 125083
* 많은 도움에 고맙습니다.
* 아래 지표에서 5등분 선을 부탁 드립니다.
즉 100봉 기준 최고가와 최저가를 5등분선으로 표시 부탁 드립니다.
input : Atime(30),P(20);
var : cnt(0),sum(0),mav(0);
Array : OO[100](0),HH[100](0),LL[100](0),CC[100](0);
var1 = TimeToMinutes(stime)%Atime;
if dayindex() == 0 or (var1 < var1[1] and stime > stime[1]) Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[P] > 0 Then{
sum = 0;
for cnt = 0 to P-1{
sum = sum+(OO[cnt]+HH[cnt]+LL[cnt]+CC[cnt])/4;
}
mav = sum/P;
plot1(mav);
}
* 항상 많은 도움에 정말 고맙 습니다. ^^
답변 1
예스스탁 예스스탁 답변
2019-01-10 11:40:17
안녕하세요
예스스탁입니다.
input : Atime(30),P(20),N(100);
var : cnt(0),sum(0),mav(0),Hv(0),Lv(0);
Array : OO[100](0),HH[100](0),LL[100](0),CC[100](0);
var1 = TimeToMinutes(stime)%Atime;
if dayindex() == 0 or (var1 < var1[1] and stime > stime[1]) Then
{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99
{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[P] > 0 Then
{
sum = 0;
for cnt = 0 to P-1
{
sum = sum+(OO[cnt]+HH[cnt]+LL[cnt]+CC[cnt])/4;
}
mav = sum/P;
plot1(mav);
}
if HH[N-1] > 0 and LL[N-1] > 0 then
{
Hv = HH[0];
Lv = LL[0];
for cnt = 0 to N-1
{
if HH[cnt] > Hv Then
Hv = HH[cnt];
if LL[cnt] < Lv Then
Lv = LL[cnt];
}
plot2(Hv);
plot3(Hv-(Hv-Lv)*0.20);
plot4(Hv-(Hv-Lv)*0.40);
plot5(Hv-(Hv-Lv)*0.60);
plot6(Hv-(Hv-Lv)*0.80);
plot7(Lv);
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 5등분선 요청 드립니다.
> * 많은 도움에 고맙습니다.
* 아래 지표에서 5등분 선을 부탁 드립니다.
즉 100봉 기준 최고가와 최저가를 5등분선으로 표시 부탁 드립니다.
input : Atime(30),P(20);
var : cnt(0),sum(0),mav(0);
Array : OO[100](0),HH[100](0),LL[100](0),CC[100](0);
var1 = TimeToMinutes(stime)%Atime;
if dayindex() == 0 or (var1 < var1[1] and stime > stime[1]) Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[P] > 0 Then{
sum = 0;
for cnt = 0 to P-1{
sum = sum+(OO[cnt]+HH[cnt]+LL[cnt]+CC[cnt])/4;
}
mav = sum/P;
plot1(mav);
}
* 항상 많은 도움에 정말 고맙 습니다. ^^
다음글
이전글