【分享】交流一下 Mathematica 编程方法，期望学习该软件的网友积极参与

ataorj

(*这就是注释语句*)

ataorj

Mathematica,我用4.0呢.要不是2.0没有"打开就100%cpu"这个缺点,我估计就2.0了,我没高的要求.
2.0是唯一直接支持本地语言的版本.

天山草

下面引用由ataorj在 2013/11/10 02:10pm 发表的内容：
(*这就是注释语句*)

谢谢 ataorj 的解答。

denglongshan

下面引用由ataorj在 2013/11/10 02:10pm 发表的内容：
(*这就是注释语句*)

很遗憾，老朋友没有下载我44楼的源程序，源程序中就有注释语句，只要对照57楼的运算图修改一下错误就可以，用我的程序没有必要分离实部和虚部，用交比也应该可以。

天山草

[这个贴子最后由天山草在 2013/11/14 11:54am 第 6 次编辑]

下面这个程序没有问题，开机运行时间为 40 秒，不关机再次运行时间为 3 秒。

天山草

[这个贴子最后由天山草在 2013/11/10 07:43pm 第 3 次编辑]

下面引用由denglongshan在 2013/11/10 06:19pm 发表的内容：
很遗憾，老朋友没有下载我44楼的源程序，源程序中就有注释语句，只要对照57楼的运算图修改一下错误就可以，用我的程序没有必要分离实部和虚部，用交比也应该可以。

44 楼的程序倒是下载了，但是还没有看。分离出实部和虚部是为了加快运行速度，主要是为了加快 C2 点坐标求解速度（程序本身是先算出实部和虚部，然后再复合，所以并未专门分离，只是多用些变量而已）。另外，计算两直线的交点坐标时，并没有进行“实部虚部分离”，因为分离后对速度提高影响不大。
   不明白的地方是，为什么重新开机、首次运行程序时，用时为 40 秒，而不关机继续第二次、第三次运行时，时间却缩短为 3 秒？
   还有，为什么下面这个“交比”程序不行，反复试验，它就是玩不转。算了几十分钟，最后也给不出结果。

denglongshan

   这个我也解释不了，希望把源程序压缩包发上来，用共轭比作子程序也可以使用交比，不过我的输出语句要难看些。交比看来更简洁一些，但是对于一些计算结果的几何意义难发现。十秒内运算完成。
   希望合作攻克泰博定理。
上面程序错误，因为c成为一个常数，不再修改，请大家注意，如果大家需要请在44楼下载后修改其它错误。

天山草

[这个贴子最后由天山草在 2013/11/14 11:58am 第 1 次编辑]

下面引用由denglongshan在 2013/11/10 10:05pm 发表的内容：
希望把源程序压缩包发上来

打包成了 rar 压缩文件发上来了：

天山草

[这个贴子最后由天山草在 2013/11/11 10:50am 第 4 次编辑]

下面引用由denglongshan在 2013/11/10 10:05pm 发表的内容：
  希望合作攻克泰博定理。

  好。这个题的变量只有三个，难点在于要推算圆心位置的坐标。
假定以下坐标：
  B 点是（0，0）， C 点是（1，0）， D 点是（XD，0），A 点是（XA，YA）。
要算出 O1，O2，以及 I 点的坐标。之后就好办了。

天山草

[这个贴子最后由天山草在 2013/11/12 10:24am 第 4 次编辑]