Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
ZigangPan`CalculateInverse`
inversefunction  |
|
| | ||||
Examples
(1)
Basic Examples
(1)
In[1]:=
fx={x1+x2+x4,x2+x3+x4,x3+x4^2-x2};xc={x1,x2,x3};xt={x1,x2,x3,x4};
In[2]:=
f=
[xt,fx]
 | FormulaToFunction |
Out[2]=
Function[{x1,x2,x3,x4},{x1+x2+x4,x2+x3+x4,-x2+x3+}]
2
x4
In[3]:=
{g,yt}=
[f,xc,xt]
| inversefunction |
Out[3]=
Function{y1,y2,y3,x4},(-x4-+2y1-y2+y3),(-x4++y2-y3),(-x4-+y2+y3),{y1,y2,y3,x4}
1
2
2
x4
1
2
2
x4
1
2
2
x4
In[4]:=
Simplify[Apply[g,Join[Apply[f,xt],yt〚4;;4〛]]]
Out[4]=
{x1,x2,x3}
 |
|
""