*set show 2
*echo
<title>Results...</title>
<h3>Results...</h3>
*use f(x),x1,x2,x3
<p>f(
*write x web.4
)=
*write f(x) web.4
*if (x1.ne.0) then
<p>f(
*write x1 web.4
)=
*write f(x1) web.4
*endif
*if (x2.ne.0) then
<p>f(
*write x2 web.4
)=
*write f(x2) web.4
*endif
*if (x3.ne.0) then
<p>f(
*write x3 web.4
)=
*write f(x3) web.4
*endif
<hr>
*show