안녕하세요 예스스탁입니다. 1. Input : Period(10),Obvsig(9),Sto1(10),Sto2(5),Mp1(12),Mp2(26); var1 = Simrido(Period); var2 = OBV; var3 = ma(var2,OBvsig); var4 = StochasticsK(Sto1,sto2); var5 = MACD(Mp1,Mp2); if var1 > var1[1] Then{ value1 = value1+1; value2 = 0; } if var1 < var1[1] Then{ value2 = value2+1; value1 = 0; } if var2 > var2[1] Then{ value3 = value3+1; value4 = 0; } if var2 < var2[1] Then{ value4 = value4+1; value3 = 0; } #매수조건 3개 Condition1 = value1 >= 2 and var2 > var2[1]; Condition2 = value3 >= 2 and var2 > var3 and var1 > var1[1]; Condition3 = var4 >= var4[1] or var5 >= var5[1]; #매도조건 3개 Condition4 = value2 >= 2 and var2 < var2[1]; Condition5 = value4 >= 2 and var2 < var3 and var1 < var1[1]; Condition6 = var4 <= var4[1] or var5 <= var5[1]; if Condition1 and Condition2 and Condition3 Then buy(); if Condition4 and Condition5 and Condition6 Then sell(); 2. 다이버전스에 대한 정확한 정의가 없으셔서 X봉전 값 대비 등락으로 표현했습니다. Input : Period(10),Obvsig(9),Sto1(10),Sto2(5),Mp1(12),Mp2(26),map(10),X(8),N(10); var1 = Simrido(Period); var2 = OBV; var3 = ma(var2,OBvsig); var4 = StochasticsK(Sto1,sto2); var5 = MACD(Mp1,Mp2); var6 = ma(c,maP); if var1 > var1[1] Then{ value1 = value1+1; value2 = 0; } if var1 < var1[1] Then{ value2 = value2+1; value1 = 0; } if var2 > var2[1] Then{ value3 = value3+1; value4 = 0; } if var2 < var2[1] Then{ value4 = value4+1; value3 = 0; } #매수조건 3개 Condition1 = value1 >= 2 and var2 > var2[1]; Condition2 = value3 >= 2 and var2 > var3 and var1 > var1[1]; Condition3 = var4 >= var4[1] or var5 >= var5[1]; #매도조건 3개 Condition4 = value2 >= 2 and var2 < var2[1]; Condition5 = value4 >= 2 and var2 < var3 and var1 < var1[1]; Condition6 = var4 <= var4[1] or var5 <= var5[1]; if Condition1 and Condition2 and Condition3 Then value99 = 1; if Condition4 and Condition5 and Condition6 Then value99 = -1; if value99 == 1 Then PlotPaintBar(H,L,"1",RED); if value99 == -1 Then PlotPaintBar(H,L,"1",blue); if (var5 > var5[X] and var6 < var6[X]) or (var5 < var5[X] and var6 > var6[X]) Then PlotPaintBar(H,L,"1",GREEN); if highest(var6,N) <= lowest(var6,N)+0.5 Then PlotPaintBar(H,L,"1",Pink); 3. 틱차트의 봉은 분할되는 시간의 경계가 하나의 봉안에 포함될 경우가 있어 정확히 작성이 가능하지 않습니다. 아래 정도로만 작성이 가능합니다. input : Atime(5),P1(5),P2(10),P3(20),P4(60),P5(120); var : cnt(0),count(0),sum1(0),mav1(0),sum2(0),mav2(0),sum3(0),mav3(0),sum4(0),mav4(0),sum5(0),mav5(0); Array : CC[100](0); var1 = TimeToMinutes(stime)%Atime; if dayindex() == 0 or (var1 < var1[1] and stime > stime[1]) Then{ for cnt = 1 to 99{ CC[cnt] = CC[cnt-1][1]; } } CC[0] = C; sum1 = 0; sum2 = 0; sum3 = 0; sum4 = 0; sum5 = 0; for count = 0 to P5{ if count < P1 Then sum1 = sum1+CC[count]; if count < P2 Then sum2 = sum2+CC[count]; if count < P3 Then sum3 = sum3+CC[count]; if count < P4 Then sum4 = sum4+CC[count]; if count < P5 Then sum5 = sum5+CC[count]; } mav1 = sum1/P1; mav2 = sum2/P2; mav3 = sum3/P3; mav4 = sum4/P4; mav5 = sum5/P5; plot1(mav1); plot2(mav2); plot3(mav3); plot4(mav4); plot5(mav5); 4. Var : Pivot(0),Resist1(0),Resist2(0),support1(0),support2(0),Resist3(0),Support3(0); Pivot = (DayHigh(1)+DayLow(1)+DayClose(1))/3; Resist1 = 2*Pivot-DayLow(1); Resist2 = Pivot+DayHigh(1)-DayLow(1); Resist3 = dayhigh(1)+2*(Pivot-daylow(1)); support1 = 2*Pivot-DayHigh(1); support2 = Pivot-DayHigh(1)+DayLow(1); support3 = daylow(1)-2*(dayhigh(1)-Pivot); Plot1(Pivot, "피봇포인트"); Plot2(Resist1, "1차저항"); Plot3(Resist2, "2차저항"); Plot4(Resist3, "3차저항"); Plot5(support1, "1차지지"); Plot6(support2, "2차지지"); Plot7(support3, "3차지지"); 즐거운 하루되세요 > 파파 님이 쓴 글입니다. > 제목 : 문의드립니다. > 안녕하세요...예트 사용하려고 하는데, 코딩이 안되서 부탁드립니다. 첫번째. <시스템> 틱차트 1. ((심리도가 하락없는 비연속 또는 연속으로 2칸 상승할때)and (OBV가 동시에 시그날9선 위로 한봉이상상승)) 2. ((OBV가 하락없는 비연속 또는 연속으로 2봉 상승할때)and (값은 시그널9선 위이고 심리도가 동시에 한칸이상상승)) 3. and(스토캐스틱 or MACD 둘중 하나가 상승중이거나 하락멈춤(하락하다가 수평전환)) 위 세가지 경우를 만족하면 매수신호, 반대의 형태로 신호가 오면 매도신호를 발생하는 시스템식을 만들고 싶습니다. 하락신호 발생후 상승신호 나오면 매도청산신호와 동시에 매수신호 발생. 상승신호 발생후 하락신호 나오면 매수청산신호와 동시에 매도신호 발생. 확정신호 전에 예비신호가 있으면 좋겠습니다. (완성봉의 종가기준) 두번째. <강조식> 틱차트 1. 위 시스템과 같은 방식으로 강조식도 부탁드립니다. 상승신호 시에는 상승신호부터 다음 하락신호까지 빨간색으로, 하락신호 시에는 다음 상승신호까지 파란색으로 봉에 표시하고 싶습니다. 2. 단, 위 두 강조식 표시 중에 MACD와 가격이평(이평기간 조정가능-외부변수처리) 간에 다이버전스 발생구간(8봉<-외부변수처리)이 생기면 연녹색으로 표시되는 것을 추가하고 싶습니다. 3. 틱 10(외부변수처리)봉 종가이평이 선물포인트 기준으로 0.5포인트 이내에서 움직 일 경우 주황색으로 표시하고 싶습니다. 세번째. <지표> 틱차트 상에 분봉이평선(5,10,20,60,120 이평)을 표시하고 싶은데, 타종목 참조가 안되더군여... 분봉 단위 및 이평종류는 외부변수로 조정가능 했으면 합니다. 코딩으로 가능할 것 같은데 부탁드립니다. 네번째. <지표> 틱차트 상에 피봇선을 지지,저항선 각각 3개씩 만들고 싶습니다. 부탁드립니다. 한번에 너무 많죠? 가능하시면 첨부파일로 주시고, 주석 부탁드립니다. 제 PC 저장경로 적어주시면 고맙겠습니다. 감사합니다.