24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

wuzh1987

铁虫 (小有名气)

应助: 0 (幼儿园)
金币: 92.8
帖子: 61
在线: 6.2小时
虫号: 1018704
注册: 2010-05-14
性别: MM
专业: 光学工程激光传输

[交流] 【求助】mathematic画图如何将Mathematica中的数据导出到Orign 已有2人参与

如何在Plot 语句(不是ListPlot语句) 画的几条连续曲线上，添加上三角、下三角、五角星之类的标记，比如说在Sin[x]和Cos[x],Tan[x]，3条曲线上面添加上三角、下三角、五角星标记，然后旁边加3个说明，以便区别3条曲线，这样，即使打印后的黑白图形，也可以区别3条曲线。

也就是想跟matlab那样，在连续曲线上用带圆圈、上三角、下三角、五角星之类的符号表示曲线。

或者是怎样将Mathematica中的数据导出到Orign中，
在线等····
谢谢

[ Last edited by mingdong on 2011-1-15 at 21:40 ]

回复此楼

» 猜你喜欢

投稿chemical physical letters不送审？已经有2人回复
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生已经有22人回复
物理学I论文润色/翻译怎么收费? 已经有279人回复
杂志要求提供official language-editing certificate 已经有4人回复
深圳大学2026年秋博士招生-物理学-活性胶体方向-高永祥课题组已经有17人回复
论物质与能量的统一模型及物理现象解释已经有0人回复
基于基元I统一理论的数学相关应用推导已经有0人回复
基元I统一理论：宇宙本质、层级演化与修炼文明的本源规律已经有1人回复
基元I理论下三大核心空间现象精准推导与细节解析已经有0人回复
基于基元 I 统一理论的反重力理论推导已经有0人回复
基于基元I统一理论的量子力学本源推导已经有1人回复

» 本主题相关价值贴推荐，对您同样有帮助:

类似这样的工作，算是数据挖掘吗？会使用到什么样的挖掘算法？已经有9人回复
一个XRD数据怎么也对不出晶体结构来，怎么办好已经有3人回复
求大牛教我如何处理boltztrap的数据结果已经有10人回复
解好的晶体数据如何用SHELXTL生成cif文件？越详尽越好，急用！已经有10人回复
如何用实验数据画图。。所得数据是为区域值如0.255-0.315，而不是单点已经有4人回复
关于Sciencedirect数据库导出设置已经有4人回复
固定床如何做动力学数据已经有8人回复
诚心求助关于mathematica 数据的导出已经有5人回复
【求助】Mathematica画图问题已经有7人回复
Jade中数据导出后如何画图？已经有2人回复
【求助】如何导入Excel中的数据，在mathematica中生成list？已经有3人回复
根据数据点画曲线和切线已经有4人回复
EndNote 数据丢失的情况有谁遇到过吗? 已经有3人回复

1楼 2011-01-14 13:36:48

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长

应助: 37 (小学生)
金币: 7382.2
散金: 2240
红花: 14
帖子: 1822
在线: 694.6小时
虫号: 458097
注册: 2007-11-13
性别: GG
专业: 应用光学

★
小木虫(金币+0.5):给个红包，谢谢回帖交流

引用回帖:

Originally posted by wuzh1987 at 2011-01-14 13:36:48:
如何在Plot 语句(不是ListPlot语句) 画的几条连续曲线上，添加上三角、下三角、五角星之类的标记，比如说在Sin[x]和Cos[x],Tan[x]，3条曲线上面添加上三角、下三角、五角星标记，然后旁边加3个说明，以便区别3条曲 ...

用个最宇春的方法。
listSin = Table[{x, Sin[x]}, {x, 0, 2 Pi, Pi/3}];
listCos = Table[{x, Cos[x]}, {x, 0, 2 Pi, Pi/3}];
listTan = Table[{x, Tan[x]}, {x, 0, 2 Pi, Pi/3}];
ListPlot[{listSin, listCos, listTan},
PlotMarkers -> {Style["\[FilledDiamond]", Black, 22],
Style["\[FilledSquare]", Black, 22],
Style["\[FilledCircle]", Black, 22]}];
Plot[{Sin[x], Cos[x], Tan[x]}, {x, 0, 2 Pi},
Exclusions -> {Tan[x] == 0}];
Show[%, %%, Frame -> True, Axes -> False, PlotRange -> All,
FrameTicks -> {{Table[i, {i, -3, 3, 1}],
None}, {Table[i, {i, 0, 2 Pi, Pi/2}], None}}]