小编Dr.*_*ius的帖子

所以我有一个8x8的方格.它有一条线.

Line size == 8 angle == 0. 

其中一个线点始终位于其中一个顶角.

检索线与正方形边界相交的点坐标的公式是什么？(正角度表示行点之一为0,0.负0,8)

每个坐标点的数学公式是什么？(如果可能,使用伪代码)

我有一个复发如下​​:

RSolve[{f[m, n] == f[m, n - 1] + f[m - 1, n], 
        f[0, n] == 1, f[m, 0] == 1}, 
        f[m, n], {n}]

我试图使用RSolve,但是我收到了一个错误:

RSolve::deqx: Supplied equations are not difference equations 
              of the given functions.

感谢您的帮助!

我有一个数字列表,形成一个系列.我想找到可以重新生成同一系列的等式.这可能吗？另外,您建议对它进行编程(GA,GP等).请举个例子.

为了熟悉Mathematica的求解函数,我尝试找出MinuteMath问题的解决方案:

有一个包含七个数字的列表.前四个数字的平均值是5,最后四个数字的平均值是8.如果所有七个数字的平均值是46/7,那么两组四个数字的共同数是多少？

当然,这是一个可以在没有计算机的情况下解决的练习,但我如何使用Mathematica解决这个问题呢？我的第一个方法

X = Table[Subscript[x, i], {i, 1, 7}];
cond = {
  Mean[Part[X, 1 ;; 4]] == 5,  
  Mean[Part[X, 4 ;; 7]] == 8, 
  Mean[X] == 46/7
};
Solve[cond, Subscript[x, 4]]

没有解决方案.我的第二种方法

X = Table[Subscript[x, i], {i, 1, 7}];
rules = {Mean[Part[X, 1 ;; 4]] -> 5,  
   Mean[Part[X, 4 ;; 7]] -> 8, 
   Mean[X] -> 46/7
};
Solve[
  Mean[X] == Mean[Part[X, 1 ;; 4]] 
    + Mean[Part[X, 4 ;; 7]] 
    - Subscript[x, 4] /. rules, 
  Subscript[x, 4]
] …

OO系统是Mathematica中OOP的免费开源软件包.通过使用面向对象系统,我希望受益于两全其美(OOP/Functional).

• Mathematica的OO系统的注意事项是什么？
• 您是否了解(更好)开源替代品？
• 你愿意展示一些你的OO系统课吗？
• 有关Mathematica的OOP的任何评论？

是否有任何理由支持mathematica呈现此图表的方式

ListPlot[
    Table[{x, x*01}, {x, -5, 5, .08}], 
PlotStyle -> White, 
Filling -> 0, 
FillingStyle -> {Dashed, Brown}]

虽然在零边界上方的图形部分存在划线,但图形的另一部分具有实心的填充.

难道我做错了什么？

我以这种方式将数据从mathematica导出到具有"dat"扩展名的文件.

numbercount=0;
exporttable =
   TableForm[
    Flatten[
     Table[
      Table[
       Table[{++numbercount, xcord, ycord, zcord}, {xcord, 0, 100, 5}], 
      {ycord, 0, 100, 5}], 
     {zcord,10, 100, 10}],
    2]];
Export["mydata.dat", exporttable]

现在发生的是"mydata.dat"文件输出如下所示

1  0   0   10
2  5   0   10
3  10  0   10  and so on

但我希望数据在"mydata.dat"文件中显示如下.

1, 0,  0,  10
2, 5,  0,  10
3, 10, 0,  10  and so on

如果你是观察者,我想在每个第一,第二和第三个数字之后使用逗号,但不要在每行的第四个数字之后.

我尝试过这段代码,它在数字之间插入逗号但由于我需要输出大量数据,因此需要很长时间才能运行.我也觉得有人可能会想出更好的解决方案.

numbercount=0;
exporttable =Flatten[
              Table[
               Table[
                Table[{++numbercount, xcord, ycord, zcord}, {xcord, 0, 100, 5}], 
               {ycord, 0, 100, 5}], 
              {zcord,10, 100, 10}], …

我试图理解Parallelize []行为的一些怪癖.

如果我做:

CloseKernels[];
LaunchKernels[1]
f[n_, g_] := 
  First@AbsoluteTiming[
    g[Product[Mod[i, 2], {i, 1, n/2}]
      Product[Mod[i, 2], {i, n/2 + 1, n}]]];
Clear[a, b];
a = Table[f[i, Identity], {i, 100000, 1500000, 100000}];
LaunchKernels[1]
b = Table[f[i, Parallelize], {i, 100000, 1500000, 100000}];
ListLinePlot[{a, b}, PlotStyle -> {Red, Blue}]   

结果是预期的一个: CPU利用率:

但是,如果我这样做,更改要评估的功能:

CloseKernels[];
LaunchKernels[1]
f[n_, g_] := 
  First@AbsoluteTiming[
    g[Product[Sin@i, {i, 1, n/2}] 
      Product[Sin@i, {i, n/2 + 1, n}]]];
Clear[a, b];
a = Table[f[i, Identity], {i, 1000, 15000, 1000}];
LaunchKernels[1]
b = Table[f[i, Parallelize], …

Mathematica可以使用RSolve求解递归方程.是否有可能通过重复定义函数,无论是否可以通过分析解决复发？

我很难理解为什么在编程时使用函数的泰勒级数来获得函数的近似值而不是仅使用函数本身会很有用。如果我可以告诉我的计算机计算 e^(.1) 并且它会给我一个精确值，为什么我要取近似值呢？