커뮤니티
수식문의
2023-09-11 10:47:39
822
글번호 172324
안녕하세요
항상 감사드립니다
문의1) 아래수식으로 검색된 종목이 재검색시에도 유지될 수 있도록 검토 부탁립니다.
Input : Change(240);#240일
Input : Mult1(1.03),Mult2(0.5),DV(100000);
Array : HD[10](0),HT[10](0),HV[10](0),HI[10](0);
Array : LD[10](0),LT[10](0),LV[10](0),LI[10](0);
Var : Cnt(0),Hprice(0),Lprice(0);
Var : UpTrend(false),DownTrend(False),Trend(0);
Var : ZigZagTL(0);
HPrice = H;
LPrice = L;
if Index == 0 Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
if Trend <= 0 and UpTrend == true Then
{
Trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
HI[cnt] = HI[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else if Trend >= 0 and DownTrend Then//하락추세 전환
{
Trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
LI[cnt] = LI[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
if Trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else
Var2 = Var2+var1;
if Condition1 == False and C > Var2[1] and Var2[1] > L Then
{
Condition1 = true;
if C > DayOpen and C >= DayClose(1)*Mult1 and
DayVolume(0) >= DV and DayVolume(0)>DayVolume(1)*mult2 and
Asks > Bids Then
Find(1);
}
}
if Trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
}
}
}
답변 1
예스스탁 예스스탁 답변
2023-09-11 17:43:45
안녕하세요
예스스탁입니다.
Input : Change(240);#240일
Input : Mult1(1.03),Mult2(0.5),DV(100000);
Array : HD[10](0),HT[10](0),HV[10](0),HI[10](0);
Array : LD[10](0),LT[10](0),LV[10](0),LI[10](0);
Var : Cnt(0),Hprice(0),Lprice(0);
Var : UpTrend(false),DownTrend(False),Trend(0);
Var : ZigZagTL(0);
HPrice = H;
LPrice = L;
if sDate != sDate[1] Then
Condition2 = False;
if Index == 0 Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
if Trend <= 0 and UpTrend == true Then
{
Trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
HI[cnt] = HI[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else if Trend >= 0 and DownTrend Then//하락추세 전환
{
Trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
LI[cnt] = LI[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
if Trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else
Var2 = Var2+var1;
if Condition1 == False and C > Var2[1] and Var2[1] > L Then
{
Condition1 = true;
if C > DayOpen and C >= DayClose(1)*Mult1 and
DayVolume(0) >= DV and DayVolume(0)>DayVolume(1)*mult2 and
Asks > Bids Then
Condition2 = true;
}
}
if Trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
}
}
}
if Condition2 == true Then
Find(1);
즐거운 하루되세요
> 심홍 님이 쓴 글입니다.
> 제목 : 수식문의
> 안녕하세요
항상 감사드립니다
문의1) 아래수식으로 검색된 종목이 재검색시에도 유지될 수 있도록 검토 부탁립니다.
Input : Change(240);#240일
Input : Mult1(1.03),Mult2(0.5),DV(100000);
Array : HD[10](0),HT[10](0),HV[10](0),HI[10](0);
Array : LD[10](0),LT[10](0),LV[10](0),LI[10](0);
Var : Cnt(0),Hprice(0),Lprice(0);
Var : UpTrend(false),DownTrend(False),Trend(0);
Var : ZigZagTL(0);
HPrice = H;
LPrice = L;
if Index == 0 Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
UpTrend = HPrice >= Highest(HPrice,Change)[1];
DownTrend = LPrice <= Lowest(LPrice,Change)[1];
if Trend <= 0 and UpTrend == true Then
{
Trend = 1;
For cnt = 9 DownTo 1
{
HD[cnt] = HD[cnt-1];
HT[cnt] = HT[cnt-1];
HV[cnt] = HV[cnt-1];
HI[cnt] = HI[cnt-1];
}
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else if Trend >= 0 and DownTrend Then//하락추세 전환
{
Trend = -1;
For cnt = 9 DownTo 1
{
LD[cnt] = LD[cnt-1];
LT[cnt] = LT[cnt-1];
LV[cnt] = LV[cnt-1];
LI[cnt] = LI[cnt-1];
}
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
Else
{
if Trend == 1 Then
{
if HPrice > HV[0] Then
{
HD[0] = sDate;
HT[0] = sTime;
HV[0] = HPrice;
HI[0] = Index;
var1 = (HV[0]-LV[0])/(HI[0]-LI[0]);
Var2 = HV[0];
}
Else
Var2 = Var2+var1;
if Condition1 == False and C > Var2[1] and Var2[1] > L Then
{
Condition1 = true;
if C > DayOpen and C >= DayClose(1)*Mult1 and
DayVolume(0) >= DV and DayVolume(0)>DayVolume(1)*mult2 and
Asks > Bids Then
Find(1);
}
}
if Trend == -1 Then
{
if LPrice < LV[0] Then
{
LD[0] = sDate;
LT[0] = sTime;
LV[0] = LPrice;
LI[0] = Index;
}
}
}
}
다음글
이전글