Attaching text and formatting pdf

 Attaching text and formatting pdf

I do not find the way to put “f (x)” together to the result of each one of the elements of the list that results when executing this this script,
I have tried with map, append but it does not work for me.

Print[ "Graphing parabolas"]
Print["Full name: ............................"]
quadGrids = TraditionalForm[Table[DisplayForm@GridBox[a x^2 + b x + c /.
{   {a -> RandomChoice[Delete[Range[-9, 9], 10], 3], b -> 0, 
c -> 0}, {a -> RandomChoice[Delete[Range[-9, 9], 10], 3], 
b -> RandomChoice[Delete[Range[-9, 9], 10], 3], 
c -> 0}, {a -> RandomChoice[Delete[Range[-9, 9], 10], 3], 
b -> RandomChoice[Delete[Range[-9, 9], 10], 3], 
c -> RandomChoice[Delete[Range[-9, 9], 10], 3]}}, 
GridBoxDividers -> {"Rows" -> {{True}}, 
"Columns" -> {{True}}}], {3}]]
 MapIndexed[
 Export["C:\Users\jose\Desktop\quadGrids" <> ToString@#2[[1]] <> 
 ".pdf", #1] &, quadGrids]

https://www.dropbox.com/s/t3ukukbjj5qdfhy/quadGrid1.pdf?dl=0
This is an idea but I need it for about 50 cases not for 3 as in the example
I miss the grid, and the traditional order.I also need to format the pdf, type letter as in the example.
A cable here please

Let’s block ads! (Why?)

Recent Questions – Mathematica Stack Exchange