Mathematica Plotting Binocular Disparity in Mathematica - Solve for f & d

[SoggyBottoms]

I calculated a binocular disparity \delta of two points, see also this topic, and got the following formula:

\delta = Arctan(\frac{f}{D + d}) - Arctan(\frac{e}{D}) - Arctan(\frac{a - e}{D}) + Arctan(\frac{a - f}{D + d})

The assignment now says: Choose a = 6.5 cm, D = 40 cm and e = 3.25 cm. Plot the disparity for f \in [e - 10, e + 10] (cm) and d \in [-20, 20] (cm).

Does anyone know how I could make such a plot?

 

[jackmell]

That's just a function of 2 variables ok, Note I do not use user-defined variable names that begin with capital letters as this may conflict with built-in functions:

a = 6.5; 
bigD = 40; 
e = 3.25;
 
mydisparity[f_, d_] := ArcTan[f/(bigD + d)] - 
   ArcTan[(a - e)/bigD] + ArcTan[(a - f)/(bigD - d)]
mydisparity[2, 3]

Plot3D[mydisparity[f, d], {f, e - 10, e + 10}, 
  {d, -20, 20}]

 

[SoggyBottoms]

Thanks! I got it to work.