커뮤니티
부탁 드립니다.
2020-04-14 07:01:59
676
글번호 137850
도움에 감사 드립니다.
질문1)
수식1)을 타주기 틱용으로 수정 부탁 드립니다.
질문2)수식2)를 예를 들어
주봉용 지표가
일봉용 지표 및 분봉(400분)에서 나타 나도록 부탁 드립니다.
질문3)수식2)를 예를 들어
월봉용 지표가
주봉용,일봉용 및 분봉(900분)지표에 나타 나도록 부탁 드립니다.
질문4)수식3)를 예를 들어
주봉용 지표가
일봉용 지표 및 분봉(400분)에서 나타 나도록 부탁 드립니다.
질문5)수식3)를 예를 들어
월봉용 지표가
주봉용,일봉용 및 분봉(900분)지표에 나타 나도록 부탁 드립니다.
수식1)
Input : Atime1(30),Period(10),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
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;
TF1 = TM%Atime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime1 <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime1 > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
}
plot1(emav1);
수식2)
input : P(20),sig(5);
var : i1(0),i2(0),i3(0),i4(0),hh(0),hghma(0);
var3 = 0;
for i4 = 0 to sig-1
{
var2 = 0;
for i3 = i4+0 to i4+sig-1
{
var1 = 0;
for i2 = i3+0 to i3+sig-1
{
hh = L[i2];
for i1 = i2+0 to i2+P-1
{
if DayLOW(i1) < hh Then
hh = DayLOW(i1);
}
var1 = var1 + hh;
}
value1 = var1/sig;
var2 = var2+value1;
}
value2 = var2/sig;
var3 = var3+value2;
}
hghma =var3/sig;
plot1(hghma);
수식3)
input : 장기이평p2(60),단기이평p1(10),sig(5);
var: i1(0),i2(0);
var : sum1(0),sum2(0),sum(0);
var : mav1(0),mav2(0),mav(0);
sum = 0;
for i1 = 0 to sig-1
{
sum1 = 0;
for i2 = i1+0 to i1+단기이평p1-1
{
sum1 = sum1 + DayClose(i2);
}
mav1 = sum1/단기이평p1;
sum2 = 0;
for i2 = i1+0 to i1+장기이평p2-1
{
sum2 = sum2 + DayClose(i2);
}
mav2 = sum2/장기이평p2;
sum = sum + (mav1-mav2);
}
mav =sum/sig;
plot1(mav);
PlotBaseLine1(0);
답변 1
예스스탁 예스스탁 답변
2020-04-14 09:38:58
안녕하세요
예스스탁입니다.
1
Input : nbars(5),Period(10),sig(5);
var : D1(0),EP(0);
Var : TF(0),idx(0),emav(0),Pre(0);
Ep = 2/(Period+1);
if Bdate != Bdate[1] Then
{
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%nbars;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
Pre = emav[1];
}
if idx <= 1 then
emav = C;
else
emav = C * EP + Pre * (1-EP);
plot1(emav);
}
2
input : P(20),sig(5);
var : i1(0),i2(0),i3(0),i4(0),hh(0),hghma(0),cnt(0);
Array : WL[100](0);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then
{
WL[0] = l;
for cnt = 1 to 99
{
WL[cnt] = WL[cnt-1][1];
}
}
if WL[0] > 0 and L < WL[0] Then
WL[0] = L;
if WL[P+sig*3] > 0 then
{
var3 = 0;
for i4 = 0 to sig-1
{
var2 = 0;
for i3 = i4+0 to i4+sig-1
{
var1 = 0;
for i2 = i3+0 to i3+sig-1
{
hh = WL[i2];
for i1 = i2+0 to i2+P-1
{
if WL[i1] < hh Then
hh = WL[i1];
}
var1 = var1 + hh;
}
value1 = var1/sig;
var2 = var2+value1;
}
value2 = var2/sig;
var3 = var3+value2;
}
hghma =var3/sig;
plot1(hghma);
}
3
input : P(20),sig(5);
var : i1(0),i2(0),i3(0),i4(0),hh(0),hghma(0),cnt(0);
Array : WL[100](0);
if bdate > bdate[1]+30 Then
{
WL[0] = l;
for cnt = 1 to 99
{
WL[cnt] = WL[cnt-1][1];
}
}
if WL[0] > 0 and L < WL[0] Then
WL[0] = L;
if WL[P+sig*3] > 0 then
{
var3 = 0;
for i4 = 0 to sig-1
{
var2 = 0;
for i3 = i4+0 to i4+sig-1
{
var1 = 0;
for i2 = i3+0 to i3+sig-1
{
hh = WL[i2];
for i1 = i2+0 to i2+P-1
{
if WL[i1] < hh Then
hh = WL[i1];
}
var1 = var1 + hh;
}
value1 = var1/sig;
var2 = var2+value1;
}
value2 = var2/sig;
var3 = var3+value2;
}
hghma =var3/sig;
plot1(hghma);
}
4
input : 장기이평p2(60),단기이평p1(10),sig(5);
var: i1(0),i2(0),cnt(0);
var : sum1(0),sum2(0),sum(0);
var : mav1(0),mav2(0),mav(0);
Array : WC[100](0);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then
{
for cnt = 1 to 99
{
WC[cnt] = WC[cnt-1][1];
}
}
WC[0] = C;
if WC[단기이평p1+sig] > 0 then
{
sum = 0;
for i1 = 0 to sig-1
{
sum1 = 0;
for i2 = i1+0 to i1+단기이평p1-1
{
sum1 = sum1 + WC[i2];
}
mav1 = sum1/단기이평p1;
sum2 = 0;
for i2 = i1+0 to i1+장기이평p2-1
{
sum2 = sum2 + WC[i2];
}
mav2 = sum2/장기이평p2;
sum = sum + (mav1-mav2);
}
mav =sum/sig;
plot1(mav);
PlotBaseLine1(0);
}
5
input : 장기이평p2(60),단기이평p1(10),sig(5);
var: i1(0),i2(0),cnt(0);
var : sum1(0),sum2(0),sum(0);
var : mav1(0),mav2(0),mav(0);
Array : MC[100](0);
if bdate > bdate[1]+30 Then
{
for cnt = 1 to 99
{
MC[cnt] = MC[cnt-1][1];
}
}
MC[0] = C;
if MC[단기이평p1+sig] > 0 then
{
sum = 0;
for i1 = 0 to sig-1
{
sum1 = 0;
for i2 = i1+0 to i1+단기이평p1-1
{
sum1 = sum1 + MC[i2];
}
mav1 = sum1/단기이평p1;
sum2 = 0;
for i2 = i1+0 to i1+장기이평p2-1
{
sum2 = sum2 + MC[i2];
}
mav2 = sum2/장기이평p2;
sum = sum + (mav1-mav2);
}
mav =sum/sig;
plot1(mav);
PlotBaseLine1(0);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
질문1)
수식1)을 타주기 틱용으로 수정 부탁 드립니다.
질문2)수식2)를 예를 들어
주봉용 지표가
일봉용 지표 및 분봉(400분)에서 나타 나도록 부탁 드립니다.
질문3)수식2)를 예를 들어
월봉용 지표가
주봉용,일봉용 및 분봉(900분)지표에 나타 나도록 부탁 드립니다.
질문4)수식3)를 예를 들어
주봉용 지표가
일봉용 지표 및 분봉(400분)에서 나타 나도록 부탁 드립니다.
질문5)수식3)를 예를 들어
월봉용 지표가
주봉용,일봉용 및 분봉(900분)지표에 나타 나도록 부탁 드립니다.
수식1)
Input : Atime1(30),Period(10),sig(5);
var : S1(0),D1(0),TM(0),EP(0);
Var : TF1(0),idx1(0),emav1(0),Pre1(0);
Ep = 2/(Period+1);
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;
TF1 = TM%Atime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Atime1 <= 1 and TF1 > TF1[1]) or
(Bdate == Bdate[1] and Atime1 > 1 and TF1 < TF1[1]) Then{
idx1 = idx1+1;
Pre1 = emav1[1];
}
if idx1 <= 1 then
emav1 = C;
else
emav1 = C * EP + Pre1 * (1-EP);
}
plot1(emav1);
수식2)
input : P(20),sig(5);
var : i1(0),i2(0),i3(0),i4(0),hh(0),hghma(0);
var3 = 0;
for i4 = 0 to sig-1
{
var2 = 0;
for i3 = i4+0 to i4+sig-1
{
var1 = 0;
for i2 = i3+0 to i3+sig-1
{
hh = L[i2];
for i1 = i2+0 to i2+P-1
{
if DayLOW(i1) < hh Then
hh = DayLOW(i1);
}
var1 = var1 + hh;
}
value1 = var1/sig;
var2 = var2+value1;
}
value2 = var2/sig;
var3 = var3+value2;
}
hghma =var3/sig;
plot1(hghma);
수식3)
input : 장기이평p2(60),단기이평p1(10),sig(5);
var: i1(0),i2(0);
var : sum1(0),sum2(0),sum(0);
var : mav1(0),mav2(0),mav(0);
sum = 0;
for i1 = 0 to sig-1
{
sum1 = 0;
for i2 = i1+0 to i1+단기이평p1-1
{
sum1 = sum1 + DayClose(i2);
}
mav1 = sum1/단기이평p1;
sum2 = 0;
for i2 = i1+0 to i1+장기이평p2-1
{
sum2 = sum2 + DayClose(i2);
}
mav2 = sum2/장기이평p2;
sum = sum + (mav1-mav2);
}
mav =sum/sig;
plot1(mav);
PlotBaseLine1(0);