PTT數位生活區 / Mathematica

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

看板Mathematica作者 (養花種魚數月亮賞星星)時間11年前 (2013/04/29 12:18), 編輯推噓1(1推 0噓 5→)
留言6則, 1人參與, 最新討論串2/3 (看更多)
※ 引述《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)
推
04/29 15:10, , 1F
如果data變成{{1.1,2},{1.2,4},{1.3,3},{1.4,1},{1.5,5}
04/29 15:10, 1F
→
04/29 15:11, , 2F
{1.6,3},{1.7,6},{1.8,4}}的話改怎麼修改讀取間距
04/29 15:11, 2F
→
04/29 15:12, , 3F
更正{{1.2,2},{1.4,4},{1.6,3},{1.8,1},{2.0,5},{2.2,3}
04/29 15:12, 3F
→
04/29 15:12, , 4F
{2.4,6},{2.6,4}
04/29 15:12, 4F
→
04/29 15:13, , 5F
讓讀取間距變成 0.2、0.4、0.6、0.8、1.0...、1.6
04/29 15:13, 5F
→
04/29 15:13, , 6F
的話該怎麼改？
04/29 15:13, 6F
‣ 更多 chungyuandye 的文章
文章代碼(AID): #1HVVINvD (Mathematica)
討論串 (同標題文章)
本文引述了以下文章的的內容：
以下文章回應了本文：
完整討論串 (本文為第 2 之 3 篇)：
排序： 最舊先 | 最新先 | 留言數
在新視窗開啟完整討論串 (共3篇)
Mathematica 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 chungyuandye 的文章
文章代碼(AID): #1HVVINvD (Mathematica)