안녕하세요 예스스탁입니다. 1 if C > O Then var1 = 1; if C < O Then var1 = -1; if var1 == -1 and var1[1] != -1 Then value1 = H-L; plot1(value1); 2-1 Indicator: AccumDistRange // TASC Aug 2018 // Domenic D’Errico inputs: Length( 4 ), ConsolidationFactor( 0.75 ), TrendLineColor( Yellow ) ; variables: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ) ; Consolidation = false ; Range_ = Highest( High, Length )- Lowest( Low, Length ) ; if Range_ < ConsolidationFactor* Range_[Length] then begin Consolidation = true ; Top = Highest( High, Length ) ; Bot = Lowest( Low, Length ) ; end ; if Consolidation then begin value1 = TL_New( Date, Time, Top, Date[Length],Time[Length], Top ) ; TL_SetColor( value1, TrendLineColor); value1 = TL_New( Date, Time, Bot, Date[Length],Time[Length], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date[Length], Time[Length], Bot, Date[Length], Time[Length], Top ) ; tl_setcolor(value1,TrendLineColor); end ; if Range_[Length] > 0 then begin Plot1( Range_ /Range_[Length],"RangeRatio",red ) ; Plot2( ConsolidationFactor,"ConsolidationFactor", blue ) ; end ; 2-2 Indicator: AccumDistATR // TASC Aug 2018 // Domenic D’Errico inputs: ATRLength( 4 ), ATRFactor( 0.75 ), TrendLineColor( Yellow ) ; ; var: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ), ATR( 0 ) ; Consolidation = false ; ATR = atr( ATRLength ) ; if ATR < ATR[ATRLength] * ATRFactor then begin Consolidation = true ; Top = highest( High, ATRLength ) ; Bot = Lowest( Low, ATRLength ) ; end ; If Consolidation then begin value1=TL_New( Date, Time, Top, Date[ATRLength], Time[ATRLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date, Time, Bot, Date[ATRLength], Time[ATRLength], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date[ATRLength], Time[ATRLength], Bot, Date[ATRLength], Time[ATRLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; End; if ATR[ATRLength] > 0 then begin Plot1( ATR / ATR[ATRLength], "ATRRatio", red ) ; Plot2( ATRFactor, "ATRFactor", blue ) ; end ; 2-3 Indicator: AccumDistADX // TASC Aug 2018 // Domenic D’Errico inputs: ADXLength( 4 ), ADXTrigger( 30 ), TrendLineColor( Yellow ) ; variables: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ), ADXValue( 0 ) ; Consolidation=false; ADXValue = ADX( ADXLength ) ; If ADXValue < ADXTrigger then begin Consolidation = true ; Top = Highest( High, ADXLength ) ; Bot = Lowest( Low, ADXLength ) ; end ; If Consolidation then begin value1 = TL_New( Date, Time, Top, Date[ADXLength], Time[ADXLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date[ADXLength], Time[ADXLength], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date[ADXLength], Time[ADXLength], Bot, Date[ADXLength], Time[ADXLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; end ; Plot1( ADXValue,"ADX", red ) ; Plot2( ADXTrigger,"ADXTrigger", blue ) ; 2-4 Strategy: AccumDistRange input: Length( 4 ), ConsolidationFactor( 0.75 ), VolRatio( 1 ), VolAvg( 4 ), VolDelay( 4 ), InitialCapital( 100000 ), TradeStartDate( 1030101 ) ; var: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ); Consolidation = false ; Range_ = Highest( High, Length ) - Lowest( Low, Length ) ; If Range_ < ConsolidationFactor * Range_[Length] then begin Consolidation = true; Top = Highest( High, Length ) ; Bot = Lowest( Low, Length ) ; end ; //Signals if Date >= TradeStartDate and Close > Top and Bot > Bot[12] and ma( volume, VolAvg )[VolDelay] > VolRatio * ma( volume, VolAvg )[VolAvg+VolDelay] then Buy ("b",OnClose,def,(InitialCapital + NetProfit ) / Close) ; if Close < Bot then exitlong("bx") ; 즐거운 하루되세요 > 잡다백수 님이 쓴 글입니다. > 제목 : 문의드립니다. > 도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다. 1. 프린트 지표 -기준음봉 이전에 양봉이 있었으면 음봉전체길이 출력 2. 아래 코드 예스로 수정좀 부탁드립니다. Indicator: AccumDistRange // TASC Aug 2018 // Domenic D’Errico inputs: Length( 4 ), ConsolidationFactor( 0.75 ), TrendLineColor( Yellow ) ; variables: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ) ; Consolidation = false ; Range_ = Highest( High, Length ) - Lowest( Low, Length ) ; if Range_ < ConsolidationFactor * Range_[Length] then begin Consolidation = true ; Top = Highest( High, Length ) ; Bot = Lowest( Low, Length ) ; end ; if Consolidation then begin value1 = TL_New( Date, Time, Top, Date[Length], Time[Length], Top ) ; TL_SetColor( value1, TrendLineColor); value1 = TL_New( Date, Time, Bot, Date[Length], Time[Length], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date[Length], Time[Length], Bot, Date[Length], Time[Length], Top ) ; tl_setcolor(value1,TrendLineColor); end ; if Range_[Length] > 0 then begin Plot1( Range_ /Range_[Length], "RangeRatio", lightgray ) ; Plot2( ConsolidationFactor, "ConsolidationFactor", darkgray ) ; if Range_ / Range_[Length] < ConsolidationFactor then SetPlotColor( 1, TrendLineColor) ; end ; Indicator: AccumDistATR // TASC Aug 2018 // Domenic D’Errico inputs: ATRLength( 4 ), ATRFactor( 0.75 ), TrendLineColor( Yellow ) ; ; var: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ), ATR( 0 ) ; Consolidation = false ; ATR = AvgTrueRange( ATRLength ) ; if ATR < ATR[ATRLength] * ATRFactor then begin Consolidation = true ; Top = highest( High, ATRLength ) ; Bot = Lowest( Low, ATRLength ) ; end ; If Consolidation then begin value1=TL_New( Date, Time, Top, Date[ATRLength], Time[ATRLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date, Time, Bot, Date[ATRLength], Time[ATRLength], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1=TL_New( Date[ATRLength], Time[ATRLength], Bot, Date[ATRLength], Time[ATRLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; End; if ATR[ATRLength] > 0 then begin Plot1( ATR / ATR[ATRLength], "ATRRatio", LightGray ) ; Plot2( ATRFactor, "ATRFactor", DarkGray ) ; if ATR / ATR[ATRLength] < ATRFactor then SetPlotColor( 1, TrendLineColor) ; end ; Indicator: AccumDistADX // TASC Aug 2018 // Domenic D’Errico inputs: ADXLength( 4 ), ADXTrigger( 30 ), TrendLineColor( Yellow ) ; variables: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ), ADXValue( 0 ) ; Consolidation=false; ADXValue = ADX( ADXLength ) ; If ADXValue < ADXTrigger then begin Consolidation = true ; Top = Highest( High, ADXLength ) ; Bot = Lowest( Low, ADXLength ) ; end ; If Consolidation then begin value1 = TL_New( Date, Time, Top, Date[ADXLength], Time[ADXLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date[ADXLength], Time[ADXLength], Bot ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date, Time, Bot, Date, Time, Top ) ; TL_SetColor( value1, TrendLineColor ) ; value1 = TL_New( Date[ADXLength], Time[ADXLength], Bot, Date[ADXLength], Time[ADXLength], Top ) ; TL_SetColor( value1, TrendLineColor ) ; end ; Plot1( ADXValue, "ADX", lightgray ) ; Plot2( ADXTrigger, "ADXTrigger", darkgray ) ; if ADXValue < ADXTrigger then SetPlotColor( 1, TrendLineColor ) ; Strategy: AccumDistRange input: Length( 4 ), ConsolidationFactor( 0.75 ), VolRatio( 1 ), VolAvg( 4 ), VolDelay( 4 ), InitialCapital( 100000 ), TradeStartDate( 1030101 ) ; var: Consolidation( false ), Range_( 0 ), Top( 0 ), Bot( 0 ); Consolidation = false ; Range_ = Highest( High, Length ) - Lowest( Low, Length ) ; If Range_ < ConsolidationFactor * Range_[Length] then begin Consolidation = true; Top = Highest( High, Length ) ; Bot = Lowest( Low, Length ) ; end ; //Signals if Date >= TradeStartDate and Close > Top and Bot > Bot[12] and Average( volume, VolAvg )[VolDelay] > VolRatio * Average( volume, VolAvg )[VolAvg+VolDelay] then Buy ( InitialCapital + NetProfit ) / Close Shares this bar Close ; if Close < Bot then Sell this bar on Close ;