• 커뮤니티
  • 질의응답
  • 예스랭귀지 Q&A

커뮤니티

수정부탁드립니다

프로필 이미지
회원
2018-09-03 19:25:33
195
글번호 121792
답변완료
$$,아래수식에서 월물시작 날자와시간를 외부변수로 지정해서 작성하려면 식을 어찌 수정해야할지 몰라 헤매고있습니다,(즉 만기일 개념없이 당월 시작일시를 지정해서 지정일로부터 1개월동안의 당월고,저점의 피보나치수열을 만들고 싶습니다),관리자님 도움부탁드립니다. var : month(0),nday(0),week(0); var :EX(false),HH(0),LL(0); var : t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0),t8(0),t9(0),t10(0); month = int(date/100)-int(date/10000)*100; nday = date - int(date/100)*100; week = DayOfWeek(date); #선물만기 #if Month%3 == 0 and nday >= 8 and nday <= 14 and week == 4 then if nday >= 8 and nday <= 14 and week == 4 then#옵션만기 EX = true; Else EX = false; if EX == false and EX[1] == true Then{ Condition1 = true; HH = H; LL = L; } if Condition1 == true then{ if H > HH Then HH = H; if L < LL Then LL = L; var1 = HH; var2 = LL; var3 = var1-var2; var4 = DayOpen(0); var5 = DayClose(1); plot1(var1,"Maxi"); plot2(var2+var3*0.764,"Outzone"); plot3(var2+var3*0.618,"Return"); plot4(var2+var3*0.500,"Middle"); plot5(var2+var3*0.382,"3차M"); plot6(var2+var3*0.236,"2차M"); plot7(var2+var3*0.112,"1차M"); plot8(var2,"Mini"); plot9(var4,"Open"); plot10(var5,"close"); } Text_Delete(t1); Text_Delete(t2); Text_Delete(t3); Text_Delete(t4); Text_Delete(t5); Text_Delete(t6); Text_Delete(t7); Text_Delete(t8); Text_Delete(t9); Text_Delete(t10); t1 = Text_New(sdate,stime,var1," Maxi :"+NumToStr(var1,2)); t2 = Text_New(sdate,stime,var2+var3*0.764," Outzone :"+NumToStr(var2+var3*0.764,2)); t3 = Text_New(sdate,stime,var2+var3*0.618," Return :"+NumToStr(var2+var3*0.618,2)); t4 = Text_New(sdate,stime,var2+var3*0.500," Middle :"+NumToStr(var2+var3*0.500,2)); t5 = Text_New(sdate,stime,var2+var3*0.382," 3차M :"+NumToStr(var2+var3*0.382,2)); t6 = Text_New(sdate,stime,var2+var3*0.236," 2차M :"+NumToStr(var2+var3*0.236,2)); t7 = Text_New(sdate,stime,var2+var3*0.112," 1차M :"+NumToStr(var2+var3*0.112,2)); t8 = Text_New(sdate,stime,var2," Mini : "+NumToStr(var2,2)); t9 = Text_New(sdate,stime,var4," Open : "+NumToStr(var4,2)); t10 = Text_New(sdate,stime,var5," Close : "+NumToStr(var5,2)); Text_SetStyle(t1,5,2); Text_SetStyle(t2,5,2); Text_SetStyle(t3,5,2); Text_SetStyle(t4,5,2); Text_SetStyle(t5,5,2); Text_SetStyle(t6,5,2); Text_SetStyle(t7,5,2); Text_SetStyle(t8,5,2); Text_SetStyle(t9,5,2); Text_SetStyle(t10,5,2); Text_SetColor(t1,YELLOW); Text_SetColor(t2,YELLOW); Text_SetColor(t3,YELLOW); Text_SetColor(t4,WHITE); Text_SetColor(t5,CYAN); Text_SetColor(t6,CYAN); Text_SetColor(t7,CYAN); Text_SetColor(t8,CYAN); Text_SetColor(t9,WHITE); Text_SetColor(t10,BLACK); $$$,언제나 늘 고맙습니다.
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2018-09-06 08:52:58

안녕하세요 예스스탁입니다. input : 날짜(201800801),시간(90000),N(30); var :Julian(0),HH(0),LL(0),D1(0); var : t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0),t8(0),t9(0),t10(0); Julian = DateToJulian(sdate); if sdate == 날짜 and ((sdate != sdate[1] and stime >= 시간) or (sdate == sdate[1] and stime >= 시간 and stime[1] < 시간)) Then { Condition1 = true; HH = H; LL = L; D1 = Julian; } if Condition1 == true then { if Julian >= D1 and Julian < D1+30 and H > HH Then HH = H; if Julian >= D1 and Julian < D1+30 and L < LL Then LL = L; var1 = HH; var2 = LL; var3 = var1-var2; var4 = DayOpen(0); var5 = DayClose(1); plot1(var1,"Maxi"); plot2(var2+var3*0.764,"Outzone"); plot3(var2+var3*0.618,"Return"); plot4(var2+var3*0.500,"Middle"); plot5(var2+var3*0.382,"3차M"); plot6(var2+var3*0.236,"2차M"); plot7(var2+var3*0.112,"1차M"); plot8(var2,"Mini"); plot9(var4,"Open"); plot10(var5,"close"); } Text_Delete(t1); Text_Delete(t2); Text_Delete(t3); Text_Delete(t4); Text_Delete(t5); Text_Delete(t6); Text_Delete(t7); Text_Delete(t8); Text_Delete(t9); Text_Delete(t10); t1 = Text_New(sdate,stime,var1," Maxi :"+NumToStr(var1,2)); t2 = Text_New(sdate,stime,var2+var3*0.764," Outzone :"+NumToStr(var2+var3*0.764,2)); t3 = Text_New(sdate,stime,var2+var3*0.618," Return :"+NumToStr(var2+var3*0.618,2)); t4 = Text_New(sdate,stime,var2+var3*0.500," Middle :"+NumToStr(var2+var3*0.500,2)); t5 = Text_New(sdate,stime,var2+var3*0.382," 3차M :"+NumToStr(var2+var3*0.382,2)); t6 = Text_New(sdate,stime,var2+var3*0.236," 2차M :"+NumToStr(var2+var3*0.236,2)); t7 = Text_New(sdate,stime,var2+var3*0.112," 1차M :"+NumToStr(var2+var3*0.112,2)); t8 = Text_New(sdate,stime,var2," Mini : "+NumToStr(var2,2)); t9 = Text_New(sdate,stime,var4," Open : "+NumToStr(var4,2)); t10 = Text_New(sdate,stime,var5," Close : "+NumToStr(var5,2)); Text_SetStyle(t1,5,2); Text_SetStyle(t2,5,2); Text_SetStyle(t3,5,2); Text_SetStyle(t4,5,2); Text_SetStyle(t5,5,2); Text_SetStyle(t6,5,2); Text_SetStyle(t7,5,2); Text_SetStyle(t8,5,2); Text_SetStyle(t9,5,2); Text_SetStyle(t10,5,2); Text_SetColor(t1,YELLOW); Text_SetColor(t2,YELLOW); Text_SetColor(t3,YELLOW); Text_SetColor(t4,WHITE); Text_SetColor(t5,CYAN); Text_SetColor(t6,CYAN); Text_SetColor(t7,CYAN); Text_SetColor(t8,CYAN); Text_SetColor(t9,WHITE); Text_SetColor(t10,BLACK); 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수정부탁드립니다 > $$,아래수식에서 월물시작 날자와시간를 외부변수로 지정해서 작성하려면 식을 어찌 수정해야할지 몰라 헤매고있습니다,(즉 만기일 개념없이 당월 시작일시를 지정해서 지정일로부터 1개월동안의 당월고,저점의 피보나치수열을 만들고 싶습니다),관리자님 도움부탁드립니다. var : month(0),nday(0),week(0); var :EX(false),HH(0),LL(0); var : t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0),t8(0),t9(0),t10(0); month = int(date/100)-int(date/10000)*100; nday = date - int(date/100)*100; week = DayOfWeek(date); #선물만기 #if Month%3 == 0 and nday >= 8 and nday <= 14 and week == 4 then if nday >= 8 and nday <= 14 and week == 4 then#옵션만기 EX = true; Else EX = false; if EX == false and EX[1] == true Then{ Condition1 = true; HH = H; LL = L; } if Condition1 == true then{ if H > HH Then HH = H; if L < LL Then LL = L; var1 = HH; var2 = LL; var3 = var1-var2; var4 = DayOpen(0); var5 = DayClose(1); plot1(var1,"Maxi"); plot2(var2+var3*0.764,"Outzone"); plot3(var2+var3*0.618,"Return"); plot4(var2+var3*0.500,"Middle"); plot5(var2+var3*0.382,"3차M"); plot6(var2+var3*0.236,"2차M"); plot7(var2+var3*0.112,"1차M"); plot8(var2,"Mini"); plot9(var4,"Open"); plot10(var5,"close"); } Text_Delete(t1); Text_Delete(t2); Text_Delete(t3); Text_Delete(t4); Text_Delete(t5); Text_Delete(t6); Text_Delete(t7); Text_Delete(t8); Text_Delete(t9); Text_Delete(t10); t1 = Text_New(sdate,stime,var1," Maxi :"+NumToStr(var1,2)); t2 = Text_New(sdate,stime,var2+var3*0.764," Outzone :"+NumToStr(var2+var3*0.764,2)); t3 = Text_New(sdate,stime,var2+var3*0.618," Return :"+NumToStr(var2+var3*0.618,2)); t4 = Text_New(sdate,stime,var2+var3*0.500," Middle :"+NumToStr(var2+var3*0.500,2)); t5 = Text_New(sdate,stime,var2+var3*0.382," 3차M :"+NumToStr(var2+var3*0.382,2)); t6 = Text_New(sdate,stime,var2+var3*0.236," 2차M :"+NumToStr(var2+var3*0.236,2)); t7 = Text_New(sdate,stime,var2+var3*0.112," 1차M :"+NumToStr(var2+var3*0.112,2)); t8 = Text_New(sdate,stime,var2," Mini : "+NumToStr(var2,2)); t9 = Text_New(sdate,stime,var4," Open : "+NumToStr(var4,2)); t10 = Text_New(sdate,stime,var5," Close : "+NumToStr(var5,2)); Text_SetStyle(t1,5,2); Text_SetStyle(t2,5,2); Text_SetStyle(t3,5,2); Text_SetStyle(t4,5,2); Text_SetStyle(t5,5,2); Text_SetStyle(t6,5,2); Text_SetStyle(t7,5,2); Text_SetStyle(t8,5,2); Text_SetStyle(t9,5,2); Text_SetStyle(t10,5,2); Text_SetColor(t1,YELLOW); Text_SetColor(t2,YELLOW); Text_SetColor(t3,YELLOW); Text_SetColor(t4,WHITE); Text_SetColor(t5,CYAN); Text_SetColor(t6,CYAN); Text_SetColor(t7,CYAN); Text_SetColor(t8,CYAN); Text_SetColor(t9,WHITE); Text_SetColor(t10,BLACK); $$$,언제나 늘 고맙습니다.
등록