Plot and find intersection points of multiple curvesMarking points of intersection between two curvesEfficiently find all values of parameter such that any of the eigenvalues of a matrix is equal to 1Draw two curves and a surfaceFinding intersection of two infinitely long lines using pointsFinding intersection points of two graphicsHow to get the intersection of three different curvesPlot between multiple curvesLocate intersection points in a contour plotPlot Surface from Curves and Shortest DistanceFinding intersection points from contour plotInserting cones at intersection points two curvesFind the solid and it´s volume formed by the intersection of two surfaces
Looking for a soft substance that doesn't dissolve underwater
Where's this lookout in Nova Scotia?
Is it possible to play as a necromancer skeleton?
How strong are Wi-Fi signals?
Where have Brexit voters gone?
Can I tell a prospective employee that everyone in the team is leaving?
Pirate democracy at its finest
Who will lead the country until there is a new Tory leader?
Have 1.5% of all nuclear reactors ever built melted down?
Employer asking for online access to bank account - Is this a scam?
Make 24 using exactly three 3s
What was the idiom for something that we take without a doubt?
Why did David Cameron offer a referendum on the European Union?
Installed Tankless Water Heater - Internet loss when active
Plot and find intersection points of multiple curves
Teacher help me explain this to my students
How to deal with a colleague who is being aggressive?
Count rotary dial pulses in a phone number (including letters)
Where can I find visible/radio telescopic observations of the center of the Milky Way galaxy?
How to Pin Point Large File eating space in Fedora 18
Boss wants me to falsify a report. How should I document this unethical demand?
I know that there is a preselected candidate for a position to be filled at my department. What should I do?
Compaq Portable vs IBM 5155 Portable PC
Externally monitoring CPU/SSD activity without software access
Plot and find intersection points of multiple curves
Marking points of intersection between two curvesEfficiently find all values of parameter such that any of the eigenvalues of a matrix is equal to 1Draw two curves and a surfaceFinding intersection of two infinitely long lines using pointsFinding intersection points of two graphicsHow to get the intersection of three different curvesPlot between multiple curvesLocate intersection points in a contour plotPlot Surface from Curves and Shortest DistanceFinding intersection points from contour plotInserting cones at intersection points two curvesFind the solid and it´s volume formed by the intersection of two surfaces
5
$begingroup$
I tried to plot and find the coordinates of the intersectrions of more than two curves in a the plot. Is there a special way to do this?
Here's my code so yu can visualize the whole thing.
m = 9.1*10^-31;
L = .5 ;
ℏ = 1.055*10^-34;
e = ℏ^2/(2 m) (π/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
ν1 = V1/e;
ν2 = V2/e;
ν3 = V3/e;
Plot[
Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ], Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]],
-Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]],
ϵ, 0, 10]
plotting functions intersection
edited 10 mins ago
m_goldberg
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
add a comment |
5
$begingroup$
I tried to plot and find the coordinates of the intersectrions of more than two curves in a the plot. Is there a special way to do this?
Here's my code so yu can visualize the whole thing.
m = 9.1*10^-31;
L = .5 ;
ℏ = 1.055*10^-34;
e = ℏ^2/(2 m) (π/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
ν1 = V1/e;
ν2 = V2/e;
ν3 = V3/e;
Plot[
Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ], Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]],
-Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]],
ϵ, 0, 10]
plotting functions intersection
edited 10 mins ago
m_goldberg
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
$begingroup$
You might be interested in the built-in physical constants, e.g.,Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude
$endgroup$
– Bob Hanlon
9 hours ago
add a comment |
5
5
5
1
$begingroup$
I tried to plot and find the coordinates of the intersectrions of more than two curves in a the plot. Is there a special way to do this?
Here's my code so yu can visualize the whole thing.
m = 9.1*10^-31;
L = .5 ;
ℏ = 1.055*10^-34;
e = ℏ^2/(2 m) (π/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
ν1 = V1/e;
ν2 = V2/e;
ν3 = V3/e;
Plot[
Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ], Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]],
-Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]],
ϵ, 0, 10]
plotting functions intersection
edited 10 mins ago
m_goldberg
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$endgroup$
I tried to plot and find the coordinates of the intersectrions of more than two curves in a the plot. Is there a special way to do this?
Here's my code so yu can visualize the whole thing.
m = 9.1*10^-31;
L = .5 ;
ℏ = 1.055*10^-34;
e = ℏ^2/(2 m) (π/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
ν1 = V1/e;
ν2 = V2/e;
ν3 = V3/e;
Plot[
Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ], Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]],
-Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]],
ϵ, 0, 10]
plotting functions intersection
plotting functions intersection
edited 10 mins ago
m_goldberg
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 10 mins ago
m_goldberg
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 10 mins ago
m_goldberg
90.3k873203
edited 10 mins ago
m_goldberg
90.3k873203
edited 10 mins ago
m_goldberg
90.3k873203
90.3k873203
asked 12 hours ago
SosaSosa
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 12 hours ago
SosaSosa
283
asked 12 hours ago
SosaSosa
283
283
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
New contributor
Sosa is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
$begingroup$
You might be interested in the built-in physical constants, e.g.,Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude
$endgroup$
– Bob Hanlon
9 hours ago
add a comment |
$begingroup$
You might be interested in the built-in physical constants, e.g.,Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude
$endgroup$
– Bob Hanlon
9 hours ago
$begingroup$
You might be interested in the built-in physical constants, e.g.,
Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude, Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude, Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude$endgroup$
– Bob Hanlon
9 hours ago
$begingroup$
You might be interested in the built-in physical constants, e.g.,
Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude, Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude, Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude$endgroup$
– Bob Hanlon
9 hours ago
add a comment |
2 Answers
2
active
oldest
votes
7
$begingroup$
plot = Plot[Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ],
Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]], -Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]], ϵ, 0, 10];
Graphics`Mesh`MeshInit[]
intersections = Graphics`Mesh`FindIntersections[plot];
Show[plot, Epilog -> Red, PointSize[Large], Point@intersections]
See also: Marking points of intersection between two curves
answered 12 hours ago
kglrkglr
194k10214435
$endgroup$
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
$begingroup$
@Sosa,intersectionsis list of coordinates where two lines intersect.
$endgroup$
– kglr
11 hours ago
add a comment |
1
$begingroup$
You can also do this non-graphically:
m = 9.1*10^-31;
L = .5;
hb = 1.055*10^-34;
e = hb^2/(2 m) ([Pi]/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
v1 = V1/e;
v2 = V2/e;
v3 = V3/e;
f1[x_] = Sqrt[v1 - x];
f2[x_] = Sqrt[v2 - x];
f3[x_] = Sqrt[v3 - x];
f4[x_] = Sqrt[x] Tan[[Pi]/2 Sqrt[x]];
f5[x_] = -Sqrt[x] Cot[[Pi]/2 Sqrt[x]];
functions = Plot[Evaluate@Through[f1, f2, f3, f4, f5[x]], x, 0, 10]
results = Quiet[Partition[
Flatten[Thread[#2, #1[#2]] & @@@ Cases[#1,
ToRules@(Reduce[#1[x] == #2[x], 0 <= x <= 10, x]) & @@@
Subsets[f1, f2, f3, f4, f5, 2], a_, b__ -> a,
ReplaceAll[x, b]]], 2]]
(* 0.463001, 1.23976, 1.6379, 0.601749, 0.600243,
2.09756, 4.67897, 0.566599, 2.31953, 1.63722, 0.662803,
2.70873, 5.60865, 1.5464, 2.60346, 2.32305 *)
Show[functions, ListPlot[results, PlotStyle -> Black]]
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
$endgroup$
add a comment |
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
);
);
Sosa is a new contributor. Be nice, and check out our Code of Conduct.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f199037%2fplot-and-find-intersection-points-of-multiple-curves%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
2 Answers
2
active
oldest
votes
2 Answers
2
active
oldest
votes
active
oldest
votes
active
oldest
votes
7
$begingroup$
plot = Plot[Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ],
Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]], -Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]], ϵ, 0, 10];
Graphics`Mesh`MeshInit[]
intersections = Graphics`Mesh`FindIntersections[plot];
Show[plot, Epilog -> Red, PointSize[Large], Point@intersections]
See also: Marking points of intersection between two curves
answered 12 hours ago
kglrkglr
194k10214435
$endgroup$
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
$begingroup$
@Sosa,intersectionsis list of coordinates where two lines intersect.
$endgroup$
– kglr
11 hours ago
add a comment |
7
$begingroup$
plot = Plot[Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ],
Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]], -Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]], ϵ, 0, 10];
Graphics`Mesh`MeshInit[]
intersections = Graphics`Mesh`FindIntersections[plot];
Show[plot, Epilog -> Red, PointSize[Large], Point@intersections]
See also: Marking points of intersection between two curves
answered 12 hours ago
kglrkglr
194k10214435
$endgroup$
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
$begingroup$
@Sosa,intersectionsis list of coordinates where two lines intersect.
$endgroup$
– kglr
11 hours ago
add a comment |
7
7
7
$begingroup$
plot = Plot[Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ],
Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]], -Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]], ϵ, 0, 10];
Graphics`Mesh`MeshInit[]
intersections = Graphics`Mesh`FindIntersections[plot];
Show[plot, Epilog -> Red, PointSize[Large], Point@intersections]
See also: Marking points of intersection between two curves
answered 12 hours ago
kglrkglr
194k10214435
$endgroup$
plot = Plot[Sqrt[ν1 - ϵ], Sqrt[ν2 - ϵ], Sqrt[ν3 - ϵ],
Sqrt[ϵ] Tan[π/2 Sqrt[ϵ]], -Sqrt[ϵ] Cot[π/2 Sqrt[ϵ]], ϵ, 0, 10];
Graphics`Mesh`MeshInit[]
intersections = Graphics`Mesh`FindIntersections[plot];
Show[plot, Epilog -> Red, PointSize[Large], Point@intersections]
See also: Marking points of intersection between two curves
answered 12 hours ago
kglrkglr
194k10214435
answered 12 hours ago
kglrkglr
194k10214435
answered 12 hours ago
kglrkglr
194k10214435
answered 12 hours ago
kglrkglr
194k10214435
194k10214435
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
$begingroup$
@Sosa,intersectionsis list of coordinates where two lines intersect.
$endgroup$
– kglr
11 hours ago
add a comment |
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
$begingroup$
@Sosa,intersectionsis list of coordinates where two lines intersect.
$endgroup$
– kglr
11 hours ago
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
$begingroup$
this is great, thanks, but how do i know the coordinates of the points?
$endgroup$
– Sosa
11 hours ago
1
1
$begingroup$
@Sosa,
intersections is list of coordinates where two lines intersect.$endgroup$
– kglr
11 hours ago
$begingroup$
@Sosa,
intersections is list of coordinates where two lines intersect.$endgroup$
– kglr
11 hours ago
add a comment |
1
$begingroup$
You can also do this non-graphically:
m = 9.1*10^-31;
L = .5;
hb = 1.055*10^-34;
e = hb^2/(2 m) ([Pi]/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
v1 = V1/e;
v2 = V2/e;
v3 = V3/e;
f1[x_] = Sqrt[v1 - x];
f2[x_] = Sqrt[v2 - x];
f3[x_] = Sqrt[v3 - x];
f4[x_] = Sqrt[x] Tan[[Pi]/2 Sqrt[x]];
f5[x_] = -Sqrt[x] Cot[[Pi]/2 Sqrt[x]];
functions = Plot[Evaluate@Through[f1, f2, f3, f4, f5[x]], x, 0, 10]
results = Quiet[Partition[
Flatten[Thread[#2, #1[#2]] & @@@ Cases[#1,
ToRules@(Reduce[#1[x] == #2[x], 0 <= x <= 10, x]) & @@@
Subsets[f1, f2, f3, f4, f5, 2], a_, b__ -> a,
ReplaceAll[x, b]]], 2]]
(* 0.463001, 1.23976, 1.6379, 0.601749, 0.600243,
2.09756, 4.67897, 0.566599, 2.31953, 1.63722, 0.662803,
2.70873, 5.60865, 1.5464, 2.60346, 2.32305 *)
Show[functions, ListPlot[results, PlotStyle -> Black]]
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
$endgroup$
add a comment |
1
$begingroup$
You can also do this non-graphically:
m = 9.1*10^-31;
L = .5;
hb = 1.055*10^-34;
e = hb^2/(2 m) ([Pi]/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
v1 = V1/e;
v2 = V2/e;
v3 = V3/e;
f1[x_] = Sqrt[v1 - x];
f2[x_] = Sqrt[v2 - x];
f3[x_] = Sqrt[v3 - x];
f4[x_] = Sqrt[x] Tan[[Pi]/2 Sqrt[x]];
f5[x_] = -Sqrt[x] Cot[[Pi]/2 Sqrt[x]];
functions = Plot[Evaluate@Through[f1, f2, f3, f4, f5[x]], x, 0, 10]
results = Quiet[Partition[
Flatten[Thread[#2, #1[#2]] & @@@ Cases[#1,
ToRules@(Reduce[#1[x] == #2[x], 0 <= x <= 10, x]) & @@@
Subsets[f1, f2, f3, f4, f5, 2], a_, b__ -> a,
ReplaceAll[x, b]]], 2]]
(* 0.463001, 1.23976, 1.6379, 0.601749, 0.600243,
2.09756, 4.67897, 0.566599, 2.31953, 1.63722, 0.662803,
2.70873, 5.60865, 1.5464, 2.60346, 2.32305 *)
Show[functions, ListPlot[results, PlotStyle -> Black]]
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
$endgroup$
add a comment |
1
1
1
$begingroup$
You can also do this non-graphically:
m = 9.1*10^-31;
L = .5;
hb = 1.055*10^-34;
e = hb^2/(2 m) ([Pi]/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
v1 = V1/e;
v2 = V2/e;
v3 = V3/e;
f1[x_] = Sqrt[v1 - x];
f2[x_] = Sqrt[v2 - x];
f3[x_] = Sqrt[v3 - x];
f4[x_] = Sqrt[x] Tan[[Pi]/2 Sqrt[x]];
f5[x_] = -Sqrt[x] Cot[[Pi]/2 Sqrt[x]];
functions = Plot[Evaluate@Through[f1, f2, f3, f4, f5[x]], x, 0, 10]
results = Quiet[Partition[
Flatten[Thread[#2, #1[#2]] & @@@ Cases[#1,
ToRules@(Reduce[#1[x] == #2[x], 0 <= x <= 10, x]) & @@@
Subsets[f1, f2, f3, f4, f5, 2], a_, b__ -> a,
ReplaceAll[x, b]]], 2]]
(* 0.463001, 1.23976, 1.6379, 0.601749, 0.600243,
2.09756, 4.67897, 0.566599, 2.31953, 1.63722, 0.662803,
2.70873, 5.60865, 1.5464, 2.60346, 2.32305 *)
Show[functions, ListPlot[results, PlotStyle -> Black]]
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
$endgroup$
You can also do this non-graphically:
m = 9.1*10^-31;
L = .5;
hb = 1.055*10^-34;
e = hb^2/(2 m) ([Pi]/L)^2 (1/(1.602*10^-19));
V1 = 2 e;
V2 = 5 e;
V3 = 8 e;
v1 = V1/e;
v2 = V2/e;
v3 = V3/e;
f1[x_] = Sqrt[v1 - x];
f2[x_] = Sqrt[v2 - x];
f3[x_] = Sqrt[v3 - x];
f4[x_] = Sqrt[x] Tan[[Pi]/2 Sqrt[x]];
f5[x_] = -Sqrt[x] Cot[[Pi]/2 Sqrt[x]];
functions = Plot[Evaluate@Through[f1, f2, f3, f4, f5[x]], x, 0, 10]
results = Quiet[Partition[
Flatten[Thread[#2, #1[#2]] & @@@ Cases[#1,
ToRules@(Reduce[#1[x] == #2[x], 0 <= x <= 10, x]) & @@@
Subsets[f1, f2, f3, f4, f5, 2], a_, b__ -> a,
ReplaceAll[x, b]]], 2]]
(* 0.463001, 1.23976, 1.6379, 0.601749, 0.600243,
2.09756, 4.67897, 0.566599, 2.31953, 1.63722, 0.662803,
2.70873, 5.60865, 1.5464, 2.60346, 2.32305 *)
Show[functions, ListPlot[results, PlotStyle -> Black]]
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
answered 8 hours ago
Kevin AusmanKevin Ausman
654112
654112
add a comment |
add a comment |
Sosa is a new contributor. Be nice, and check out our Code of Conduct.
draft saved
draft discarded
Sosa is a new contributor. Be nice, and check out our Code of Conduct.
Sosa is a new contributor. Be nice, and check out our Code of Conduct.
Sosa is a new contributor. Be nice, and check out our Code of Conduct.
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
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f199037%2fplot-and-find-intersection-points-of-multiple-curves%23new-answer', 'question_page');
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
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
$begingroup$
You might be interested in the built-in physical constants, e.g.,
Entity["PhysicalConstant", "ElectronMass"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ReducedPlanckConstant"]["Value"]//QuantityMagnitude,Entity["PhysicalConstant", "ElementaryCharge"]["Value"]//QuantityMagnitude$endgroup$
– Bob Hanlon
9 hours ago