Mathematica 泰勒展開式樹狀圖

(*n階展開式*) n=3; poscor=1; pos[nl_List]:={{2nl[[1]], nl[[2]]+{-1/5,-1/5}/2^poscor},{2nl[[1]]+1,nl[[2]]+{1/5,-1/5}/2^poscor}}

data=Flatten[NestList[(poscor+=1;Flatten[Map[pos,#],1])&,{{1,{1,1}}},n],1];

diff=Flatten[NestList[Flatten[Map[{{#[[1,2]]->ToString[#[[1,2]]]<>"x"},{#[[1,2]]->ToString[#[[1,2]]]<>"y"}}&,#],1]&,{{f->f}},n]]

GraphPlot[Rule@@@diff[[2;;-1]],VertexLabeling->All, VertexCoordinateRules->Thread[diff[[All,2]]->data[[All,2]]], ImageSize->600] 簡單一點的方法就用TrrPlot

TreePlot[diff[[2 ;; -1]], VertexLabeling -> True]

Tags: Mathematica 教學, Teaching

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見