테스토그램 결과를 Mathematica의 목록으로 출력하는 방법은 무엇입니까?

Question

시간 도메인 데이터가 있습니다. Periodogram을 사용하여 이산 푸리에 변환을 수행 한 후, 음모를 추가 조작을위한리스트로 어떻게 출력 할 수 있습니까?

Periodogram[data[[All, 2]], SampleRate -> 3000000/0.01, GridLinesStyle -> Directive[Red, Dashed], PlotRange -> {{100000000 - 10000, 100000000 + 10000}, All}] 

고마워요!

Answer 1

이와 같은 경우에는 일반적으로 연관된 기능이 있습니다. 이 경우 PeriodogramArray이 데이터를 출력합니다.

data = Table[ 
    2 Sin[0.2 Pi n ] + Sin[0.5 Pi n] + RandomReal[{-1, 1}], 
    {n, 0, 127}]; 

Periodogram[data] 

magdata = PeriodogramArray[data]; 

ListLinePlot[10 Log[10, magdata], PlotRange -> {{0, Length[magdata]/2}, All}] 

Answer 2

List은 다음과 같이 InputForm을 기준으로 Periodogram 출력에서 ​​추출 할 수 있습니다. (우리는 몇 가지 만들어 낸 데이터로 시작합니다.)

data = Table[2 Sin[0.2 \[Pi] n ] + Sin[0.5 \[Pi] n] + RandomReal[{-1, 1}], {n, 0, 127}]; 
plot = Periodogram[data, SampleRate -> 3000000/0.01, 
    GridLinesStyle -> Directive[Red, Dashed]]; 

가 다음으로, 우리는 플롯 내에서 원하는 수량을 찾아 그들을 추출 Position를 사용합니다.

plot[[First@Position[plot, Line] /. {0 -> 1} /. List -> Sequence]] 
(* {{0., -8.99487}, {2.38095*10^6, 1.60543}, {4.7619*10^6, 1.82102}, ... *)