0
$\begingroup$

Manipulate[ ContourPlot[r*(y/x), {x, 20, 42}, {y, 20, 42}, ContourStyle -> Directive[RGBColor[1., 0.77, 0.], Opacity[1.], AbsoluteThickness[1.999], Dashed], ContourLabels -> False, Contours -> {27, 28, 28.5, 29.5, 47, 49, 50, 52, 94, 96, 97, 99}, ContourShading -> {Red, Orange, Red, Orange, LightGray, Orange, Red, Orange, LightGray, Orange, Red, Orange, Red},

PlotLabel -> Row[{"Was I Speedy? if your speedometer reads ", NumberForm[r, {4, 0}], " mph, you're actually traveling to: ", NumberForm[r*y/x, {4, 0}], mph}],

Axes -> True, Ticks -> True, ImageSize -> 674, AxesOrigin -> {20, 20}, AspectRatio -> 0.65, Epilog -> {{Dashed, Line[{{x, 42}, {x, y}}], Line[{{20, y}, {x, y}}]}, {AbsolutePointSize[32], Inset[car, {x, y}]}}], {{x, 30, "old tire diameter inches"}, 20, 42, 0.1, Appearance -> "Labeled"}, {{y, 30, "new tire diameter inches"}, 20, 42, 0.1, Appearance -> "Labeled"}, {{r, 45, "Speedometer reading in mph"}, 30, 80, 1, Appearance -> "Labeled"}]

Speedometer

I think the title of my project is displaying very small and I would like be with a larger font. I have tried different strategies but with no success. If someone can help me I would appreciate it. Thanks

Improve this question
$\endgroup$
4
  • 1
    $\begingroup$ PlotLabel->Style["your text", 30] $\endgroup$ Commented Mar 18, 2015 at 23:29
  • $\begingroup$ Or add ,FontSize->40 to all your StyleBox-es $\endgroup$ Commented Mar 18, 2015 at 23:37
  • $\begingroup$ sorry, I still not able to change the font size, I have been trying the whole day but I just can do it. Anyways, thank you for taking your time and answer my question. If you have other strategy, please let me know. $\endgroup$ Commented Mar 19, 2015 at 4:53
  • $\begingroup$ See answer below. PS can you improve the layout of your question? Instructions are in the top right corner of the edit box. $\endgroup$ Commented Mar 19, 2015 at 7:25

1 Answer 1

Reset to default
2
$\begingroup$

It really is not different from what I suggested in comments. I now Map(/@) Style to every part of the title, but you could have done it manually in each string:

PlotLabel -> Row[Style[#, 16] & /@ {"Was I Speedy? if your speedometer reads ", NumberForm[r, {4, 0}], " mph, you're actually traveling to: ", NumberForm[r*y/x, {4, 0}], "mph"}]

It works for me.

Improve this answer
$\endgroup$
1
  • $\begingroup$ Thank you very much, I was able to fix it with your help. $\endgroup$ Commented Mar 19, 2015 at 7:55

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.