답변완료
문의
박스상단과 하단의 중심에 횡선이 나오도록 부탁드리며.횡선의 굵기는 외부변수로 조정가능하도록 부탁드립니다
input : Period(12),선두께(2);
Var:상승색(Red), 하락색(Blue);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0)/*,ZZ[20](0)*/;
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
var : box(0),box1(0);
r[0] = 0;
r[1] = 2;
r[2] = 3.;
r[3] = -1;
r[4] = -2.;
r[5] = 1;
r[6] = 0.5;
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];
//ZZ[j+1] = ZZ[j];
}
LoVal[0] = L;
LoBar[0] = 0;
//ZZ[0] = L;
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
box = box_new(date11,time11,Value11,date12,time12,Value12);
Box_SetColor(box,하락색);
Box_SetFill(box,true);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
//ZZ[0] = L;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
Box_SetEnd(box,date12,time12,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];
//ZZ[j+1] = ZZ[j];
}
HiVal[0] = H;
HiBar[0] = 0;
//ZZ[0] = H;
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
box = box_new(date11,time11,Value11,date12,time12,Value12);
Box_SetColor(box,상승색);
Box_SetFill(box,true);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
//ZZ[0] = H;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
TL_SetEnd(TL1, date12,time12,Value12);
date32 = date[0];
time32 = stime[0];
Box_SetEnd(box,date12,time12,Value12);
}
}
2022-11-08
890
글번호 163604
지표
답변완료
수식부탁드립니다^^) 항상감사합니다
1.매물대_일목균형표(일봉)
Top
HT=highest(V,period);
NewH=valuewhen(1,V>HT(1),(O+C+L+H+C)/5);
NewH*1.03
bottom
HT=highest(V,period);
NewH=valuewhen(1,V>HT(1),(O+C+L+H+C)/5);
NewH*1.03
조건
period 224
2.매물대_일목균형표(분봉)
Top
HT=highest(V,period);
NewH=valuewhen(1,V>HT(1),(O+C+L+H+C)/5);
NewH*(1.+UpRatio/100)
bottom
HT=highest(V,period);
NewH=valuewhen(1,V>HT(1),(O+C+L+H+C)/5);
NewH*(1-DownRatio/100)
조건
period 60
UpRatio 3
DownRatio 2
2022-11-08
852
글번호 163602
지표
답변완료
식추가
input : Period(20),dv(2),P(5);
var : BBup(0),BBmd(0),BBdn(0),mav(0),T(0);
BBup = BollBandUp(Period,dv);
BBmd = ma(c,Period);
BBdn = BollBandDown(Period,dv);
mav = ma(C,P);
if CrossUp(c,bbmd) Then
T = 1;
if CrossDown(c,bbmd) Then
T = -1;
if T == 1 and C > O Then
{
T = 2;
if bbup-bbdn <= PriceScale*150 and C > mav Then
Buy();
}
if T == -1 and C < O Then
{
T = -2;
if bbup-bbdn <= PriceScale*150 and C < mav Then
Sell();
}
안녕하세요
위식에서macd추가 부탁 드려요
2022-11-08
873
글번호 163601
시스템
답변완료
배열의 활용
담당자님 안녕하세요. 고생이 많으십니다.
제가 만들고자 하는 수식은 1)특정 조건에 맞는 데이터를 찾아 2) 배열에 저장한 후 3) 통계분석을 하는 것 입니다.
아래 예제는 전일특정 상승률(GrowthRate: 10%)를 보였을 때, 당일 최대 하락률(CL_DL)을 배열(DL[100])에 저장한 후 통계분석 하고자 작성하였습니다.
1. 특정 조건의 값을 배열에 저장하는 방식으로 아래 수식이 최적일지, 오류가 있다면 수정 부탁드립니다.
2. 얼마나 많은 데이터가 저장될지 모르는데 배열의 size를 임의로 설정할 수 밖에 없을까요? (For문에서도 1 to 99로 하드코딩할수밖에 없는지)
3. 통계함수의 표본수를 배열의 전체 size (여기서는 100)으로 하기 떄문에 배열에 값이 저장이 몇개 되지 않을떄는 통계가 왜곡되는 문제가 있습니다. 배열의 size를 실제 데이터의 값으로 해서 Plot이 표현될 수 있도록 수식 수정 부탁드립니다.
=========================================================
Input: GrowthRate(10);
var: CL_DL(0), n(0);
Array: DL[100](0);
#1. 통계 조건
If ((DayClose[1]-DayClose[2])/DayClose[2])*100 >= GrowthRate Then{
CL_DL=((daylow-DayClose[1])/DayClose[1])*100;
DL[n]=CL_DL;
For n = 1 to 99{
DL[n] = DL[n-1][1];
}
};
Plot1(DL[n],"배열");
plot2(AverageArray(DL,n),"배열평균");
plot3(AvgDeviationArray(DL,n),"배열분산");
plot4(NormalDensityArray(DL,n),"배열정규분포");
2022-11-07
1454
글번호 163599
지표