커뮤니티
수식 부탁 드립니다
2017-03-15 20:31:46
100
글번호 107851
장시작시나 시간보정시 var2와 var1값이 100 에서 시작하게되있는데 100을없애고 그냥 var2값을 var1과 동일하게시작하게 일치시켜주세요 감사합니다(제가전 질의에 표현이 잘못되었네요)
------------------------------------------------------------------
Input: 시간보정(0),보정후변화(0),호가더하기(0),지수더하기(0),보정치(0),폭보정(1.5),지수호가테마LENGTH1(10),순매수LENGTH2(10),급변(0.05)
,순매수테마보정한계(0.3),순매수테마급증보정(0.5),순매수테마급감보정(0.5)
,지수테마보정한계(0.3),지수테마급증보정(0.5),지수테마급감보정(0.5) ;
var : AsksMA(0),BidsMA(0), Period(1),idx(0),EP(0),E11(0),E12(0),E13(0),E21(0),E22(0),E23(0);
Var : value(0);
Var : valuec(0);
var : va61(0);
var : va71(0);
var : va80(0);
var : va81(0);
var : va90(0);
var : va91(0);
var : va92(0);
var : va93(0);
var : va94(0);
var : va95(0);
var : va96(0);
VAR : TEMA1(0);
VAR : TEMA2(0);
VAR : TEMA3(0);
VAR : vmin(0);
VAR : vmax(0);
BidsMa = ma(bids,Period);
AsksMA = ma(asks,Period);
value = ma(bids,period)-ma(asks,period)+29000;
Plot2(BidsMA, "매수잔량이평");
Plot3(AsksMA, "매도잔량이평");
Plot4(value, "차");
//**************************************************************
//*************************************************************
va91=((c-c[1])/c[1]*100)*20000/20000;
va93=((value-value[1])/value[1]*70)*125/2900;
if stime == 시간보정*100 or (stime > 시간보정*100 and stime[1] < 시간보정*100) or Bdate != Bdate[1] Then{
PLOT62(100,"시간보정");
idx = 0;
var1 = 100;
var2 = var1;
plot10(var1);
plot11(var2);
plot51(var2 +호가더하기/1000 );
}
Else{
idx = idx+1;
var1 = var1+(var1*(va91/100));
if abs(va96[10]-va96) <= 보정치 Then
var2 = var1;
// if var2[5] > var1[5] then var2 = var2 - ( var2[5] - var1[5] );
// if var2[5] < var1[5] then var2 = var2 + ( var1[5] - var2[5] );
else
var2 = var2+(var2*(va93/95));
plot10(var1+지수더하기/1000 );
plot11(var2+호가더하기/1000 );
plot51(var2+호가더하기/1000 );
TEMA3 = (3 * Ema(var2+호가더하기/1000 ,순매수LENGTH2)) - (3 * Ema(Ema(var2+호가더하기/1000 ,순매수LENGTH2),순매수LENGTH2)) +
(Ema(Ema(Ema(var2+호가더하기/1000 ,순매수LENGTH2),순매수LENGTH2),순매수LENGTH2));
if TEMA3 >TEMA3[1]+순매수테마보정한계 then TEMA3 = ((TEMA3 -TEMA3[1])*순매수테마급증보정)+TEMA3[1];
if TEMA3 <TEMA3[1]-순매수테마보정한계 then TEMA3 = TEMA3[1]-((TEMA3[1] -TEMA3)*순매수테마급감보정);
if TEMA3 >TEMA3[1]+50 then TEMA3 = ((TEMA3 -TEMA3[1])*0.9)+TEMA3[1];
if TEMA3 <TEMA3[1]-50 then TEMA3 = TEMA3[1]-((TEMA3[1] -TEMA3)*0.9);
plot52(TEMA3,"순매수테마");
}
if var2-var1 > 폭보정 Then var2=var1;
if var1-var2 > 폭보정 Then var2=var1;
//if va71[1] < va71 and va71[1] + 0.05 > va71 then var2=var1;
//if va71[1] > va71 and va71[1] - 0.05 > va71 then var2=var1;
EP = 2/(지수호가테마LENGTH1+1);
if idx == 0 Then{
E11 = var1;
E21 = var2;
}
Else{
E11 = var1 * EP + E11 * (1-EP);
E21 = var2 * EP + E21 * (1-EP);
}
if idx <= 1 Then{
E12 = E11;
E22 = E21;
}
Else{
E12 = E11 * EP + E12 * (1-EP);
E22 = E21 * EP + E22 * (1-EP);
}
if idx <= 2 Then{
E13 = E12;
E23 = E22;
}
Else{
E13 = E12 * EP + E13 * (1-EP);
E23 = E22 * EP + E23 * (1-EP);
}
TEMA1 = (3 * E11) - (3 * E12) + (E13);
if TEMA1 >TEMA1[1]+지수테마보정한계 then TEMA1 = ((TEMA1 -TEMA1[1])*지수테마급증보정)+TEMA1[1];
if TEMA1 <TEMA1[1]-지수테마보정한계 then TEMA1 = TEMA1[1]-((TEMA1[1] -TEMA1)*지수테마급감보정);
if TEMA2 >TEMA2[1]+지수테마보정한계 then TEMA2 = ((TEMA2 -TEMA2[1])*지수테마급증보정)+TEMA2[1];
if TEMA2 <TEMA2[1]-지수테마보정한계 then TEMA2 = TEMA2[1]-((TEMA2[1] -TEMA2)*지수테마급감보정);
TEMA2 = (3 * E21) - (3 * E22) + (E23);
PLOT30(TEMA1+지수더하기/1000 ,"지수테마",iff((TEMA1 +지수더하기/1000 )>(TEMA1 +지수더하기/1000)[1]+00,BLACK,iff((TEMA1 +지수더하기/1000 )<(TEMA1 +지수더하기/1000 )[1]-00,BLACK,BLACK)));
PLOT31(TEMA2 +호가더하기/1000,"호가테마");
vmin = min(TEMA1+지수더하기/1000 ,TEMA2+호가더하기/1000 );
vmax = max(TEMA1+지수더하기/1000 ,TEMA2+호가더하기/1000 );
if TEMA1+지수더하기/1000> TEMA2+호가더하기/1000 Then{
var80 = (TEMA1+지수더하기/1000- TEMA2 +호가더하기/1000 )*0.5+TEMA2+호가더하기/1000 ;
}
if TEMA1 < TEMA2+호가더하기/1000 Then{
var80 = (TEMA2+호가더하기/1000 -TEMA1+지수더하기/1000)*0.5+TEMA1+지수더하기/1000 ;
}
PLOT17(var80,"지호평균");
//테마합 일정 수량차이상의 급등락 표시
if TEMA3 > TEMA3[1]+ 급변 Then{plot21(vmin-0.05,"급등");}
if TEMA3 < TEMA3[1]- 급변 Then{plot22(vmin-0.05,"급락");}
va71 =( TEMA2+호가더하기/1000 - TEMA1+지수더하기/1000 )+100.3;
if va71[1] < va71 Then{
PLOT25((vmin )-0.05,"매수예비");
//PlaySound("C:￦예스트레이더￦data￦Sound￦pp.wav");
}
if va71[1] > va71 Then{
PLOT26((vmin )-0.05,"매도예비");
// PlaySound("C:￦예스트레이더￦data￦Sound￦dingdong.wav");
}
PLOT60(va71,"55");
//if CrossUp (( TEMA2+호가더하기/1000 ),(TEMA1+지수더하기/1000)) Then{
//if sTime > (시간보정*100) and (TEMA1+지수더하기/1000)+보정후변화 < ( TEMA2+호가더하기/1000 ) and
//(TEMA1+지수더하기/1000)[1] > (TEMA1+지수더하기/1000)
//if (TEMA1+지수더하기/1000)[1]+0.0 < (TEMA1+지수더하기/1000) and va71[1]-0.01 < va71
if ( TEMA2+호가더하기/1000 )[1]+급변 < ( TEMA2+호가더하기/1000 )
then {
PLOT45((vmin )-0.01,"매수막대");
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
// CrossDown (( TEMA2+호가더하기/1000 ),(TEMA1+지수더하기/1000)) Then{
//if sTime > (시간보정*100) and (TEMA1+지수더하기/1000)-보정후변화 > ( TEMA2+호가더하기/1000 ) and
//(TEMA1+지수더하기/1000)[1] < (TEMA1+지수더하기/1000)
//if (TEMA1+지수더하기/1000)[1]-0.0 > (TEMA1+지수더하기/1000) and va71[1]+0.01 > va71
if ( TEMA2+호가더하기/1000 )[1]-급변 > ( TEMA2+호가더하기/1000 )
then {
PLOT46((vmin )-0.01,"매도막대");
PlaySound("C:￦예스트레이더￦data￦Sound￦reject.wav");
}
if va71[1]+급변 < va71 Then {
PLOT18((va71 )+0.01,"매도");
}
if va71[1]-급변 > va71 Then {
PLOT19((va71 )+0.01,"매수");
}
va96 = (tema1 - tema2)*1000;
PLOT61(va96,"66",iff(va96 > 0,RED,iff(va96 < 0,BLACK,BLACK)));
PlotBaseLine1(100,"기준선100");
if stime == 시간보정*100 then {
PLOT62(100,"시간보정");
}
답변 1
예스스탁 예스스탁 답변
2017-03-16 11:17:52
안녕하세요
예스스탁입니다.
if stime == 시간보정*100 or (stime > 시간보정*100 and stime[1] < 시간보정*100) or Bdate != Bdate[1] Then{
PLOT62(100,"시간보정");
idx = 0;
var1 = 100;
var2 = var1;
올려주신 수식에 위와 같이 var2값이 var1값과 같게 설정이 되어 있습니다.
var1값을 100으로 만들지 않고자 하면 var1 = 100;을 삭제하시면 됩니다.
즐거운 하루되세요
> leekss1 님이 쓴 글입니다.
> 제목 : 수식 부탁 드립니다
> 장시작시나 시간보정시 var2와 var1값이 100 에서 시작하게되있는데 100을없애고 그냥 var2값을 var1과 동일하게시작하게 일치시켜주세요 감사합니다(제가전 질의에 표현이 잘못되었네요)
------------------------------------------------------------------
Input: 시간보정(0),보정후변화(0),호가더하기(0),지수더하기(0),보정치(0),폭보정(1.5),지수호가테마LENGTH1(10),순매수LENGTH2(10),급변(0.05)
,순매수테마보정한계(0.3),순매수테마급증보정(0.5),순매수테마급감보정(0.5)
,지수테마보정한계(0.3),지수테마급증보정(0.5),지수테마급감보정(0.5) ;
var : AsksMA(0),BidsMA(0), Period(1),idx(0),EP(0),E11(0),E12(0),E13(0),E21(0),E22(0),E23(0);
Var : value(0);
Var : valuec(0);
var : va61(0);
var : va71(0);
var : va80(0);
var : va81(0);
var : va90(0);
var : va91(0);
var : va92(0);
var : va93(0);
var : va94(0);
var : va95(0);
var : va96(0);
VAR : TEMA1(0);
VAR : TEMA2(0);
VAR : TEMA3(0);
VAR : vmin(0);
VAR : vmax(0);
BidsMa = ma(bids,Period);
AsksMA = ma(asks,Period);
value = ma(bids,period)-ma(asks,period)+29000;
Plot2(BidsMA, "매수잔량이평");
Plot3(AsksMA, "매도잔량이평");
Plot4(value, "차");
//**************************************************************
//*************************************************************
va91=((c-c[1])/c[1]*100)*20000/20000;
va93=((value-value[1])/value[1]*70)*125/2900;
if stime == 시간보정*100 or (stime > 시간보정*100 and stime[1] < 시간보정*100) or Bdate != Bdate[1] Then{
PLOT62(100,"시간보정");
idx = 0;
var1 = 100;
var2 = var1;
plot10(var1);
plot11(var2);
plot51(var2 +호가더하기/1000 );
}
Else{
idx = idx+1;
var1 = var1+(var1*(va91/100));
if abs(va96[10]-va96) <= 보정치 Then
var2 = var1;
// if var2[5] > var1[5] then var2 = var2 - ( var2[5] - var1[5] );
// if var2[5] < var1[5] then var2 = var2 + ( var1[5] - var2[5] );
else
var2 = var2+(var2*(va93/95));
plot10(var1+지수더하기/1000 );
plot11(var2+호가더하기/1000 );
plot51(var2+호가더하기/1000 );
TEMA3 = (3 * Ema(var2+호가더하기/1000 ,순매수LENGTH2)) - (3 * Ema(Ema(var2+호가더하기/1000 ,순매수LENGTH2),순매수LENGTH2)) +
(Ema(Ema(Ema(var2+호가더하기/1000 ,순매수LENGTH2),순매수LENGTH2),순매수LENGTH2));
if TEMA3 >TEMA3[1]+순매수테마보정한계 then TEMA3 = ((TEMA3 -TEMA3[1])*순매수테마급증보정)+TEMA3[1];
if TEMA3 <TEMA3[1]-순매수테마보정한계 then TEMA3 = TEMA3[1]-((TEMA3[1] -TEMA3)*순매수테마급감보정);
if TEMA3 >TEMA3[1]+50 then TEMA3 = ((TEMA3 -TEMA3[1])*0.9)+TEMA3[1];
if TEMA3 <TEMA3[1]-50 then TEMA3 = TEMA3[1]-((TEMA3[1] -TEMA3)*0.9);
plot52(TEMA3,"순매수테마");
}
if var2-var1 > 폭보정 Then var2=var1;
if var1-var2 > 폭보정 Then var2=var1;
//if va71[1] < va71 and va71[1] + 0.05 > va71 then var2=var1;
//if va71[1] > va71 and va71[1] - 0.05 > va71 then var2=var1;
EP = 2/(지수호가테마LENGTH1+1);
if idx == 0 Then{
E11 = var1;
E21 = var2;
}
Else{
E11 = var1 * EP + E11 * (1-EP);
E21 = var2 * EP + E21 * (1-EP);
}
if idx <= 1 Then{
E12 = E11;
E22 = E21;
}
Else{
E12 = E11 * EP + E12 * (1-EP);
E22 = E21 * EP + E22 * (1-EP);
}
if idx <= 2 Then{
E13 = E12;
E23 = E22;
}
Else{
E13 = E12 * EP + E13 * (1-EP);
E23 = E22 * EP + E23 * (1-EP);
}
TEMA1 = (3 * E11) - (3 * E12) + (E13);
if TEMA1 >TEMA1[1]+지수테마보정한계 then TEMA1 = ((TEMA1 -TEMA1[1])*지수테마급증보정)+TEMA1[1];
if TEMA1 <TEMA1[1]-지수테마보정한계 then TEMA1 = TEMA1[1]-((TEMA1[1] -TEMA1)*지수테마급감보정);
if TEMA2 >TEMA2[1]+지수테마보정한계 then TEMA2 = ((TEMA2 -TEMA2[1])*지수테마급증보정)+TEMA2[1];
if TEMA2 <TEMA2[1]-지수테마보정한계 then TEMA2 = TEMA2[1]-((TEMA2[1] -TEMA2)*지수테마급감보정);
TEMA2 = (3 * E21) - (3 * E22) + (E23);
PLOT30(TEMA1+지수더하기/1000 ,"지수테마",iff((TEMA1 +지수더하기/1000 )>(TEMA1 +지수더하기/1000)[1]+00,BLACK,iff((TEMA1 +지수더하기/1000 )<(TEMA1 +지수더하기/1000 )[1]-00,BLACK,BLACK)));
PLOT31(TEMA2 +호가더하기/1000,"호가테마");
vmin = min(TEMA1+지수더하기/1000 ,TEMA2+호가더하기/1000 );
vmax = max(TEMA1+지수더하기/1000 ,TEMA2+호가더하기/1000 );
if TEMA1+지수더하기/1000> TEMA2+호가더하기/1000 Then{
var80 = (TEMA1+지수더하기/1000- TEMA2 +호가더하기/1000 )*0.5+TEMA2+호가더하기/1000 ;
}
if TEMA1 < TEMA2+호가더하기/1000 Then{
var80 = (TEMA2+호가더하기/1000 -TEMA1+지수더하기/1000)*0.5+TEMA1+지수더하기/1000 ;
}
PLOT17(var80,"지호평균");
//테마합 일정 수량차이상의 급등락 표시
if TEMA3 > TEMA3[1]+ 급변 Then{plot21(vmin-0.05,"급등");}
if TEMA3 < TEMA3[1]- 급변 Then{plot22(vmin-0.05,"급락");}
va71 =( TEMA2+호가더하기/1000 - TEMA1+지수더하기/1000 )+100.3;
if va71[1] < va71 Then{
PLOT25((vmin )-0.05,"매수예비");
//PlaySound("C:￦예스트레이더￦data￦Sound￦pp.wav");
}
if va71[1] > va71 Then{
PLOT26((vmin )-0.05,"매도예비");
// PlaySound("C:￦예스트레이더￦data￦Sound￦dingdong.wav");
}
PLOT60(va71,"55");
//if CrossUp (( TEMA2+호가더하기/1000 ),(TEMA1+지수더하기/1000)) Then{
//if sTime > (시간보정*100) and (TEMA1+지수더하기/1000)+보정후변화 < ( TEMA2+호가더하기/1000 ) and
//(TEMA1+지수더하기/1000)[1] > (TEMA1+지수더하기/1000)
//if (TEMA1+지수더하기/1000)[1]+0.0 < (TEMA1+지수더하기/1000) and va71[1]-0.01 < va71
if ( TEMA2+호가더하기/1000 )[1]+급변 < ( TEMA2+호가더하기/1000 )
then {
PLOT45((vmin )-0.01,"매수막대");
PlaySound("C:￦예스트레이더￦data￦Sound￦alert.wav");
}
// CrossDown (( TEMA2+호가더하기/1000 ),(TEMA1+지수더하기/1000)) Then{
//if sTime > (시간보정*100) and (TEMA1+지수더하기/1000)-보정후변화 > ( TEMA2+호가더하기/1000 ) and
//(TEMA1+지수더하기/1000)[1] < (TEMA1+지수더하기/1000)
//if (TEMA1+지수더하기/1000)[1]-0.0 > (TEMA1+지수더하기/1000) and va71[1]+0.01 > va71
if ( TEMA2+호가더하기/1000 )[1]-급변 > ( TEMA2+호가더하기/1000 )
then {
PLOT46((vmin )-0.01,"매도막대");
PlaySound("C:￦예스트레이더￦data￦Sound￦reject.wav");
}
if va71[1]+급변 < va71 Then {
PLOT18((va71 )+0.01,"매도");
}
if va71[1]-급변 > va71 Then {
PLOT19((va71 )+0.01,"매수");
}
va96 = (tema1 - tema2)*1000;
PLOT61(va96,"66",iff(va96 > 0,RED,iff(va96 < 0,BLACK,BLACK)));
PlotBaseLine1(100,"기준선100");
if stime == 시간보정*100 then {
PLOT62(100,"시간보정");
}