Revisions to System of equations does not solve with Solve

added 39 characters in body

Source Link

edited Nov 19, 2020 at 2:07

84.1k
6
97
179

Mesh and MeshFunctions is work.

Here we write a MeshFunctions such as

MeshFunctions -> Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]

and set the Mesh->{{0}} indicate that mpl[a, k, l, d] - lsupply[b, m, l]==0,so we need not solve the equation by hand.

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]], {{a, 80, "A"}, 1,
   100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 1}, {{b, 4}, 0,
   200}, {{m, 5}, 0, 10}]

Mesh and MeshFunctions is work.

Here we write a MeshFunctions such as

MeshFunctions -> Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]

and set the Mesh->{{0}} indicate that mpl[a, k, l, d] - lsupply[b, m, l]==0

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]], {{a, 80, "A"}, 1,
   100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 1}, {{b, 4}, 0,
   200}, {{m, 5}, 0, 10}]

Mesh and MeshFunctions is work.

Here we write a MeshFunctions such as

MeshFunctions -> Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]

and set Mesh->{{0}} indicate that mpl[a, k, l, d] - lsupply[b, m, l]==0,so we need not solve the equation by hand.

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]], {{a, 80, "A"}, 1,
   100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 1}, {{b, 4}, 0,
   200}, {{m, 5}, 0, 10}]

added 87 characters in body

Source Link

edited Nov 19, 2020 at 2:01

cvgmt

84.1k
6
97
179

Mesh and MeshFunctions is work.

Here we write a MeshFunctions such as

MeshFunctions -> Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]

and set the Mesh->{{0}} indicate that mpl[a, k, l, d] - lsupply[b, m, l]==0

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l] // Evaluate]]l]]], {{a, 
   80, "A"}, 1,
   100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 
  1}, {{b, 4}, 0,
   200}, {{m, 5}, 0, 10}]

Mesh and MeshFunctions is work.

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l] // Evaluate]], {{a, 
   80, "A"}, 1, 100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 
  1}, {{b, 4}, 0, 200}, {{m, 5}, 0, 10}]

Mesh and MeshFunctions is work.

Here we write a MeshFunctions such as

MeshFunctions -> Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]

and set the Mesh->{{0}} indicate that mpl[a, k, l, d] - lsupply[b, m, l]==0

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l]]], {{a, 80, "A"}, 1,
   100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 1}, {{b, 4}, 0,
   200}, {{m, 5}, 0, 10}]

Source Link

created Nov 19, 2020 at 1:55

cvgmt

84.1k
6
97
179

Mesh and MeshFunctions is work.

Clear["Global`*"]
y[a_, k_, l_, d_] = a*k^d*l^(1 - d);
mpl[a_, k_, l_, d_] = (1 - d)*a*k^d*l^(-d);
lsupply[b_, m_, l_] = b + m*l;

Manipulate[
 Plot[{mpl[a, k, l, d], lsupply[b, m, l]}, {l, 0, 100}, 
  PlotRange -> {25, 1000}, AxesLabel -> {"L", "MPL, w"}, 
  LabelStyle -> Black, Mesh -> {{0}}, 
  MeshStyle -> Directive[PointSize[Large], Red], 
  MeshFunctions -> 
   Function[l, mpl[a, k, l, d] - lsupply[b, m, l] // Evaluate]], {{a, 
   80, "A"}, 1, 100}, {{k, 350, "K"}, 200, 1000}, {{d, 1/3}, 10^-2, 
  1}, {{b, 4}, 0, 200}, {{m, 5}, 0, 10}]

Stack Exchange Network

Return to Answer