Re: preparing multiple choice questions

*To*: mathgroup at smc.vnet.net*Subject*: [mg63372] Re: [mg63364] preparing multiple choice questions*From*: Ken Levasseur <klevasseur at mac.com>*Date*: Tue, 27 Dec 2005 04:42:42 -0500 (EST)*References*: <200512260959.EAA20859@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Combinatorica has functions that will do this. For example, In[9]:= << "DiscreteMath`Combinatorica`" In[10]:= Last[{Range[30], {}} //. {{A_, S_} :> ({Complement[A, #1], Append[S, #1]} & )[ RandomKSubset[A, 6]] /; Length[A] >= 6}] Out[10]= {{5, 8, 12, 17, 25, 27}, {15, 16, 22, 24, 28, 29}, {2, 4, 9, 13, 18, 20}, {1, 6, 7, 19, 23, 26}, {3, 10, 11, 14, 21, 30}} There is probably a more direct way to do this,. Ken Levasseur UMass Lowell On Dec 26, 2005, at 4:59 AM, Baris Erbas wrote: > > Dear Mathematica Users, > > I have been trying to prepare a test of 30 question with multiple > choices > ranging from a-e. > > I want to automatically assign the question numbers and and the > correct > answers using mathematica. All correct answers should be in equal > quantity, > i.e. 6 a, 6 b, . 6 e. > > I tried to use Random with Table however it doesnt produce equal > number of > correct answers. I also tried to look into the Statistical packages. > > Is there a way of doing this in Mathematica? Could you please > froward me to > a link if you already know one? > > > > All the best > > > > Baris Erbas > >

**References**:**preparing multiple choice questions***From:*"Baris Erbas" <berbas@anadolu.edu.tr>