국내주식 적용용입니다. 차트1 30분봉 차트2 월봉 매수조건 1. 월봉(차트2) RSI(24) < 45 2. 30분봉(차트1) RSI(10) < 30 일때 10만원 매수 매수 조건 1. 월봉(차트2) RSI(24) < 45 (기본값) 2. 30분봉(차트1) RSI(10) < 30 일때 10만원 매수 최초 매수단가에서 2% 하락시 마다 1계약 추가 매수 청산 조건 1. 각 계약별 진입가에서 2% 수익시 개별 청산 * 특이사항 분할 매수후 매수분에 일부가 청산될 경우 다시 그 조건에 매수될수 있게 수식 요청드림니다. 예를들어 1차 진입후 2차 진입 3차 진입후 3차 진입계약분이 2% 수익시 청산후 다시 3차 진입 조건 발생시 매수진입이 되는 조건으로 요청드림니다. ~ 매수 진입후 청산되지 않을 만큼 반등했다가 다시 하락해서 그 가격으로 오면 추가로 진입되지 않게.....

input : Period(5),선두께(2); Var:상승색(red), 하락색(blue); input : 바닥상1(2),바닥하1(1),바닥상2(2),바닥하2(1),봉상1(2),봉하1(1),틱1(0),틱2(1); Var:j(0),T(0),txx(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0),TL9(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0); Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; } LoVal[0] = L; LoBar[0] = 0; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,하락색); Tx = Text_New(date11,time11,Value11,"●"); Text_SetColor(Tx,Blue); Text_SetStyle(Tx,2,2); Text_SetSize(tx,5); date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } #Text_Delete(txx); Txx = Text_New(date11,time11,Value11,"●"); Condition99 = true; Text_SetColor(Txx,Red); Text_SetStyle(Txx,2,2); Text_SetSize(txx,30); if Condition99 == true and Loval[0] <= loval[1]-PriceScale*틱2 Then { Condition99 = False; Text_Delete(txx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date22 = date[0]; time22 = stime[0]; TL_SetEnd(TL2[0],date22,time22,fr[0]); TL_SetEnd(TL2[1],date22,time22,fr[1]); TL_SetEnd(TL2[2],date22,time22,fr[2]); Text_SetLocation(TX2[2],date22,time22,fr[2]); TL_SetEnd(TL2[3],date22,time22,fr[3]); TL_SetEnd(TL2[4],date22,time22,fr[4]); Text_SetLocation(TX2[4],date22,time22,fr[4]); TL_SetEnd(TL2[5],date22,time22,fr[5]); TL_SetEnd(TL2[6],date22,time22,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); if Condition99 == true and Loval[0] <= loval[1]-PriceScale*틱2 Then { Condition99 = False; Text_Delete(txx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; } HiVal[0] = H; HiBar[0] = 0; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); TL1 = TL_New(date11,time11,Value11,date12,time12,Value12); TL_SetColor(TL1,상승색); Tx1 = Text_New(date11,time11,Value11,"●"); Text_SetColor(Tx1,Red); Text_SetStyle(Tx1,2,2); Text_SetSize(tx1,5); date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } Condition1 = False; if Condition99 == true and Loval[0] >= Loval[1]-PriceScale*틱1 Then { Condition99 = False; Text_Delete(txx); PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav"); } } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; TL_SetEnd(TL3[0],date32,time32,fr[0]); TL_SetEnd(TL3[1],date32,time32,fr[1]); TL_SetEnd(TL3[2],date32,time32,fr[2]); Text_SetLocation(TX3[2],date32,time32,fr[2]); TL_SetEnd(TL3[3],date32,time32,fr[3]); TL_SetEnd(TL3[4],date32,time32,fr[4]); Text_SetLocation(TX3[4],date32,time32,fr[4]); TL_SetEnd(TL3[5],date32,time32,fr[5]); TL_SetEnd(TL3[6],date32,time32,fr[6]); TL_Delete(tl); TL = TL_New(sdate,stime,Value12,NextBarSdate,NextBarStime,NextBarOpen); } } TL_SetSize(TL1,선두께); 추세선이 전환되면 그 추세가 ""안 끝났어도 실시간""으로 크기를 시작점에 표기. 그 추세선이 계속 커지면 크기를 계속 수정 변경하면서 추세가 바뀔 때까지 표기. 추세선이 역으로 전환되면 직전 크기 숫자는 "지우고" 새로운 추세크기만 다시 표기 시작. 차트가 지저분해서 마지막 추세선의 크기만 실시간으로 표기합니다. 감사합니다.

1.종목검색 M20=ma(c,20); M60=ma(c,60); LL=Lowestsince(1,Crossdown(M20,M60),M20); M20<M60 && Crossup(C,LL) 2. 위 수식 LL라인 그리기 좋은 하루되십시요,,

a1=shift(close,-midperiod+1); a2=ma(c,20,지수); a3=shift(crossup(a1,a2),midperiod-1); midperiod 26 항상 감사합니다

항상 감사드립니다 아래 79275 답변중 1.시스템 2.지표식이 구현되질 안씁니다 오류수정 부탁드립니다 시스템 1 input : 기간(20),pt(5); var : A(0); A = WMa(C,기간); if A > A[1]*(1+pt/1000) Then Buy(); if A < A[1]*(1-pt/1000) Then Sell(); 지표 2 input : 기간(20),pt(5); var : A(0),t(0); A = WMA(C,기간); if A > A[1]*(1+pt/1000) Then t = 1; if A < A[1]*(1-pt/1000) Then t = -1; if A <= A[1]*(1+pt/1000) and A >= A[1]*(1-pt/1000) Then t = 0; Plot1(t,"지표",iff(T==1,red,blue)); plot2(0,"기준선");

아래 차트 검색 코드를 아래와 같이 작성하고 사용자함수의 MessageLog를 찍어보면 호출이 한번만 되어야 될 것 같은데 캔들 봉마다 호출이 반복되고 있네요. 잘 이해가 되지 않습니다. if ( DataCompress == 2 && date != date[1] && date == TargetDate ) Then { : : nTick = MS_CalcTickUnit(C); : : } else if ( DataCompress == 2 && date == TargetDate ) Then { } 제가 작성한 사용자함수는 호가단위를 계산하는 함수입니다. ////////////////////////////////////////////////////////////// input : Price(Numeric); var : nTickUnit(1); nTickUnit = 1; if Price < 1000 Then nTickUnit = 1; Else if Price < 5000 Then nTickUnit = 5; Else if Price < 10000 Then nTickUnit = 10; Else if Price < 50000 Then nTickUnit = 50; Else if Price < 100000 Then nTickUnit = 100; Else if CodeCategory == 1 && Price < 500000 Then nTickUnit = 500; Else if CodeCategory == 1 && Price >= 500000 Then nTickUnit = 1000; Else if CodeCategory == 2 && Price >= 500000 Then nTickUnit = 100; MessageLog("Price = %.0f.... TickUnit = %.0f", Price, nTickUnit ); MS_CalcTickUnit = nTickUnit;

박스 상하단에서 중심은 나오는데 0.382하고 0.618도 부탁드립니다 input : Period(12),선두께(2); Var:상승색(Red), 하락색(Blue); Var:j(0),T(0); Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0), date21(0),date22(0),time21(0),time22(0), date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0); Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/; Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0); var : box(0),box1(0); r[0] = 0; r[1] = 2; r[2] = 3.; r[3] = -1; r[4] = -2.; r[5] = 1; r[6] = 0.5; For j = 0 To 19 { HiBar[j] = HiBar[j] + 1; LoBar[j] = LoBar[j] + 1; } if crossup(c,highest(H,Period)[1]) Then T = 1; if CrossDown(c,Lowest(L,Period)[1]) Then T = -1; If T == -1 Then { If T[1] != -1 Then { For j = 18 DownTo 0 { LoVal[j+1] = LoVal[j]; LoBar[j+1] = LoBar[j]; //ZZ[j+1] = ZZ[j]; } LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date11 = date[HiBar[0]]; time11 = stime[HiBar[0]]; Value11 = HiVal[0]; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date21 = date[HiBar[0]]; time21 = stime[HiBar[0]]; date22 = date[0]; time22 = stime[0]; for j = 0 to 6 { fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]); } box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,하락색); Box_SetFill(box,true); } If LoVal[0] > L Then { LoVal[0] = L; LoBar[0] = 0; //ZZ[0] = L; date12 = date[LoBar[0]]; time12 = stime[LoBar[0]]; Value12 = LoVal[0]; date22 = date[0]; time22 = stime[0]; Box_SetEnd(box,date12,time12,Value12); } } If T == 1 Then { If T[1] != 1 Then { For j = 18 DownTo 0 { HiVal[j+1] = HiVal[j]; HiBar[j+1] = HiBar[j]; //ZZ[j+1] = ZZ[j]; } HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date11 = date[LoBar[0]]; time11 = stime[LoBar[0]]; Value11 = LoVal[0]; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; date31 = date[LoBar[0]]; time31 = stime[LoBar[0]]; date32 = date[0]; time32 = stime[0]; for j = 0 to 5 { fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]); } box = box_new(date11,time11,Value11,date12,time12,Value12); Box_SetColor(box,상승색); Box_SetFill(box,true); } If HiVal[0] < H Then { HiVal[0] = H; HiBar[0] = 0; //ZZ[0] = H; date12 = date[HiBar[0]]; time12 = stime[HiBar[0]]; Value12 = HiVal[0]; TL_SetEnd(TL1, date12,time12,Value12); date32 = date[0]; time32 = stime[0]; Box_SetEnd(box,date12,time12,Value12); } }

선물차트에서 볼린저밴드 상단을 터치하고 음봉이 나왔을때 매도 손절은 뒤이어 양봉이 나오면 손절 볼린저밴드 하단을 터치하고 양봉이 나왔을때 매수 손절은 뒤이어 음봉이 나오면 손절 시스템식 부탁드립니다 감사합니다

> [시스템 내용] 1. 최초매수 - 20이평-60이평 데드크로스 발생시 최초100주 매수합니다. 매수청산 - 직전 집입 또는 청산 거래가격의 4% 상승시 10주씩 분할청산 합니다. 추가매수 - 직전 집입 또는 청산 가격의 3% 하락시 10주씩 추가매수 합니다. 2. 보유수량이 모두 청산 되면 다시 20이평 60이평 데드크로스 발생시 100주매수 다시 10주씩 분할 매수매도를 반복하는 시스템을 만들고 싶습니다. 안녕하세요 예스스탁입니다. 피라미딩을 모든진입신호허용으로 설정하고 적용하시면 됩니다. var : LP(0); var1 = ma(C,20); Var2 = ma(C,60); if MarketPosition == 0 and CrossDown(var1,Var2) Then Buy("b",OnClose,DEF,100); if MarketPosition == 1 Then { if CurrentContracts > CurrentContracts[1] Then LP = LatestEntryPrice(0); if CurrentContracts < CurrentContracts[1] Then LP = LatestExitPrice(0); Buy("bb",Atlimit,LP*0.97,10); ExitLong("bx",AtLimit,LP*1.04,"",10,1); } 잘 작동하다가도 가끔씩 이런 현상이 나타나네요. 특정 조건 상황에서 생기는 것 같은데 도통 알 수가 없어 문의 드립니다. 오류1 삼성전자10분봉 차트인데 12월1일 74000원 청산 신호 나온 후 다음 청산 77000원, 그 다음청산 80100원도 안나오고 있다가 1월말에 매수신호가 나오네요??? 오류2 현대미포조선 10분봉 차트인데 역시 7월18일 이후로 청산 신호가 나오질 않습니다. 수정 좀 부탁 드립니다. 감사합니다. 행복한 하루되세요~~~