Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Single box around multiple print outputs' topicStudent Support Forum > General > Archives > "Single box around multiple print outputs"

Next Comment >Help | Reply To Topic
Author Comment/Response
Bill
07/21/08 7:59pm

Hi:

Question: below I have Print commands and Print output. How do I place all the Print output into a single box?


(Input)

radius = 2;
NumberOfHoles = 20;
startAngle = 15 Degree;
bhcXoffset = 1;
bhcYoffset = 2;
angleBetweenHoles = 360/NumberOfHoles;
abh = angleBetweenHoles Degree;
x[t_] := radius*Cos[t] + bhcXoffset;
y[t_] := radius*Sin[t] + bhcYoffset;
xyPairsW =
Table[{x[t], y[t]} // N, {t, startAngle, 360 Degree,
360 Degree/NumberOfHoles}];
chord = EuclideanDistance[xyPairsW[[1]], xyPairsW[[2]]];
Print[StyleForm["BHC DATA", FontWeight -> "Bold", Underlined,
FontSize -> 20, FontColor -> Blue]]
Print["BHC Radius= ", radius]
Print["BHC Number of Holes= ", NumberOfHoles]
Print["BHC Start Angle= ", startAngle]
Print["BHC Angle Between Holes= ", abh]
Print["BHC Chord Length Between Adjacent Hole Centers= ", chord]
Print["BHC x & y Center Coordinates= ", {bhcXoffset, bhcYoffset}]

(Print output)

BHC DATA
BHC Radius= 2
BHC Number of Holes= 20
BHC Start Angle= 15
BHC Angle Between Holes= 18
BHC Chord Length Between Adjacent Hole Centers= 0.625738
BHC x & y Center Coordinates= {1,2}

Thanks,

Bill

PS. I have Mathematica 6.0.1, using Windows XP on a PC.



URL: ,

Subject (listing for 'Single box around multiple print outputs')
Author Date Posted
Single box around multiple print outputs Bill 07/21/08 7:59pm
Re: Single box around multiple print outputs Bill 07/24/08 2:20pm
Re: Single box around multiple print outputs Forum Modera... 07/25/08 3:27pm
Re: Single box around multiple print outputs Bill 07/25/08 4:35pm
Next Comment >Help | Reply To Topic