답변완료
부탁드립니다.
1. 오늘시가-어제시가 = 0.5 일때, 소숫점 치수만큼 파동이 나오게 해주세요.
( 꼭지점 도형삽입가능, 글자크기 , 굵기, 색상변경 )
// 치수는 개별적으로 넣어야하는지요. 자동적으로 계산되면 부탁드려요.
2. 파동선이 1번 찍히고 오버하여 새로운 꼭지점 갱신했을때, 2번찍힐때 텍스트사용(" ~~ ")
input : ChangeMethod(4); //1:변화율, 2: 포인트, 3: 틱수, 4: n봉 최고가/최저가 갱신
input : Change(20); //ChangeMethod에 따라 변화율, 포인트, 틱수, n봉이 됨
input : UseClose(0); //0이면 고가/저가 사용, 1이면 종가
Array : HD[10](0),HT[10](0),HV[10](0); //고점 날짜, 시간, 가격 저장할 배열
Array : LD[10](0),LT[10](0),LV[10](0); //저점 날짜, 시간, 가격 저장할 배열
var : cnt(0),Hprice(0),Lprice(0);
var : UpTrend(false),DownTrend(False),Trend(0);
var : ZigZagTL(0),Text(0);
HPrice = IFf(UseClose == 1 ,C,H);
LPrice = IFf(UseClose == 1 ,C,L);
if Index == 0 Then
{
//초기 최고값
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//초기 최저값
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
}
Else
{
//ChangeMethod에 따른 추세전환 조건
if ChangeMethod == 1 Then
{
UpTrend = HPrice >= LV[0]*(1+Change/100);
DownTrend = LPrice <= HV[0]*(1-Change/100);
}
else if ChangeMethod == 2 Then
{
UpTrend = HPrice >= LV[0]+Change;
DownTrend = LPrice <= HV[0]-Change;
}
else if ChangeMethod == 3 Then
{
UpTrend = HPrice >= LV[0]+Change*PriceScale;
DownTrend = LPrice <= HV[0]-Change*PriceScale;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
}
//상승추세 전환
if trend <= 0 and UpTrend == true Then
{
//추세구분 1
trend = 1;
//과거 고점의 날짜, 시간, 값을 다음 배열방으로 이동
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
}
//0번방에 날짜, 시간, 가격 저장
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//직전저점이 있으면
if LV[0] > 0 Then
{
//직전 저점에서 현재 고점까지 연결선 출력
ZigZagTL = TL_New(LD[0],LT[0],LV[0],HD[0],HT[0],HV[0]);
//색상은 Red
TL_SetColor(ZigZagTL,Red);
//추세선 굵기는 1
TL_SetSize(ZigZagTL,1);
//현재 고점 위치에 고점값을 텍스트로 출력
Text = Text_New(HD[0],HT[0],HV[0],NumToStr(HV[0],2));
//텍스트 색상은 Red
Text_SetColor(Text,Red);
//텍스트 크기는 12
Text_SetSize(Text,12);
//텍스트 폰트는 굴림
Text_SetFont(Text,"굴림");
//텍스트를 굵게 설정
Text_SetBold(Text,1);
//텍스트는 좌우정렬은 중앙, 상하정렬은 상
Text_SetStyle(Text,2,1);
}
}
Else if trend >= 0 and DownTrend Then//하락추세 전환
{
//추세구분은 -1
trend = -1;
//과거 저점의 날짜, 시간, 값을 다음 배열방으로 이동
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
}
//0번방에 날짜, 시간, 가격 저장
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
if HV[0] > 0 Then
{
//직전 고점에서 현재 저점까지 연결선 출력
ZigZagTL = TL_New(HD[0],HT[0],HV[0],LD[0],LT[0],LV[0]);
//색상은 Blue
TL_SetColor(ZigZagTL,Blue);
//굵기는 1
TL_SetSize(ZigZagTL,1);
//현재 저점 위치에 저점값을 텍스트로 출력
Text = Text_New(LD[0],LT[0],LV[0],NumToStr(LV[0],2));
//텍스트 색상은 Blue
Text_SetColor(Text,Blue);
//텍스트 크기는 12
Text_SetSize(Text,12);
//텍스트 폰트는 맑음 고딕
Text_SetFont(Text,"맑은 고딕");
//텍스트를 굵게 설정
Text_SetBold(Text,1);
//텍스트는 좌우정렬은 중앙, 상하정렬은 하
Text_SetStyle(Text,2,0);
}
}
Else
{
//상승구간
if trend == 1 Then
{
//고점이 갱신되면
if HPrice > HV[0] Then
{
//갱신된 봉의 날짜/시간/가격으로 변경
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
//지그재그 추세선의 끝점을 현재봉으로 이동
TL_SetEnd(ZigZagTL,HD[0],HT[0],HV[0]);
//텍스트의 위치를 새로움 고점봉으로 이동
Text_SetLocation(Text,HD[0],HT[0],HV[0]);
//텍스트의 표시값을 새로운 고점값으로 변경
Text_SetString(Text,NumToStr(HV[0],2));
}
}
//하락구간
if trend == -1 Then
{
//저점이 갱신되면
if LPrice < LV[0] Then
{
//갱신된 봉의 날짜/시간/가격으로 변경
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
//지그재그 추세선의 끝점을 현재봉으로 이동
TL_SetEnd(ZigZagTL,LD[0],LT[0],LV[0]);
//텍스트의 위치를 새로움 저점봉으로 이동
Text_SetLocation(Text,LD[0],LT[0],LV[0]);
//텍스트의 표시값을 새로운 고점값으로 변경
Text_SetString(Text,NumToStr(LV[0],2));
}
}
}
}
2024-12-23
619
글번호 186511
지표
답변완료
문의 드립니다.
문의 드립니다.
아래는 3분봉 수식입니다.
1. 차트상에는 "b"가 표시가 안됩니다. 왜 그런지요?
2. 일봉상 dayopen()<c 양봉일때만 매수하고 싶은데 어디에 수식을 넣어야 하는지요?
3. 아래 조건에서 cci >100 이상일때 cci가 시그널선과 골든크로스가 나는 추가 지점에서 저점이 높아 질때 분할 매수를 하고 나중에 전저점을 깰때 매도하는 수식을 알고 싶습니다.
Input : Period1(50),Period2(9);
var : af(0.02),ADXv(0),count(0), maxAF(0.2),CCIv(0),CCIsig(0),a(0),a1(0),a2(0),a11(0),a22(0),a33(0), 전환선(0),기준선(0),선행1(0),선행2(0),선행스팬1(0),선행스팬2(0),구선행스팬1(0),구선행스팬2(0);
CCIv = CCI(Period1);
CCIsig = ema(CCIv,Period2);
ADXv = ADX(11);
a=ma(c,5);
a1=ma(c,20);
a2=ma(c,5);
a11=ma(v,5);
a22=ma(v,10);
a33=ma(v,20);
var1 = SAR(af,maxAF);
전환선 = (highest(H,9)+lowest(L,9))/2;
기준선 = (highest(H,26)+lowest(L,26))/2;
선행1 = (전환선+기준선)/2;
선행2 = (highest(H,52)+lowest(L,52))/2;
선행스팬1 = (전환선[25]+기준선[25])/2;
선행스팬2 = (highest(H,52)[25]+lowest(L,52)[25])/2;
구선행스팬1 = (전환선[51]+기준선[51])/2;
구선행스팬2 = (highest(H,52)[51]+lowest(L,52)[51])/2;
value1 = max(선행스팬1,선행스팬2);
value2 = min(선행스팬1,선행스팬2);
if((CrossUp(a2,선행스팬2) and 선행스팬1<선행스팬2)or (CrossUp(a2,선행스팬1) and 선행스팬1>선행스팬2)) and adxv>adxv[1] and a11>a22 and 선행1>선행2 and var1<c and c>선행1 Then
count=0;
if CrossUp(cciv,100) Then
{ count = count+1;
var1=cciv;
Var2=var1[1];
if count == 0 Then
Buy("b");
if count == 1 Then
Buy("b1");
if count == 2 Then
Buy("b2");
if count == 3 Then
Buy("b3");
}
if cciv>100 and (CrossDown(cciv,ccisig)) Then
ExitLong();
2024-12-23
536
글번호 186508
시스템