+ Changing the launch angle requires only a few small changes.

Input := 

Clear[V0]

- Setting theta at 30 degrees

Input := 

theta = 30 Pi/180;

- And setting up the same equations as before

Input := 

eq1 = horiz[t]==d[xfar];
Input := 

eq2 = vert[t]==10;
Input := 

s3 = Solve[{eq1,eq2},{V0,t}]
Output =

{{V0 -> -133.038, t -> -4.04939}, 
 
  {V0 -> 133.038, t -> 4.04939}}

- Clearly the second solution is the reasonable one

Input := 

V0 = s3[[2,1,2]];

- When does the ball get down the first base line?

Input := 

s4 = Solve[horiz[t]==425,t]
Output =

{{t -> 3.68878}}

- And how high must the wall be at that point?

Input := 

vert[s4[[1,1,2]]] //N
Output =

30.6601

- Let's get the height of the wall as a function of the distance to the plate

Input := 

ht2[dist_] := vert[Solve[horiz[t]==dist,t][[1,1,2]]]
Input := 

b=Plot[ht2[dist],{dist,325,467},
	PlotStyle -> AbsoluteThickness[4]];
Input := 

Show[a,b]
Output =

-Graphics-

- So we see that the steeper the launch angle, the higher the wall must be. (The thicker curve corresponds to the 30 degree launch angle.)