Changing the Output Style

[Andrew_Bayliss]

I am currently teaching a PreCalculus course, and I am using Mathematica to write units & texts for my course. But one thing I am having trouble is formatting the output. The stylesheet that I am using is "Textbook", and I would like to have the "f" in "f(x)" appear as Times New Roman - Bold Italic. I would like to do this as a default typeset for all my Outputs. It just looks more traditional/professional than the current typeset of Courier. I have tried editing the Stylesheet - "Output", but it does not change the look of the Output in the following code.

ProbNum= 6;
eval={13, 23, 30, -15, -17, 12.5};
firstrow={" ","f(x)", "=", "f(Reference #)", "=", "range value"};
Questions =Table[{StringForm["``.)",i],StringForm["f(``)",eval[[i]]],"=","f(__________)","=", "__________"},{i,1,ProbNum}];
Grid[Questions,Spacings->{3,3},Alignment->{Center,Center}]

This is the code I am using to create 6 questions concerning a given periodic function where they have to identify the reference number and range value for a given domain value. The given domain values are in the list "eval".

Any advice would be great.

Andrew Bayliss

[Kathy_Bautista]

I am currently teaching a PreCalculus course, and I am using Mathematica to write units & texts for my course. But one thing I am having trouble is formatting the output. The stylesheet that I am using is "Textbook", and I would like to have the "f" in "f(x)" appear as Times New Roman - Bold Italic. I would like to do this as a default typeset for all my Outputs. It just looks more traditional/professional than the current typeset of Courier. I have tried editing the Stylesheet - "Output", but it does not change the look of the Output in the following code.

ProbNum= 6;
eval={13, 23, 30, -15, -17, 12.5};
firstrow={" ","f(x)", "=", "f(Reference #)", "=", "range value"};
Questions =Table[{StringForm["``.)",i],StringForm["f(``)",eval[[i]]],"=","f(__________)","=", "__________"},{i,1,ProbNum}];
Grid[Questions,Spacings->{3,3},Alignment->{Center,Center}]

This is the code I am using to create 6 questions concerning a given periodic function where they have to identify the reference number and range value for a given domain value. The given domain values are in the list "eval".

Any advice would be great.

Andrew Bayliss

Hi Andrew,

While a bit simplistic, will this work?

Code: Select all

ProbNum = 6;
eval = {13, 23, 30, -15, -17, 12.5};
firstrow = {" ", "f(x)", "=", "f(Reference #)", "=", "range value"};
Questions =Table[{StringForm["``.)",i],StringForm["f(``)",eval[[i]]],"=","f(__________)","=", "__________"},{i,1,ProbNum}];
TraditionalForm[Grid[Questions, Spacings -> {3, 3}, Alignment -> {Center, Center}]]

-Kathy

[Andrew_Bayliss]

Very odd. Using the code and having the default style for Output to be Times New Roman, This is what I got.

Code: Select all

count=Table[i,{i,1,6}]; 
m={13, 23, 30, -15, -17, 12.5}; 
firstrow={"  ","f(x)", "=", "f(Reference #)", "=", "range value"}; final=Table[{StringForm["``.)",i],StringForm["f(``)",m[[i]]],"=",StringForm["f(__________)"],"=", "__________"},{i,1,6}];
final=Prepend[final,firstrow];
TraditionalForm[Grid[final,Spacings->{3,3},Alignment->{Center,Center}]]

The first "f(#)" came out beautifully, but the rest stayed the same as before. I am going to try to post a picture of it later. Sorry, I know this is very simplistic and silly. It's just one font versus another. I thought it would end up being simple, but it doesn't seem to be turning out that way. I also thought that if I am able to fix it in this example, then maybe I can fix it when I use Mathematica to do some test/quiz generating.