小编500*_*500的帖子

考虑以下因素:

lalist = {{{{1, 1}, 1}, {{3, 3}, 1}, {{5, 5}, 1}},
          {{{1, 5}, 1}, {{3, 3}, 1}, {{5, 1}, 1}}}

Row[{
  Graphics[{
            Opacity[0.5],Red, 
            Disk @@@ lalist[[1]]}, 
            Frame -> True],
  Graphics[{
            Opacity[0.5],Blue, 
            Disk @@@ lalist[[2]]}, 
            Frame -> True]}
    ]

• 我是否有可能在3D曲线中将蓝调磁盘"隐藏"在红色磁盘背后？

以下不是我需要的:

考虑:

Grid@Partition[
     Text[Style[ToString[Range[0, 180, 22.5][[#]]] <> "\[Degree]", Bold, 16,
          GrayLevel[(8 - #)/10]]] & /@ Range[8], 2, 1]

如何摆脱整数之后的点？

我使用下面的代码概述了我的部分数据.

• 从下面的代码中创建函数的最佳方法是什么？

• 它将使用dataList以及一些图形选项(例如颜色)作为参数,并返回自定义表格表示,如下所示.

  overviewtheData=Text@Grid[{Map[Rotate[Text[#],
  90Degree]&,data[[1]]]}~Join~data[[2;;]],
  Background->{{{{White,Pink}},{1->White}}},
  Dividers->{All,{1->True,2->True,0->True}},
  ItemSize->{1->5,Automatic},
  Alignment->Top,
  Frame->True,
  FrameStyle->Thickness[2],
  ItemStyle->{Automatic,Automatic,{{1,1},
  {1,Length@data[[1]]}}->Directive[FontSize->15,Black,Bold]}]
  

  Run Code Online (Sandbox Code Playgroud)

在编程问题之前,我认为我需要给出一些我正在做的事情的背景知识,以便于理解我的问题:

我在向受试者主体显示一些图案的同时记录眼球运动.通过实验,我后来展示了这些模式的一些对称变换.

我得到的是固定坐标和持续时间列表:

{{fix1X,fix1Y,fix1Dn},{fix2X,fix2Y,fix2Dn} ... {fixNX,fixNY,fixNDn}}

地点:

- fix1X是第一次固定的X坐标.

- fix1Y是第一次固定的Y坐标.

- fix1D是固定的持续时间(以毫秒为单位)

请考虑 :

FrameWidth  = 31.36;
scrHeightCM = 30;
scrWidthCM  = 40;
FrameXYs    = {{4.32, 3.23}, {35.68, 26.75}};  (* {{Xmin,Ymin},{Xmax,Ymax}} *)

以下是1个显示器的固定(屏幕上3s刺激演示期间的主题固定)

fix ={{20.14, 15.22, 774.}, {20.26, 15.37, 518.}, {25.65, 16.22, 200.}, 
      {28.15, 11.06, 176.}, {25.25, 13.38, 154.}, {24.78, 15.74, 161.}, 
      {24.23, 16.58, 121.}, {20.06, 13.22, 124.}, {24.91, 15.8, 273.}, 
      {24.32, 12.83, 119.}, {20.06, 12.14, 366.}, {25.64, 18.22, 236.}, 
      {24.37, 19.2, 177.}, {21.02, 16.4, 217.}, …

我需要随机定位生成500个数字,250个1和250个0.以下是我现在所做的事情.但是在输出正确的情况下感觉不对.

trialNo=500

RandomSample@Flatten[Table[#, {trialNo/2}] & /@ {0, 1}]

如何使用Rectangle[]in 创建以下内容Graphics[]？

是否存在ImageSize的参数,使得Graphics或Manipulate自动适合Notebook Width.

请考虑以下事项:

lesDisques={{14.2065, 10.609, 0.974938}, {19.5653, 6.92721, 0.974938}, 
            {30.4607,17.4802, 0.974938}, {27.4621, 10.0393, 0.974938}, 
            {15.915, 20.4278,0.974938}, {28.6921, 5.2132, 1.53205}, 
            {27.0317, 24.8346,1.53205}, {20.8853, 18.8588, 1.53205}}

 where lesDisques[[#]] is {X,Y,R}

 frmCorner = {{6.5946, 1.5946`}, {6.5946, 28.4054`}, 
              {60.2162`,28.4054`}, {33.4054`, 28.4054`}}

 cog = {23.91871026577044`, 15.010499627383863`}

 scrCenter = {20, 15}

 frmXY={{6.5946, 1.5946}, {33.4054, 28.4054}}

 Graphics[{
           White, EdgeForm[Thick],
           Rectangle @@ frmXY,
           Red, PointSize[.04],
           Point@cog,
           Black, Disk @@@ (lesDisques /. {a_, b_, c_} :> {{a, b}, c})},
           ImageSize -> 600]

对于8个磁盘中的每个磁盘,

我想计算它的边缘和之间的最小距离:

- 每个其他磁盘的边缘(7个值) - 每个帧角{4个值},

然后我将获得8个11个值的列表.

以下内容使我能够"指出"磁盘周边:

 pointize[{{x_,y_},r_},size_:12]:=Table[{x+r …

我希望得到一个不同的解决方案来解决我已经"象征性地"解决的问题并通过一些模拟.现在,我想知道如何使用Mathematica直接进行集成.

请考虑一个由r = 1的磁盘代表的目标,以(0,0)为中心.我想模拟我投掷飞镖的概率.

现在,我没有偏见投掷它们,平均而言我将击中中心mu = 0但我的方差为1.

考虑到我的飞镖击中目标(或墙壁:-)时的坐标,我有以下分布,2个高斯:

XDistribution : 1/Sqrt[2 \[Pi]\[Sigma]^2] E^(-x^2/(2 \[Sigma]^2))

YDistribution : 1/Sqrt[2 \[Pi]\[Sigma]^2] E^(-y^2/(2 \[Sigma]^2))

当这两个分布以0为中心,方差等于1时,我的联合分布变为双变量高斯,如:

1/(2 \[Pi]\[Sigma]^2) E^(-((x^2 + y^2)/(2 \[Sigma]^2)))

所以我需要知道我达到目标的概率或者x ^ 2 + y ^ 2的概率低于1.

在极坐标系中进行变换后的积分首先给出了我的解决方案:.39.模拟证实了它使用:

Total@ParallelTable[
   If[
      EuclideanDistance[{
                         RandomVariate[NormalDistribution[0, Sqrt[1]]], 
                         RandomVariate[NormalDistribution[0, Sqrt[1]]]
                        }, {0, 0}] < 1, 1,0], {1000000}]/1000000

我觉得有更优雅的方法来解决这个问题,使用Mathematica的集成能力,但从来没有得到映射以太工作.

我几乎是"Mathematica"之外编程的初学者.

我使用Sublime Text 2并且主要需要在JS中编码,我想使用与首选项中已有的颜色主题不同的颜色主题.

例如,我想使用这个主题

我安装Eclipse的尝试失败了,我正在使用带有最新版本Lion的mac.