mathematica的计算问题
mathematica的计算问题
假如有一些点比如：
...{1,1},{1,2},{1,3},{2,3},{3,4}...
把第一个坐标相同的点横坐标不变,纵坐标相加,经过处理变成：
...{1,6},{2,3},{3,4}...
这里是1是横坐标不变,纵坐标有三个为1、2、3,他们相加为6,则横坐标为1的纵坐标则为6,即：{1,6}了.
这种算法怎样才能实现?
假如有一些点比如：
...{1,1},{1,2},{1,3},{2,3},{3,4}...
把第一个坐标相同的点横坐标不变,纵坐标相加,经过处理变成：
...{1,6},{2,3},{3,4}...
这里是1是横坐标不变,纵坐标有三个为1、2、3,他们相加为6,则横坐标为1的纵坐标则为6,即：{1,6}了.
这种算法怎样才能实现?
赞 很木的木头 幼苗
共回答了17个问题采纳率：88.2% 举报
(*下面的代码产生一个随机的表:list,你也可以直接手动输入list*)
list = Table[{Random[Integer,10],Random[Integer,10]},{j,1,20}];
(*下面的代码对list2中第一个元素相同的表中的的第二个元素求和得到list4*)
list2 = Sort[list]
list3 = SplitBy[list2,First];
len = Length@list3;
list4 = Table[{list3[[j,1,1]],Total[list3[[j]]][[2]]},{j,1,len}]
list = Table[{Random[Integer,10],Random[Integer,10]},{j,1,20}];
(*下面的代码对list2中第一个元素相同的表中的的第二个元素求和得到list4*)
list2 = Sort[list]
list3 = SplitBy[list2,First];
len = Length@list3;
list4 = Table[{list3[[j,1,1]],Total[list3[[j]]][[2]]},{j,1,len}]
1年前
8
可能相似的问题
-
1年前1个回答
-
1年前1个回答
-
1年前3个回答
-
1年前1个回答
-
用mathematica怎么计算arcsin(1/50)的值
1年前1个回答
-
用Mathematica来计算10到50之间的奇数平方和的平方根
1年前2个回答
-
1年前1个回答
-
1年前2个回答
-
1年前1个回答
-
1年前1个回答
-
请问隐函数的积分用mathematica 7计算的语句怎么写?
1年前4个回答
-
1年前1个回答
-
1年前1个回答
-
mathematica 7 中,怎样计算自定义函数的定积分?
1年前1个回答
-
1年前2个回答
-
1年前1个回答
你能帮帮他们吗