〓 Mathematica 2 〓
■ このスレッドは過去ログ倉庫に格納されています
0144１３２人目の素数さん
NGNG型毎に違う出力をするFormatを書く。
Format[MyForm[expr_Real]] := FromDigits[RealDigits[expr]]
Format[MyForm[expr_]] := OutputForm[expr]
Plot[10^x, {x, 0, 10}, PlotLabel -> "10^x", Frame -> True,
FrameLabel -> {Bottom, Left, Top, Right}, FormatType -> MyForm]
■ このスレッドは過去ログ倉庫に格納されています