커뮤니티
수식점검부탁입니다.
2019-08-20 19:28:50
206
글번호 131300
$,안녕하세요
# 63764 보내주신 답변수식을 아래와 같이 인용해 봤습니다,그런데 var4 라인을 현재가가
croseup 경우는 소리발생이 정상인데 var4라인을 croseDown할경우를 응용해서 작성했는데
소리가 var4라인을 터치하지 않아도 소리가 납니다, 수식이 어디가 잘못된건지 도움 부탁
드립니다.제가 원하는식은 현재가가var4라인을 상향터치(croseUp)하거나 하향터치(croseDown)
시에도 소리발생 하는식입니다,var5라인도 같은 방식으로요, 도움부탁드립니다.
input : Per1(9),Per2(18),per3(28),per4(38),per5(55),per6(61.8),per7(85),per8(100),per9(138.2),per10(161.8);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
if bdate > bdate[1]+30 then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
var1 =10^(LOG10(oo[0]));
var2 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100));
var3 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100));
var4 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100));
var5 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100));
var6 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per3/100));
var7 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per3/100));
var8 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per4/100));
var9 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per4/100));
var10 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per5/100));
var11 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per5/100));
var12 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per6/100));
var13 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per6/100));
var14 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per7/100));
var15 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per7/100));
var16 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per8/100));
var17 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per8/100));
var18 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per9/100));
var19 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per9/100));
var20 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per10/100));
var21 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per10/100));
plot1(var1);
plot2(var2);
plot3(var3);
plot4(var4);
plot5(var5);
plot6(var6);
plot7(var7);
plot8(var8);
plot9(var9);
plot10(var10);
plot11(var11);
plot12(var12);
plot13(var13);
plot14(var14);
plot15(var15);
plot16(var16);
plot17(var17);
plot18(var18);
plot19(var19);
plot20(var20);
plot21(var21);
if crossup(h,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(l,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(h,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(h,var10) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var11) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(h,var12) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var13) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(l,var13) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(h,var12) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
Text_Delete(t6);
Text_Delete(t7);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per5/100))," +MM:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per5/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per5/100))," -MM:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per5/100)),2));
t5 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per6/100))," +MR:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per6/100)),2));
t6 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per6/100))," -MR:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per6/100)),2));
t7 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetStyle(t6,5,2);
Text_SetStyle(t7,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
Text_SetColor(t6,BLUE);
Text_SetColor(t7,LMAGENTA);
#,고맙습니다.
답변 1
예스스탁 예스스탁 답변
2019-08-21 14:55:09
안녕하세요
예스스탁입니다.
특정값을 아래로 터치하는 부분이므로
저가를 기준으로 하향이탈하는 것을 체크하셔야 합니다.
if crossup(h,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(h,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식점검부탁입니다.
> $,안녕하세요
# 63764 보내주신 답변수식을 아래와 같이 인용해 봤습니다,그런데 var4 라인을 현재가가
croseup 경우는 소리발생이 정상인데 var4라인을 croseDown할경우를 응용해서 작성했는데
소리가 var4라인을 터치하지 않아도 소리가 납니다, 수식이 어디가 잘못된건지 도움 부탁
드립니다.제가 원하는식은 현재가가var4라인을 상향터치(croseUp)하거나 하향터치(croseDown)
시에도 소리발생 하는식입니다,var5라인도 같은 방식으로요, 도움부탁드립니다.
input : Per1(9),Per2(18),per3(28),per4(38),per5(55),per6(61.8),per7(85),per8(100),per9(138.2),per10(161.8);
Var : pivot(0),S1(0),S2(1),S3(1),S4(1),S5(0),cnt(0),t1(0),t2(0),t3(0),t4(0),t5(0),t6(0),t7(0);
Array : oo[10](0),hh[10](0),ll[10](0),cc[10](0);
if bdate > bdate[1]+30 then
{
oo[0] = o;
hh[0] = h;
ll[0] = L;
for cnt = 1 to 9
{
oo[cnt] = oo[cnt-1][1];
hh[cnt] = hh[cnt-1][1];
ll[cnt] = ll[cnt-1][1];
cc[cnt] = cc[cnt-1][1];
}
}
if h > hh[0] Then
hh[0] = h;
if l < ll[0] Then
ll[0] = l;
cc[0] = c;
if hh[1] > 0 and ll[1] > 0 then
{
S1 = (hh[0]+ll[0])/2;
S2 = (hh[1]+ll[1])/2;
S3 = hh[1];
S4 = ll[1];
s5 = oo[0];
var1 =10^(LOG10(oo[0]));
var2 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per1/100));
var3 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per1/100));
var4 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per2/100));
var5 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per2/100));
var6 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per3/100));
var7 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per3/100));
var8 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per4/100));
var9 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per4/100));
var10 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per5/100));
var11 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per5/100));
var12 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per6/100));
var13 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per6/100));
var14 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per7/100));
var15 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per7/100));
var16 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per8/100));
var17 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per8/100));
var18 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per9/100));
var19 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per9/100));
var20 =10^(LOG10(cc[1])+(LOG10(S3)-LOG10(S4))*(Per10/100));
var21 =10^(LOG10(cc[1])-(LOG10(S3)-LOG10(S4))*(Per10/100));
plot1(var1);
plot2(var2);
plot3(var3);
plot4(var4);
plot5(var5);
plot6(var6);
plot7(var7);
plot8(var8);
plot9(var9);
plot10(var10);
plot11(var11);
plot12(var12);
plot13(var13);
plot14(var14);
plot15(var15);
plot16(var16);
plot17(var17);
plot18(var18);
plot19(var19);
plot20(var20);
plot21(var21);
if crossup(h,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(l,var5) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(h,var4) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(h,var10) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var11) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(h,var12) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(l,var13) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if crossup(l,var13) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
if CrossDown(h,var12) Then
PlaySound("C:￦예스트레이더￦data ￦Sound ￦alert.wav");
}
Text_Delete(t1);
Text_Delete(t2);
Text_Delete(t3);
Text_Delete(t4);
Text_Delete(t5);
Text_Delete(t6);
Text_Delete(t7);
t1 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100))," MB:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per2/100)),2));
t2 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100))," MS:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per2/100)),2));
t3 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per5/100))," +MM:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per5/100)),2));
t4 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per5/100))," -MM:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per5/100)),2));
t5 = Text_New(sdate,stime,10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per6/100))," +MR:"+NumToStr(10^(LOG10(cc[1])+(Log10(S3)-log10(S4))*(Per6/100)),2));
t6 = Text_New(sdate,stime,10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per6/100))," -MR:"+NumToStr(10^(LOG10(cc[1])-(Log10(S3)-log10(S4))*(Per6/100)),2));
t7 = Text_New(sdate,stime,s5," MO:"+NumToStr(s5,2));
Text_SetStyle(t1,5,2);
Text_SetStyle(t2,5,2);
Text_SetStyle(t3,5,2);
Text_SetStyle(t4,5,2);
Text_SetStyle(t5,5,2);
Text_SetStyle(t6,5,2);
Text_SetStyle(t7,5,2);
Text_SetColor(t1,RED);
Text_SetColor(t2,BLUE);
Text_SetColor(t3,RED);
Text_SetColor(t4,BLUE);
Text_SetColor(t5,RED);
Text_SetColor(t6,BLUE);
Text_SetColor(t7,LMAGENTA);
#,고맙습니다.