안녕하세요 예스스탁입니다. var : a(0),b(0); var : HH(0),HD(0),HT(0); var : HH1(0),HD1(0),HT1(0); var : LL(0),LD(0),LT(0); var : LL1(0),LD1(0),LT1(0); var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0); var : T(0); a = ma(C,5); b = ma(c,20); Condition1 = C > a and C > b; Condition2 = C < a and C < b; if T <= 0 and Condition1 == true and Condition1[1] == False Then { T = 1; } if T >= 0 and Condition2 == true and Condition2[1] == False Then { T = -1; } if T == 1 Then { if T != T[1] Then { HD = sDate; HT = sTime; HH = H; HD1 = HD[1]; HT1 = HT[1]; HH1 = HH[1]; if HH1 > 0 and LL > 0 Then { value1 = HH1; Value2 = LL; TL = TL_new(HD1,HT1,value1,LD,LT,Value2); TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1); TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2); TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382); TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500); TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618); TL_SetColor(TL,Red); TL_SetColor(TL1,Magenta); TL_SetColor(TL2,Magenta); TL_SetColor(TL3,Magenta); TL_SetColor(TL4,Magenta); TL_SetColor(TL5,Magenta); } } if H > HH Then { HD = sDate; HT = sTime; HH = H; } if HH1 > 0 and LL > 0 Then { TL_SetEnd(TL1,sDate,sTime,value1); TL_SetEnd(TL2,sDate,sTime,value2); TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382); TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500); TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618); } } if T == -1 Then { if T != T[1] Then { LD = sDate; LT = sTime; LL = L; LD1 = LD[1]; LT1 = LT[1]; LL1 = LL[1]; if LL1 > 0 and HH > 0 Then { value1 = HH; Value2 = LL1; TL = TL_new(LD1,LT1,LL1,HD,HT,HH); TL1 = TL_new(sdate,sTime,value1,NextBarSdate,NextBarStime,value1); TL2 = TL_new(sdate,sTime,value2,NextBarSdate,NextBarStime,value2); TL3 = TL_new(sdate,sTime,value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382); TL4 = TL_new(sdate,sTime,value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500); TL5 = TL_new(sdate,sTime,value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618); TL_SetColor(TL,Blue); TL_SetColor(TL1,Cyan); TL_SetColor(TL2,Cyan); TL_SetColor(TL3,Cyan); TL_SetColor(TL4,Cyan); TL_SetColor(TL5,Cyan); } } if L < LL Then { LD = sDate; LT = sTime; LL = L; } if HH1 > 0 and LL > 0 Then { TL_SetEnd(TL1,sDate,sTime,value1); TL_SetEnd(TL2,sDate,sTime,value2); TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382); TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500); TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618); } } 즐거운 하루되세요 > 아름다운아침 님이 쓴 글입니다. > 제목 : 문의드립니다 > 지난번에 아래와 같이 알려주신 시스템식을 지표식형태로 부탁드리겠습니다. 연관글번호 : 78407 var : a(0),b(0); var : HH(0),HD(0),HT(0); var : HH1(0),HD1(0),HT1(0); var : LL(0),LD(0),LT(0); var : LL1(0),LD1(0),LT1(0); var : TL(0),TL1(0),TL2(0),TL3(0),TL4(0),TL5(0); a = ma(C,5); b = ma(c,20); Condition1 = C > a and C > b; Condition2 = C < a and C < b; if Condition1 == true and Condition1[1] == False Then Buy(); if Condition2 == true and Condition2[1] == False Then Sell(); if MarketPosition == 1 Then { if MarketPosition != MarketPosition[1] Then { HD = sDate[BarsSinceEntry]; HT = sTime[BarsSinceEntry]; HH = H[BarsSinceEntry]; HD1 = HD[1]; HT1 = HT[1]; HH1 = HH[1]; if HH1 > 0 and LL > 0 Then { value1 = HH1; Value2 = LL; TL = TL_new(HD1,HT1,value1,LD,LT,Value2); TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1); TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2); TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382); TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500); TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618); TL_SetColor(TL,Red); TL_SetColor(TL1,Magenta); TL_SetColor(TL2,Magenta); TL_SetColor(TL3,Magenta); TL_SetColor(TL4,Magenta); TL_SetColor(TL5,Magenta); } } if H > HH Then { HD = sDate; HT = sTime; HH = H; } if HH1 > 0 and LL > 0 Then { TL_SetEnd(TL1,sDate,sTime,value1); TL_SetEnd(TL2,sDate,sTime,value2); TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382); TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500); TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618); } } if MarketPosition == -1 Then { if MarketPosition != MarketPosition[1] Then { LD = sDate[BarsSinceEntry]; LT = sTime[BarsSinceEntry]; LL = L[BarsSinceEntry]; LD1 = LD[1]; LT1 = LT[1]; LL1 = LL[1]; if LL1 > 0 and HH > 0 Then { value1 = HH; Value2 = LL1; TL = TL_new(LD1,LT1,LL1,HD,HT,HH); TL1 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1,NextBarSdate,NextBarStime,value1); TL2 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value2,NextBarSdate,NextBarStime,value2); TL3 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.382,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.382); TL4 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.500,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.500); TL5 = TL_new(sdate[BarsSinceEntry],sTime[BarsSinceEntry],value1-(value1-Value2)*0.618,NextBarSdate,NextBarStime,value1-(value1-Value2)*0.618); TL_SetColor(TL,Blue); TL_SetColor(TL1,Cyan); TL_SetColor(TL2,Cyan); TL_SetColor(TL3,Cyan); TL_SetColor(TL4,Cyan); TL_SetColor(TL5,Cyan); } } if L < LL Then { LD = sDate; LT = sTime; LL = L; } if HH1 > 0 and LL > 0 Then { TL_SetEnd(TL1,sDate,sTime,value1); TL_SetEnd(TL2,sDate,sTime,value2); TL_SetEnd(TL3,sDate,sTime,value1-(value1-Value2)*0.382); TL_SetEnd(TL4,sDate,sTime,value1-(value1-Value2)*0.500); TL_SetEnd(TL5,sDate,sTime,value1-(value1-Value2)*0.618); } }