# Plot in mathematica

1. Dec 22, 2011

### 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?

2. Dec 22, 2011

### 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:

Code (Text):

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}]

3. Dec 22, 2011

### SoggyBottoms

Thanks! I got it to work.

Last edited: Dec 22, 2011