求函数的反函数。

【重复实验】

　　实验代码：

assume(y<1,y>0)$
eq1:y=(1-sqrt(1+4*x))/(1+sqrt(1+4*x));
f:last(solve(eq1,[x]))$
subst(t, x, f)$
subst(x, y, %)$
f1:subst(y, t, %);
load(draw)$
wxdraw2d(xlabel="x",ylabel="y",
    explicit(rhs(eq1),x,-0.25,3),
    color=red,
    explicit(rhs(f1),x,-0.6,1)
);

　　执行结果：