안녕하세요 예스스탁입니다. Input : short(12), long(26), signal(9),굵기(1); Var : MACDV(0) , MACDS(0),T(0); var : HIV(0),HID(0),HIT(0),HIV1(0),HID1(0),HIT1(0),HPLL(0),HPLL1(0); var : HPV(0),HPD(0),HPT(0),HPV1(0),HPD1(0),HPT1(0),HPL(0),HPL1(0); var : LIV(0),LID(0),LIT(0),LIV1(0),LID1(0),LIT1(0),LPHH(0),LPHH1(0); var : LPV(0),LPD(0),LPT(0),LPV1(0),LPD1(0),LPT1(0),LPH(0),LPH1(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TX4(0); MACDV = MACD(short, long); MACDS = ema(MACDV,signal); if crossup(MACDV,MACDS) Then { T = 1; HIV = MACDV; HID = sdate; HIT = stime; HIV1 = HIV[1]; HID1 = HID[1]; HIT1 = HIT[1]; HPV = H; HPD = sdate; HPT = stime; HPL = L; HPLL = L; HPV1 = HPV[1]; HPD1 = HPD[1]; HPT1 = HPT[1]; HPL1 = HPL[1]; HPLL1 = HPLL[1]; Condition1 = false; } if CrossDown(MACDV,MACDS) Then { T = -1; LIV = MACDV; LID = sdate; LIT = stime; LIV1 = LIV[1]; LID1 = LID[1]; LIT1 = LIT[1]; LPV = L; LPD = sdate; LPT = stime; LPH = h; LPHH = H; LPV1 = LPV[1]; LPD1 = LPD[1]; LPT1 = LPT[1]; LPH1 = LPH[1]; LPHH1 = LPHH[1]; Condition2 = false; } if T == 1 Then { if MACDV > HIV Then { HIV = MACDV; HID = sdate; HIT = stime; } if H > HPV Then { HPV = H; HPD = sdate; HPT = stime; HPL = L; HPLL = L; } if L < HPLL Then { HPLL = L; } if Condition1 == false and HPV1 > 0 and HPV > HPV1 and HIV < HIV1 Then { TL1 = TL_New(HPD1,HPT1,HPV1,HPD,HPT,HPV); TL2 = TL_New_Self(HID1,HIT1,HIV1,HID,HIT,HIV); TL3 = TL_New(HPD1,HPT1,HPL1,HPD,HPT,HPL1); value1 = (max(HPV,HPV1)+ min(HPLL1,HPLL))/2; TL4 = TL_New(HPD1,HPT1,value1,HPD,HPT,value1); TX4 = Text_New(HPD,HPT,value1,NumToStr(value1,2)); Text_SetStyle(TX4,2,0); TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,WHITE); TL_SetColor(TL4,GREEN); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); TL_SetSize(TL3,굵기); TL_SetSize(TL4,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition1 = true; } if Condition1 == true then { value1 = (max(HPV,HPV1)+ min(HPLL1,HPLL))/2; if HPV > HPV1 and HIV < HIV1 then { TL_SetEnd(TL1,HPD,HPT,HPV); TL_SetEnd(TL2,HID,HIT,HIV); TL_SetEnd(TL3,HPD,HPT,HPL1); TL_SetEnd(TL4,HPD,HPT,value1); TL_SetBegin(TL4,HPD1,HPT1,value1); Text_SetLocation(TX4,HPD,HPT,value1); Text_SetString(TX4,NumToStr(value1,2)); } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); Text_Delete(TX4); } } } if T == -1 Then { if MACDV < LIV Then { LIV = MACDV; LID = sdate; LIT = stime; } if L < LPV Then { LPV = L; LPD = sdate; LPT = stime; LPH = H; LPHH = H; } if H > LPHH Then { LPHH = H; } if Condition2 == false and LPV1 > 0 and LPV < LPV1 and LIV > LIV1 Then { TL1 = TL_New(LPD1,LPT1,LPV1,LPD,LPT,LPV); TL2 = TL_New_Self(LID1,LIT1,LIV1,LID,LIT,LIV); TL3 = TL_New(LPD1,LPT1,LPH1,LPD,LPT,LPH1); value2 = (Min(LPV,LPV1)+ max(LPHH1,LPHH))/2; TL4 = TL_New(LPD1,LPT1,value2,LPD,LPT,value2); TX4 = Text_New(LPD,LPT,value2,NumToStr(value2,2)); Text_SetStyle(TX4,2,0); TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetColor(TL3,WHITE); TL_SetColor(TL4,GREEN); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); TL_SetSize(TL3,굵기); TL_SetSize(TL4,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition2 = true; } if Condition2 == true then { value2 = (Min(LPV,LPV1)+ max(LPHH1,LPHH))/2; if LPV < LPV1 and LIV > LIV1 then { TL_SetEnd(TL1,LPD,LPT,LPV); TL_SetEnd(TL2,LID,LIT,LIV); TL_SetEnd(TL3,LPD,LPT,LPH1); TL_SetEnd(TL4,LPD,LPT,value2); TL_SetBegin(TL4,LPD1,LPT1,value2); Text_SetLocation(TX4,LPD,LPT,value2); Text_SetString(TX4,NumToStr(value2,2)); } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); Text_Delete(TX4); } } } plot1(MACDV); plot2(MACDS); PlotBaseLine1(0, "기준선1"); 즐거운 하루되세요 > 성공예견 님이 쓴 글입니다. > 제목 : 지표문의 > 1.안녕하세요 2가지 선을 만들구 싶어요. 첨부 그림보면 1번 추세선이 생기면 추세선 시작봉 저가선(흰선) 2번 추세선이 생기면 추세선 시작봉 고가선(흰선) 하나하고요. 두번째 선은 추세선이 생기면 추세선 시작과끝의 구간의 ,해당구간 선물지수고점,저점 파악해서 만드는 구간저점고점의1/2선(첨부그림 그린선),이선은 지수두 출력하게 좀 해주세요. Input : short(12), long(26), signal(9),굵기(1); Var : MACDV(0) , MACDS(0),T(0); var : HIV(0),HID(0),HIT(0),HIV1(0),HID1(0),HIT1(0); var : HPV(0),HPD(0),HPT(0),HPV1(0),HPD1(0),HPT1(0); var : LIV(0),LID(0),LIT(0),LIV1(0),LID1(0),LIT1(0); var : LPV(0),LPD(0),LPT(0),LPV1(0),LPD1(0),LPT1(0); var : TL1(0),TL2(0); MACDV = MACD(short, long); MACDS = ema(MACDV,signal); if crossup(MACDV,MACDS) Then { T = 1; HIV = MACDV; HID = sdate; HIT = stime; HIV1 = HIV[1]; HID1 = HID[1]; HIT1 = HIT[1]; HPV = L; HPD = sdate; HPT = stime; HPV1 = HPV[1]; HPD1 = HPD[1]; HPT1 = HPT[1]; Condition1 = false; } if CrossDown(MACDV,MACDS) Then { T = -1; LIV = MACDV; LID = sdate; LIT = stime; LIV1 = LIV[1]; LID1 = LID[1]; LIT1 = LIT[1]; LPV = L; LPD = sdate; LPT = stime; LPV1 = LPV[1]; LPD1 = LPD[1]; LPT1 = LPT[1]; Condition2 = false; } if T == 1 Then { if MACDV > HIV Then { HIV = MACDV; HID = sdate; HIT = stime; } if H > HPV Then { HPV = H; HPD = sdate; HPT = stime; } if Condition1 == false and HPV1 > 0 and HPV > HPV1 and HIV < HIV1 Then { TL1 = TL_New(HPD1,HPT1,HPV1,HPD,HPT,HPV); TL2 = TL_New_Self(HID1,HIT1,HIV1,HID,HIT,HIV); TL_SetColor(TL1,BLUE); TL_SetColor(TL2,BLUE); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition1 = true; } if Condition1 == true then { if HPV > HPV1 and HIV < HIV1 then { TL_SetEnd(TL1,HPD,HPT,HPV); TL_SetEnd(TL2,HID,HIT,HIV); } Else { TL_Delete(TL1); TL_Delete(TL2); } } } if T == -1 Then { if MACDV < LIV Then { LIV = MACDV; LID = sdate; LIT = stime; } if L < LPV Then { LPV = L; LPD = sdate; LPT = stime; } if Condition2 == false and LPV1 > 0 and LPV < LPV1 and LIV > LIV1 Then { TL1 = TL_New(LPD1,LPT1,LPV1,LPD,LPT,LPV); TL2 = TL_New_Self(LID1,LIT1,LIV1,LID,LIT,LIV); TL_SetColor(TL1,RED); TL_SetColor(TL2,RED); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); PlaySound("C:예스트레이더dataSound1point.wav"); Condition2 = true; } if Condition2 == true then { if LPV < LPV1 and LIV > LIV1 then { TL_SetEnd(TL1,LPD,LPT,LPV); TL_SetEnd(TL2,LID,LIT,LIV); } Else { TL_Delete(TL1); TL_Delete(TL2); } } } plot1(MACDV); plot2(MACDS); PlotBaseLine1(0, "기준선1"); 2. 그럼 즐거운 하루되세요.