0
$\begingroup$

Assuming a linear concentration profile in a particle(sphere), I managed to make a SliceContourPlot3D for 2 linear concentration functions(a function of radius). I met some problems here:

  1. There are some strange curve appeared on the surface of the sphere. Others are on the back side.

Fig.1

enter image description here

  1. Is it possible to unify the barlegend or gradient color? The maximum concentration for Fig.2 is 10, corresponding to color level below 10 in Fig.1. Is there a way to color it as shows in Fid.1?

Fig.2

enter image description here

  1. I tried to make the ContourPlot for this sphere, but failed.
    R=0.001;
    expr1=TransformedField["Spherical"->"Cartesian", 50/0.001 r,{r,\[Theta],\[CurlyPhi] }->{x,y,z}]
    SliceContourPlot3D[expr1,{"CenterCutSphere"},{x,-R,R},{y,-R,R},{z,-R,R},ColorFunction->ColorData["BlueGreenYellow"],PlotLegends->BarLegend[Automatic,LegendMarkerSize->{10,200}]]
    ContourPlot[expr1,{x,-R,R},{y,-R,R},ColorFunction->ColorData["DarkRainbow"],PlotLegends->BarLegend[Automatic,LegendMarkerSize->{10,200}]]
    
    expr2=TransformedField["Spherical"->"Cartesian", 10/0.001 r,{r,\[Theta],\[CurlyPhi] }->{x,y,z}]
    SliceContourPlot3D[expr2,{"CenterCutSphere"},{x,-R,R},{y,-R,R},{z,-R,R},ColorFunction->ColorData["BlueGreenYellow"],PlotLegends->BarLegend[Automatic,LegendMarkerSize->{10,200}]]
New contributor
elapsed is a new contributor to this site. Take care in asking for clarification, commenting, and answering. Check out our Code of Conduct.
$\endgroup$

Your Answer

elapsed is a new contributor. Be nice, and check out our Code of Conduct.

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Browse other questions tagged or ask your own question.