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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Mathematica怎样才能输出不带括号的数据
81/1返回列表
查看: 2904  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

906527107

金虫 (小有名气)

[求助] Mathematica怎样才能输出不带括号的数据

找高手求助：怎样用Mathematica输出txt文件中不带括号？
    我现在输出的txt格式的文件结果是：{1,290}
                                                                {2,288}
                                     {3,270}
                                                                 {4, 266}
                                                                   .......
    而我希望输出的结果是：1  290
                                           2  288
                                           3  270
                                           4  266
                                             .......
  哪位高手能指点下，不胜感激！
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
欲速则不达！！！
1楼 2013-11-25 21:06:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★
感谢参与，应助指数 +1
906527107: 金币+2, ★有帮助, 问题大部分得到解决 2013-11-26 10:04:49
Export[file, TableForm[data], "String"];
赞一下 回复此楼
2楼2013-11-26 01:32:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

906527107

金虫 (小有名气)
引用回帖:
2楼: Originally posted by virtualzx at 2013-11-26 01:32:06
Export;

谢谢您的建议，已得到预期的效果。
但是有个问题是，为什么在输出的结果中，数据与数据间都空了一行，怎么消除？
1     291.

2     291.

3     291.

4     291.

5     291.

6     291.

7     291.

8     291.

9     291.

10    291.
赞一下 回复此楼
欲速则不达！！！
3楼2013-11-26 10:04:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★ ★
906527107: 金币+2, ★★★很有帮助 2013-11-26 12:55:14
引用回帖:
3楼: Originally posted by 906527107 at 2013-11-25 21:04:04
谢谢您的建议，已得到预期的效果。
但是有个问题是，为什么在输出的结果中，数据与数据间都空了一行，怎么消除？
1     291.

2     291.

3     291.

4     291.

5     291.

6     291.

7      ...

hmm, 奇怪。那试试这个
Export[file, Column@Table[Row[line, " "], {line, data}], "String"];
赞一下 回复此楼
4楼2013-11-26 12:02:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

906527107

金虫 (小有名气)
引用回帖:
4楼: Originally posted by virtualzx at 2013-11-26 12:02:00
hmm, 奇怪。那试试这个
Export[file, Column@Table, "String"];...

这次输出结果没有了空格，但是我想控制下结果的精度，比如291.00000在输出的文件中显示为291. 这样的话在fortran里面就不是很好读了。现在的结果是这样的：
1 291.
2 291.
3 291.
4 291.
5 291.
6 291.
7 291.
8 291.
9 291.
10 291.
11 291.
12 291.
13 291.
14 291.
15 290.999
16 290.104
17 246.862
18 291.
19 291.
20 291.
赞一下 回复此楼
欲速则不达！！！
5楼2013-11-26 12:54:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

virtualzx

木虫 (著名写手)

【答案】应助回帖

★
906527107: 金币+1, ★★★很有帮助, 已解决，谢谢 2013-11-26 16:04:34
引用回帖:
5楼: Originally posted by 906527107 at 2013-11-25 23:54:58
这次输出结果没有了空格，但是我想控制下结果的精度，比如291.00000在输出的文件中显示为291. 这样的话在fortran里面就不是很好读了。现在的结果是这样的：
1 291.
2 291.
3 291.
4 291.
5 291.
6 291.
7 2 ...

控制输出精度用PaddedForm[]。比如这个

Export[file, Column@Table[Row[{PaddedForm[l[[1]], 5], PaddedForm[l[[2]], {10, 5}]}], {l,data}], "String"]
赞一下 回复此楼
6楼2013-11-26 15:37:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
晕 好像太复杂了 下面这样也可以的吧
t1 = Table[{Sqrt, i^(1/3)}, {i, 2, 10}] // N;
t1 = SetAccuracy[t1, 3];
Export["t1.txt", t1, "Table"]
赞一下 回复此楼
7楼2013-12-01 08:26:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

walk1997

金虫 (著名写手)
t1 = Table[{Sqrt[j], j^(1/3)}, {j, 2, 10}] // N;
t1 = SetAccuracy[t1, 3];
Export["t1.txt", t1, "Table"];
赞一下(1人) 回复此楼
8楼2013-12-01 08:36:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 906527107 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 2027广东省杰青 +4 奶牛小黑 2026-08-15 10/500 2026-08-19 11:02 by wanfengnew
[基金申请] 朋友圈看到的 +6 wangzilk 2026-08-18 8/400 2026-08-19 10:55 by Haru815
[基金申请] 时间戳变了，能看出什么问题？ +10 基诺咪客 2026-08-17 14/700 2026-08-19 10:34 by 基诺咪客
[基金申请] 今天基金会出结果吗？20260819 +7 kkkl_v 2026-08-19 7/350 2026-08-19 10:28 by pfeng
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +8 启萌科技 2026-08-12 30/1500 2026-08-19 10:22 by 启萌科技
[基金申请] 今天放榜吗？ +11 布布和一二 2026-08-19 11/550 2026-08-19 10:06 by xter9665
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +6 Tide man 2026-08-14 7/350 2026-08-19 09:56 by ZJTJZ
[基金申请] 什么时候开奖？ +6 CrisMessi 2026-08-18 6/300 2026-08-19 08:06 by Equinoxhua
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +4 Tide man 2026-08-12 5/250 2026-08-19 07:41 by 201120518022
[教师之家] 为什么余额宝的年化利率越来越低？主要原因有哪些？ +3 瞬息宇宙 2026-08-15 3/150 2026-08-18 21:40 by xiaohuixin
[基金申请] 明天放榜？ +5 Shxjjxjkx 2026-08-18 5/250 2026-08-18 18:14 by -大大大大大-
[论文投稿] 投稿咨询 +4 wwm09 2026-08-17 6/300 2026-08-18 15:36 by wwm09
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +13 Ldrop2023 2026-08-13 16/800 2026-08-18 12:25 by 淀粉搬运工
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[基金申请] filecode=后面第一个是大写字母 +8 wangze12014 2026-08-14 10/500 2026-08-17 17:05 by xter9665
[基金申请] 今天系统多次维护，明天很可能放榜！ +8 zju2000 2026-08-16 9/450 2026-08-17 12:20 by lmz0216
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
信息提示
关闭
请填处理意见
关闭