plus[m_, n_] := ContourPlot[ Cos[m*Pi*x]* Cos[n*Pi*y] + Cos[n*Pi*x]*Cos[m*Pi*y]==0, {x, 0, 1}, {y, 0, 1}, BoundaryStyle -> Black, Frame -> None, PlotPoints -> 100] |
plus[m_, n_] := ContourPlot[ Cos[m*Pi*x]* Cos[n*Pi*y] + Cos[n*Pi*x]*Cos[m*Pi*y], {x, 0, 1}, {y, 0, 1}, BoundaryStyle -> Black, Frame -> None, Contours -> {0}, ContourShading -> None, ContourStyle -> Thickness[0.002], PlotPoints -> 100] |
(これは某学生の修士論文に掲載する図を作成するプログラムなので, オプションの指定が結構細かい。検討すると得るところがあると思う。)
桂田 祐史