-2
$\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

$\endgroup$
  • $\begingroup$ PlotLabel->Style["your text", 30] $\endgroup$ – Sjoerd C. de Vries Mar 18 '15 at 23:29
  • $\begingroup$ Or add ,FontSize->40 to all your StyleBox-es $\endgroup$ – Sjoerd C. de Vries Mar 18 '15 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$ – marle Mar 19 '15 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$ – Sjoerd C. de Vries Mar 19 '15 at 7:25
1
$\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.

$\endgroup$
  • $\begingroup$ Thank you very much, I was able to fix it with your help. $\endgroup$ – marle Mar 19 '15 at 7:55

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.