Unique random numbers

Tricky, but possible without scripting I think.

* Sort the fractions into size, keeping them in a list like {2,3} for 2/3 using

Sort[ <Values>, <Keys> ]

* check 1st and 2nd. If equal, replace a/b with (a+1)/b

* sort fractions again (now 1st in list is definitely unique)

* check 2nd and 3rd

* etc

See attached file for a start :)

https://ggbm.at/565475

Hi

Murkle was faster.

here an alternative to it using floor(TiedRank[...]).

The explanations are in the file

Raymond

https://ggbm.at/565481

Thanks

when I want two random numbers that are not equal I use the command Shuffle

• .

  e.g. list1=Shuffle[{-3,-2,-1,1,2,3,4}]

  a=Element[list1,1]

  b=Element[list1,2]

  
  

  You can make the list as long as you want, include or exclude whatever number you want and the two numbers won't be equal.

  chris

hello

only if the first element appears twice

i have been working in another algorythm. it is similar to Raymond method and longer, but i think can be useful for another problems.

in the algorythm i say "i wish a command for equivalence classes in a list; i haven't it"}. is it possible a command as

equivalenceClass[<list>,<condition>] ?

saludos

Juan Vicente

https://ggbm.at/565489

You mean something like:

EquivalenceClass[{{1, 2}, {2, 4}, {1, 3}, {2, 3}}, Element[A, 1] * Element[B, 2] == Element[A, 2] * Element[B, 1] ]

What would the output be?

not exactly, because {0,0} could be relationed with all elements.

i meaned EquivalenceClass[{{1, 2}, {2, 4}, {1, 3}, {2, 3},{3,6},{4,8},{4,6}}, Element[A, 1] /Element[A, 2] ]

the output would be {{{1,2},{2,4},{3,6},{4,8}},{{1,3}},{{2,3},{4,6}}}

or EquivalenceClass[{0.6,8.3,0.5,0,8.4,8,5.1,3.2,3.1,5.5},floor(a)]->{{0.6,0.5,0},{8.3,8.4,8},{5.1,5.5},{3.2,3.1}}

saludos

Good idea, thanks:

http://jira.geogebra.org/br...

now i think that the right sintax must be equivalenceClasses[<list>,<variable>,<condition>]

example:

B=(1,1)

list={(2,3),(4,5),(0,3),(3,0),(-3,4)}

equivalenceClasses[list,A,distance[A,B]]->{{(2,3),(0,3),(3,0)},{(4,5),(-3,4)}}

saludos

Juan Vicente

hello again

an idea:Sort[<list>,<keys>,<mode grouping>]

list1 = {x², x² + 1, x³ - 2, x² - 4, x³}

list2 = Zip[Degree[A], A, list1]

list3 = Sort[list1, list2,false]------------->{x², x² + 1, x² - 4, x³ - 2, x³}

list3 = Sort[list1, list2,true]------------->{{x², x² + 1, x² - 4},{ x³ - 2, x³}}

default mode<---> false

saludos

Juan Vicente