2012年3月22日

Mathematica三维点插值算法(高维插值,多维插值)

摘要： pts = {{0.`, -1.`, 0.`}, {-0.2411`, -0.94`, 0.2412`}, {-0.3831`, -0.842`, 0.3798`}, {-0.4355`, -0.715`, 0.547`}, {-0.5892`, -0.5859`, 0.5564`}}Graphics3D[{Red, PointSize[0.03], Point /@ pts, Blue, Line /@ Partition[pts, 2, 1]}]g[x_, y_] := Evaluate[InterpolatingPolynomial[{{#[[1]], #[[2]]},... 阅读全文

posted @ 2012-03-22 19:23 大宝pku 阅读(3596) 评论(0) 推荐(0) 编辑

PlotLegends 应用

摘要： Needs["PlotLegends`"]ListLinePlot[Table[n^(1/p), {p, 4}, {n, 10}], PlotMarkers -> Automatic, GridLines -> {None, Automatic}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 12}, {0, 12}}, PlotLegend -> {"A", "B", "C", "D"}, LegendPosition -> 阅读全文

posted @ 2012-03-22 16:02 大宝pku 阅读(656) 评论(0) 推荐(0) 编辑

导航