안녕하세요 예스스탁입니다. 올려주신 수식은 알수 없는 내용들이 있어 변환이 가능하지 않습니다. 즐거운 하루되세요 > 잡다백수 님이 쓴 글입니다. > 제목 : 문의드립니다. > 도움주시는 덕분에 도전하고 있습니다. 매번 감사합니다. 1. 기타 inputs: MinSamples( 9 ) , PlotType( 1 ) ; variables: Pattern( 0 ), UpDay( 0 ), LoopCounter( 0 ), Offset( 1 ), Location( 0 ), MyTest( 0 ), ReportLocation( 0 ) ; arrays: PatternArray[]( 0 ), CountArray[]( 0 ), CountUpArray[]( 0 ) ; Pattern = msRecognize ; if Close > Open then UpDay = 1 else UpDay = 0 ; if CurrentBar = 1 then begin Array_SetMaxIndex( PatternArray, 1 ) ; Array_SetMaxIndex( CountArray, 1 ) ; Array_SetMaxIndex( CountUpArray, 1 ) ; end ; for LoopCounter = 0 to Offset begin if Pattern[1] = PatternArray[LoopCounter] then begin; CountArray[LoopCounter] = CountArray[LoopCounter] + 1 ; CountUpArray[LoopCounter] = CountUpArray[LoopCounter] + UpDay ; Location = LoopCounter ; LoopCounter = Offset + 1 ; end ; end ; if LoopCounter <> Offset + 2 then begin Offset = Offset + 1 ; Array_SetMaxIndex( PatternArray, Offset ) ; Array_SetMaxIndex( CountArray, Offset ) ; Array_SetMaxIndex( CountUpArray, Offset ) ; PatternArray[Offset] = Pattern[1] ; CountArray[Offset] = 1 ; CountUpArray[Offset] = UpDay ; Location = Offset ; end ; if LastBarOnChart then MyTest = Pattern ; for LoopCounter = 0 to Offset begin if MyTest = PatternArray[LoopCounter] then begin ReportLocation = LoopCounter ; LoopCounter = Offset + 1 ; end ; end ; if LastBarOnChart then begin Plot1( Pattern, “Pattern” ) ; Plot2( CountArray[ReportLocation], “Events” ) ; Plot3( CountUpArray[ReportLocation], “Up” ) ; end ;