Re: creating problem sets using mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg105681] Re: creating problem sets using mathematica
- From: divisor <congruentialuminaire at yahoo.com>
- Date: Tue, 15 Dec 2009 07:26:55 -0500 (EST)
- References: <hg4h1e$gf9$1@smc.vnet.net>
There are lots more ideas here: http://www.wolfram.com/products/mathematica/newin6/content/AutomatedTableLa= yout/ Regards.. On Dec 13, 9:04 pm, Bob Hanlon <hanl... at cox.net> wrote: > This will need embellishment if you want to go beyond 26 questions. > > data = ToString /@ Range[25]; > > firstCharacter = "a";(* e.g., "a" or "A" *) > > letters = CharacterRange[firstCharacter, > FromCharacterCode[ > ToCharacterCode[firstCharacter] + > Length[data] - 1]]; > > numberOfColumns = 3; > > partitionPadding = > Table["", {numberOfColumns - 1}]; > > Letter across then down: > > Join[ > Inner[StringJoin[#1, ". ", #2] &, > letters, data, List], > partitionPadding] // > Partition[#, numberOfColumns] & // > Grid[#, Alignment -> Left, Frame -> All] & > > Letter down then across: > > Join[ > Inner[StringJoin[#1, ". ", #2] &, > letters, data, List], > partitionPadding] // > Partition[#, > Ceiling[Length[data]/numberOfColumns]] & // > Transpose // > Grid[#, Alignment -> Left, Frame -> All] & > > Bob Hanlon > > ---- Jon Joseph <josco.... at gmail.com> wrote: > > ============= > I am try to create problem sets using mathematica and I would like the > problems to be formatted in columns across the page - three problems in > a row. The problems should be individually numbered or lettered. Is it > possible to have Mathematica assign the letters across the columns much > as it does when you hit return for the "itemNumbered" format style? > Thanks, Jon.