小编500*_*500的帖子

laListe={{{{10, 17}, 1}, {{33, 12}, 1}, {{32, 17}, 1}, {{9, 10},1}, 
         {{22, 24}, 1},{{27, 6}, 2}, {{25, 13}, 2}, {{30, 9}, 2}}, 
         {{{14, 12}, 1},{{19, 17}, 1}, {{7, 21}, 1}, {{7, 24},1}, 
         {{27, 19}, 1}, {{12, 16}, 2}, {{13, 20}, 2}, {{20, 22}, 2}}}

FrameXYs = {{4.32, 3.23}, {35.68, 26.75}}


Row[Function[compNo, 
             Graphics[{White, EdgeForm[Thick], 
             Rectangle @@ FrameXYs, 
             Black, 
             Disk[Sequence @@ laListe[[compNo, #]]] & /@ 
             Range[Length@laListe[[compNo]]]}, ImageSize -> 300]] /@ 
             {1, 2}]

我想找到一种方法来聚集这些磁盘,因为它们彼此接近.Mathematica有内置功能来做这样的事吗？

编辑

当我尝试使用FindClusters时,我遇到了一些不便之处:

用:

list1={{{24.413, 6.5978}, {7.68887, 7.2147}, {29.357, 13.2822}, …

dalist = {901, 503, 522, 1305} 

cogColors = {RGBColor[0, 0, 1], RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[1, 1, 0]}

BarChart[dalist, ChartStyle -> cogColors] 

是否可以减少条形宽度？

请考虑 :

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 …

我使用以下函数对List执行条件操作:

consider[data_, conditionCOL_, conditionVAL_, listOfCol_] :=
  Select[data, (#[[conditionCOL]] == conditionVAL) &][[All, listOfCol]]

考虑以下示例:

dalist = Join[Tuples[Range[4], 2]\[Transpose], {Range[16], Range[17, 32, 1]}
         ]\[Transpose];

我使用以下内容来获取函数定义的特定列的方法.这将输出第3列和第4列的条目平均值,第1列中的相应条目等于2

Mean@consider[dalist, 1, 2, {3, 4}]

现在,我想在要平均的值上添加约束/阈值:

它们的平均值是:

• 高于minValue(例如,3)
• 在maxValue下(例如,25)

下面给出一个例子,该值的平均值应该在上述约束条件下计算.

我想创建一个小游戏,用户只需用鼠标移动一些图像就可以创建一些形状.

我在Karl Scherer 的Nutts Puzzle Demo中发现了这种可能性.

然而,在查看源代码时,我无法确定哪个部分能够用鼠标操作形状.

考虑:

list= {{{{21, 22}, 283}, {{26, 13}, 28}, {{32, 17}, 531}, {{31, 11}, 
187}, {{30, 9}, 154}, {{25, 12}, 377}, {{12, 16}, 
285}}, {{{20, 19}, 183}, {{11, 23}, 249}, {{18, 21}, 
174}, {{12, 21}, 513}, {{24, 23}, 233}, {{29, 20}, 
465}}, {{{18, 20}, 136}, {{13, 23}, 244}, {{19, 21}, 
228}, {{14, 16}, 453}, {{14, 22}, 201}, {{18, 22}, 
417}, {{10, 22}, 217}, {{17, 23}, 180}}, {{{22, 20}, 
123}, {{25, 17}, 210}, {{28, 10}, 536}, {{27, 13}, 
296}, {{19, 11}, 391}, …

请考虑:

daList = {{{21, 18}, {20, 18}, {18, 17}, {20, 15}}, 
          {{21, 18}, {20, 18}, {21, 14}, {21, 14}}};

我想计算该列表的2个子列表中每个点之间的距离:

但我需要使用a Function来应用于正确的级别:

Function[seqNo, 
         EuclideanDistance[#, {0, 0}] & /@ daList[[seqNo]]] /@ 
         Range[Length@daList]

out = {{3 Sqrt[85], 2 Sqrt[181], Sqrt[613], 25}, {3 Sqrt[85], 2 Sqrt[181], 
        7 Sqrt[13], 7 Sqrt[13]}}

有没有办法避免这种繁重的功能呢？使用seqNo作为参数指定避免我的函数的级别？:

EuclideanDistance[#, {0, 0}] & /@ daList

out={EuclideanDistance[{{21, 18}, {20, 18}, {18, 17}, {20, 15}}, {0, 0}], 
     EuclideanDistance[{{21, 18}, {20, 18}, {21, 14}, {21, 14}}, {0, 0}]}

考虑以下 ：

% 指的是之前的输出。

无论最后一次输出是什么，有没有办法引用前一行的输出？

我试图避免定义输出，例如

 blah=Range[10] 

编辑：对于贝利撒留，问题

保存无标题 2. 关闭，打开 Quit[] 然后：

请考虑 :

 dalist = {{901, 503, 522, 1305}, {910, 512, 477, 1260}, 
           {847, 459, 556, 1275}, {799, 517, 527, 1197}}

 cogColors = {RGBColor[0, 0, 1], RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[1, 1, 0]}

 BarChart[dalist, ChartStyle -> cogColors]

我不明白如何将颜色分配给列表并在列表中赋值.

在这里,我的希望是让每个子列表(第一个是:{901,503,522,1305})分配一种颜色(部分[[]]的cogColors).然后每个酒吧将是更深/更轻但相似的颜色.下面是所需的输出(ppt):

我在Mathematica中寻找相同的Matlab函数:

"R = poissrnd(lambda)从泊松分布中生成随机数,平均参数为lambda.lambda可以是向量,矩阵或多维数组.R的大小是lambda的大小."

下面的函数输出示例.

b = 95.7165   95.7165   95.7165   95.7165   95.7165   98.9772   98.9772   98.9772   98.9772    0.3876

poissrnd(b)

ans =100   115     81    90   109   106   104    87   104     2

我怎样才能在Mathematica 8中做类似的事情？