커뮤니티
수정부탁드립니다
2021-06-27 17:44:31
1486
글번호 150303
$,안녕하세요
아래식에서 첫파동 시작을 아래조건으로 수정하고 싶습니다,
1,장종료후 완성되지 않은 이전파동은 무시하고 초기화상태에서 익일 장시작후 첫파동의
고점과 저점라인을 Y축까지 그리기한다,(기존식은 전일장과 파동이 연결되어있음)
2,첫파동 고점의 대칭선을 위로2개 Y축까지 그리기한다
3,첫파동 저점의 대칭선을 아래로2개 Y축까지 그리기한다.
4,다른식은 그대로 유지한다.
Input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),TL1(0),TL2(0),cnt(0),count(0);
Array : TL11[50](0),TL22[50](0);
var1 = CSar(af,maxAF);
if bdate != bdate[1] then
{
value1 = 0;
value2 = 0;
for cnt = 1 to 49
{
TL_Delete(TL11[cnt]);
TL_Delete(TL22[cnt]);
}
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],2);
TL_SetColor(tl11[value1],BLACK);
TL_SetColor(tl1,GRAY);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetColor(tl1,GRAY);
TL_SetStyle(TL11[value1],5);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],2);
TL_SetColor(tl22[value2],BLACK);
TL_SetColor(tl1,GRAY);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetColor(tl2,GRAY);
TL_SetStyle(TL22[value2],5);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
도움부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2021-06-28 13:46:02
안녕하세요
예스스탁입니다.
Input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),cnt(0),count(0);
var : TL1(0),TL2(0),TL3(0),TL4(0);
Array : TL11[50](0),TL22[50](0);
var1 = Sar(af,maxAF);
if bdate != bdate[1] then
{
T = 0;
value1 = 0;
value2 = 0;
for cnt = 1 to 49
{
TL_Delete(TL11[cnt]);
TL_Delete(TL22[cnt]);
}
Condition1 = False;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],2);
TL_SetColor(tl11[value1],BLACK);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetStyle(TL11[value1],5);
TL_SetColor(tl11[value1],GRAY);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],2);
TL_SetColor(tl22[value2],BLACK);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetStyle(TL22[value2],5);
TL_SetColor(tl22[value2],GRAY);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
if Condition1 == False and value1 == 1 and Value2 == 1 Then
{
Condition1 = true;
TL1 = TL_New(sDate,sTime,value22+(value22-Value11)*1,NextBarSdate,NextBarStime,value22+(value22-Value11)*1);
TL2 = TL_New(sDate,sTime,value22+(value22-Value11)*2,NextBarSdate,NextBarStime,value22+(value22-Value11)*2);
TL3 = TL_New(sDate,sTime,value11-(value22-Value11)*1,NextBarSdate,NextBarStime,value11-(value22-Value11)*1);
TL4 = TL_New(sDate,sTime,value11-(value22-Value11)*2,NextBarSdate,NextBarStime,value11-(value22-Value11)*2);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetSize(TL1,2);
TL_SetSize(TL2,2);
TL_SetSize(TL3,2);
TL_SetSize(TL4,2);
TL_SetColor(TL1,BLACK);
TL_SetColor(TL2,BLACK);
TL_SetColor(TL3,BLACK);
TL_SetColor(TL4,BLACK);
}
#plot1(value22+(value22-Value11)*1);
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 수정부탁드립니다
> $,안녕하세요
아래식에서 첫파동 시작을 아래조건으로 수정하고 싶습니다,
1,장종료후 완성되지 않은 이전파동은 무시하고 초기화상태에서 익일 장시작후 첫파동의
고점과 저점라인을 Y축까지 그리기한다,(기존식은 전일장과 파동이 연결되어있음)
2,첫파동 고점의 대칭선을 위로2개 Y축까지 그리기한다
3,첫파동 저점의 대칭선을 아래로2개 Y축까지 그리기한다.
4,다른식은 그대로 유지한다.
Input : af(0.02), maxAF(0.2);
var : T(0),HH(0),LL(0),HD(0),HT(0),LD(0),LT(0),TL1(0),TL2(0),cnt(0),count(0);
Array : TL11[50](0),TL22[50](0);
var1 = CSar(af,maxAF);
if bdate != bdate[1] then
{
value1 = 0;
value2 = 0;
for cnt = 1 to 49
{
TL_Delete(TL11[cnt]);
TL_Delete(TL22[cnt]);
}
}
if crossup(c,var1) Then
{
T = 1;
HH = H;
HD = sdate;
HT = stime;
if LL > 0 Then
if LD == sdate then
{
if value1 == 0 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetSize(TL11[value1],2);
TL_SetColor(tl11[value1],BLACK);
TL_SetColor(tl1,GRAY);
}
if value1 > 0 and LL[1] < value11 then
{
value1 = value1+1;
value11 = LL[1];
TL11[value1] = TL_New(LD[1],LT[1],LL[1],sdate,stime,LL);
TL_SetExtRight(TL11[value1],true);
TL_SetColor(tl1,GRAY);
TL_SetStyle(TL11[value1],5);
}
}
}
if CrossDown(c,var1) Then
{
T = -1;
LL = L;
LD = sdate;
LT = stime;
if HH > 0 Then
if HD[1] == sdate then
{
if value2 == 0 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetSize(TL22[value2],2);
TL_SetColor(tl22[value2],BLACK);
TL_SetColor(tl1,GRAY);
}
if value2 > 0 and HH[1] > value22 then
{
value2 = value2+1;
value22 = HH[1];
TL22[value2] = TL_New(HD[1],HT[1],HH[1],sdate,stime,HH);
TL_SetExtRight(TL22[value2],true);
TL_SetColor(tl2,GRAY);
TL_SetStyle(TL22[value2],5);
}
}
}
if T == 1 then
{
if H > HH Then
{
HH = H;
HD = sdate;
HT = stime;
}
}
if T == -1 then
{
if L < LL Then
{
LL = L;
LD = sdate;
LT = stime;
}
}
도움부탁드립니다.
다음글
이전글