커뮤니티
지표변환 부탁드립니다
2024-03-29 09:00:53
716
글번호 178071
감사합니다
input : N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0);
hv = 0;
Condition1 = False;
For cnt = 1 to N
{
if V[cnt] > Hv Then
{
HV = V[cnt];
mm = (H[cnt]+O[cnt])/2;
dd = sDate[cnt];
tt = sTime[cnt];
if C[cnt] < O[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
if Condition1 == true and V > HV and C > O Then
{
TL_New(dd,tt,mm,sDate[1],sTime[1],mm);
var1 = (H+O)/2;
}
if var1 > 0 Then
Plot1(var1);
위 지표를 다음과 같이 변환부탁드립니다.
1
월봉지표를 분봉지표로
2
주봉지표를 분봉지표로
3
일봉지표를 분봉지표로
4
분봉지표를 타분봉지표로
==
5
월봉지표를 일봉지표로
6
주봉지표를 일봉지표로 변환부탁드립니다
답변 1
예스스탁 예스스탁 답변
2024-04-01 09:30:20
안녕하세요
예스스탁입니다.
5번,6번은 1번,2번과 같습니다.
수식상 다른부분이 없습니다.
차트가 지정한 기간을 충족하지 못하면 계산 및 출력이 되지 않습니다.
1
input : N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0),tl(0);
Array : vv[100](0),hh[100](0),CC[100](0),OO[100](0),SD[100](0),ST[100](0);
if sDate > sDate[1]+30 Then
{
For cnt = 99 DownTo 1
{
vv[cnt] = vv[cnt-1];
hh[cnt] = hh[cnt-1];
oo[cnt] = oo[cnt-1];
cc[cnt] = cc[cnt-1];
sd[cnt] = sd[cnt-1];
st[cnt] = st[cnt-1];
}
vv[0] = 0;
hh[0] = H;
oo[0] = O;
SD[0] = sDate;
ST[0] = sTime;
hv = 0;
Condition1 = False;
if VV[N+1] > 0 Then
{
For cnt = 2 to N+1
{
if VV[cnt] > Hv Then
{
HV = VV[cnt];
mm = (HH[cnt]+OO[cnt])/2;
dd = SD[cnt];
tt = ST[cnt];
if CC[cnt] < OO[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
}
if Condition1 == true /*and VV[1] > HV and CC[1] > OO[1]*/ Then
{
TL_New(dd,tt,mm,SD[1],ST[1],mm);
var1 = (HH[0]+OO[0])/2;
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
CC[0] = C;
VV[0] = VV[0]+V;
if var1 > 0 Then
plot2(var1);
2
input : N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0),tl(0);
Array : vv[100](0),hh[100](0),CC[100](0),OO[100](0),SD[100](0),ST[100](0);
if dayofweek(sDate) < dayofweek(sDate[1]) Then
{
For cnt = 99 DownTo 1
{
vv[cnt] = vv[cnt-1];
hh[cnt] = hh[cnt-1];
oo[cnt] = oo[cnt-1];
cc[cnt] = cc[cnt-1];
sd[cnt] = sd[cnt-1];
st[cnt] = st[cnt-1];
}
vv[0] = 0;
hh[0] = H;
oo[0] = O;
SD[0] = sDate;
ST[0] = sTime;
hv = 0;
Condition1 = False;
if VV[N+1] > 0 Then
{
For cnt = 2 to N+1
{
if VV[cnt] > Hv Then
{
HV = VV[cnt];
mm = (HH[cnt]+OO[cnt])/2;
dd = SD[cnt];
tt = ST[cnt];
if CC[cnt] < OO[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
}
if Condition1 == true /*and VV[1] > HV and CC[1] > OO[1]*/ Then
{
TL_New(dd,tt,mm,SD[1],ST[1],mm);
var1 = (HH[0]+OO[0])/2;
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
CC[0] = C;
VV[0] = VV[0]+V;
if var1 > 0 Then
plot2(var1);
3
input : N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0),tl(0);
Array : vv[100](0),hh[100](0),CC[100](0),OO[100](0),SD[100](0),ST[100](0);
if sDate != sDate[1] Then
{
For cnt = 99 DownTo 1
{
vv[cnt] = vv[cnt-1];
hh[cnt] = hh[cnt-1];
oo[cnt] = oo[cnt-1];
cc[cnt] = cc[cnt-1];
sd[cnt] = sd[cnt-1];
st[cnt] = st[cnt-1];
}
vv[0] = 0;
hh[0] = H;
oo[0] = O;
SD[0] = sDate;
ST[0] = sTime;
hv = 0;
Condition1 = False;
if VV[N+1] > 0 Then
{
For cnt = 2 to N+1
{
if VV[cnt] > Hv Then
{
HV = VV[cnt];
mm = (HH[cnt]+OO[cnt])/2;
dd = SD[cnt];
tt = ST[cnt];
if CC[cnt] < OO[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
}
if Condition1 == true /*and VV[1] > HV and CC[1] > OO[1]*/ Then
{
TL_New(dd,tt,mm,SD[1],ST[1],mm);
var1 = (HH[0]+OO[0])/2;
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
CC[0] = C;
VV[0] = VV[0]+V;
if var1 > 0 Then
plot2(var1);
4
input : 분(30),N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0),tl(0);
Array : vv[100](0),hh[100](0),CC[100](0),OO[100](0),SD[100](0),ST[100](0);
var :s1(0),d1(0),tm(0),tf(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
For cnt = 99 DownTo 1
{
vv[cnt] = vv[cnt-1];
hh[cnt] = hh[cnt-1];
oo[cnt] = oo[cnt-1];
cc[cnt] = cc[cnt-1];
sd[cnt] = sd[cnt-1];
st[cnt] = st[cnt-1];
}
vv[0] = 0;
hh[0] = H;
oo[0] = O;
SD[0] = sDate;
ST[0] = sTime;
hv = 0;
Condition1 = False;
if VV[N+1] > 0 Then
{
For cnt = 2 to N+1
{
if VV[cnt] > Hv Then
{
HV = VV[cnt];
mm = (HH[cnt]+OO[cnt])/2;
dd = SD[cnt];
tt = ST[cnt];
if CC[cnt] < OO[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
}
if Condition1 == true /*and VV[1] > HV and CC[1] > OO[1]*/ Then
{
TL_New(dd,tt,mm,SD[1],ST[1],mm);
var1 = (HH[0]+OO[0])/2;
}
}
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
CC[0] = C;
VV[0] = VV[0]+V;
if var1 > 0 Then
plot2(var1);
}
즐거운 하루되세요
> jdavid 님이 쓴 글입니다.
> 제목 : 지표변환 부탁드립니다
> 감사합니다
input : N(20);
var : hv(0),cnt(0),mm(0),dd(0),tt(0);
hv = 0;
Condition1 = False;
For cnt = 1 to N
{
if V[cnt] > Hv Then
{
HV = V[cnt];
mm = (H[cnt]+O[cnt])/2;
dd = sDate[cnt];
tt = sTime[cnt];
if C[cnt] < O[cnt] Then
Condition1 = true;
Else
Condition1 = False;
}
}
if Condition1 == true and V > HV and C > O Then
{
TL_New(dd,tt,mm,sDate[1],sTime[1],mm);
var1 = (H+O)/2;
}
if var1 > 0 Then
Plot1(var1);
위 지표를 다음과 같이 변환부탁드립니다.
1
월봉지표를 분봉지표로
2
주봉지표를 분봉지표로
3
일봉지표를 분봉지표로
4
분봉지표를 타분봉지표로
==
5
월봉지표를 일봉지표로
6
주봉지표를 일봉지표로 변환부탁드립니다
다음글
이전글