안녕하세요 예스스탁입니다. 문의하신 내용 정확히 이해하지 못했습니다. 매수잔량이평, 매도잔량이평과 조건을 당일분만 사용하게 변경해 드립니다. Input : Period1(5),Period5(1),단기급증(0),단기급감(0),단기급등락(0), 장기급증(0),장기급감(0),장기급등락(0),돌파(0),급변(0),단기급변(0),초단기급증(0),초단기급감(0),초단기급등락(0)/*,고저기간(0)*/; Var : va(0); Var : va1(0); Var : va2(0); Var : va11(0); Var : va12(0); Var : value(0); Var : vp(0),II(0),AA(0),BB(0); 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; } else{ va = ma(bids,period5)-ma(asks,period5)+8000; } if II < Period1 Then{ va1 = (BB/II)-(AA/II)+8000; va2 = (BB/II)-(AA/II)+8000; } else{ va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; } 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 >= 5 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)/초단기급감); //1이평----------------------------------------------- If va1 > va1[1] Then { Plot10(va1, "매수잔량 우위"); Plot11(0, "매도잔량 우위"); } Else{ Plot10(0, "매수잔량 우위"); Plot11(va1, "매도잔량 우위"); } //5이평----------------------------------------------- If va > va[1] Then { Plot3(va, "5매수총잔량 우위"); Plot4(0, "5매도총잔량 우위"); } Else{ Plot3(0, "5매수총잔량 우위"); Plot4(va, "5매도총잔량 우위"); } /*if va > va[1] and va[1] < va[2] and va[2] < va[3] Then {plot33(vp,"반수");} if va > va[1] and va[1] < va[2] and va[2] < va[3] Then { PlaySound("C:예스트레이더dataSoundubbles.wav"); } if va < va[1] and va[1] > va[2] and va[2] > va[3] Then {plot34(va,"반도");} if va < va[1] and va[1] > va[2] and va[2] > va[3] Then { PlaySound("C:예스트레이더dataSoundaccept.wav" ); } */ //plot6(value,"선",iff(value>value[1],red,iff(value<value[1],BLUE,WHITE))); //PlotBaseLine1(5000,"기준선"); PlotBaseLine5(va,"기준선5"); PlotBaseLine1(va1,"기준선1"); //-------------------------------------------- if va < va1 then {vp=((va1-va)/2)+va;} if va1 < va then {vp=((va-va1)/2)+va1;} //Plot20(vp, "반"); plot20(vp+100, "반",iff(vp>vp[1]+00,red,iff(vp<vp[1]-00,BLUE,BLACK))); if vp > vp[1]+ 급변 Then{plot55(vp,"급등");} //if vp > vp[1]+ 급변 Then //{ // PlaySound("C:예스트레이더dataSoundubbles.wav"); } if vp < vp[1]- 급변 Then{plot44(vp,"급락");} //if vp < vp[1]- 급변 Then //{ // PlaySound("C:예스트레이더dataSoundaccept.wav" ); } } // if Highest(va1,고저기간 )==0 then{ // va11=Lowest(va1,고저기간 ); if va2 > va2[1]+ 단기급변 Then{plot66(va2,"단기");} if va2 < va2[1]- 단기급변 Then{plot66(va2,"단기");} Plot99(va2, "기초"); if CrossUp(va2,vp) Then {PlaySound("C:예스트레이더dataSoundubbles.wav");} if CrossDown(va2,vp) Then {PlaySound("C:예스트레이더dataSoundaccept.wav");} 즐거운 하루되세요 > leekss1 님이 쓴 글입니다. > 제목 : 수식부탁드립니다------------- > 전일치는 계산하지 말고 당일 첫봉부터만 계산하게 해주시면 감사하겠슴니다 ---------------------------------------------------------------------------- Input : Period1(5),Period5(1),단기급증(0),단기급감(0),단기급등락(0), 장기급증(0),장기급감(0),장기급등락(0),돌파(0),급변(0),단기급변(0),초단기급증(0),초단기급감(0),초단기급등락(0)/*,고저기간(0)*/; Var : va(0); Var : va1(0); Var : va2(0); Var : va11(0); Var : va12(0); Var : value(0); Var : vp(0); va = ma(bids,period5)-ma(asks,period5)+8000; if va >va[1]+장기급등락 then va = ((va -va[1])/장기급증)+va[1]; if va <va[1]-장기급등락 then va = va[1]-((va[1] -va)/장기급감); va1 = ma(bids,period1)-ma(asks,period1)+8000; va2 = ma(bids,period1)-ma(asks,period1)+8000; If dayindex >= 5 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)/초단기급감); //1이평----------------------------------------------- If va1 > va1[1] Then { Plot10(va1, "매수잔량 우위"); Plot11(0, "매도잔량 우위"); } Else{ Plot10(0, "매수잔량 우위"); Plot11(va1, "매도잔량 우위"); } //5이평----------------------------------------------- If va > va[1] Then { Plot3(va, "5매수총잔량 우위"); Plot4(0, "5매도총잔량 우위"); } Else{ Plot3(0, "5매수총잔량 우위"); Plot4(va, "5매도총잔량 우위"); } /*if va > va[1] and va[1] < va[2] and va[2] < va[3] Then {plot33(vp,"반수");} if va > va[1] and va[1] < va[2] and va[2] < va[3] Then { PlaySound("C:예스트레이더dataSoundubbles.wav"); } if va < va[1] and va[1] > va[2] and va[2] > va[3] Then {plot34(va,"반도");} if va < va[1] and va[1] > va[2] and va[2] > va[3] Then { PlaySound("C:예스트레이더dataSoundaccept.wav" ); } */ //plot6(value,"선",iff(value>value[1],red,iff(value<value[1],BLUE,WHITE))); //PlotBaseLine1(5000,"기준선"); PlotBaseLine5(va,"기준선5"); PlotBaseLine1(va1,"기준선1"); //-------------------------------------------- if va < va1 then {vp=((va1-va)/2)+va;} if va1 < va then {vp=((va-va1)/2)+va1;} //Plot20(vp, "반"); plot20(vp+100, "반",iff(vp>vp[1]+00,red,iff(vp<vp[1]-00,BLUE,BLACK))); if vp > vp[1]+ 급변 Then{plot55(vp,"급등");} //if vp > vp[1]+ 급변 Then //{ // PlaySound("C:예스트레이더dataSoundubbles.wav"); } if vp < vp[1]- 급변 Then{plot44(vp,"급락");} //if vp < vp[1]- 급변 Then //{ // PlaySound("C:예스트레이더dataSoundaccept.wav" ); } } // if Highest(va1,고저기간 )==0 then{ // va11=Lowest(va1,고저기간 ); if va2 > va2[1]+ 단기급변 Then{plot66(va2,"단기");} if va2 < va2[1]- 단기급변 Then{plot66(va2,"단기");} Plot99(va2, "기초"); if CrossUp(va2,vp) Then {PlaySound("C:예스트레이더dataSoundubbles.wav");} if CrossDown(va2,vp) Then {PlaySound("C:예스트레이더dataSoundaccept.wav");}