[求助]帮我做几道Mathematica 5.2的题, 谢谢!!!!!!!!!

眼光落地

<p>[求助]帮我做几道Mathematica 5.2的题, 谢谢!!!!!!!!!</p><p><font color="#e61a6b"><strong>我是Mathematica 5.2初学者 用Mathematica 5.2怎样编写 :</strong><br/></font>&nbsp;&nbsp;&nbsp; 1.在一个表中, 取出同一类数.任何一个表, 如 Table{-1, 3/2, 654, 44, 455.5, -3/5, 8, 1}<br/>取出表中的整数（分离整数，小数，或奇数，偶数等）, 分别另构一表Table{-1, 654, 44, 8, 1}, Table{3/2, 455.5, -3/5}</p>

眼光落地

谁有办法，快帮帮我呀。。。。。。。。。。。。。。

我爱白莲

<p>a={-1,3/2,654,44,455.5,-3/5,8,1};</p><p>n=Length[a];</p><p>a1=Table[If[IntegerQ[a[]],a[],galois],{i,1,n}];</p><p>a1=Sort[a1];</p><p>m=Count[a1,galois];</p><p>a1=Table[a1[],{i,1,n-m}]</p><p></p><p></p><p>这个是取整数的，其他的只需改变把IntegerQ改为对应的！</p>

眼光落地

<p>谢谢</p>

hbjzjltqwy

<p>&nbsp;&nbsp; 如果是奇数，偶数，用这个程序怎么会出现问题？</p><p>a = {1, 3, 654, 44, 455, 5, 8, 1};<br/>n = Length[a]<br/>a2 = Table[If[EvenQ[a[]], a[], galois], {i, 1, n}]<br/>a2 = Sort[a2]<br/>a2 = Count[a2, g]<br/>a2 = Table[a2[], {i, 1, n - m}]</p>

hbjzjltqwy

<p>弄错了</p><p>不好意思</p>

眼光落地

谁有办法呀!!!!!!!!!!!!!!!!!!