ちょっと四次元風に

前小節のやつは exp(z) の実部だけだったので、虚部を変えるとどうなるかわかるように複数のグラフを並べてみました。

h1:exp(z);
h2:exp(z)*%i;
h3:z;
h4:z*%i;
/* z=u+ v i として実際にグラフを描いてみる。*/
/* 今回は (realpart(exp(z))+C*imagpart(z),z) (C=-1..4) の描画である。 */
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));

/* 描画 */

F:[k1+C*k2,k3,k4];
RANGE:[[u,-1,1],[v,-4,4]];

G1:[];

for j:-1 thru 4 do 
G1:append(G1,[subst([C=j],F)],RANGE);
done;
plot3d(G1);