(* Takahashi's Plotting Assignment #1 *)
(* 980427 KUBO Takuya *)

$DefaultFont = {"Helvetica", 14};

g1 = ContourGraphics[
	Table[
		Sin[x] Cos[y],
		{x, 0, Pi, 0.05 Pi},
		{y, 0, Pi, 0.05 Pi}
	],
	ContourShading -> False,
	ContourStyle -> RGBColor[1.0, 0.0, 0.0]
];

g2 = ContourGraphics[
	Table[
		Sin[y] Cos[x],
		{x, 0, Pi, 0.05 Pi},
		{y, 0, Pi, 0.05 Pi}
	],
	ContourShading -> False,
	ContourStyle -> RGBColor[0.0, 0.0, 1.0]
];

Show[g1, g2];
[Graphics:t-plot1gr6.png]

戻る