Overlay of two functions leaves gapsCannot Plot FunctionStability analysis of transcendental equation...

can anyone help me with this awful query plan?

"You've called the wrong number" or "You called the wrong number"

What happens to Mjolnir (Thor's hammer) at the end of Endgame?

"The cow" OR "a cow" OR "cows" in this context

Is the claim "Employers won't employ people with no 'social media presence'" realistic?

How can Republicans who favour free markets, consistently express anger when they don't like the outcome of that choice?

Discriminated by senior researcher because of my ethnicity

How to fry ground beef so it is well-browned

Why did C use the -> operator instead of reusing the . operator?

Why do games have consumables?

What happened to Captain America in Endgame?

How do I deal with a coworker that keeps asking to make small superficial changes to a report, and it is seriously triggering my anxiety?

Map of water taps to fill bottles

How much cash can I safely carry into the USA and avoid civil forfeiture?

"Hidden" theta-term in Hamiltonian formulation of Yang-Mills theory

Could the terminal length of components like resistors be reduced?

How to not starve gigantic beasts

Can an Area of Effect spell cast outside a Prismatic Wall extend inside it?

Can I criticise the more senior developers around me for not writing clean code?

Rivers without rain

As an international instructor, should I openly talk about my accent?

What happens in the secondary winding if there's no spark plug connected?

Contradiction proof for inequality of P and NP?

What makes accurate emulation of old systems a difficult task?



Overlay of two functions leaves gaps


Cannot Plot FunctionStability analysis of transcendental equation (stability crossing curves)Implicitly defined compact complicated surfaceHow to invert an Elliptic function where the elliptic nome is a function of an independent variable?Visualizing the primes with the Riemann Zeta functionGroup delay of a transfer functionHow would one go about plotting this parameterized curve using numerical resources (analitically it's too hard)?How to study the behavior of this series in Mathematica?What am I doing wrong when trying to plot this function?ComplexPlot3D and essential singularities













2












$begingroup$


I have a function defined as:



$rho_{m}left(epsilon,mright)=left[-2epsilon rpmleft(4epsilon^{2}r^{2}+mlambda r^{3}right)^{frac{1}{2}}right]^{frac{1}{2}}$



I want to plot it for some $min mathbb{Z}$, so I wrote this code:



Clear[r,[Lambda]];

[Lambda]=685*10^-9;

r=25*10^-3;

[Rho]1[[Epsilon]_,m_]=(-2*[Epsilon]*r+(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

[Rho]2[[Epsilon]_,m_]=(-2*[Epsilon]*r-(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

M=Range[-5,5,1];

p1=Show[Plot[[Rho]1[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

p2=Show[Plot[[Rho]2[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

Show[{p1,p2}]


Which outputs:



enter image description here



However, there are some tiny gaps where the two functiosn meet, but I was expecting them to be continuous. How can I fix that?






plotting graphics







share|improve this question









$endgroup$












  • $begingroup$
    Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
    $endgroup$
    – Bill
    3 hours ago










  • $begingroup$
    I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
    $endgroup$
    – C. E.
    3 hours ago
















2












$begingroup$


I have a function defined as:



$rho_{m}left(epsilon,mright)=left[-2epsilon rpmleft(4epsilon^{2}r^{2}+mlambda r^{3}right)^{frac{1}{2}}right]^{frac{1}{2}}$



I want to plot it for some $min mathbb{Z}$, so I wrote this code:



Clear[r,[Lambda]];

[Lambda]=685*10^-9;

r=25*10^-3;

[Rho]1[[Epsilon]_,m_]=(-2*[Epsilon]*r+(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

[Rho]2[[Epsilon]_,m_]=(-2*[Epsilon]*r-(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

M=Range[-5,5,1];

p1=Show[Plot[[Rho]1[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

p2=Show[Plot[[Rho]2[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

Show[{p1,p2}]


Which outputs:



enter image description here



However, there are some tiny gaps where the two functiosn meet, but I was expecting them to be continuous. How can I fix that?






plotting graphics







share|improve this question









$endgroup$












  • $begingroup$
    Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
    $endgroup$
    – Bill
    3 hours ago










  • $begingroup$
    I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
    $endgroup$
    – C. E.
    3 hours ago














2












2








2





$begingroup$


I have a function defined as:



$rho_{m}left(epsilon,mright)=left[-2epsilon rpmleft(4epsilon^{2}r^{2}+mlambda r^{3}right)^{frac{1}{2}}right]^{frac{1}{2}}$



I want to plot it for some $min mathbb{Z}$, so I wrote this code:



Clear[r,[Lambda]];

[Lambda]=685*10^-9;

r=25*10^-3;

[Rho]1[[Epsilon]_,m_]=(-2*[Epsilon]*r+(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

[Rho]2[[Epsilon]_,m_]=(-2*[Epsilon]*r-(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

M=Range[-5,5,1];

p1=Show[Plot[[Rho]1[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

p2=Show[Plot[[Rho]2[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

Show[{p1,p2}]


Which outputs:



enter image description here



However, there are some tiny gaps where the two functiosn meet, but I was expecting them to be continuous. How can I fix that?






plotting graphics







share|improve this question









$endgroup$




I have a function defined as:



$rho_{m}left(epsilon,mright)=left[-2epsilon rpmleft(4epsilon^{2}r^{2}+mlambda r^{3}right)^{frac{1}{2}}right]^{frac{1}{2}}$



I want to plot it for some $min mathbb{Z}$, so I wrote this code:



Clear[r,[Lambda]];

[Lambda]=685*10^-9;

r=25*10^-3;

[Rho]1[[Epsilon]_,m_]=(-2*[Epsilon]*r+(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

[Rho]2[[Epsilon]_,m_]=(-2*[Epsilon]*r-(4*[Epsilon]^2*r^2+m*[Lambda]*r^3)^(1/2))^(1/2);

M=Range[-5,5,1];

p1=Show[Plot[[Rho]1[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

p2=Show[Plot[[Rho]2[[Epsilon]*10^-3,#]*10^3, {[Epsilon],-0.5,0.5}, PlotRange -> {{-0.5,0.5},{0, 5}},AxesOrigin->{-0.5,0},PlotTheme->"Monochrome"] & /@ M];

Show[{p1,p2}]


Which outputs:



enter image description here



However, there are some tiny gaps where the two functiosn meet, but I was expecting them to be continuous. How can I fix that?






plotting graphics




plotting graphics






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 4 hours ago









RodrigoRodrigo

1056




1056












  • $begingroup$
    Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
    $endgroup$
    – Bill
    3 hours ago










  • $begingroup$
    I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
    $endgroup$
    – C. E.
    3 hours ago


















  • $begingroup$
    Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
    $endgroup$
    – Bill
    3 hours ago










  • $begingroup$
    I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
    $endgroup$
    – C. E.
    3 hours ago
















$begingroup$
Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
$endgroup$
– Bill
3 hours ago




$begingroup$
Adding the option PlotPoints->1000 to both your Plots will make those gaps much less visible.
$endgroup$
– Bill
3 hours ago












$begingroup$
I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
$endgroup$
– C. E.
3 hours ago




$begingroup$
I think that the problem may be that the functions become imaginary at $epsilon = 0$. Plot doesn't plot anything at all when the value is imaginary. When it happens precisely at the point where they're supposed to meet I guess it becomes a numerical issue, hence why PlotPoints may help.
$endgroup$
– C. E.
3 hours ago










1 Answer
1






active

oldest

votes


















4












$begingroup$

If you turn the equation around and plot $epsilon$ as a function of $rho$, then there are no gaps and no branches:



λ = 685*10^-9;

r = 25*10^-3;

ParametricPlot[Table[10^3 {(m r^3 λ - ρ^4)/(4 r ρ^2), ρ}, {m, -5, 5}],

  {ρ, 0, 5*10^-3}, AspectRatio -> 1/GoldenRatio]


enter image description here






share|improve this answer









$endgroup$














    Your Answer








    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "387"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: false,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197133%2foverlay-of-two-functions-leaves-gaps%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    4












    $begingroup$

    If you turn the equation around and plot $epsilon$ as a function of $rho$, then there are no gaps and no branches:



    λ = 685*10^-9;
    
r = 25*10^-3;
    
ParametricPlot[Table[10^3 {(m r^3 λ - ρ^4)/(4 r ρ^2), ρ}, {m, -5, 5}],
    
  {ρ, 0, 5*10^-3}, AspectRatio -> 1/GoldenRatio]


    enter image description here






    share|improve this answer









    $endgroup$


















      4












      $begingroup$

      If you turn the equation around and plot $epsilon$ as a function of $rho$, then there are no gaps and no branches:



      λ = 685*10^-9;
      
r = 25*10^-3;
      
ParametricPlot[Table[10^3 {(m r^3 λ - ρ^4)/(4 r ρ^2), ρ}, {m, -5, 5}],
      
  {ρ, 0, 5*10^-3}, AspectRatio -> 1/GoldenRatio]


      enter image description here






      share|improve this answer









      $endgroup$
















        4












        4








        4





        $begingroup$

        If you turn the equation around and plot $epsilon$ as a function of $rho$, then there are no gaps and no branches:



        λ = 685*10^-9;
        
r = 25*10^-3;
        
ParametricPlot[Table[10^3 {(m r^3 λ - ρ^4)/(4 r ρ^2), ρ}, {m, -5, 5}],
        
  {ρ, 0, 5*10^-3}, AspectRatio -> 1/GoldenRatio]


        enter image description here






        share|improve this answer









        $endgroup$



        If you turn the equation around and plot $epsilon$ as a function of $rho$, then there are no gaps and no branches:



        λ = 685*10^-9;
        
r = 25*10^-3;
        
ParametricPlot[Table[10^3 {(m r^3 λ - ρ^4)/(4 r ρ^2), ρ}, {m, -5, 5}],
        
  {ρ, 0, 5*10^-3}, AspectRatio -> 1/GoldenRatio]


        enter image description here







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 3 hours ago









        RomanRoman

        6,26111132




        6,26111132






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Mathematica Stack Exchange!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid …



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            Use MathJax to format equations. MathJax reference.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197133%2foverlay-of-two-functions-leaves-gaps%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            -

            Popular posts from this blog

            Installing LyX: “No textclass is found.”LyX installation error- text class not found- 'Reconfigure' or...

            Image
            How is it possible for user to changed after storage was encrypted? (on OS X, Android) How can bays and straits be determined in a procedurally generated map? Why Is Death Allowed In the Matrix? A function which translates a sentence to title-case How is it possible to have an ability score that is less than 3? TGV timetables / schedules? What is the command to reset a PC without deleting any files Why don't electron-positron collisions release infinite energy? How do we improve the relationship with a client software team that performs poorly and is becoming less collaborative? Continuity at a point in terms of closure ...
            Read more

            (1602) Indiana Índice Designación y nombre Características orbitales Véase...

            Asteroides del cinturón principalObjetos astronómicos descubiertos por el Indiana Asteroid ProgramObjetos astronómicos descubiertos desde el Observatorio Goethe LinkObjetos astronómicos descubiertos en 1950 asteroidecinturón de asteroidesIndiana Asteroid Programobservatorio Goethe LinkIndianaua (1602) Indiana Descubrimiento Descubridor Indiana Asteroid Program Fecha 14 de marzo de 1950 Lugar Brooklyn Designaciones 1943 DJ, 1950 GF, 1975 XR Nombre provisional 1950 GF Categoría Cinturón de asteroides Elementos orbitales Longitud del nodo ascendente 75,15° Inclinación 4,162° Argumento del periastro 73,23° Semieje mayor 2,245 ua Excentricidad 0,1041 Anomalía media 124,4° Elementos orbitales derivados Época 2457000,5 (09/12/2014) TDB [ 1 ] ​ Periastro o perihelio 2,011 ua Apoastro o afelio 2,478 ua Período orbital sideral 1228 días Características físicas Periodo de rotación 2,601 horas ...
            Read more

            Universidad Autónoma de Occidente Índice Historia Campus Facultades Programas Académicos Medios de...

            Image
            Universidades de CaliUniversidades privadas de ColombiaInstituciones de Educación Superior de Colombia acreditadas Ministerio de Educación de Colombia19996 de septiembreConsejo Nacional de AcreditaciónMinisterio de EducaciónColciencias198319861979199612 de julio1999Sociedad Interamericana de Prensa1993Universidad Carlos III de MadridUniversidad del Cauca197119781999Escuela de MonitoresOGEGrupo GescomGrupo GescomGrupo Gaia Universidad Autónoma de Occidente Acrónimo UAO Alias La Autónoma Lema Vive el conocimiento, construye tu vida [ 1 ] ​ Tipo Privada Fundación 20 de febrero de 1970 (49 años) Localización Dirección Cl 25 # 115-85 Km. 2 vía Cali - Jamundí   Cali,   Valle del Cauca, Colombia   Colombia Campus Valle del Lilí 122,253 kilómetros cuadrados (12 225,3 ha) Coordenadas 3°21′14″N 76°31′22″O  /  3.35389, -76.5228 Coordenadas: 3°21′14″N 76°31′22″O  /  3.35389, -76.5228 Otras sedes San Fernando (Cali) Candelaria El Cerrit...
            Read more