※ 引述《van6499 (KIDD)》之銘言：
: 現在有數列如下：
: X Y
: 1 2
: 2 4
: 3 3
: 4 1
: 5 5
: 6 3
: 7 6
: 8 4
: 想要進行的運算如下
: vario(h)=1/N(h)*總和[y(x)-y(x+h)]^2
: N(h)=間格為h時的組數
: 範例如下
: h=1時, N(h)=7組 (X=1和2,2和3,3和4,4和5,5和6,6和7,7和8)
: vario(1)=1/7*[(2-4)^2+(4-3)^2+(3-1)^2+(1-5)^2+(5-3)^2+(3-6)^2+(6-4)^2]
: h=2時, N(h)=6組 (X=1和3,2和4,3和5,4和6,5和7,6和8)
: vario(2)=1/6*[(2-3)^2+(4-1)^2+(3-5)^2+(1-3)^2+(5-6)^2+(3-4)^2]
: 到時可以得出(h,vario(h))的數對作圖
: 想請問在N(h)以及總和[y(x)-y(x+h)]^2
: 我該使用那些功能來進行？有試著試過Table、Drop、Range的組合下去寫
: 但是得不到我想要的結果
: 懇請各位大大相助
data = {{1, 2}, {2, 4}, {3, 3}, {4, 1}, {5, 5}, {6, 3}, {7, 6}, {8,
4}};
mylist[k_] := Table[{data[[i]], data[[i + k]]}, {i, Length@data - k}]
vario[k_] := Mean[(#[[1, 2]] - #[[2, 2]])^2 & /@ mylist[k]]
ListLinePlot[Table[{z, vario[z]}, {z, 1, Length@data - 1}]]