Student Support Forum: 'Single box around multiple print outputs' topicStudent Support Forum > General > "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