Re: Completely frivolous use of new v6 Mathematica commands
- To: mathgroup at smc.vnet.net
- Subject: [mg80260] Re: Completely frivolous use of new v6 Mathematica commands
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 16 Aug 2007 04:41:22 -0400 (EDT)
- Organization: Uni Leipzig
- References: <f9ue39$b59$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi, a) it is not frivolous, I make (mathematical) excercises for my son since he was 5 years old with Mathematica b) in nounList use only substantives that have the same singular and plural, i.e. Meerschweinchen, Kissen, Eimer, Feuerloescher, Brunnen Regards Jens Luci Ellis wrote: > Dear MathGroup, > > So, my beloved is starting to learn German. We had a bit of fun pantomi= ming > > the various prepositions with me, various items of furniture and so on.= And > > then I realised that the new-in-v6 RandomChoice[] function made "instan= t > > random homework sheets" a snap. > > > > Some of the resulting sentences might be either anatomically impossible= or > > simply uncomfortable, and I haven't handled the plurals properly, but I > > couldn't resist sharing. > > > > prepositionList = {"an", "auf" , "bei", "hinter", "vor", "zwischen" ,= > > > > "unter" , "=FCber" , "neben", "in"}; > > > > > > nounList = {"Meerschweinchen", "B=E4r", "Katze" , "Tische", "Decke", > > > > "Kissen" }; > > > > fillBlank = " _____ "; > > > > verbList = {" ist ", " sind ", " sitzt "}; > > > > > > > > TableForm[ > > Table[StringJoin[fillBlank, RandomChoice[nounList], > > > > RandomChoice[verbList], RandomChoice[prepositionList], fillBlank, > > > > RandomChoice[nounList]], {30}, {2}], > > TableSpacing -> 3] > > //TraditionalForm > > > > Cheers, > > Luci > > > > >