커뮤니티
수식부탁드립니다====================
2016-10-12 20:38:37
103
글번호 102867
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 >= 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매도총잔량 우위");
}
/*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, "반");
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,"하하");}
답변 1
예스스탁 예스스탁 답변
2016-10-13 11:20:06
안녕하세요
예스스탁입니다.
해당수식에서 사용하는 데이터가
매수잔량과 매도잔량이라 수식상 보정하는 방법을 모르겠습니다.
일반적으로 시고저종같은 경우에는 일간 갭을 모아 보정하는데
거래량이나 잔량등은 해당 방법을 사용할수 없습니다.
즐거운 하루되세요
> 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),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 >= 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매도총잔량 우위");
}
/*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, "반");
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,"하하");}