- 78 名前：１３２人目の素数さん mailto:sage [04/05/25 00:14]
- >>77
<< Graphics`ImplicitPlot`
<< Graphics`Graphics`
Show[SkewGraphics[
FullGraphics@
Graphics@ImplicitPlot[x^2 + y^2 == 1, {x, -1.2, 1.2}, {y, -1.2, 1.2},
DisplayFunction -> Identity], {{1, 1/2}, {0, Sqrt[3]/2}}],
DisplayFunction -> $DisplayFunction, AspectRatio -> Automatic]
