〓 Mathematica 2 〓
■ このスレッドは過去ログ倉庫に格納されています
0078１３２人目の素数さん
NGNG<< 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]
■ このスレッドは過去ログ倉庫に格納されています