0
$\begingroup$

I'm trying to make Mathematica giving me the inverse function of $f$ (below) when restricted to the interval $[v,1]$.

Using ConditionalExpression or Piecewise as suggested in similar cases does not work.

Result should be the red curve in a way that I can apply the numerical derivative.

v=0.75; f[x_]:=v ArcSin[x]+Cos[ArcSin[x]]; F=InverseFunction[f]; Plot[{f[x],F[x]},{x,-1.3,1.3},AxesOrigin->{0,0}] enter image description here

Thanks in advance!

$\endgroup$
1
  • 2
    $\begingroup$ Desired picture can be obtained by ParametricPlot[{{x, f[x]}, {f[x], x}}, {x, -1.3, 1.3}], but this in not InverseFunction. $\endgroup$
    – Alx
    Aug 26, 2019 at 3:08

1 Answer 1

1
$\begingroup$

A little dowdy but will do for the moment.

v=0.75; f[x_]:=v ArcSin[x]+Cos[ArcSin[x]]; F=InverseFunction[f]; ifun=Interpolation[Table[{f[x],x},{x,v,1,0.001}]]; inverse[y_]:=Piecewise[{{ifun[y],f[1]<y<f[v]},{Indeterminate,True}}] Plot[{f[x],F[x],inverse[x]},{x,-1.3,1.3},AxesOrigin->{0,0}]

enter image description here

$\endgroup$

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.