Mathematica Stack Exchange is a question and answer site for users of Mathematica. Join them; it only takes a minute:

Sign up
Here's how it works:
  1. Anybody can ask a question
  2. Anybody can answer
  3. The best answers are voted up and rise to the top

This question already has an answer here:

I am trying to plot my velocity profile, similar to this plot (not the arrows, just the shape)

enter image description here

Here is my function

Diam = 2;
Uavg = 200;
SL = 40;
R = Diam/2;
theta[r_] := ArcCos[SL*Diam^2/(8*Uavg*(R^2 - r^2))];
Plot[Piecewise[{{SL/Cos[theta[r]], r >= 0}, {8*R^2*Uavg/Diam^2, 
r = 0}}], {r, 0, 0.99}]
share|improve this question

marked as duplicate by Szabolcs, Sjoerd C. de Vries, Artes, whuber, J. M. May 6 '13 at 12:59

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

up vote 2 down vote accepted

If what you want to do is Rotate the graph, there's always the Rotate command:

Rotate[Plot[x^2, {x, -1, 1}, Axes -> False], 90 Degree]
share|improve this answer

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