안녕하세요 예스스탁입니다. inputs: p( 20 ), k( 30 ), UnlikelyColor(Gray), ExpectBearCross( Yellow ), ExpectBullCross( Yellow ), BullCrossNext( Green ), BearCrossNext( Magenta ), BullCross( Green ), BearCross( Red ) ; variables: MAp( 0 ), MAk( 0 ), kLess1( 0 ), MAkLess1( 0 ), pLess1( 0 ), MApLess1( 0 ), TC( 0 ), DescCrossPrediction( false ), AscCrossPrediction( false ), ExpectMACross( false ), Confirmed( false ), ROC( 0 ), HalfUpperRange( 0 ), HalfLowerRange( 0 ), Ucoeff( 0 ), Lcoeff( 0 ), Unlikely( false ), NotUnlikely( false ), BarsSinceCross( 0 ), NotExpectMACross( false ), NotConfirmed( false ) ; MAp = ma( Close, p ) ; MAk = ma( Close, k ) ; kLess1 = k - 1 ; MAkLess1 = ma( Close, kLess1 ) ; pLess1 = p - 1 ; MApLess1 = ma( Close, pLess1 ) ; if k <> p then TC = ( p * kLess1 * MAkLess1 - k * pLess1 * MApLess1 ) / ( k - p ) ; DescCrossPrediction = crossdown(TC,Close) ; AscCrossPrediction = crossup(TC,Close); ExpectMACross = DescCrossPrediction or AscCrossPrediction ; Confirmed = crossup(MAk,MAp) or CrossDown(MAk,MAp); ROC = PROC(1) ; HalfUpperRange = Highest( ROC, 800 ) ; HalfLowerRange = Lowest( ROC, 800 ) ; Ucoeff = 1 + 0.02 * HalfUpperRange ; Lcoeff = 1 + 0.02 * HalfLowerRange ; BarsSinceCross = MRO( Confirmed, 10, 1 ) ; Unlikely = TC < Lcoeff * Close or TC > Ucoeff * Close ; if Unlikely then NotUnlikely = false; Else NotUnlikely = true; if ExpectMACross then NotExpectMACross = false; else NotExpectMACross = true; if Confirmed then NotConfirmed = false; Else NotConfirmed = true ; if Unlikely then begin Plot1( Open,"Open", UnlikelyColor ) ; Plot2( High, "High", UnlikelyColor ) ; Plot3( Low, "Low", UnlikelyColor ) ; Plot4( Close , "Close", UnlikelyColor ) ; end ; if NotUnlikely and NotExpectMACross and NotConfirmed and BarsSinceCross > 3 and TC < Close then begin Plot1( Open, "Open", ExpectBearCross, def, 1 ) ; Plot2( High, "High", ExpectBearCross, def, 1 ) ; Plot3( Low, "Low", ExpectBearCross, Def, 1 ) ; Plot4( Close, "Close", ExpectBearCross, def, 1 ) ; Plot5( Open, "Open", BearCross, def, 4 ) ; Plot6( High, "High", BearCross, def, 4 ) ; Plot7( Low, "Low", BearCross, def, 4 ) ; Plot8( Close, "Close", BearCross, def, 4 ) ; end else if NotUnlikely and NotExpectMACross and NotConfirmed and BarsSinceCross > 3 and TC > Close then begin Plot1( Open, "Open", ExpectBullCross, def, 1 ) ; Plot2( High, "High", ExpectBullCross, def, 1 ) ; Plot3( Low, "Low", ExpectBullCross, def, 1 ) ; Plot4( Close, "Close", ExpectBullCross, def, 1 ) ; Plot5( Open, "Open", BullCross, def, 4 ) ; Plot6( High, "High", BullCross, def, 4 ) ; Plot7( Low, "Low", BullCross, def, 4 ) ; Plot8( Close, "Close", BullCross, def, 4 ) ; end else if AscCrossPrediction then begin Plot1( Open, "Open", BearCrossNext, def, 5 ) ; Plot2( High, "High", BearCrossNext, def, 5 ) ; Plot3( Low, "Low", BearCrossNext, def, 5 ) ; Plot4( Close, "Close", BearCrossNext, def, 5 ) ; end else if DescCrossPrediction then begin Plot1( Open, "Open", BullCrossNext, def, 5 ) ; Plot2( High, "High", BullCrossNext, def, 5 ) ; Plot3( Low, "Low", BullCrossNext, def, 5 ) ; Plot4( Close, "Close", BullCrossNext, def, 5 ) ; end ; if crossup(MAp,MAk) then Plot10( Close, "BullCross", BullCross, def, 6 ); else if CrossDown(MAp,MAk) then Plot11( Close, "BearCross", BearCross, def, 6 ) ; Plot12( MAp, "MAp" ) ; Plot13( MAk, "MAk" ) ; 즐거운 하루되세요 > 잡다백수 님이 쓴 글입니다. > 제목 : 문의드립니다. > 도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다. 1. 코딩 변환 부탁드립니다. inputs: p( 20 ), k( 30 ), UnlikelyColor( LightGray ), ExpectBearCross( Yellow ), ExpectBullCross( Yellow ), BullCrossNext( DarkGreen ), BearCrossNext( Magenta ), BullCross( Green ), BearCross( Red ) ; variables: MAp( 0 ), MAk( 0 ), kLess1( 0 ), MAkLess1( 0 ), pLess1( 0 ), MApLess1( 0 ), TC( 0 ), DescCrossPrediction( false ), AscCrossPrediction( false ), ExpectMACross( false ), Confirmed( false ), ROC( 0 ), HalfUpperRange( 0 ), HalfLowerRange( 0 ), Ucoeff( 0 ), Lcoeff( 0 ), Unlikely( false ), NotUnlikely( false ), BarsSinceCross( 0 ), NotExpectMACross( false ), NotConfirmed( false ) ; MAp = Average( Close, p ) ; MAk = Average( Close, k ) ; kLess1 = k - 1 ; MAkLess1 = Average( Close, kLess1 ) ; pLess1 = p - 1 ; MApLess1 = Average( Close, pLess1 ) ; if k <> p then TC = ( p * kLess1 * MAkLess1 - k * pLess1 * MApLess1 ) / ( k - p ) ; DescCrossPrediction = TC crosses under Close ; AscCrossPrediction = TC crosses over Close ; ExpectMACross = DescCrossPrediction or AscCrossPrediction ; Confirmed = MAk crosses over MAp or MAk crosses under MAp ; ROC = RateOfChange( Close, 1 ) ; HalfUpperRange = Highest( ROC, 800 ) ; HalfLowerRange = Lowest( ROC, 800 ) ; Ucoeff = 1 + 0.02 * HalfUpperRange ; Lcoeff = 1 + 0.02 * HalfLowerRange ; BarsSinceCross = MRO( Confirmed, 10, 1 ) ; Unlikely = TC < Lcoeff * Close or TC > Ucoeff * Close ; NotUnlikely = IffLogic( Unlikely, false, true ) ; NotExpectMACross = IffLogic( ExpectMACross, false, true ) ; NotConfirmed = IffLogic( Confirmed, false, true ) ; if Unlikely then begin Plot1( Open, “Open”, UnlikelyColor ) ; Plot2( High, “High”, UnlikelyColor ) ; Plot3( Low, “Low”, UnlikelyColor ) ; Plot4( Close , “Close”, UnlikelyColor ) ; end ; if NotUnlikely and NotExpectMACross and NotConfirmed and BarsSinceCross > 3 and TC < Close then begin Plot1( Open, “Open”, ExpectBearCross, Default, 1 ) ; Plot2( High, “High”, ExpectBearCross, Default, 1 ) ; Plot3( Low, “Low”, ExpectBearCross, Default, 1 ) ; Plot4( Close, “Close”, ExpectBearCross, Default, 1 ) ; Plot5( Open, “Open”, BearCross, Default, 4 ) ; Plot6( High, “High”, BearCross, Default, 4 ) ; Plot7( Low, “Low”, BearCross, Default, 4 ) ; Plot8( Close, “Close”, BearCross, Default, 4 ) ; end else if NotUnlikely and NotExpectMACross and NotConfirmed and BarsSinceCross > 3 and TC > Close then begin Plot1( Open, “Open”, ExpectBullCross, Default, 1 ) ; Plot2( High, “High”, ExpectBullCross, Default, 1 ) ; Plot3( Low, “Low”, ExpectBullCross, Default, 1 ) ; Plot4( Close, “Close”, ExpectBullCross, Default, 1 ) ; Plot5( Open, “Open”, BullCross, Default, 4 ) ; Plot6( High, “High”, BullCross, Default, 4 ) ; Plot7( Low, “Low”, BullCross, Default, 4 ) ; Plot8( Close, “Close”, BullCross, Default, 4 ) ; end else if AscCrossPrediction then begin Plot1( Open, “Open”, BearCrossNext, Default, 5 ) ; Plot2( High, “High”, BearCrossNext, Default, 5 ) ; Plot3( Low, “Low”, BearCrossNext, Default, 5 ) ; Plot4( Close, “Close”, BearCrossNext, Default, 5 ) ; end else if DescCrossPrediction then begin Plot1( Open, “Open”, BullCrossNext, Default, 5 ) ; Plot2( High, “High”, BullCrossNext, Default, 5 ) ; Plot3( Low, “Low”, BullCrossNext, Default, 5 ) ; Plot4( Close, “Close”, BullCrossNext, Default, 5 ) ; end ; if MAp crosses over MAk then Plot10( Close, “BullCross”, BullCross, Default, 6 ) else if MAp crosses under MAk then Plot11( Close, “BearCross”, BearCross, Default, 6 ) ; Plot12( MAp, “MAp” ) ; Plot13( MAk, “MAk” ) ;