Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'LISTS: deleting rotationally equivalent elements' topicStudent Support Forum > General > "LISTS: deleting rotationally equivalent elements"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Yiannis Proestos
09/20/06 07:50am

Hi Yehuda,

Thanks for your answer and especially for the option "SameTest->", that I wasn't aware of.

By the way, the result I want (ListB) is obtained if Union[list, SameTest->rotEq] instead of Sort[list, SameTest->rotEq] is used.

Cheers,
Y.
P.S: The corrected input list should read

ListA={{{b,1},{a,1},{a,3}},{{b,1},{a,3},{a,1}},{{a,2},{a,2},{b,1}},,{{b,1},{a,2},{a,2}}, {{a,2},{b,1},{a,2}}}.

Also the other function "CompareJ[j_Integer, ListA_List]" does not appear properly on the web asnd it should also be

CompareJ[j_Integer,ListA_List]:=Cases[Table[If[sameclosedloops[ListA[[j]], ListA [[i+1]]]==True,Cases[ListA,_?(# \[NotEqual]ListA [[i+1]]&)], ListA [[i+1]]],{i,j,Length[ListA]-1}],_?(#\[NotEqual]{}&)];

URL: ,

Subject (listing for 'LISTS: deleting rotationally equivalent elements')
Author Date Posted
LISTS: deleting rotationally equivalent elements Yiannis Proe... 09/19/06 09:30am
Re: LISTS: deleting rotationally equivalent el... yehuda ben-s... 09/19/06 11:22pm
Re: LISTS: deleting rotationally equivalent el... Yiannis Proe... 09/20/06 07:50am
Re: LISTS: deleting rotationally equivalent el... yehuda ben-s... 09/21/06 02:06am
Re: LISTS: deleting rotationally equivalent el... Peter Pein 09/25/06 00:47am
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic