커뮤니티
부탁 드립니다.
2015-07-03 09:10:49
133
글번호 87926
운영자님~~!
연일 무더운 여름 날씨에도 소중한 수식 작성에
늘 감사드리오며
42785번과 같은 동일형식으로
다음 수식을 부탁 드립니다.
//***해외선물 유로화를 예를 들어***//
A)1분봉 차트에서
1)1분봉의 CCI
2)3분봉으로계산되는 CCI
3)10분봉으로계산되는 CCI
4)60분봉으로 계산되는 CCI
5)120분봉으로 계산되는 CCI 를
1분봉 차트에서 동시에 구현 하고 싶을때의 지표식과 변수값
B)120분봉 차트에서
1)120분봉의 CCI
2)240분봉으로계산되는 CCI
3)일봉으로 계산되는 CCI
4)주봉으로 계산 되는 CCI
5)월봉으로 계산되는 CCI 지표 값을
120분봉 차트에서 동시에 구현 하고 싶을때의 지표식과 변수값 부탁 드립니다.
미리 감사드리오며 경배 올립니다.
답변 1
예스스탁 예스스탁 답변
2015-07-03 13:38:09
안녕하세요
예스스탁입니다.
1.
input : Atime1(3),Atime2(10),Atime3(60),Atime4(120),P(14);
var : cnt(0),TM(0);
var : mav1(0),CCIV1(0);
var : TF2(0),sum2(0),mav2(0),MD2(0),CCIv2(0);
var : TF3(0),sum3(0),mav3(0),MD3(0),CCIv3(0);
var : TF4(0),sum4(0),mav4(0),MD4(0),CCIv4(0);
var : TF5(0),sum5(0),mav5(0),MD5(0),CCIv5(0);
Array : C2[130](0),C3[130](0),C4[130](0),C5[130](0);
Array : H2[130](0),H3[130](0),H4[130](0),H5[130](0);
Array : L2[130](0),L3[130](0),L4[130](0),L5[130](0);
if bdate != Bdate[1] Then
var1 = stime;
if date != date[1] Then
var2 = TM[1];
if stime >= var1 Then
TM = TimeToMinutes(stime)-TimeToMinutes(var1);
Else
TM = TimeToMinutes(stime)+var2;
TF2 = TM%Atime1;
TF3 = TM%Atime2;
TF4 = TM%Atime3;
TF5 = TM%Atime4;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then{
H2[0] = H;
L2[0] = L;
for cnt = 1 to 129{
C2[cnt] = C2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
C2[0] = C;
if H > H2[0] Then H2[0] = H;
if L < L2[0] Then L2[0] = L;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF3 < TF3[1]) Then{
H3[0] = H;
L3[0] = L;
for cnt = 1 to 129{
C3[cnt] = C3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
}
C3[0] = C;
if H > H3[0] Then H3[0] = H;
if L < L3[0] Then L3[0] = L;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF4 < TF4[1]) Then{
H4[0] = H;
L4[0] = L;
for cnt = 1 to 129{
C4[cnt] = C4[cnt-1][1];
H4[cnt] = H4[cnt-1][1];
L4[cnt] = L4[cnt-1][1];
}
}
C4[0] = C;
if H > H4[0] Then H4[0] = H;
if L < L4[0] Then L4[0] = L;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF5 < TF5[1]) Then{
H5[0] = H;
L5[0] = L;
for cnt = 1 to 129{
C5[cnt] = C5[cnt-1][1];
H5[cnt] = H5[cnt-1][1];
L5[cnt] = L5[cnt-1][1];
}
}
C5[0] = C;
if H > H5[0] Then H5[0] = H;
if L < L5[0] Then L5[0] = L;
CCIV1 = CCI(P);
plot1(CCIV1,"기준차트");
If H2[P] > 0 Then {
sum2 = 0;
for cnt = 0 to P-1{
sum2 = sum2+(C2[cnt]+H2[cnt]+L2[cnt]);
}
mav2 = sum2/P;
MD2 = 0;
For cnt = 0 To P - 1 {
MD2 = MD2 + Abs(H2[cnt] + L2[cnt] + C2[cnt] - mav2);
}
MD2 = MD2 / P;
If MD2 == 0 Then
CCIv2 = 0;
Else
CCIv2 = (H2[0] + L2[0] + C2[0] - mav2) / (0.015 * MD2);
plot2(CCIV2,"atime2");
}
If H3[P] > 0 Then {
sum3 = 0;
for cnt = 0 to P-1{
sum3 = sum3+(C3[cnt]+H3[cnt]+L3[cnt]);
}
mav3 = sum3/P;
MD3 = 0;
For cnt = 0 To P - 1 {
MD3 = MD3 + Abs(H3[cnt] + L3[cnt] + C3[cnt] - mav3);
}
MD3 = MD3 / P;
If MD3 == 0 Then
CCIv3 = 0;
Else
CCIv3 = (H3[0] + L3[0] + C3[0] - mav3) / (0.015 * MD3);
plot3(CCIV3,"atime3");
}
If H4[P] > 0 Then {
sum4 = 0;
for cnt = 0 to P-1{
sum4 = sum4+(C4[cnt]+H4[cnt]+L4[cnt]);
}
mav4 = sum4/P;
MD4 = 0;
For cnt = 0 To P - 1 {
MD4 = MD4 + Abs(H4[cnt] + L4[cnt] + C4[cnt] - mav4);
}
MD4 = MD4 / P;
If MD4 == 0 Then
CCIv4 = 0;
Else
CCIv4 = (H4[0] + L4[0] + C4[0] - mav4) / (0.015 * MD4);
plot4(CCIV4,"atime4");
}
If H5[P] > 0 Then {
sum5 = 0;
for cnt = 0 to P-1{
sum5 = sum5+(C5[cnt]+H5[cnt]+L5[cnt]);
}
mav5 = sum5/P;
MD5 = 0;
For cnt = 0 To P - 1 {
MD5 = MD5 + Abs(H5[cnt] + L5[cnt] + C5[cnt] - mav5);
}
MD5 = MD5 / P;
If MD5 == 0 Then
CCIv5 = 0;
Else
CCIv5 = (H5[0] + L5[0] + C5[0] - mav5) / (0.015 * MD5);
plot5(CCIV5,"atime5");
}
2.
input : Atime1(240),P(14);
var : cnt(0),TM(0);
var : mav1(0),CCIV1(0);
var : TF2(0),sum2(0),mav2(0),MD2(0),CCIv2(0);
var : TF3(0),sum3(0),mav3(0),MD3(0),CCIv3(0);
var : TF4(0),sum4(0),mav4(0),MD4(0),CCIv4(0);
var : TF5(0),sum5(0),mav5(0),MD5(0),CCIv5(0);
Array : C2[130](0),C3[130](0),C4[130](0),C5[130](0);
Array : H2[130](0),H3[130](0),H4[130](0),H5[130](0);
Array : L2[130](0),L3[130](0),L4[130](0),L5[130](0);
if bdate != Bdate[1] Then
var1 = stime;
if date != date[1] Then
var2 = TM[1];
if stime >= var1 Then
TM = TimeToMinutes(stime)-TimeToMinutes(var1);
Else
TM = TimeToMinutes(stime)+var2;
TF2 = TM%Atime1;
if date != date[1] Then{
Condition1 = false;
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then
Condition1 = true;
}
if date != date[1] Then{
Condition2 = false;
if date > date[1]+30 Then
Condition2 = true;
}
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then{
H2[0] = H;
L2[0] = L;
for cnt = 1 to 129{
C2[cnt] = C2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
C2[0] = C;
if H > H2[0] Then H2[0] = H;
if L < L2[0] Then L2[0] = L;
if Bdate != Bdate[1] Then{
H3[0] = H;
L3[0] = L;
for cnt = 1 to 129{
C3[cnt] = C3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
}
C3[0] = C;
if H > H3[0] Then H3[0] = H;
if L < L3[0] Then L3[0] = L;
if Bdate != Bdate[1] and Condition1 == true Then{
H4[0] = H;
L4[0] = L;
for cnt = 1 to 129{
C4[cnt] = C4[cnt-1][1];
H4[cnt] = H4[cnt-1][1];
L4[cnt] = L4[cnt-1][1];
}
}
C4[0] = C;
if H > H4[0] Then H4[0] = H;
if L < L4[0] Then L4[0] = L;
if Bdate != Bdate[1] and Condition2 == true Then{
H5[0] = H;
L5[0] = L;
for cnt = 1 to 129{
C5[cnt] = C5[cnt-1][1];
H5[cnt] = H5[cnt-1][1];
L5[cnt] = L5[cnt-1][1];
}
}
C5[0] = C;
if H > H5[0] Then H5[0] = H;
if L < L5[0] Then L5[0] = L;
CCIV1 = CCI(P);
plot1(CCIV1,"기준차트");
If H2[P] > 0 Then {
sum2 = 0;
for cnt = 0 to P-1{
sum2 = sum2+(C2[cnt]+H2[cnt]+L2[cnt]);
}
mav2 = sum2/P;
MD2 = 0;
For cnt = 0 To P - 1 {
MD2 = MD2 + Abs(H2[cnt] + L2[cnt] + C2[cnt] - mav2);
}
MD2 = MD2 / P;
If MD2 == 0 Then
CCIv2 = 0;
Else
CCIv2 = (H2[0] + L2[0] + C2[0] - mav2) / (0.015 * MD2);
plot2(CCIV2,"atime1");
}
If H3[P] > 0 Then {
sum3 = 0;
for cnt = 0 to P-1{
sum3 = sum3+(C3[cnt]+H3[cnt]+L3[cnt]);
}
mav3 = sum3/P;
MD3 = 0;
For cnt = 0 To P - 1 {
MD3 = MD3 + Abs(H3[cnt] + L3[cnt] + C3[cnt] - mav3);
}
MD3 = MD3 / P;
If MD3 == 0 Then
CCIv3 = 0;
Else
CCIv3 = (H3[0] + L3[0] + C3[0] - mav3) / (0.015 * MD3);
plot3(CCIV3,"일");
}
If H4[P] > 0 Then {
sum4 = 0;
for cnt = 0 to P-1{
sum4 = sum4+(C4[cnt]+H4[cnt]+L4[cnt]);
}
mav4 = sum4/P;
MD4 = 0;
For cnt = 0 To P - 1 {
MD4 = MD4 + Abs(H4[cnt] + L4[cnt] + C4[cnt] - mav4);
}
MD4 = MD4 / P;
If MD4 == 0 Then
CCIv4 = 0;
Else
CCIv4 = (H4[0] + L4[0] + C4[0] - mav4) / (0.015 * MD4);
plot4(CCIV4,"주");
}
If H5[P] > 0 Then {
sum5 = 0;
for cnt = 0 to P-1{
sum5 = sum5+(C5[cnt]+H5[cnt]+L5[cnt]);
}
mav5 = sum5/P;
MD5 = 0;
For cnt = 0 To P - 1 {
MD5 = MD5 + Abs(H5[cnt] + L5[cnt] + C5[cnt] - mav5);
}
MD5 = MD5 / P;
If MD5 == 0 Then
CCIv5 = 0;
Else
CCIv5 = (H5[0] + L5[0] + C5[0] - mav5) / (0.015 * MD5);
plot5(CCIV5,"월");
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 운영자님~~!
연일 무더운 여름 날씨에도 소중한 수식 작성에
늘 감사드리오며
42785번과 같은 동일형식으로
다음 수식을 부탁 드립니다.
//***해외선물 유로화를 예를 들어***//
A)1분봉 차트에서
1)1분봉의 CCI
2)3분봉으로계산되는 CCI
3)10분봉으로계산되는 CCI
4)60분봉으로 계산되는 CCI
5)120분봉으로 계산되는 CCI 를
1분봉 차트에서 동시에 구현 하고 싶을때의 지표식과 변수값
B)120분봉 차트에서
1)120분봉의 CCI
2)240분봉으로계산되는 CCI
3)일봉으로 계산되는 CCI
4)주봉으로 계산 되는 CCI
5)월봉으로 계산되는 CCI 지표 값을
120분봉 차트에서 동시에 구현 하고 싶을때의 지표식과 변수값 부탁 드립니다.
미리 감사드리오며 경배 올립니다.
다음글
이전글