标签: mathematica-8

我坚持转换.

我有一个带有一些坐标的KMZ文件.我读了这样的文件:

m=Import["~/Desktop/locations.kmz","Data"]

我得到这样的东西:

{{LayerName->Point Features,
  Geometry->{
    Point[{-120.934,49.3321,372}],
    Point[{-120.935,49.3275,375}],
    Point[{-120.935,49.323,371}]},
  Labels->{},LabeledData->{},ExtendedData->{},
  PlacemarkNames->{1,2,3},
  Overlays->{},NetworkLinks->{}
}}

我想从每个点以及与点相关联的地标名称{1,2,3}中提取{x,y,z}.即使我可以从几何中得到分数 - > {}也没关系,因为我可以将它们提取到List @@@的列表中,但是我在基本部分丢失了,我无法提取几何"规则".

谢谢你的帮助,

罗恩

当试图重新创建一个InterpolationFunction由NDSolve我面临非常奇怪的问题与InterpolationOrder选项Interpolation.请考虑以下内容InterpolationFunction(文档中的示例函数):

ifun = First[
  x /. NDSolve[{x'[t] == Exp[x[t]] - x[t], x[0] == 1}, x, {t, 0, 10}]]

现在让我们尝试重建它.这是数据:

Needs["DifferentialEquations`InterpolatingFunctionAnatomy`"]
data = Transpose@{InterpolatingFunctionGrid[ifun], 
   InterpolatingFunctionValuesOnGrid[ifun]};

这是InterpolationOrder:

interpolationOrder = InterpolatingFunctionInterpolationOrder[ifun]
(*=> {3}*)

现在我们尝试构建InterpolatingFunction:

Interpolation[data, InterpolationOrder -> interpolationOrder];

并得到错误Message:

Interpolation :: inord:选项的值InterpolationOrder - > {3}应该是一个非负的机器大小的整数或一个长度等于维数的整数列表,1.>>

但如果我们InterpolationOrder用手指定,那就没关系:

Interpolation[data, InterpolationOrder -> {3}]
(*=> InterpolatingFunction[{{0.,0.516019}},<>]*)

任何人都可以解释为什么InterpolationOrder -> interpolationOrder在工作时不起作用InterpolationOrder -> {3}虽然interpolationOrder必须用 …

请考虑以下分布:

rs={{400, 0.00929}, {410, 0.0348}, {420, 0.0966}, {430, 0.2}, {440, 0.328}, {450, 0.455}, 
    {460, 0.567}, {470, 0.676}, {480, 0.793}, {490, 0.904}, {500, 0.982}, {510, 0.997}, 
    {520,0.935}, {530, 0.811}, {540, 0.65}, {550, 0.481}, {560, 0.329}, {570,0.208}, 
    {580, 0.121}, {590, 0.0655}, {600, 0.0332}, {610, 0.0159}, {620, 0.00737}, 
    {630, 0.00334}, {640, 0.0015}, {650,0.000677}, {660, 0.000313}, {670, 0.000148}, 
    {680, 0.0000715}, {690,0.0000353}, {700, 0.0000178}}

如何插入此分布以获取X轴上任何位置的点的值？

我一直在玩Mathematica的可视化和网络浏览功能.基于一些演示代码,我能够可视化网络.以下是大学网页上的示例:

webcrawler[rooturl_, depth_] :=
  Flatten[Rest[NestList[
       Union[Flatten[Thread[# -> Import[#,"Hyperlinks"]] & /@ Last /@ #]] &, 
       {"" -> rooturl}, depth]]];

Graph[webcrawler[
  "http://www.yorku.ca/", 2], {ImageSize -> Full}]

但是,我一直在努力寻找将EdgeLabels []应用于此Graph[]命令的方法.我想在每一行上写下每个链接,只是为了弄清楚链接簇代表什么.

我已经尝试将生成的Hyperlink连接列表应用到它,这不起作用,也没有任何来自文档/堆栈/ cookbook上其他地方的明显命令.

我想象一个非常杂乱的输出.

我想测试几个强度值.

我需要它们以对数间隔从1到1000.但我只使用1,10,100,1000,但我希望有更多的数据点,让我们说10.

如何在Mathematica中找到1到1000之间的10个对数间隔数？

请考虑 :

intense = Reverse[Round[Rationalize /@ N[10^Range[0, 3, 1/3]]]];
values = Range[0, 9/10, 1/10];

intensityLegend = Column[Prepend[MapThread[
                         Function[{intensity, values},
                         Row[{Graphics[{(Lighter[Blue, values]),
                         Rectangle[{0, 0}, {4, 1}], Black, 
                         Text[Style[ToString[intensity], 16, Bold], {2, .5}]}]}]],
                        {intense, values}], Text[Style["Photons Number", Bold, 15]]]];

IntersectionDp1={{1., 588.377}, {2.15443, 580.306}, {4.64159, 573.466}, {10.,560.664}, 
                 {21.5443, 552.031}, {46.4159, 547.57}, {100.,545.051}, 
                 {215.443, 543.578}, {464.159, 542.281}, {1000., 541.346}}


FindD1=ListLogLinearPlot[Map[List, IntersectionDp1], 
                  Frame -> True, 
                  AxesOrigin -> {-1, 0}, 
                  PlotMarkers -> 
                  With[{markerSize = 0.04}, {Graphics[{Lighter[Blue, #], Disk[]}], 
                       markerSize} & /@Range[9/10, 0, -1/10]], Filling -> Axis, …

请考虑 :

Needs["ErrorBarPlots`"];

fixNumberF1F6 = {{{7.11`, 7.51`, 11.14`, 8.19`, 6.58`}, 
                  {2.14`, 2.33`,2.25`, 1.53`,1.71`}},               
                  {{4.69`, 4.79`, 3.78,4.34`, 4.8`}, 
                   {2.22`, 2.71`, 3.18`, 2.29`, 1.93`}}}

fixNumberF1F6 [[1,1]]是指条件1的每个受试者的平均固定数,fixNumberF1F6 [[1,2]]是这些均值的标准偏差.fixNumberF1F6 [[2]]指的是条件2.

plotOptionsXX[title_, yName_, xName_, colors_: Black] :=

  {Frame -> {{True, False}, {True, False}},
   PlotStyle -> colors,
   PlotLabel -> 
   Style[title, Bold, 14, Opacity[1], FontFamily -> "Helvetica"],
   PlotStyle -> Directive[Black, PointSize[Medium]],
   PlotRangePadding -> 0,
   Frame -> {{True, False}, {True, False}},
   LabelStyle -> Directive[Black, Bold, 12],
   FrameLabel -> {{Style[yName, Opacity[1]], 
   None}, {Style[xName, Opacity[1]], None}},
   FrameStyle -> Opacity[0],
   FrameTicksStyle …

考虑以下 :

cAxes = {{{0, 0, 0}, {0, 0, 1}}, {{0, 0, 0}, {0, 1, 0}}, {{0, 0,0}, {1, 0, 0}}};

Graphics3D[{Line /@ cAxes}, Boxed -> False]

Style如何以不同的方式改变3条线？

我已经计算了两个列表之间的Pearson相关系数,现在我正在尝试验证这两个数据集是否正态分布,以确定相关性的有效性.

从我在文档中看到的内容,我应该可以使用ShapiroWilkTest函数的多变量数据,但到目前为止我一直无法获得输出.我没有收到错误,但这个过程看似无限期地挂起.但是,我能够几乎立即获得单变量Shapiro-Wilk测试的输出,该测试可以是我的依赖变量或自变量.

这是我尝试过的:

data1 = {x1,x2,x3,x4,x5,x6,x7}
data2 = {y1,y2,y3,y4,y5,y6,y7}
ShapiroWilkTest[{data1,data2}]

这个问题可能看起来有点奇怪,但出于我的目的并不那么疯狂.它很容易,但我需要你跟着我.

目的

我的目标是绘制三维图.

问题

问题是我手中的材料开始构建此图表.实际上我在2D空间中有一组点(因此有两个实数有序值的元组).考虑将这些点集合存储到数组中的时刻,现在考虑将它们绘制在2D图上.您将对这些点有一个很好的稀疏视图.

那么,第二步是这样的:考虑具有这些点的表面并创建与绘制这些点的平面正交的第三轴.目标是为每个点分配一个数字标量值(使用接受该对并返回数值的函数).因此,图表应显示从每个点开始的条形图,并根据赋值函数具有特定值.

我怎样才能在Mathematica中实现这一目标？

一点点说明

基本上我在2D空间中的点也通过图形连接.是否可以将条形顶部连接到其基点在2d图形中连接在一起的其他条形图的顶部？

其他一些说明

我的图形不必是一个表面,而只是放置在一个平面上的一组条形图,它们位于它们所指的对应点所在的确切位置.但如果你有一个很好的提示如何绘制除了酒吧以外的表面,它将很乐意接受.

我希望我很清楚.我想指出我有Mathematica 8所以所有功能都可用.谢谢.