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

커뮤니티

수식부탁드림니다=================

프로필 이미지
leekss1
2017-05-26 06:05:53
178
글번호 109854
답변완료
아래지표식을 시스템식으로바꾸고싶슴니다 09:05부터 15:00 까지 va2가 전봉보다 크면 보유잔고 청산후 매수 va2가 전봉보다 작으면 보유잔고 청산후 매도 매수매도 진입후 4틱이익이면 청산 15:00 에모두청산후 진입금지 시스템식으로 수정좀부탁드립니다 그리고 시스템으로 적용하는방법좀 알려주세요 감사합니다 //----------------------------------------------------------------------------------- Input : Period1(10),Period5(10),period9(10),테마값(10),단기급증(16),단기급감(13),단기급등락(130), 장기급증(10.8),장기급감(01.8),장기급등락(15),돌파(215),급변(100),단기급변(50),순매수급증보정(2.6), 순매수급감보정(2.6),순매수보정한계(350), 순매수00급증보정(3.6),순매수00급감보정(3.6),순매수00보정한계(350)/*,고저기간(0)*/ ,LENGTH1(32) ,LENGTH2(230),과열(130),되돌림(30),tsfPeriod(134),봉완성(303); Var : va(0); Var : va1(0); Var : va2(0); Var : va3(0); Var : va4(0); Var : va9(0); Var : va11(0); Var : va12(0); Var : va15(0); Var : va33(0); Var : va38(0); Var : va77(0); Var : va87(0); Var : va88(0); Var : value(0); Var : vp(0),II(0),AA(0),BB(0); var : N(0),T(0),EP1(0),EP2(0); var : ema11(0),ema12(0),ema13(0); var : ema21(0),ema22(0),ema23(0),cnt1(0),cnt2(0); var : vmin(0),vmax(0); var : TSF(0),ss(0),sss(0), TS(0),second(0); EP1 = 2/(LENGTH1+1); EP2 = 2/(LENGTH2+1); if Bdate != Bdate[1] Then{ II = 0; BB = 0; AA = 0; } II = II+1; BB = BB+Bids; AA = AA+Asks; if II < Period5 Then{ va = (BB/II)-(AA/II)+8000; va4 = (BB/II)-(AA/II)+8000; } else{ va = ma(bids,period5)-ma(asks,period5)+8000; va4 = ma(bids,period5)-ma(asks,period5)+8000; } if II < Period1 Then{ va1 = (BB/II)-(AA/II)+8000; va2 = (BB/II)-(AA/II)+8000; va3 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; va3 = ma(bids,period1)-ma(asks,period1)+8000; } if II < Period9 Then{ va9 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va9 = ma(bids,period9)-ma(asks,period9)+8000; } //순매수5이평의 급등락축소시작---------------------------- if ii > 1 and va >va[1]+장기급등락 then va = ((va -va[1])/장기급증)+va[1]; if ii > 1 and va <va[1]-장기급등락 then va = va[1]-((va[1] -va)/장기급감); If ii >= 2 Then { //순매수 일정차 이상의급등락축소시작---------------------------- //if va1 >va1[1]+급등락 then va1 = va1 -급등락; if va1 >va1[1]+단기급등락 then va1 = ((va1 -va1[1])/단기급증)+va1[1]; //if va1 >va1[1]+소등락 then va1 = va1 - 소등락; if va1 <va1[1]-단기급등락 then va1 = va1[1]-((va1[1] -va1)/단기급감); //if va1 <va1[1]-급등락 then va1 = va1 + 급등락; //if va1 <va1[1]-소등락 then va1 = va1 + 소등락; //급등락축소시작---------------------------- //순매수 일정차 이하의급등락축소시작---------------------------- if va2 >va2[1]+순매수보정한계 then va2 = ((va2 -va2[1])*순매수급증보정)+va2[1]; if va2 <va2[1]-순매수보정한계 then va2 = va2[1]-((va2[1] -va2)*순매수급감보정); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*3.9)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*3.9); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*0.8)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*0.8); //1이평 막대표시 ----------------------------------------------- If va2 > va2[1] Then { Plot10(va2, "매수잔량 우위"); Plot11(0, "매도잔량 우위"); } Else{ Plot10(0, "매수잔량 우위"); Plot11(va2, "매도잔량 우위"); } //5이평 막대표시 ----------------------------------------------- If va > va[1] Then { Plot3(va, "5매수총잔량 우위"); Plot4(0, "5매도총잔량 우위"); } Else{ Plot3(0, "5매수총잔량 우위"); Plot4(va, "5매도총잔량 우위"); } PlotBaseLine1(12000,"기준선12"); PlotBaseLine2(11000,"기준선11"); PlotBaseLine5(va15-300,"기준선아래"); //테마합 일정 수량차이상의 급등락 표시 if va4 > va4[1]+ 급변 Then{plot55(va4-100,"급등");} if va4 < va4[1]- 급변 Then{plot46(va4-100,"급락");} } // if Highest(va1,고저기간 )==0 then{ // va11=Lowest(va1,고저기간 ); if ii >= 2 and va2 > va2[1]+ 단기급변 Then{plot66(va2,"단기");} if ii >= 2 and va2 < va2[1]- 단기급변 Then{plot66(va2,"단기");} Plot99(va2, "순매수1차보정",iff(va2>va2[1]-00,RED,iff(va2<va2[1]+00,BLUE,BLACK))); //va4=va4*0.8; if va4 >va4[1]+20 then va4 = ((va4 -va4[1])*0.3)+va4[1]; if va4 <va4[1]-20 then va4 = va4[1]-((va4[1] -va4)*0.3); Plot59(va4, "순매수",iff((va4 )>(va2)+00,BLACK,iff((va4 )<(va2 )-00,BLACK,BLACK))); if va2 >va2[1]+50 then va15 = ((va2 -va2[1])*0.3)+va2[1]; if va2 <va2[1]-50 then va15 = va2[1]-((va2[1] -va2)*0.3); if va15 >va15[1]+70 then va15 = ((va15 -va15[1])*0.9)+va15[1]; if va15 <va15[1]-70 then va15 = va15[1]-((va15[1] -va15)*0.9); //-------------------------------------------- if va15 < va2 then {vp=((va2-va15)/2)+va15;} if va2 < va15 then {vp=((va15-va2)/2)+va2;} if va2 > va15 then va33 = (va2 - va15) / 2 + va15; if va15 > va2 then va33 = (va15 - va2) / 2 + va2; plot47(va33,"반반"); //Plot20(vp, "반"); plot20(vp+100, "반",iff(vp>vp[1]+00,red,iff(vp<vp[1]-00,BLUE,BLACK))); /*TSF = LRL(va4,tsfPeriod)+LRS(va4,tsfPeriod); if TSF >TSF[1]+220 then TSF = ((TSF -TSF[1])*0.6)+TSF[1]; if TSF <TSF[1]-220 then TSF = TSF[1]-((TSF[1] -TSF)*0.6); Plot60(TSF,"TSF",iff(TSF>TSF[1]+00,red,iff(TSF<TSF[1]-00,BLUE,BLACK))); */ Plot60(va15, "순매수1"/*,iff(va2>va2[1]+00,RED,iff(va2<va2[1]-00,BLUE,WHITE))*/); if ii == 1 Then ema11 = va3; else ema11 = va3 * EP1 +ema11 * (1-EP1); if ii <= 2 Then ema12 = ema11; else ema12 = ema11 * EP1 +ema12 * (1-EP1); if ii <= 3 Then ema13 = ema12; else ema13 = ema12 * EP1 +ema13 * (1-EP1); //순매수를 테마로 if ii >= 3 then va77 = (테마값 * ema11) - (테마값 * ema12) + (ema13); Plot58(va77, "테마"); va88 = va77; if va2 < va77 and va3 > va77 Then { va88 = va3; } if va2 > va77 and va3 < va77 Then { va88 = va3; if va88 >va88[1]+20 then va88 = ((va88 -va88[1])*0.5)+va88[1]; if va88 <va88[1]-20 then va88 = va88[1]-((va88[1] -va88)*0.5); } Plot95(va88, "테마합"); if ii == 1 Then ema21 = va88; Else ema21 = va88 * EP2 +ema21 * (1-EP2); if ii <= 2 Then ema22 = ema21; Else ema22 = ema21 * EP2 +ema22 * (1-EP2); if ii <= 3 Then ema23 = ema22; else ema23 = ema22 * EP2 +ema23 * (1-EP2); if ii >= 3 then va87 = (4.2 * ema21) - (4.2 * ema22) + (ema23); Plot78(va87, "테마합테마"); // plot78(va87+100, "테마합테마",iff(va87>va87[1]+00,red,iff(va87<va87[1]-00,BLUE,BLACK))); if ii >= 2 then{ //TSF 막대표시 ----------------------------------------------- If vp[1] < va4+00 Then { Plot45(va2-100, "순매수상승 우위"); Plot44(0, "순매수하락 우위"); } If vp[1] > va4-00 Then{ Plot45(0, "순매수상승 우위"); Plot44(va2-100, "순매수하락 우위"); } //매수매도신호------------------------------------------------------- If va4[1]+300 < va4 Then{ //Plot96(va4+200, "매/수"); } If va4[1]-300 > va4 Then{ // Plot97(va4+200, "매/도"); } if va3 > va77 and va3 > va77+과열 Then{ plot37(va3,"매도유리");} // PlaySound("C:￦예스트레이더￦data￦Sound￦Bell2.wav"); if va3 < va77 and va3 < va77-과열 Then{ plot38(va3,"매수유리");} // PlaySound("C:￦예스트레이더￦data￦Sound￦Bell2.wav"); //------------------------------------------------------------------------- if /*sss<=0 and*/ va2[1] > va2 Then { /*sss=1;*/ Plot96(va2, "sall"); //PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav"); } if/* sss>=0 and*/ va2[1] < va2 Then { /* sss=-1;*/ Plot97(va77-150, "bye"); //PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav"); } //--------------------------------------------------------------------------- if CrossUp(va4,va2) Then //if va2[2] > va2[1] and va2[1]+00 < va2 Then { plot85(va2-230,"y매수"); PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav"); } if CrossDown(va4,va2) Then //if va2[2] < va2[1] and va2[1]+00 > va2 Then { plot86(va2+250,"y매도"); PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav"); } if va9 >va9[1]+순매수00보정한계 then va9 = ((va9 -va9[1])*순매수00급증보정)+va9[1]; if va9 <va9[1]-순매수00보정한계 then va9 = va9[1]-((va9[1] -va9)*순매수00급감보정); plot98(va9,"순매수00",iff((va9 )>(va2)+00,RED,iff((va9 )<(va2 )-00,BLUE,BLACK))); } vmin = min(va2,va15); vmax = max(va2,va15); if va2 > va15 then va33 = (va2 - va15) / 2 + va15; if va15 > va2 then va33 = (va15 - va2) / 2 + va2; plot47(va33,"반반"); #봉시작 var1 = TimeToMinutes(stime)*60; var2 = FracPortion(stime/100)*100;//시작시간 초 SS = var1+var2; #봉끝 value1 = TimeToMinutes(time)*60; value2 = FracPortion(time/100)*100;//&#44561;시간 초 TS = value1+value2; Second = TS-SS; if second < 봉완성 Then plot27(vmin-200,"체결단"); Else plot28(vmin-200,"체결장");
시스템
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2017-05-26 11:25:26

안녕하세요 예스스탁입니다. 수식에서 va2가 어떤값을 의미하는지 모르겠습니다. 시스템식과 지표식 같이 올려드립니다. va2값 확인하시기 바랍니다. 식작성 및 식적용은 프로그램 도움말 참고하시기 바랍니다. 1. 시스템 //----------------------------------------------------------------------------------- Input : Period1(10),Period5(10),period9(10),테마값(10),단기급증(16),단기급감(13),단기급등락(130), 장기급증(10.8),장기급감(01.8),장기급등락(15),돌파(215),급변(100),단기급변(50),순매수급증보정(2.6), 순매수급감보정(2.6),순매수보정한계(350), 순매수00급증보정(3.6),순매수00급감보정(3.6),순매수00보정한계(350)/*,고저기간(0)*/ ,LENGTH1(32) ,LENGTH2(230),과열(130),되돌림(30),tsfPeriod(134),봉완성(303); Var : va(0); Var : va1(0); Var : va2(0); Var : va3(0); Var : va4(0); Var : va9(0); Var : va11(0); Var : va12(0); Var : va15(0); Var : va33(0); Var : va38(0); Var : va77(0); Var : va87(0); Var : va88(0); Var : value(0); Var : vp(0),II(0),AA(0),BB(0); var : N(0),T(0),EP1(0),EP2(0); var : ema11(0),ema12(0),ema13(0); var : ema21(0),ema22(0),ema23(0),cnt1(0),cnt2(0); var : vmin(0),vmax(0); var : TSF(0),ss(0),sss(0), TS(0),second(0); EP1 = 2/(LENGTH1+1); EP2 = 2/(LENGTH2+1); if Bdate != Bdate[1] Then{ II = 0; BB = 0; AA = 0; } II = II+1; BB = BB+Bids; AA = AA+Asks; if II < Period5 Then{ va = (BB/II)-(AA/II)+8000; va4 = (BB/II)-(AA/II)+8000; } else{ va = ma(bids,period5)-ma(asks,period5)+8000; va4 = ma(bids,period5)-ma(asks,period5)+8000; } if II < Period1 Then{ va1 = (BB/II)-(AA/II)+8000; va2 = (BB/II)-(AA/II)+8000; va3 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; va3 = ma(bids,period1)-ma(asks,period1)+8000; } if II < Period9 Then{ va9 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va9 = ma(bids,period9)-ma(asks,period9)+8000; } //순매수5이평의 급등락축소시작---------------------------- if ii > 1 and va >va[1]+장기급등락 then va = ((va -va[1])/장기급증)+va[1]; if ii > 1 and va <va[1]-장기급등락 then va = va[1]-((va[1] -va)/장기급감); If ii >= 2 Then { //순매수 일정차 이상의급등락축소시작---------------------------- //if va1 >va1[1]+급등락 then va1 = va1 -급등락; if va1 >va1[1]+단기급등락 then va1 = ((va1 -va1[1])/단기급증)+va1[1]; //if va1 >va1[1]+소등락 then va1 = va1 - 소등락; if va1 <va1[1]-단기급등락 then va1 = va1[1]-((va1[1] -va1)/단기급감); //if va1 <va1[1]-급등락 then va1 = va1 + 급등락; //if va1 <va1[1]-소등락 then va1 = va1 + 소등락; //급등락축소시작---------------------------- //순매수 일정차 이하의급등락축소시작---------------------------- if va2 >va2[1]+순매수보정한계 then va2 = ((va2 -va2[1])*순매수급증보정)+va2[1]; if va2 <va2[1]-순매수보정한계 then va2 = va2[1]-((va2[1] -va2)*순매수급감보정); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*3.9)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*3.9); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*0.8)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*0.8); } if stime >= 90500 and stime < 150000 then{ if va2 > va2[1] Then buy(); if va2 < va2[1] Then sell(); } SetStopProfittarget(PriceScale*4,PointStop); SetStopEndofday(150000); 2 va2값 출력 지표 //----------------------------------------------------------------------------------- Input : Period1(10),Period5(10),period9(10),테마값(10),단기급증(16),단기급감(13),단기급등락(130), 장기급증(10.8),장기급감(01.8),장기급등락(15),돌파(215),급변(100),단기급변(50),순매수급증보정(2.6), 순매수급감보정(2.6),순매수보정한계(350), 순매수00급증보정(3.6),순매수00급감보정(3.6),순매수00보정한계(350)/*,고저기간(0)*/ ,LENGTH1(32) ,LENGTH2(230),과열(130),되돌림(30),tsfPeriod(134),봉완성(303); Var : va(0); Var : va1(0); Var : va2(0); Var : va3(0); Var : va4(0); Var : va9(0); Var : va11(0); Var : va12(0); Var : va15(0); Var : va33(0); Var : va38(0); Var : va77(0); Var : va87(0); Var : va88(0); Var : value(0); Var : vp(0),II(0),AA(0),BB(0); var : N(0),T(0),EP1(0),EP2(0); var : ema11(0),ema12(0),ema13(0); var : ema21(0),ema22(0),ema23(0),cnt1(0),cnt2(0); var : vmin(0),vmax(0); var : TSF(0),ss(0),sss(0), TS(0),second(0); EP1 = 2/(LENGTH1+1); EP2 = 2/(LENGTH2+1); if Bdate != Bdate[1] Then{ II = 0; BB = 0; AA = 0; } II = II+1; BB = BB+Bids; AA = AA+Asks; if II < Period5 Then{ va = (BB/II)-(AA/II)+8000; va4 = (BB/II)-(AA/II)+8000; } else{ va = ma(bids,period5)-ma(asks,period5)+8000; va4 = ma(bids,period5)-ma(asks,period5)+8000; } if II < Period1 Then{ va1 = (BB/II)-(AA/II)+8000; va2 = (BB/II)-(AA/II)+8000; va3 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; va3 = ma(bids,period1)-ma(asks,period1)+8000; } if II < Period9 Then{ va9 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va9 = ma(bids,period9)-ma(asks,period9)+8000; } //순매수5이평의 급등락축소시작---------------------------- if ii > 1 and va >va[1]+장기급등락 then va = ((va -va[1])/장기급증)+va[1]; if ii > 1 and va <va[1]-장기급등락 then va = va[1]-((va[1] -va)/장기급감); If ii >= 2 Then { //순매수 일정차 이상의급등락축소시작---------------------------- //if va1 >va1[1]+급등락 then va1 = va1 -급등락; if va1 >va1[1]+단기급등락 then va1 = ((va1 -va1[1])/단기급증)+va1[1]; //if va1 >va1[1]+소등락 then va1 = va1 - 소등락; if va1 <va1[1]-단기급등락 then va1 = va1[1]-((va1[1] -va1)/단기급감); //if va1 <va1[1]-급등락 then va1 = va1 + 급등락; //if va1 <va1[1]-소등락 then va1 = va1 + 소등락; //급등락축소시작---------------------------- //순매수 일정차 이하의급등락축소시작---------------------------- if va2 >va2[1]+순매수보정한계 then va2 = ((va2 -va2[1])*순매수급증보정)+va2[1]; if va2 <va2[1]-순매수보정한계 then va2 = va2[1]-((va2[1] -va2)*순매수급감보정); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*3.9)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*3.9); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*0.8)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*0.8); } plot1(va2); 즐거운 하루되세요 > leekss1 님이 쓴 글입니다. > 제목 : 수식부탁드림니다================= > 아래지표식을 시스템식으로바꾸고싶슴니다 09:05부터 15:00 까지 va2가 전봉보다 크면 보유잔고 청산후 매수 va2가 전봉보다 작으면 보유잔고 청산후 매도 매수매도 진입후 4틱이익이면 청산 15:00 에모두청산후 진입금지 시스템식으로 수정좀부탁드립니다 그리고 시스템으로 적용하는방법좀 알려주세요 감사합니다 //----------------------------------------------------------------------------------- Input : Period1(10),Period5(10),period9(10),테마값(10),단기급증(16),단기급감(13),단기급등락(130), 장기급증(10.8),장기급감(01.8),장기급등락(15),돌파(215),급변(100),단기급변(50),순매수급증보정(2.6), 순매수급감보정(2.6),순매수보정한계(350), 순매수00급증보정(3.6),순매수00급감보정(3.6),순매수00보정한계(350)/*,고저기간(0)*/ ,LENGTH1(32) ,LENGTH2(230),과열(130),되돌림(30),tsfPeriod(134),봉완성(303); Var : va(0); Var : va1(0); Var : va2(0); Var : va3(0); Var : va4(0); Var : va9(0); Var : va11(0); Var : va12(0); Var : va15(0); Var : va33(0); Var : va38(0); Var : va77(0); Var : va87(0); Var : va88(0); Var : value(0); Var : vp(0),II(0),AA(0),BB(0); var : N(0),T(0),EP1(0),EP2(0); var : ema11(0),ema12(0),ema13(0); var : ema21(0),ema22(0),ema23(0),cnt1(0),cnt2(0); var : vmin(0),vmax(0); var : TSF(0),ss(0),sss(0), TS(0),second(0); EP1 = 2/(LENGTH1+1); EP2 = 2/(LENGTH2+1); if Bdate != Bdate[1] Then{ II = 0; BB = 0; AA = 0; } II = II+1; BB = BB+Bids; AA = AA+Asks; if II < Period5 Then{ va = (BB/II)-(AA/II)+8000; va4 = (BB/II)-(AA/II)+8000; } else{ va = ma(bids,period5)-ma(asks,period5)+8000; va4 = ma(bids,period5)-ma(asks,period5)+8000; } if II < Period1 Then{ va1 = (BB/II)-(AA/II)+8000; va2 = (BB/II)-(AA/II)+8000; va3 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; va3 = ma(bids,period1)-ma(asks,period1)+8000; } if II < Period9 Then{ va9 = (BB/II)-(AA/II)+8000; } //순매수에 8000 더해 양의값만들기---------------------------- else{ va9 = ma(bids,period9)-ma(asks,period9)+8000; } //순매수5이평의 급등락축소시작---------------------------- if ii > 1 and va >va[1]+장기급등락 then va = ((va -va[1])/장기급증)+va[1]; if ii > 1 and va <va[1]-장기급등락 then va = va[1]-((va[1] -va)/장기급감); If ii >= 2 Then { //순매수 일정차 이상의급등락축소시작---------------------------- //if va1 >va1[1]+급등락 then va1 = va1 -급등락; if va1 >va1[1]+단기급등락 then va1 = ((va1 -va1[1])/단기급증)+va1[1]; //if va1 >va1[1]+소등락 then va1 = va1 - 소등락; if va1 <va1[1]-단기급등락 then va1 = va1[1]-((va1[1] -va1)/단기급감); //if va1 <va1[1]-급등락 then va1 = va1 + 급등락; //if va1 <va1[1]-소등락 then va1 = va1 + 소등락; //급등락축소시작---------------------------- //순매수 일정차 이하의급등락축소시작---------------------------- if va2 >va2[1]+순매수보정한계 then va2 = ((va2 -va2[1])*순매수급증보정)+va2[1]; if va2 <va2[1]-순매수보정한계 then va2 = va2[1]-((va2[1] -va2)*순매수급감보정); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*3.9)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*3.9); if va2 >va2[1]+20 then va2 = ((va2 -va2[1])*0.8)+va2[1]; if va2 <va2[1]-20 then va2 = va2[1]-((va2[1] -va2)*0.8); //1이평 막대표시 ----------------------------------------------- If va2 > va2[1] Then { Plot10(va2, "매수잔량 우위"); Plot11(0, "매도잔량 우위"); } Else{ Plot10(0, "매수잔량 우위"); Plot11(va2, "매도잔량 우위"); } //5이평 막대표시 ----------------------------------------------- If va > va[1] Then { Plot3(va, "5매수총잔량 우위"); Plot4(0, "5매도총잔량 우위"); } Else{ Plot3(0, "5매수총잔량 우위"); Plot4(va, "5매도총잔량 우위"); } PlotBaseLine1(12000,"기준선12"); PlotBaseLine2(11000,"기준선11"); PlotBaseLine5(va15-300,"기준선아래"); //테마합 일정 수량차이상의 급등락 표시 if va4 > va4[1]+ 급변 Then{plot55(va4-100,"급등");} if va4 < va4[1]- 급변 Then{plot46(va4-100,"급락");} } // if Highest(va1,고저기간 )==0 then{ // va11=Lowest(va1,고저기간 ); if ii >= 2 and va2 > va2[1]+ 단기급변 Then{plot66(va2,"단기");} if ii >= 2 and va2 < va2[1]- 단기급변 Then{plot66(va2,"단기");} Plot99(va2, "순매수1차보정",iff(va2>va2[1]-00,RED,iff(va2<va2[1]+00,BLUE,BLACK))); //va4=va4*0.8; if va4 >va4[1]+20 then va4 = ((va4 -va4[1])*0.3)+va4[1]; if va4 <va4[1]-20 then va4 = va4[1]-((va4[1] -va4)*0.3); Plot59(va4, "순매수",iff((va4 )>(va2)+00,BLACK,iff((va4 )<(va2 )-00,BLACK,BLACK))); if va2 >va2[1]+50 then va15 = ((va2 -va2[1])*0.3)+va2[1]; if va2 <va2[1]-50 then va15 = va2[1]-((va2[1] -va2)*0.3); if va15 >va15[1]+70 then va15 = ((va15 -va15[1])*0.9)+va15[1]; if va15 <va15[1]-70 then va15 = va15[1]-((va15[1] -va15)*0.9); //-------------------------------------------- if va15 < va2 then {vp=((va2-va15)/2)+va15;} if va2 < va15 then {vp=((va15-va2)/2)+va2;} if va2 > va15 then va33 = (va2 - va15) / 2 + va15; if va15 > va2 then va33 = (va15 - va2) / 2 + va2; plot47(va33,"반반"); //Plot20(vp, "반"); plot20(vp+100, "반",iff(vp>vp[1]+00,red,iff(vp<vp[1]-00,BLUE,BLACK))); /*TSF = LRL(va4,tsfPeriod)+LRS(va4,tsfPeriod); if TSF >TSF[1]+220 then TSF = ((TSF -TSF[1])*0.6)+TSF[1]; if TSF <TSF[1]-220 then TSF = TSF[1]-((TSF[1] -TSF)*0.6); Plot60(TSF,"TSF",iff(TSF>TSF[1]+00,red,iff(TSF<TSF[1]-00,BLUE,BLACK))); */ Plot60(va15, "순매수1"/*,iff(va2>va2[1]+00,RED,iff(va2<va2[1]-00,BLUE,WHITE))*/); if ii == 1 Then ema11 = va3; else ema11 = va3 * EP1 +ema11 * (1-EP1); if ii <= 2 Then ema12 = ema11; else ema12 = ema11 * EP1 +ema12 * (1-EP1); if ii <= 3 Then ema13 = ema12; else ema13 = ema12 * EP1 +ema13 * (1-EP1); //순매수를 테마로 if ii >= 3 then va77 = (테마값 * ema11) - (테마값 * ema12) + (ema13); Plot58(va77, "테마"); va88 = va77; if va2 < va77 and va3 > va77 Then { va88 = va3; } if va2 > va77 and va3 < va77 Then { va88 = va3; if va88 >va88[1]+20 then va88 = ((va88 -va88[1])*0.5)+va88[1]; if va88 <va88[1]-20 then va88 = va88[1]-((va88[1] -va88)*0.5); } Plot95(va88, "테마합"); if ii == 1 Then ema21 = va88; Else ema21 = va88 * EP2 +ema21 * (1-EP2); if ii <= 2 Then ema22 = ema21; Else ema22 = ema21 * EP2 +ema22 * (1-EP2); if ii <= 3 Then ema23 = ema22; else ema23 = ema22 * EP2 +ema23 * (1-EP2); if ii >= 3 then va87 = (4.2 * ema21) - (4.2 * ema22) + (ema23); Plot78(va87, "테마합테마"); // plot78(va87+100, "테마합테마",iff(va87>va87[1]+00,red,iff(va87<va87[1]-00,BLUE,BLACK))); if ii >= 2 then{ //TSF 막대표시 ----------------------------------------------- If vp[1] < va4+00 Then { Plot45(va2-100, "순매수상승 우위"); Plot44(0, "순매수하락 우위"); } If vp[1] > va4-00 Then{ Plot45(0, "순매수상승 우위"); Plot44(va2-100, "순매수하락 우위"); } //매수매도신호------------------------------------------------------- If va4[1]+300 < va4 Then{ //Plot96(va4+200, "매/수"); } If va4[1]-300 > va4 Then{ // Plot97(va4+200, "매/도"); } if va3 > va77 and va3 > va77+과열 Then{ plot37(va3,"매도유리");} // PlaySound("C:￦예스트레이더￦data￦Sound￦Bell2.wav"); if va3 < va77 and va3 < va77-과열 Then{ plot38(va3,"매수유리");} // PlaySound("C:￦예스트레이더￦data￦Sound￦Bell2.wav"); //------------------------------------------------------------------------- if /*sss<=0 and*/ va2[1] > va2 Then { /*sss=1;*/ Plot96(va2, "sall"); //PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav"); } if/* sss>=0 and*/ va2[1] < va2 Then { /* sss=-1;*/ Plot97(va77-150, "bye"); //PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav"); } //--------------------------------------------------------------------------- if CrossUp(va4,va2) Then //if va2[2] > va2[1] and va2[1]+00 < va2 Then { plot85(va2-230,"y매수"); PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦Bandi.wav"); } if CrossDown(va4,va2) Then //if va2[2] < va2[1] and va2[1]+00 > va2 Then { plot86(va2+250,"y매도"); PlaySound("C:￦Users￦Administrator￦Desktop￦효과￦click08.wav"); } if va9 >va9[1]+순매수00보정한계 then va9 = ((va9 -va9[1])*순매수00급증보정)+va9[1]; if va9 <va9[1]-순매수00보정한계 then va9 = va9[1]-((va9[1] -va9)*순매수00급감보정); plot98(va9,"순매수00",iff((va9 )>(va2)+00,RED,iff((va9 )<(va2 )-00,BLUE,BLACK))); } vmin = min(va2,va15); vmax = max(va2,va15); if va2 > va15 then va33 = (va2 - va15) / 2 + va15; if va15 > va2 then va33 = (va15 - va2) / 2 + va2; plot47(va33,"반반"); #봉시작 var1 = TimeToMinutes(stime)*60; var2 = FracPortion(stime/100)*100;//시작시간 초 SS = var1+var2; #봉끝 value1 = TimeToMinutes(time)*60; value2 = FracPortion(time/100)*100;//&#44561;시간 초 TS = value1+value2; Second = TS-SS; if second < 봉완성 Then plot27(vmin-200,"체결단"); Else plot28(vmin-200,"체결장");
등록