8.1.4.1 バッドノウハウ?

次の例では, $ \cos m\pi x\cos n\pi y+\cos n\pi x\cos m\pi y=0$ を描こうとしていて,本当は
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]
で出来るかと考えたが,なぜか境界 (正方形) が描かれなかったので, $ \cos m\pi x\cos n\pi y+\cos n\pi x\cos m\pi y$ の等高線 (高さ 0 のもののみ) を描かせている。
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]

(これは某学生の修士論文に掲載する図を作成するプログラムなので, オプションの指定が結構細かい。検討すると得るところがあると思う。)



桂田 祐史