> leekss1 님이 쓴 글입니다. > 제목 : 수식추가==============================부탁드립니다 > 그림처럼 실시간 선을 긋고싶슴니다 어려운줄 알지만 부탁드립니다 Input : Period1(0),Period5(0),단기급증(0),단기급감(0),단기급등락(0), 장기급증(0),장기급감(0),장기급등락(0),돌파(0),급변(0),단기급변(0),초단기급증(0),초단기급감(7),초단기급등락(130)/*,고저기간(0)*/ ,LENGTH1(0) ,LENGTH2(0); Var : va(0); Var : va1(0); Var : va2(0); Var : va3(0); Var : va11(0); Var : va12(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); 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; 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; } //순매수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)/초단기급감); //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매도총잔량 우위"); } PlotBaseLine5(va,"기준선5"); PlotBaseLine1(va1,"기준선1"); //순매수와 5이평의 중간값으로 선을 부드럽게함-------------------------------------------- if va < va1 then {vp=((va1-va)/2)+va;} if va1 < va then {vp=((va-va1)/2)+va1;} //Plot20(vp, "반"); //그 위 중간값의 일정 수량차이상의 급등락 표시 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, "기초"); plot20(vp+100, "반",iff(vp>vp[1]+00,red,iff(vp<vp[1]-00,BLUE,BLACK))); if CrossUp(va2,vp) Then {Plot97(va2+300, "상");} if CrossUp(va2,vp) Then {PlaySound("C:예스트레이더dataSoundubbles.wav");} if CrossDown(va2,vp) Then {Plot98(va2+300, "하");} if CrossDown(va2,vp) Then {PlaySound("C:예스트레이더dataSoundaccept.wav");} if va2 > va2[1] and vp > vp[1] then {plot85(va2+200,"상상");} if va2 < va2[1] and vp < vp[1] then {plot86(vp+300,"하하");} Plot59(va3, "순매수"); //순매수를 테마로 va77 = (3 * Ema(va3,LENGTH1)) - (3 * Ema(Ema(va3,LENGTH1),LENGTH1)) + (Ema(Ema(Ema(va3,LENGTH1),LENGTH1),LENGTH1)); Plot58(va77, "테마"); va88 = va77; if va2 < va77 and va3 > va77 Then { va88 = va3; } if va2 > va77 and va3 < va77 Then { va88 = va3; } Plot95(va88, "테마합"); va87 = (3 * Ema(va88,LENGTH2)) - (3 * Ema(Ema(va88,LENGTH2),LENGTH2)) + (Ema(Ema(Ema(va88,LENGTH2),LENGTH2),LENGTH2)); Plot78(va87, "테마합테마"); /* N=5; if SwingHigh(1,va3,N,N,N*2+1) != -1 Then{ plot38(va3[N],"H",YELLOW,DEF,1); T = 1; } if SwingLow(1,L,N,N,N*2+1) != -1 Then{ plot39(va3[N],"n",GREEN,DEF,1); T = -1; } */