应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 【求助】画图问题请教，太奇怪了，请大家帮我看看！【已完结】
51/1返回列表
查看: 609  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

亮亮1283

新虫 (小有名气)

[交流] 【求助】画图问题请教，太奇怪了，请大家帮我看看！【已完结】 已有2人参与

这是我的画图函数

Needs["PlotLegends`"]

ListPlot[Table[Td[nx], {nx, 10.1, 12.1, 2}], PlotRange -> All,
Frame -> True, Joined -> True,
PlotStyle -> {{Black}, {Thick, Black}},
PlotLegend -> {"\[CapitalLambda]=10.1\[Mu]m",
   "\[CapitalLambda]=12.1\[Mu]m"},
LegendSize -> 0.5, LegendPosition -> {-0.7, 0.1},
AxesLabel -> {Time, Intensity}]LstPlot[Table]
上面是在坐标系里画了两条曲线，都是实线，一粗一细
可是，当我想添加变成三条曲线时，程序如下
Needs["PlotLegends`"]

ListPlot[Table[Td[nx], {nx, 8.1, 12.1, 2}], PlotRange -> All,
Frame -> True, Joined -> True,
PlotStyle -> {{Dashed,Black},{Black}, {Thick, Black}},
PlotLegend -> {"\[CapitalLambda]=8.1\[Mu]m",
   "\[CapitalLambda]=10.1\[Mu]m", "\[CapitalLambda]=12.1\[Mu]m"},
LegendSize -> 0.5, LegendPosition -> {-0.7, 0.1},
AxesLabel -> {Time, Intensity}]
添加的第三条曲线采用虚线区分，但是画出来的图却是三条线都是虚线，但是图例给出的却是一虚线，两实线（其中一粗一细），这是什么原因呢？为什么图例竟然与所画出的图不符合！百思不得其解！请教大家！

[ Last edited by 余泽成 on 2010-8-5 at 22:21 ]
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2010-08-04 23:08:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

minggx

铜虫 (小有名气)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-08-05 22:20:20
对不起，理解能力不好。 没明白lz想要做什么。。。

是不是说想让图例也变成虚线： 那么应该把你的PlotStyle改成这样：
PlotStyle -> {{Dashed, Black}, {Dashed, Black}, {Dashed, Thick,
   Black}}
赞一下(2人) 回复此楼
Domorethannecessary.
2楼2010-08-05 15:09:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

亮亮1283

新虫 (小有名气)
引用回帖:
Originally posted by minggx at 2010-08-05 15:09:46:
对不起，理解能力不好。 没明白lz想要做什么。。。

是不是说想让图例也变成虚线： 那么应该把你的PlotStyle改成这样：
PlotStyle -> {{Dashed, Black}, {Dashed, Black}, {Dashed, Thick,
   Black}}

不是的，我本来是想画出一条虚线，两条实线（一粗一细）的图，就像第二个程序描述的那样！但实际上，我的第二个程序运行后，却发现结果竟然是三条虚线，而，坐标图旁边的图例却是和我预想的一样，就是一条虚线，两条实线（一粗一细）。

所以我就试着把程序二中的虚线去掉只画两条实线也就是像程序一那样，这个时候，运行的结果就得到两条实线
不知道这样说能不能明白！
赞一下 回复此楼
3楼2010-08-05 16:53:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

minggx

铜虫 (小有名气)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
余泽成(金币+1):谢谢参与应助！ 2010-08-05 22:20:35
ListPlot[Table[i*Range, {i, 10, 20, 5}], Joined -> True,
PlotStyle -> {Directive[Dashed, Red],
   Directive[AbsoluteDashing[{}], Red],
   Directive[AbsoluteDashing[{}], Blue, Thick]}]
举了个例子。 实线用AbsoluteDashing[{}]
赞一下(2人) 回复此楼
Domorethannecessary.
4楼2010-08-05 18:30:39
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

亮亮1283

新虫 (小有名气)
引用回帖:
Originally posted by minggx at 2010-08-05 18:30:39:
ListPlot[Table[i*Range, {i, 10, 20, 5}], Joined -> True,
PlotStyle -> {Directive[Dashed, Red],
   Directive[AbsoluteDashing[{}], Red],
   Directive[AbsoluteDashing[{}], Blue, Thick] ...

谢谢，问题解决了！
回复此楼
5楼2010-08-05 19:37:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 亮亮1283 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭