Transpose[{{x1, x2, x3}, {y1, y2, y3}, {z1, z2, z3}}]

Partition[{x1, y1, z1, x2, y2, z2, x3, y3, z3}, 3]

squares = Table[i^2, {i, 0, 9}]

squares[[3]]

data = Import["~/Downloads/getwfm.isf"]

data2 = Most[data]

p = ListPlot[data2, Joined->True]

Export["~/Desktop/plot.pdf", p, "PDF"]

Dimensions[%5]

voltages = Table[data2[[i, 2]], {i, 1, Length[data2]}]

ListPlot[voltages]

n = Length[voltages]
w[x_] := (0.5)*(1 - Cos[(2*Pi*(x-1))/n])

N[w[1]]

N[Cos[(2*Pi*(1-1))/n]]

windowed = Table[{data2[[i, 1]], voltages[[i]]*w[i]}, {i, 1, Length[data2]}]

p2 = ListPlot[windowed, Joined->True]

Export["~/Desktop/Hann.pdf", p2, "PDF"]

data3 = Table[{data2[[i,1]], windowed[[i]]}, {i, 1, Length[voltages]}]

p3 = ListPlot[data3, Joined->True]

Export["~/Desktop/Hann.pdf", p3, "PDF"]

Export["~/Desktop/Hann.txt", data3, "Table"]

f1 = Fourier[data2]

ListPlot[Abs[f1], Joined->True]

f0 = Fourier[voltages]

ListPlot[Abs[f0], Joined->True, PlotRange->{{0,50}, {0,150}}]

v1 = Table[voltages[[i]]*w[i], {i, 1, Length[voltages]}]

ListPlot[Abs[Fourier[v1]], Joined->True, PlotRange->{{0,50}, {0,150}}]