답변완료
예스랭귀지로 변환 부탁드려요
m=(highest(o,중간기간)+lowest(O,중간기간))/2;
m1=(avg(m*Sum(1),period)-avg(Sum(1),period)*avg(m,period))
/
(avg(pow(sum(1),2),period)-(pow(avg(sum(1),period),2)))
*(sum(1)-avg(sum(1),period))
+avg(m,period);
A=M1+LRS(period);
n=(highest(C,중간기간)+Lowest(C,중간기간))/2;
n1=(avg(n*sum(1),period)-avg(sum(1),period)*avg(n,period))
/
(avg(pow(sum(1),2),period)-(pow(avg(sum(1),period),2)))
*(sum(1)-avg(sum(1),period))
+avg(n,period);
B=n1+LRS(period);
CrossUp(B,A)
-----------------
period 20
최대최소기간 9
중간기간 1
부탁드립니다.
항상 감사합니다. 즐거운 주말 보내세요~
2024-11-29
600
글번호 185782
종목검색
답변완료
수식추가
Inputs : Period(20), Sence(1.5), CC_DN(Yellow);
Vars:
VLineUp(0),
VLineDn(0),
HHighest(0),
LLowest(0),
JustChanged(FALSE),
VLine(0), DBN(0);
Array:
Highs[35](0),
Lows[35](0),
RRange[35](0),
UpWave[1](FALSE),
DnWave[1](FALSE);
If STime == 180000 Then
DBN = 0;
DBN = DBN + 1;
Var1 = Period;
Var2 = Var1 - 1;
Var3 = Var1 - 2;
Var5 = Sence;
Var6 = H-L;
JustChanged = FALSE;
if CurrentBar <= Var2 then begin
Highs[CurrentBar] = Close;
Lows[CurrentBar] = Close;
RRange[CurrentBar] = (H-L) /2;
end;
if CurrentBar == Var1 then begin
if Highs[Var2] >= Highs[Var3] then begin
UpWave[1] = TRUE;
HHighest = Highs[Var2];
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
end;
if Highs[Var2] < Highs[Var3] then begin
DnWave[1] = TRUE;
LLowest = Lows[Var2];
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
end;
end;
if CurrentBar > Var1 then begin
if DnWave[1] and Close > VLineDn then begin
DnWave[1] = FALSE;
UpWave[1] = TRUE;
JustChanged = TRUE;
HHighest = Close;
LLowest = 0;
end;
if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin
UpWave[1] = FALSE;
DnWave[1] = TRUE;
JustChanged = TRUE;
LLowest = Close;
HHighest = 0;
end;
if JustChanged == FALSE then begin
if Close > HHighest then
HHighest = Close;
else if Close < LLowest then
LLowest = Close;
end;
VLineUp = HHighest - (Var5 * MA(Var6,Var2));
VLineDn = LLowest + (Var5 * MA(Var6,Var2));
end;
Inputs : DDD(20150309), LEN(300), HL_ED(60), CC(Black);
Vars : DBN1(0), KK1(0), DD1(0), KK2(0), DD2(0);
var : val2(0),v1(0),v2(0);
If STime >= 080000 And STime[1] < 080000 Then Begin
DBN1 = 0;
KK1 = 0;
DD1 = 0;
KK2 = 0;
DD2 = 0;
End;
DBN1 = DBN1 + 1;
If STime >= 083000 And DD1 == 0 Then Begin
Val2 = O;
DD1 = 1;
KK1 = DBN1;
v1 = 0;
v2 = 0;
End;
if DD1 == 1 Then{
if C > val2 and UpWave[1] Then{
buy();
}
if C < val2 and DnWave[1] Then{
sell();
}
}
안녕하세요
위식에 청산손절식 추가부탁드림니다
매수손절식 매수진입후 연속2개이상 음봉발생
단전봉의 저점과고점을 낮추는 음봉.
손절청산.
매도 매도진입후 연속2개이상 양봉발생
전봉의 고.저점을 높이는 양봉.
2024-11-29
593
글번호 185771
시스템
답변완료
문의 드립니다!
안녕하세요!
아래수식에서 선의 발생시점에서 세로선도 동시에 발생토록 수정 부탁드립니다
* 선의 두께와 색상은 사용자지정이 가능토록 부탁합니다
감사합니다
input : af(0.1), maxAF(0.01);
input : 텍스트출력(0),선굵기(5);
var : T(0),cnt(0),count(0);
var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0),day1(0),day0(0),TL3(0);
var : TL1(0),TL2(0),tx1(0),tx2(0),tx11(0),tx22(0),idx(0),tx99(0),tx88(0);
Array : HD[20](0),HT[20](0),HH[20](0),LD[20](0),LT[20](0),LL[20](0);
Array : HI[20](0),LI[20](0);
var1 = CSar(af,maxAF);
if bdate != bdate[1] Then
{
day0 = sdate;
day1 = day0[1];
}
if crossup(c,var1) Then
{
T = 1;
HH[0] = H;
HD[0] = sdate;
HT[0] = stime;
HI[0] = index;
for cnt = 1 to 19
{
HD[cnt] = HD[cnt-1][1];
HT[cnt] = HT[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
HI[cnt] = HI[cnt-1][1];
}
if LL[0] > 0 Then
{
Condition1 = false;
for cnt = 1 to 19
{
if Condition1 == false and abs(LL[0]-LL[cnt]) >= PriceScale*1 and LD[cnt] <= day1 Then
{
Condition1 = true;
TL1 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetSize(TL1,선굵기);
TL_SetColor(TL1,Orange);
idx = abs(LI[0]-LI[cnt]);
//tx99 = Text_New(LD[0],LT[0],LL[0],NumToStr(idx,0));
Text_SetColor(tx99,Orange);
Text_SetStyle(tx99,0,3);
Text_SetBold(tx99,2);
PlaySound("C:₩예스트레이더(x64)₩data₩Sound₩.wav");
}
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL[0] = L;
LD[0] = sdate;
LT[0] = stime;
LI[0] = index;
for cnt = 1 to 19
{
LD[cnt] = LD[cnt-1][1];
LT[cnt] = LT[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
LI[cnt] = LI[cnt-1][1];
}
if HH[0] > 0 Then
{
Condition2 = false;
for cnt = 1 to 19
{
if Condition2 == false and abs(HH[0]-HH[cnt]) >= PriceScale*1 and HD[cnt] <= day1 Then
{
Condition2 = true;
TL2 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetSize(TL2,선굵기);
TL_SetColor(TL2,green);
idx = abs(HI[0]-HI[cnt]);
//tx99 = Text_New(HD[0],HT[0],HH[0],NumToStr(idx,0));
Text_SetColor(tx99,green);
Text_SetStyle(tx99,0,3);
Text_SetBold(tx99,2);
PlaySound("C:₩예스트레이더(x64)₩data₩Sound₩.wav");
}
}
}
}
if T == 1 then
{
if H > HH[0] Then
{
HH[0] = H;
HD[0] = sdate;
HT[0] = stime;
if Condition3 == false and abs(HH[0]-HH[cnt]) >= PriceScale*1 and HD[cnt] <= day1 Then
{
Condition3 = true;
TL3 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]);
TL_SetSize(TL3,선굵기);
TL_SetColor(TL3,Orange);
idx = abs(HI[0]-HI[cnt]);
//tx88 = Text_New(HD[0],HT[0],HH[0],NumToStr(idx,0));
Text_SetColor(tx88,Orange);
Text_SetStyle(tx88,0,3);
Text_SetBold(tx88,2);
PlaySound("C:₩예스트레이더(x64)₩data₩Sound₩.wav");
}
}
}
if T == -1 then
{
if L < LL[0] Then
{
LL[0] = L;
LD[0] = sdate;
LT[0] = stime;
if Condition3 == false and abs(LL[0]-LL[cnt]) >= PriceScale*1 and LD[cnt] <= day1 Then
{
Condition3 = true;
TL3 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]);
TL_SetSize(TL3,선굵기);
TL_SetColor(TL3,green);
idx = abs(LI[0]-LI[cnt]);
//tx88 = Text_New(LD[0],LT[0],LL[0],NumToStr(idx,0));
Text_SetColor(tx88,green);
Text_SetStyle(tx88,0,3);
Text_SetBold(tx88,2);
PlaySound("C:₩예스트레이더(x64)₩data₩Sound₩.wav");
}
}
}
2024-11-29
560
글번호 185765
지표
답변완료
지표식 요청 드립니다.
안녕하세요
항상 빠른 답변 감사 드립니다.
두가지 질문 드립니다.
첫째
당일 2시 시간을 기준으로 당일 고가 , 당일 저가, 2시종가 를 구하는 식이 궁금합니다.
둘째
아래 답변 해준것에 대해 수정을 요청 드립니다
1,
당일시가 N% +++> 전일종가 대비 당일 시가가 몇% 인지 표시하고자 합니다, 당일시가 = 1.2%(전종가 대비)
당일고가 N% +++> 전일종가 대비 당일 고가가 몇% 인지 표시하고자 합니다, 당일고가 = 7%(장중에 실시간 반영 되어 숫자가 변하겠지요)
input : per(3); 이 수식은 없어지겟죠 %값을 입력하는게 아니니...
2.
거래대금 표시가 자리수 표시가 없어 구분하기 어렵습니다. 자릿수 표시 수식 요청 드립니다.
만,억 단위로 구분 할 수 있는 수식을 요청 드립니다.
3. 글자 크기를 더 크게 가능한지요 노안으로 안습 ㅜㅜ
그럼 좋은 하루 되세요
input : per(3);
var : Grid(0);
if Index == 0 Then
{
Grid = Grid_New(1, 2, 5,White, Gray, 1, Gray, 0);
Grid_Cell(Grid,0,0,"당일시가 N%",0,0,BLACK,Green);
Grid_Cell(Grid,0,1,"당일고가 N%",0,0,BLACK,Green);
Grid_Cell(Grid,0,2,"당일거래대금",0,0,BLACK,Green);
Grid_Cell(Grid,0,3,"전일거대대금",0,0,BLACK,Green);
Grid_Cell(Grid,0,4,"거래대금",0,0,BLACK,Green);
Grid_Cell(Grid,1,0,NumToStr(DayOpen*(1+Per/100),2),0,0,BLACK,White);
Grid_Cell(Grid,1,1,NumToStr(DayHigh*(1+Per/100),2),0,0,BLACK,White);
Grid_Cell(Grid,1,2,NumToStr(Daymoney,0),0,0,BLACK,White);
Grid_Cell(Grid,1,3,NumToStr(daymoney,1),0,0,BLACK,White);
Grid_Cell(Grid,1,4,NumToStr(Money,0),0,0,BLACK,White);
}
if LastBarOnChart == 1 Then
{
Grid_Cell(Grid,1,0,NumToStr(DayOpen*(1+Per/100),2),0,0,BLACK,White);
Grid_Cell(Grid,1,1,NumToStr(DayHigh*(1+Per/100),2),0,0,BLACK,White);
Grid_Cell(Grid,1,2,NumToStr(Daymoney,0),0,0,BLACK,White);
Grid_Cell(Grid,1,3,NumToStr(daymoney,1),0,0,BLACK,White);
Grid_Cell(Grid,1,4,NumToStr(Money,0),0,0,BLACK,White);
}
Plot1(DayOpen);
2024-11-29
678
글번호 185762
지표