Re: [問題] 請問我該用那些功能?

[chungyuandye (養花種魚數月亮賞星星)]

※ 引述《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}]]

--
養花種魚數月亮賞星星

http://chungyuandye.twbbs.org


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.232.202.148
※ 編輯: chungyuandye    來自: 118.232.202.148      (04/29 14:51)
推 van6499:如果data變成{{1.1,2},{1.2,4},{1.3,3},{1.4,1},{1.5,5}
→ van6499:{1.6,3},{1.7,6},{1.8,4}}的話改怎麼修改讀取間距
→ van6499:更正{{1.2,2},{1.4,4},{1.6,3},{1.8,1},{2.0,5},{2.2,3}
→ van6499:{2.4,6},{2.6,4}
→ van6499:讓讀取間距變成 0.2、0.4、0.6、0.8、1.0...、1.6
→ van6499:的話該怎麼改？