Mathematica 9 中语句不显示错误,不运行结果?For[n = 1,n {"x/a","\!\(\*FractionBox[\(a\),\(2\)]\)|\[Psi]\!\(\*SuperscriptBox[\(|\\),\(2\)]\)"},PlotLabel -> "n=4",AspectRatio -> 1/3]]

"n=4",AspectRatio -> 1/3]]" />

x��S]OA�+[���m��>���}��ƅl�&�l�%!Q�55�U�TTj1"1��M�"ȟ��]�Egv��4M�֗��3�޹��3cZ�d���%C K�cZU�VE�chm�ܕ]nt�y�V��ig��M�r�LFu^�ƹa�r�D@�
�pO�'u)l(Q�i4���0��a@~*��6�d=��`�E�Է�"Q��#�P���}`"��ac�4��Á�8�K�ͽ�����t�*�)�����(� J8W�|�����v��R�ᙽ��M�F\W
�T�Z��~��igQ�㢉2) �Ij��G"~�n��c��'���N���&�� 0��qq�%��*B��2n8W�(��C˄֩}f��Z{�ݡ��R�J��N�w���N��m����t� � �H��\�ѧ�b��Pߜ1�¾��1J�a�SY������s3�d����)��,�*zʨt��Z�Y��ZU���h������*e��Kj7,D\އ���Q ����Gl�dx 4�v�R���J9�$�|}@GZ-T_��{�]��Gvi�s� ����<���(*��)�`B|=�< /���K^@������w"!��y� E|�)֫ĭ���*F`%��\�yxvEoF�m�;;0�'��g�K��J�]���ђH܂ߜ䩽�Z�Q`=�N �4Iu��{��

Mathematica 9 中语句不显示错误,不运行结果?For[n = 1,n {"x/a","\!\(\*FractionBox[\(a\),\(2\)]\)|\[Psi]\!\(\*SuperscriptBox[\(|\\),\(2\)]\)"},PlotLabel -> "n=4",AspectRatio -> 1/3]]
Mathematica 9 中语句不显示错误,不运行结果?
For[n = 1,n {"x/a",
"\!\(\*FractionBox[\(a\),\(2\)]\)|\[Psi]\!\(\*SuperscriptBox[\(|\
\),\(2\)]\)"},PlotLabel -> "n=4",AspectRatio -> 1/3]]

Mathematica 9 中语句不显示错误,不运行结果?For[n = 1,n {"x/a","\!\(\*FractionBox[\(a\),\(2\)]\)|\[Psi]\!\(\*SuperscriptBox[\(|\\),\(2\)]\)"},PlotLabel -> "n=4",AspectRatio -> 1/3]]

原因是,除非使用明确的 Return,否则由 For 返回的最后的值是Null.所以,在循环完之后,没有返回值作为Out输出.一个简单的方法是,在Plot函数外套一个Print函数.

另外程序中PlotLabel -> "n=4"要改成PlotLabel -> StringForm["n=``", n],否则n不能传递到字符串中.

但是,这不是Mathematica的做事风格.Mathematica的风格是函数式编程,而不是过程式编程,因此,将上述代码变成

Table[Plot[Sin[n*\[Pi]*x]^2, {x, 0, 1}, 
  AxesLabel -> {"x/a", 
    "\!\(\*FractionBox[\(a\), \
\(2\)]\)|\[Psi]\!\(\*SuperscriptBox[\(|\), \(2\)]\)"}, 
  PlotLabel -> StringForm["n=``", n], AspectRatio -> 1/3], {n, 1, 5}]

更自然一些