# Tag Info

3

Something is wrong on your side. It may be lingering definitions, or something else elusive, but your code works with the definitions you provided. I would only recommend NOT starting with $b=0$ and $c=0$, because that will correspond to an empty plot... (Note the explicitly non-zero starting values in the Manipulate below) Pccxx[x_, b_, c_] = c (x - 1) + b (...

1

The problem is you are using a capital "P" for your function name. Please try payoff[x_,b_,c_] =-(c + 2 b (x - 1)) x; Plot[payoff[x, 4, 2], {x, 0, 1}, Axes -> False, Frame -> True]

1

Clear["Global`*"] f[a_, x_] := a + x^2; g[b_, x_] := b + x; intersect[a_, b_] := Module[ {sol = Solve[{f[a, x] == g[b, x], a >= 0, b >= 0, x >= 0}, x]}, If[sol === {}, {}, {x, f[a, x]} /. sol[]]] Manipulate[Plot[Evaluate@{f[a, x], g[b, x]}, {x, 0, 50}, PlotLegends -> {Placed["Expressions", {0.7, 0.7}], Placed[...

1

ClearAll[reParametricListLinePlot]; reParametricListLinePlot[ ifs : {_InterpolatingFunction, _InterpolatingFunction}, opts : OptionsPattern@ListLinePlot] := ListLinePlot[Transpose[Re@#@"ValuesOnGrid" & /@ ifs], opts]; Manipulate[ reParametricListLinePlot[ NDSolveValue[ {a'[t] == -I*a[t] (delta + g*Re[b[t]]) - a[t]*0.04/2, ...

Only top voted, non community-wiki answers of a minimum length are eligible