Problem with Min Max between two functions

• To: mathgroup at smc.vnet.net
• Subject: [mg111285] Problem with Min Max between two functions
• From: maria giovanna dainotti <mariagiovannadainotti at yahoo.it>
• Date: Mon, 26 Jul 2010 06:37:58 -0400 (EDT)

Dear Mathgroup,
I have the following function
R1=1.029
R2=3.892
R3=8
e1=250
e2=11.8
e3=80.5
i=pi/12
spherenear[x_,y_]:=((R3^2-x^2-y^2)^(1/2))
spherefar[x_,y_]:=-((R3^2-x^2-y^2)^(1/2))
emptynear[x_,y_]:=Min[Re[spherenear[x,y]],Re[(R2^2-x^2)^(1/2)+y*Tan[i]]]
emptyfar[x_,y_]:=Max[Re[spherefar[x,y]],Re[-(R2^2-x^2)^(1/2)]+y*Tan[i]]
jetnear[x_,y_]:=Min[Re[spherenear[x,y]],Re[(R1^2-x^2)^(1/2)+y*Tan[i]]]
jetfar[x_,y_]:=Max[Re[spherefar[x,y]],Re[-(R1^2-x^2)^(1/2)]+y*Tan[i]]
f[x_,y_]:=((jetnear[x,y]-jetfar[x,y])*e1+e3*(spherenear[x,y]-emptynear[x,y]+emptyfar[x,y]-spherefar[x,y])+e2*(emptynear[x,y]-jetnear[x,y]+jetfar[x,y]-emptyfar[x,y]))*Boole[-R1=EF=82=A3x=EF=82=A3R1]+((emptynear[x,y]-emptyfar[x,y])*e2+e3*(spherenear[x,y]-emptynear[x,y]+emptyfar[x,y]-spherefar[x,y]))*(Boole[-R2<x<-R1]+Boole[R2>x>R1])+(spherenear[x,y]-spherefar[x,y])*e3*(Boole[x<-R2]+Boole[x>R2])

ContourPlot[f[x,y],{x,-8,8},{y,-8,8},Contours=EF=82=AE{0,100,200,300,400,500,600,700,800,900}]

From the picture you can see there is a white contours that results a bit odd, I
think th at it comes out from the introduction of the Min and Max.
I would like to remove this white contour. Could you help me?
Thanks a lot for your attention
Cheers
Maria

• Prev by Date: Re: mathematica gives strange result
• Next by Date: Re: Linking my fortran subroutines with Mathematica
• Previous by thread: Re: FindRoot + Compile = incompatible (?)
• Next by thread: Re: Problem with Min Max between two functions