〇〇 发表于 2016-9-11 18:22
In[47]:= x
Out[47]= {2, 3, 4, 6, 9, 12}
找到了mma简便的求积写法
In[4]:= n={2,3,4,7}
Out[4]= {2, 3, 4, 7}
In[5]:= n[[1]]
Out[5]= 2
In[6]:= Product[n[],{i,1,4}]
Out[6]= 168
In[7]:= x= {2, 3, 4, 6, 9, 12}
Out[7]= {2, 3, 4, 6, 9, 12}
In[8]:= y=Subsets[x,{4}]
Out[8]= {{2, 3, 4, 6}, {2, 3, 4, 9}, {2, 3, 4, 12}, {2, 3, 6, 9}, {2, 3, 6, 12}, {2, 3, 9, 12},
> {2, 4, 6, 9}, {2, 4, 6, 12}, {2, 4, 9, 12}, {2, 6, 9, 12}, {3, 4, 6, 9}, {3, 4, 6, 12},
> {3, 4, 9, 12}, {3, 6, 9, 12}, {4, 6, 9, 12}}
In[9]:= Plus@@@y
Out[9]= {15, 18, 21, 20, 23, 26, 21, 24, 27, 29, 22, 25, 28, 30, 31}
In[10]:= Times@@@y
Out[10]= {144, 216, 288, 324, 432, 648, 432, 576, 864, 1296, 648, 864, 1296, 1944, 2592} |