h1:exp(z); h2:exp(z)*%i; h3:z; h4:z*%i; /* z=u+ v i として実際にグラフを描いてみる。*/ declare(u,real); declare(v,real); /*代入 */ k1:realpart(subst(z=u+%i*v,h1)); k2:realpart(subst(z=u+%i*v,h2)); k3:realpart(subst(z=u+%i*v,h3)); k4:realpart(subst(z=u+%i*v,h4)); /* 描画 */ plot3d([k1,k3,k4],[u,-1,1],[v,-4,4]);