- 积分
- 33
- 注册时间
- 2005-6-2
- 仿真币
-
- 最后登录
- 1970-1-1
|
主要步长给出值,次要步长用空值(""). 不修改的用Automatic- p1 = Plot[Sin[x], {x, 0, 10}, Axes -> True,
- TicksStyle -> {Directive[Red, 16, Bold, AbsoluteThickness[1]],
- Automatic},
- Ticks -> {Join[
- Table[{x, 180 x/Pi Degree, {0.03, 0}}, {x, 0, 3 Pi, Pi/2}],
- Table[{x, "", {0.015, 0}}, {x, 0, 3 Pi, Pi/16}]], Automatic},
- ImageSize -> 400]
复制代码
为了输出清晰的图形,最好输出为"TIF" 格式,把ImageResolution设为200,这样得到的图一般比较大,用画笔(mspaint.exe)打开,然后存盘(ctrl+s),再关闭(Alt+F4),得到比较小,但是效果不错的图。或者输出为GIF格式,在电脑上看差不多,但是打出来的时候,颜色不如TIF的好。- Export["C:/test1a.tif", p1, ImageResolution -> 200]
复制代码- Export["C:/test1b.gif", p1, ImageResolution -> 200]
复制代码 效果:
[ 本帖最后由 smarten 于 2008-6-21 12:03 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
评分
-
1
查看全部评分
-
|