>Module[{s,x,y,},
>s=x+I Y;
>Gam[s_]:=Function[s,3!*3^x e(iy*log3)/(s*(s+1)*(s+2)*(s+3))]]
どこまでが指数なんだか分母なんだか、わかりにくいのう。
関数の意味もよく分からん。
それはともかく、俺のはver.8なんでCartesianMapでなく
ver.8のParametricPlotで書いていいなら、
Gam[s_] :=
3! 3^(Re[s] Exp[I Im[s] Log[3]])/(s (s + 1) (s + 2) (s + 3));
ParametricPlot[
Through[{Re, Im}[Gam[x + I*y]]], {x, -1, 1}, {y, -2, 2},
PlotStyle -> None]
とすれば、なんかそれらしいのがでてくるけど？
