안녕하세요 예스스탁입니다. Var : 기준선(0), 전환선(0), 선행스팬1(0), 선행스팬2(0),T(0); var : TL1(0),TL2(0),TL3(0),TL4(0),cnt(0); Array : HD[5](0),HT[5](0),HH[5](0); Array : LD[5](0),LT[5](0),LL[5](0); if date != date[1] Then{ HH[0] = H; HD[0] = sdate; HT[0] = stime; LL[0] = L; LD[0] = sdate; LT[0] = stime; for cnt = 1 to 4{ HH[cnt] = HH[cnt-1][1]; HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; } } if H > HH[0] Then{ HH[0] = H; HD[0] = sdate; HT[0] = stime; } if L < LL[0] Then{ LL[0] = L; LD[0] = sdate; LT[0] = stime; } 전환선 = (Highest(High, 9) + Lowest(Low, 9)) / 2; 기준선 = (Highest(High, 26) + Lowest(Low, 26)) / 2; 선행스팬1 = (전환선 + 기준선) / 2 ; 선행스팬2 = (Highest(High, 52) + Lowest(Low, 52)) / 2; if T <= 0 and crossup(선행스팬1[25],선행스팬2[25]) Then{ T = 1; var1 = (선행스팬1[25]+선행스팬2[25])/2; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL1 = TL_New(HD[0],HT[0],HH[0],sdate,stime,var1); TL2 = TL_New(LD[0],LT[0],LL[0],sdate,stime,var1); TL3 = TL_New(HD[1],HT[1],HH[1],sdate,stime,var1); TL4 = TL_New(LD[1],LT[1],LL[1],sdate,stime,var1); TL_SetExtRight(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); } if T >= 0 and CrossDown(선행스팬1[25],선행스팬2[25]) Then{ T = -1; var1 = (선행스팬1[25]+선행스팬2[25])/2; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL_Delete(TL4); TL1 = TL_New(HD[0],HT[0],HH[0],sdate,stime,var1); TL2 = TL_New(LD[0],LT[0],LL[0],sdate,stime,var1); TL3 = TL_New(HD[1],HT[1],HH[1],sdate,stime,var1); TL4 = TL_New(LD[1],LT[1],LL[1],sdate,stime,var1); TL_SetExtRight(TL1,true); TL_SetExtRight(TL2,true); TL_SetExtRight(TL3,true); TL_SetExtRight(TL4,true); } if T == 1 Then plot1(var1,"크로스",RED); if T == -1 Then plot1(var1,"크로스",BLUE); 즐거운 하루되세요 > TD용두목 님이 쓴 글입니다. > 제목 : 질문입니다 > Var : 기준선(0), 전환선(0), 선행스팬1(0), 선행스팬2(0),T(0); 전환선 = (Highest(High, 9) + Lowest(Low, 9)) / 2; 기준선 = (Highest(High, 26) + Lowest(Low, 26)) / 2; 선행스팬1 = (전환선 + 기준선) / 2 ; 선행스팬2 = (Highest(High, 52) + Lowest(Low, 52)) / 2; if T <= 0 and crossup(선행스팬1[25],선행스팬2[25]) Then{ T = 1; var1 = (선행스팬1[25]+선행스팬2[25])/2; } if T >= 0 and CrossDown(선행스팬1[25],선행스팬2[25]) Then{ T = -1; var1 = (선행스팬1[25]+선행스팬2[25])/2; } if T == 1 Then plot1(var1,"크로스",RED); if T == -1 Then plot1(var1,"크로스",BLUE); 1.일목의 교차 값인대요 .. 여기서 당일 고점에서 일목에 교차값이 시작 되는 부분과 연결선을 만들고 싶습니다.. 2. 당일 저점에서 일목의 교차가 시작 되는부분을 선을 만들구요 (추세연장 이면 좋구요 3.전일 고점에서도 만들어 지면 좋게습니다. 4.전일 저점에서도 만들어 지면 희망 합니다.. 충분히 가능 하다고 봅니다.. 부탁합니다 한번 만들어 주세요 만들어 볼려구 하는대 잘 응용 인됩니다. ㅋㅋ input : P(3),굵기(3); var : TL1(0),TL2(0),tx1(0),tx2(0); if SwingHigh(1,h,P,P,P*2+1) != -1 Then{ var1 = sdate[P]; var2 = sTime[P]; var3 = H[P]; var4 = var1[1]; var5 = var2[1]; var6 = var3[1]; if var6 > 0 Then{ #고점에 동그라미 그리기 Tx1 = Text_New(var1,var2,var3,""); #동그라미 색상, 파랑 Text_SetColor(Tx1,GREEN); Text_SetStyle(Tx1,2,2); #기존그려진 TL2추세선의 오측연장을 없앰 TL_SetExtRight(TL1,true); #새로운 고점과 이전고점을 연결해 추세선 생성 TL1 = TL_New(var4,var5,var6,var1,var2,var3); #추세선 우측 연장 TL_SetExtRight(TL1,true); #추세선 색지정 TL_SetColor(TL1,BLUE); TL_SetSize(TL1,굵기); } } if SwingLow(1,L,P,P,P*2+1) != -1 Then{ var11 = sdate[P]; var12 = sTime[P]; var13 = L[P]; var14 = var11[1]; var15 = var12[1]; var16 = var13[1]; if var16 > 0 Then{ #저점에 동그라미 그리기 Tx2 = Text_New(var11,var12,var13,""); #동그라미 색상, 빨강 Text_SetColor(Tx2,YELLOW); Text_SetStyle(Tx2,2,2); #기존그려진 TL2추세선의 오측연장을 없앰 TL_SetExtRight(TL2,False); #새로운 저점과 이전저점을 연결해 추세선 생성 TL2 = TL_New(var14,var15,var16,var11,var12,var13); #추세선 우측 연장 TL_SetExtRight(TL2,true); #추세선 색지정 TL_SetColor(TL2,RED); TL_SetSize(TL2,굵기); } } 이런부분과 것이 있어면 충분히 가능 하다고봅니다.. 부디 부탁 합니다