커뮤니티

꾸벅 잘부탁드요 항상 감사

프로필 이미지
매치다는
2018-03-21 20:57:36
181
글번호 117585
답변완료
아래식 으로 매수 신호가 발생 하는 당일 기준으로 종목을 검색하고자 합니다 1,510,20,60,120 이평 이 정배열 종목 2,이평이격도 5,10,20,60,120 3%이내근접 1호 이상 3,일봉 , 3분봉 에서 사용 하고자 합니다 4,주가범위 0일전 종가가 2000 원 이상 60000 만원 이하 #### 이평 ,, 이격도 변수처리 부탁 드려요 input : dayLen(18); var : ii(0); Var1 = (close - close[DayLen - 1]) / (DayLen - 1); Var2 = 0; For ii = 2 To DayLen - 1 begin Var2 = Var2 + abs(close[DayLen - ii] - Close[DayLen - 1] - (ii - 1) * Var1); end; If Var2 <> 0 Then { If DayLen / 2 == 0 Then Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - (DayLen * (DayLen - 2) / 2 + DayLen / 2) * Var1; Else Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - DayLen * (DayLen - 1) / 2 * Var1; If Var3 > 0 Then Var4 = (Var2 - Var3) / 2 + Var3; Else Var4 = (Var2 + Var3) / 2; Var5 = Var4 / Var2 * 100; If Var1 > 0 And Var5 < 20 Then buy("매수", Atmarket); If Var1 < 0 And Var5 > 80 Then sell("매도", Atmarket); }
종목검색
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2018-03-22 11:33:26

안녕하세요 예스스탁입니다. input : dayLen(18),P1(5),P2(10),P3(20),P4(60),P5(120); var : ii(0); value1 = ma(C,P1); value2 = ma(C,P2); value3 = ma(C,P3); value4 = ma(C,P4); value5 = ma(C,P5); value6 = max(value1,value2,value3,value4,value5); value7 = min(value1,value2,value3,value4,value5); Condition1 = var1 > var2 and var2 > var3 and var3 > var4 and var4 > var5; Condition2 = value6 <= value7*1.03; Condition3 = C >= 2000 and C <= 60000; Var1 = (close - close[DayLen - 1]) / (DayLen - 1); Var2 = 0; For ii = 2 To DayLen - 1 begin Var2 = Var2 + abs(close[DayLen - ii] - Close[DayLen - 1] - (ii - 1) * Var1); end; If Var2 <> 0 Then { If DayLen / 2 == 0 Then Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - (DayLen * (DayLen - 2) / 2 + DayLen / 2) * Var1; Else Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - DayLen * (DayLen - 1) / 2 * Var1; If Var3 > 0 Then Var4 = (Var2 - Var3) / 2 + Var3; Else Var4 = (Var2 + Var3) / 2; Var5 = Var4 / Var2 * 100; If Var1 > 0 And Var5 < 20 and Condition1 == true and Condition2 == true and Condition3 == true Then find(1); } 즐거운 하루되세요 > 매치다는 님이 쓴 글입니다. > 제목 : 꾸벅 잘부탁드요 항상 감사 > 아래식 으로 매수 신호가 발생 하는 당일 기준으로 종목을 검색하고자 합니다 1,510,20,60,120 이평 이 정배열 종목 2,이평이격도 5,10,20,60,120 3%이내근접 1호 이상 3,일봉 , 3분봉 에서 사용 하고자 합니다 4,주가범위 0일전 종가가 2000 원 이상 60000 만원 이하 #### 이평 ,, 이격도 변수처리 부탁 드려요 input : dayLen(18); var : ii(0); Var1 = (close - close[DayLen - 1]) / (DayLen - 1); Var2 = 0; For ii = 2 To DayLen - 1 begin Var2 = Var2 + abs(close[DayLen - ii] - Close[DayLen - 1] - (ii - 1) * Var1); end; If Var2 <> 0 Then { If DayLen / 2 == 0 Then Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - (DayLen * (DayLen - 2) / 2 + DayLen / 2) * Var1; Else Var3 = accumN(close, DayLen) - DayLen * close[DayLen - 1] - DayLen * (DayLen - 1) / 2 * Var1; If Var3 > 0 Then Var4 = (Var2 - Var3) / 2 + Var3; Else Var4 = (Var2 + Var3) / 2; Var5 = Var4 / Var2 * 100; If Var1 > 0 And Var5 < 20 Then buy("매수", Atmarket); If Var1 < 0 And Var5 > 80 Then sell("매도", Atmarket); }