| 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: , |
|
