1
$\begingroup$

I'm having a problem in a mathematica code I made to observe the normal modes of a vibrating circular membrane. This is a function I made enter image description here

When d==2, I show a 2D graph of the normal mode. After the mathematica 10 update, I started having a problem in my results. Here is an example: enter image description here

The white slash didn't appear before, but now I can't make it disappear. Does anyone have a suggestion on how to remove it? Thank you in advance.

  u[m_, n_, x_, y_] := 

 BesselJ[m, BesselJZero[m, n]*Sqrt[x^2 + y^2]]*Cos[m*ArcTan[y, x]]
    modosMC[d_, vec_] := Module[{graph, i = 0},
      (* d = 2 \[Rule] 
      Apresentação do gráfico 2D do modo próprio escolhido *)
      If[d == 2,
       graph = 
        DensityPlot[u[vec[[1]], vec[[2]], x, y], {x, -1, 1}, {y, -1, 
          1}, RegionFunction -> Function[{x, y}, x^2 + y^2 < 1], 
         PlotLabel -> 
          Style[StringForm["Modo próprio (``,``)", vec[[1]], vec[[2]]], 
           15, Black, FontFamily -> "Calibri"], ColorFunction -> "Rainbow"]
       ];
      (* d = 3 \[Rule] 
      Apresentação do gráfico 3D do modo próprio escolhido *)
      If[d == 3,
       graph = 
        Plot3D[u[vec[[1]], vec[[2]], x, y], {x, -1, 1}, {y, -1, 1}, 
         RegionFunction -> Function[{x, y}, x^2 + y^2 < 1], 
         PlotLabel -> 
          Style[StringForm["Modo (``,``)", vec[[1]], vec[[2]]], 15, Black,
            FontFamily -> "Calibri"], ColorFunction -> "Rainbow"]
       ];
      (* Mensagem de erro para selecção incorrecta *)
      If[d != 2 && d != 3,
       Print["Não escolheu um modo de visualização disponível:"];
       Print["d = 2 \[Rule] Gráfico 2D"];
       Print["d = 3 \[Rule] Gráfico 3D"];
       ];
      If[Element[vec[[1]], Integers] != True || 
        Element[vec[[2]], Integers] != True ,
       Print["Os índices só podem ser números inteiros."];
       i = 1;];
      If[(d == 2 || d == 3) && i == 0,
       Show[graph]
       ]
      ]
$\endgroup$
  • 1
    $\begingroup$ I can't evaluate your image but I'm guessing it has to do with Exclusions or Boundary style. $\endgroup$ – Kuba Dec 3 '16 at 16:08
  • 1
    $\begingroup$ To be clear, people prefer it when you paste your code in your question so that they can run it themselves and modify it. $\endgroup$ – Feyre Dec 3 '16 at 16:17
  • 1
    $\begingroup$ Exclusions -> None solves your problem but i cannot wrap my head around why this happens. $\endgroup$ – Julien Kluge Dec 3 '16 at 16:39
  • $\begingroup$ Sorry about that! I just pasted my code now. Using Exclusions-> None worked, thank you very much! Although I'm still unaware of why the white slash appeared after the mathematica 10 update $\endgroup$ – RicardoP Dec 3 '16 at 17:17
  • $\begingroup$ Bem-vindo. Que bom receber brasileiros por aqui. Se for do Vale do Paraíba será mais um nesta comunidade. $\endgroup$ – LCarvalho Dec 3 '16 at 19:05