답변완료
수식문의 드립니다.
키움수식을 예스차트로 변경할려고 합니다.
문의1
변수값
period1 2
period1 3
수식1
a=tema(c,period1);
b=tema(c,period2);
x=valuewhen(1,crossup(a,b)or crossdown(a,b),b)
수식2
if(x<c,x,1)
----------------------------------------------------------------------------
문의2
변수값
Period 20
percent100
수식1
a=tema(c,period);
Up=a+a*percent/100;
(색상값 빨강 255 / 초록 255 / 파랑 0)
수식2
a=tema(c,period);
Up=a+a*percent/100;
if(a<a(1),up,0)
(색상값 빨강 0 / 초록 255 / 파랑 255)
수식3
a=tema(c,period);
dn=a-a*percent/100;
(색상값 빨강 255 / 초록 255 / 파랑 0)
수식4
a=tema(c,period);
dn=a-a*percent/100;
if(a<a(1),dn,0)
(색상값 빨강 0 / 초록 255 / 파랑 255)
수식5
a=tema(c,period);
-------------------------------------------------------------------------------
문의3(신호수식)
변수값
period1 3
period2 20
매도신호
m=(a=tema(c,period1));
m=(b=tema(c,period2));
x=valuewhen(1,crossdown(a,b),b);
if(x<c,x,1);
기준가=M(1);
신호조건=Crossdown(A,A(1));
매수신호
m=(a=tema(c,period1));
m=(b=tema(c,period2));
x=valuewhen(1,crossup(a,b),b);
if(x>c,x,1);
기준가=M(1);
신호조건=Crossup(A,A(1));
감사합니다!
2023-02-26
1359
글번호 166695
지표
답변완료
박스 색상 변경
input : Period(120),폭1(0.9),폭2(1.3),폭3(1.7),폭4(0.85);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0);
var : TL(0),TL1(0),tl2(0),tl3(0),TX(0),tl4(0),tl5(0),tl9(0),dl(0);
var : box(0),box1(0),txx(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Plot1(value12);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
box = box_new(date11,time11,Value11,date12,time12,Value12);
Box_SetColor(box,Lime);
Box_SetFill(box,true,35);
Condition1 = False;
if Condition1 == False and Value12 <= value11-폭1 Then
{
Condition1 = true;
}
Condition3 = False;
if Condition3 == False and Value12 <= value11-폭2 Then
{
Condition3 = true;
}
Condition4 = False;
if Condition4 == False and Value12 <= value11-폭3 Then
{
Condition4 = true;
}
Text_SetSize(tx,25);
Text_SetColor(Tx,Red);
Text_SetStyle(tx,1,1);
Text_SetBold(tx,1);
if abs(value12[1]-value11[1]) < 0.5 Then
Text_Delete(tx);
tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2));
Text_SetColor(Tx,Black);
Text_SetStyle(tx,1,0);
Text_SetSize(tx,30);
Text_SetBold(tx,1);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
if Condition1 == False and Value12 <= value11-폭1 Then
{
Condition1 = true;
TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Magenta);
TL_SetSize(TL9,1);
TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Magenta);
TL_SetSize(TL9,1);
}
if Condition3 == False and Value12 <= value11-폭2 Then
{
Condition3 = true;
TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Magenta);
TL_SetSize(TL9,1);
TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Magenta);
TL_SetSize(TL9,1);
}
if Condition4 == False and Value12 <= value11-폭3 Then
{
Condition4 = true;
TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Red);
TL_SetSize(TL9,1);
TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Red);
TL_SetSize(TL9,1);
}
Text_SetString(tx,NumToStr(value12-value11,2)+" ");
Text_SetLocation(tx,sDate,sTime,value12);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
box = box_new(date11,time11,Value11,date12,time12,Value12);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,30);
Condition2 = False;
if Condition2 == False and Value12 > value11+폭4 Then
{
Condition2 = true;
}
Text_SetSize(tx,25);
Text_SetColor(Tx,Blue);
Text_SetStyle(tx,1,0);
Text_SetBold(tx,1);
if abs(value12[1]-value11[1]) < 0.5 Then
Text_Delete(tx);
tx = text_new(sDate,stime,value12,NumToStr(value12-value11,2));
Text_SetColor(Tx,Black);
Text_SetStyle(tx,1,1);
Text_SetSize(tx,30);
Text_SetBold(tx,1);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
if Condition2 == False and Value12 > value11+폭4 Then
{
Condition2 = true;
TL9 = TL_New(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Cyan);
TL_SetSize(TL9,1);
TL9 = TL_New_Self(sDate,sTime,0,sDate,sTime,99999);
TL_SetColor(TL9,Cyan);
TL_SetSize(TL9,1);
}
Text_SetString(tx,NumToStr(value12-value11,2)+" ");
Text_SetLocation(tx,sDate,sTime,value12);
}
}
상승,하락 박스의 크기가 0.9p 보다 커지면(도달시), 그 박스만 전체 색상을 다른 색으로 변경. 0.9p 보다 작으면 불변. 감사합니다.
2023-02-26
1230
글번호 166693
지표
답변완료
문의드립니다
안녕하세요?
아래의 두가지 지표 수식을 시스템식으로 원합니다
감사드립니다
1.(선의 기울기에 따라 신호가 발생되는 시스템식)
input : PriceSmoothing(15),Filter(0);
var : cHigh(0),cLow(0),cOpen(0),cClose(0),pClose(0);
var : tr(0),rrange(0),vqi(0),sumVqi(0),color(0);
cHigh = wma(H,PriceSmoothing);
cLow = wma(L,PriceSmoothing);
cOpen = wma(O,PriceSmoothing);
cClose = wma(C,PriceSmoothing);
pClose = cClose[1];
tr = max(cHigh,cClose) - min(cLow,pClose);
rrange = cHigh-cLow;
if rrange<>0 and tr <> 0 then
vqi = ((cClose-pClose)/tR + (cClose-cOpen)/rrange)*0.5;
else
vqi = vqi;
vqi = abs(vqi)*(cClose-pClose+cClose-cOpen)*0.5;
sumVqi = vqi;
if Filter>0 then
{
if abs(sumVqi-sumVqi[1]) < (Filter*PriceScale) then
sumVqi = sumVqi[1];
}
if sumVqi > 0 then
color = red;
else
color = blue;
plot1(sumVqi,"sumVqi",color);
2.(골든과 데드에 따른 씨스템식)
input : len(10),offset(1);
var : sma_high(0),sma_low(0),hlv(0),ssld(0),sslu(0);
sma_high = ma(high,len);
sma_low = ma(low,len);
hlv = iff(close > sma_high[1] , 1 , iff(close < sma_low[1] , -1 , hlv[1]));
ssld = iff(hlv == -1 , sma_high[offset] , sma_low[offset]);
sslu = iff(hlv == -1 , sma_low[offset] , sma_high[offset]);
plot1(ssld,"Down",red);
plot2(sslu,"Up",green);
2023-02-27
1303
글번호 166690
시스템