 
 
 
 
 
   
 を描こうとしていて,本当は
 を描こうとしていて,本当は
| 
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]
 | 
 の等高線
(高さ 0
 のもののみ) を描かせている。
 の等高線
(高さ 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]
 | 
(これは某学生の修士論文に掲載する図を作成するプログラムなので, オプションの指定が結構細かい。検討すると得るところがあると思う。)
 
 
 
 
