커뮤니티
주석을달아주세요
2018-04-30 13:43:02
126
글번호 118598
아래수식 주석을 달아주세요
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
HH = H;
LL = L;
}
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
plot1(var1,"+1.618");
plot2(var2,"+2.000");
plot3(var3,"+2.618");
plot4(var4,"+3.000");
plot5(var5,"-1.618");
plot6(var6,"-2.000");
plot7(var7,"-2.618");
plot8(var8,"-3.000");
}
이런식으로 위아래 양방향으로 내고 싶습니다
시스템식~
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
HH = H;
LL = L;
}
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
if crossdown(c,var1) Then
buy();
if Crossup(c,var5) Then
sell();
고점저점의예식)
input:left(5),right(5),구분(1);
var:j(0),prehv(0),prelv(0),prehb(0),prelb(0),tmpv(0),tmpb(0),
ovr(0),반등(1),반락(-1);
array:hv[10](0),lv[10](0),hb[10](0),lb[10](0),
r[8](0),fr[8](0);
r[0] = 0;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
r[7] = 1.618;
#==============================================================================#
# 변곡점 계산
#==============================================================================#
//파동선 작성 설명은 자주 했으므로 생략
if highest(h[1],left) <= h then {
prehv = h;
prehb = 0;
}
else
prehb = prehb + 1;
if lowest(l[1],left) >= l then {
prelv = l;
prelb = 0;
}
else
prelb = prelb + 1;
for j = 1 to 9 begin
hb[j] = hb[j] + 1;
lb[j] = lb[j] + 1;
end;
if prehb == right and highest(h,right) <= h[right] then {
for j = 9 downto 2 {
hv[j] = hv[j-1];
hb[j] = hb[j-1];
}
hv[1] = prehv;
hb[1] = prehb;
if lb[1] > hb[2] then {
for j = 9 downto 2 {
lv[j] = lv[j-1];
lb[j] = lb[j-1];
}
tmpv = 0;
for j = hb[1] + 1 to hb[2] - 1 {
if tmpv > l[j] or tmpv ==0 then {
tmpv = l[j];
tmpb = j;
}
}
lv[1] = tmpv;
lb[1] = tmpb;
}
}
if prelb == right and lowest(l,right) >= l[right] then {
for j = 9 downto 2 {
lv[j] = lv[j-1];
lb[j] = lb[j-1];
}
lv[1] = prelv;
lb[1] = prelb;
if hb[1] > lb[2] then {
for j = 9 downto 2 {
hv[j] = hv[j-1];
hb[j] = hb[j-1];
}
tmpv = 0;
for j = lb[1] + 1 to lb[2] - 1 {
if tmpv < h[j] or tmpv ==0 then {
tmpv = h[j];
tmpb = j;
}
}
hv[1] = tmpv;
hb[1] = tmpb;
}
}
#==============================================================================#
# Fibonacci Retracements 계산
#==============================================================================#
//반등과 반락을 모두 표시하게 되면 복잡해지므로 한 방향만 표시하는 것이 옳음
if 구분 == 반등 then {
if crossup(lb[1],hb[1]) then
{
for j = 0 to 7 begin
fr[j] = hv[1] - (hv[1] - lv[1]) * r[j];
end;
ovr = 0;
}
if fr[6]>l then ovr = 1;
}
if 구분 == 반락 then {
if crossup(hb[1],lb[1]) then
{
for j = 0 to 7 begin
fr[j] = lv[1] + (hv[1] - lv[1]) * r[j];
end;
ovr = 0;
}
if fr[6]>l then ovr = 1;
}
#==============================================================================#
# 지표출력
#==============================================================================#
if hb[1]==right then plot1(hv[1],"파동선",GREEN);
if lb[1]==right then plot1(lv[1],"파동선",GREEN);
plot2(fr[0],"0%",BLUE);
plot3(fr[1],"23.6%",RED);
plot4(fr[2],"38.2%",MAGENTA);
plot5(fr[3],"50%",GRAY);
plot6(fr[4],"61.8%",LBLUE);
plot7(fr[5],"76.4%",LGREEN);
plot8(fr[6],"100%",PINK);
if ovr then plot9(fr[7],"161.8%",LMAGENTA); //점 그래프로 표시
답변 1
예스스탁 예스스탁 답변
2018-05-02 10:52:09
안녕하세요
예스스탁입니다.
1
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
#아래 내용은 시작시간에서 종료시간까지의 최고가와 최저가 계산하는 내용
#지정한 사작시간이후의 첫봉이 발생하면
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
#HH에 해당봉 고가저장
HH = H;
#LL에 해당봉 저가저장
LL = L;
}
#종료시간이 다음날 시간이면
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
#종료시간이 시작시간이후 당일의 시간이면
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
#지정한 지표출력시간이면
#지표출력
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
plot1(var1,"+1.618");
plot2(var2,"+2.000");
plot3(var3,"+2.618");
plot4(var4,"+3.000");
plot5(var5,"-1.618");
plot6(var6,"-2.000");
plot7(var7,"-2.618");
plot8(var8,"-3.000");
}
2
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
HH = H;
LL = L;
}
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
#고점+61.8% 상향돌파하면 매수
if crossdown(c,var1) Then
buy();
#저점-61.8% 하향이탈하면 매도
if Crossup(c,var5) Then
sell();
}
3
아래 블러그에 가시면
해당 수식의 출처가 있고 자세한 설명이 있습니다.
내용 참고하시기 바랍니다.
http://blog.naver.com/yahoosir
즐거운 하루되세요
> 태조산 님이 쓴 글입니다.
> 제목 : 주석을달아주세요
> 아래수식 주석을 달아주세요
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
HH = H;
LL = L;
}
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
plot1(var1,"+1.618");
plot2(var2,"+2.000");
plot3(var3,"+2.618");
plot4(var4,"+3.000");
plot5(var5,"-1.618");
plot6(var6,"-2.000");
plot7(var7,"-2.618");
plot8(var8,"-3.000");
}
이런식으로 위아래 양방향으로 내고 싶습니다
시스템식~
input : 시작시간(174000),종료시간(030000);
input : 지표출력시작시간(100000),지표출력종료시간(170000);
var : HH(0),LL(0);
if stime == 시작시간 or (stime > 시작시간 and stime[1] < 시작시간) Then{
HH = H;
LL = L;
}
if 시작시간 > 종료시간 then{
if stime >= 시작시간 or stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if 시작시간 < 종료시간 then{
if stime >= 시작시간 and stime <= 종료시간 Then{
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
}
if stime >= 지표출력시작시간 and stime < 지표출력종료시간 and HH > 0 and LL > 0 then{
var1 = HH+(HH-LL)*1.618;
var2 = HH+(HH-LL)*2.000;
var3 = HH+(HH-LL)*2.618;
var4 = HH+(HH-LL)*3.000;
var5 = LL-(HH-LL)*1.618;
var6 = LL-(HH-LL)*2.000;
var7 = LL-(HH-LL)*2.618;
var8 = LL-(HH-LL)*3.000;
if crossdown(c,var1) Then
buy();
if Crossup(c,var5) Then
sell();
고점저점의예식)
input:left(5),right(5),구분(1);
var:j(0),prehv(0),prelv(0),prehb(0),prelb(0),tmpv(0),tmpb(0),
ovr(0),반등(1),반락(-1);
array:hv[10](0),lv[10](0),hb[10](0),lb[10](0),
r[8](0),fr[8](0);
r[0] = 0;
r[1] = 0.236;
r[2] = 0.382;
r[3] = 0.50;
r[4] = 0.618;
r[5] = 0.764;
r[6] = 1;
r[7] = 1.618;
#==============================================================================#
# 변곡점 계산
#==============================================================================#
//파동선 작성 설명은 자주 했으므로 생략
if highest(h[1],left) <= h then {
prehv = h;
prehb = 0;
}
else
prehb = prehb + 1;
if lowest(l[1],left) >= l then {
prelv = l;
prelb = 0;
}
else
prelb = prelb + 1;
for j = 1 to 9 begin
hb[j] = hb[j] + 1;
lb[j] = lb[j] + 1;
end;
if prehb == right and highest(h,right) <= h[right] then {
for j = 9 downto 2 {
hv[j] = hv[j-1];
hb[j] = hb[j-1];
}
hv[1] = prehv;
hb[1] = prehb;
if lb[1] > hb[2] then {
for j = 9 downto 2 {
lv[j] = lv[j-1];
lb[j] = lb[j-1];
}
tmpv = 0;
for j = hb[1] + 1 to hb[2] - 1 {
if tmpv > l[j] or tmpv ==0 then {
tmpv = l[j];
tmpb = j;
}
}
lv[1] = tmpv;
lb[1] = tmpb;
}
}
if prelb == right and lowest(l,right) >= l[right] then {
for j = 9 downto 2 {
lv[j] = lv[j-1];
lb[j] = lb[j-1];
}
lv[1] = prelv;
lb[1] = prelb;
if hb[1] > lb[2] then {
for j = 9 downto 2 {
hv[j] = hv[j-1];
hb[j] = hb[j-1];
}
tmpv = 0;
for j = lb[1] + 1 to lb[2] - 1 {
if tmpv < h[j] or tmpv ==0 then {
tmpv = h[j];
tmpb = j;
}
}
hv[1] = tmpv;
hb[1] = tmpb;
}
}
#==============================================================================#
# Fibonacci Retracements 계산
#==============================================================================#
//반등과 반락을 모두 표시하게 되면 복잡해지므로 한 방향만 표시하는 것이 옳음
if 구분 == 반등 then {
if crossup(lb[1],hb[1]) then
{
for j = 0 to 7 begin
fr[j] = hv[1] - (hv[1] - lv[1]) * r[j];
end;
ovr = 0;
}
if fr[6]>l then ovr = 1;
}
if 구분 == 반락 then {
if crossup(hb[1],lb[1]) then
{
for j = 0 to 7 begin
fr[j] = lv[1] + (hv[1] - lv[1]) * r[j];
end;
ovr = 0;
}
if fr[6]>l then ovr = 1;
}
#==============================================================================#
# 지표출력
#==============================================================================#
if hb[1]==right then plot1(hv[1],"파동선",GREEN);
if lb[1]==right then plot1(lv[1],"파동선",GREEN);
plot2(fr[0],"0%",BLUE);
plot3(fr[1],"23.6%",RED);
plot4(fr[2],"38.2%",MAGENTA);
plot5(fr[3],"50%",GRAY);
plot6(fr[4],"61.8%",LBLUE);
plot7(fr[5],"76.4%",LGREEN);
plot8(fr[6],"100%",PINK);
if ovr then plot9(fr[7],"161.8%",LMAGENTA); //점 그래프로 표시