Generating a Custom Set of Solutions for Each Student

[Gregory]

Hello everyone,

I used Mathematica to generate different parameters for each student in my class for an assignment.

Suppose I have just two students whose IDs are

myStudents = {2222222, 3333333};

I would like to be able to loop over the student IDs to produce either one notebook per student or to export the custom answers for each directly to PDF. Something like

(
CellPrint[Cell["Exercise 1", "Section"]]
Print[myStudent[#]]
---- How? --- Input code for custom answer for exercise 1 evaluated here and printed to a cell
CellPrint[Cell["Exercise 2", "Section"]]
---- How? --- Input code for custom answer for exercise 2 evaluated here and printed to a cell
---- and so on
) & /@ Range[Length[myStudents]]

I get stuck on how to out the results of a calculation for a cell. For example, I use CellPrint[BoxData[ etc.]] to print grids of data to cells but the formatting of the data is lost.

Any tips would be much appreciated,

Gregory

[Tom_DeVries]

Hi, I am not sure if this is what you need, but I use this all the time to maintain formatting of plots, grids, tables, etc.

writething[nb_, thing_] :=
NotebookWrite[nb, Cell[{ToBoxes[thing]}, "Output"]];


"thing" can be anything

For example...

fred = NotebookCreate[];

plot1 = Plot[x^2, {x, -3, 3}];

plot2 = Plot[2 x - 3, {x, -3, 3}];

grid = Grid[{{"hi", "there"}, {plot1, plot2}}, Frame -> All];

writething[fred, grid]

Let me know if that helps!

BTW, are your students reading these file on computer? If so, they can use the free CDFPlayer, which saves you converting to PDF form. And you get all the functionality/interactivity that is possible with the CDF format.

Sincerely,

TOM

[Gregory]

Thanks Tom,

I'll give it a shot. I do recall messing around with BoxData[ToBoxes[theThing]] or something similar. It worked except that theThing, if it was a grid or table, lost its font formatting. Maybe it will work if I leave off BoxData.

Regards,

Gregory