数学中的循环结构

Question

感谢您回答之前的问题，我执行了以下操作，但我正在尝试执行此循环，但没有给出错误。我正在尝试做日期差异。

In[7] = Import["testA.txt", "Table" , "HeaderLines" -> 1]
Out[7] = {{100, 2010, 2, 20, 2010, 8, 30}, {110, 2010, 4, 30, 2010, 9, 
           12}, {112, 2010, 8, 20, 2010, 10, 28}}

In[10] =  For[i = 1, i < 4,   
          i = i + 1, {a = Out[7] [[i, 2]], b = Out[7] [[i, 3]],   
          c = Out[7] [[i, 4]] , d = Out[7][[i, 5]], e = Out[7][[i, 6]],   
          f = Out[7][[i, 7]], DateDifference[{a, b, c}, {d, e, f}]}]  

Answer 1

是的。 For[] 不生成输出。您想要计算的差异已被计算（191、135 和 69），并且结果没有写入或存储在任何地方。为了使这一点显而易见，请将 DateDifference[] 调用重写为 Print[DateDifference[{a,b,c},{d,e,f}]];。

没有任何关于您想要发生的事情的进一步提示。目前尚不清楚如何提供更多建议。你可以播种[]并收获[]。您可以将 DateDifference[] 的结果加入[]到结果列表中。您可以打印差异（如上所述）。您可以将结果分配给某些变量，定义一个符号来获取特定输入的值，等等......

- 编辑 -

哦，并解决其他一些问题受访者，此代码的正确形式是：

    foo = Import["testA.txt", "Table" , "HeaderLines" -> 1];
    diff[in_List] := Join[in[[Range[2, 7]]], {DateDifference[in[[Range[2, 4]]], in[[Range[5, 7]]]]}]
    diff /@ foo

输出为：{{2010, 2, 20, 2010, 8, 30, 191}, {2010, 4, 30, 2010, 9 , 12, 135}, {2010, 8, 20, 2010, 10, 28, 69}} （您可能也想将其分配到某个地方）。

Answer 2

因为，您似乎想要单独处理每个列表元素，所以我会使用 Map（或其缩写形式/@），如下所示。

In[1]:=data = {{100, 2010, 2, 20, 2010, 8, 30}, 
               {110, 2010, 4, 30, 2010, 9, 12}, 
               {112, 2010, 8, 20, 2010, 10, 28}};
       #~Join~{DateDifference[#[[2;;4]],#[[5;;]]]}& /@ data
Out[1]:={191, 135, 69}

Mathematica 主要是一种函数式编程语言，因此虽然存在像 For 这样的结构，但通常最好从对表达式进行操作和转换的函数角度进行思考。通常，如果您需要像 For 这样的程序过程，Table 是更好的选择。

我的代码有一个小小的缺点，缺少命名变量有时会很痛苦。然而，在这种情况下，它们不是必需的。但是，如果您需要它们，可以使用几种构造 与，阻止，模块，甚至函数。

Answer 3

警告：这不是正确的方法

这是您的程序已更正并正在运行。我发布它是因为我在您的代码中看到了可能的概念错误，并且我认为拥有一个运行版本来与您的代码进行比较可能会帮助您识别它们并学习。

一些要点：

• 使用常见结构（Length@x、i++ 等）
• 不要使用“Out[n]=” ... 切勿使用大写字母作为变量名的第一个字符
• 了解如何构造列表（请参阅 AppendTo）

这是一个正在运行的代码：

x = Import["testA.txt", "Table" , "HeaderLines" -> 1]

ret = {};
For[i = 1, i <= Length@x, i++,
  AppendTo[ret,
    {a = x[[i, 2]],
     b = x[[i, 3]],
     c = x[[i, 4]],
     d = x[[i, 5]],
     e = x[[i, 6]],
     f = x[[i, 7]],
     DateDifference[{a, b, c}, {d, e, f}]}
    ];
  ];
Print@ret  

但正如我所说，这不是可行的方法。阅读并研究（并在调试中运行！）rcollyer 的答案，以了解如何在 Mathematica 中正确执行此操作。

顺便说一句，您可以用 Table 替换 For 循环（请参阅 rcollyer 的建议）

Table[
      {a = x[[i, 2]],
       b = x[[i, 3]],
       c = x[[i, 4]],
       d = x[[i, 5]],
       e = x[[i, 6]],
       f = x[[i, 7]],
       DateDifference[{a, b, c}, {d, e, f}]}, {i, Length@x}]