Return to Answer

altered plot range in figure.

edited Mar 20, 2013 at 4:21

How about plotting it around a circle.? This just wraps the amplitude signal on top of a circle which represents the time of your signal?.

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]1,PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}]

The value 1894 is the number of elements in the sampled signal.

sound profile about a circle signal wrapped around a circle

How about plotting it around a circle. This just wraps the amplitude signal on top of a circle which represents the time of your signal?

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]

The value 1894 is the number of elements in the sampled signal.

sound profile about a circle

How about plotting it around a circle? This just wraps the amplitude signal on top of a circle which represents the time of your signal.

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1,PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}]

The value 1894 is the number of elements in the sampled signal.

signal wrapped around a circle

added the circle and made the aspectratio 1.

Source Link

edited Mar 20, 2013 at 3:19

Jonathan Shock

How about plotting it around a circle. This just wraps the amplitude signal on top of a circle which represents the time of your signal?

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]

The value 1894 is the number of elements in the sampled signal.

sound profile about a circle

How about plotting it around a circle. This just wraps the amplitude signal on top of a circle which represents the time of your signal?

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]

sound profile about a circle

How about plotting it around a circle. This just wraps the amplitude signal on top of a circle which represents the time of your signal?

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]

The value 1894 is the number of elements in the sampled signal.

sound profile about a circle

Source Link

answered Mar 20, 2013 at 3:12

Jonathan Shock

How about plotting it around a circle. This just wraps the amplitude signal on top of a circle which represents the time of your signal?

data = Import["directory/T55test.WAV"][[1, 1]]; signal = Transpose[Norm /@ Partition[#, 480] & /@ data]; s1 = Transpose[signal][[1]]; s2 = Transpose[signal][[2]]; aroundcircle[datain_] := {(1 + 10 datain[[#]]) Sin[(# 2 \[Pi])/ 1894], (1 + 10 datain[[#]]) Cos[(# 2 \[Pi])/1894]} & /@ Range[1894]; s1around = aroundcircle[s1]; s2around = aroundcircle[s2]; Show[ListLinePlot[{s1around, s2around}, PlotStyle -> {Red, Blue}], Graphics[Circle[{0, 0}, 1]], AspectRatio -> 1]

sound profile about a circle