| 查看: 561 | 回复: 5 | |||
| 当前主题已经存档。 | |||
abbott金虫 (著名写手)
不要用QQ问我东西
|
[交流]
【求助】数据的读入
|
||
|
使用的软体是Mathematica 5.2 。 之前有一点点使用C的经历，当然也不是很熟悉了！比较喜欢符号计算系统，所以选择了Mathematica软件！ 我想这么操作，定义一个一维数组，当然在mathematica中是叫做列表的，比如，这个一维的数组有十个元素，我需要的是，定义完之后，需要从一个文档中读入数据。 数据的格式如下： 618.12 466.06 447.29 439.61 414.74 404.89 397.65 391.82 381.30 358.47 即，每行一个，应该说，都是实型数据。假定数据文档为：data.txt(是Linux系统下的文档格式） 在Mathematica中如何读取这个外部文档data.txt中的数据，赋值到我定义的一位数组？ 希望大侠指教！ [ Last edited by woshilsh on 2008-12-7 at 22:19 ] |
回复此楼» 猜你喜欢
今天系统多次维护，明天很可能放榜！
已经有5人回复
-
欢迎发来filecode的Mz6后的代码验证其规律
已经有74人回复
-
岩土工程学报什么时候才能终审完呐
已经有4人回复
-
时间戳又变了8-15
已经有25人回复
-
2027广东省杰青
已经有6人回复
-
快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。
已经有3人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有9人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有26人回复
-
我的国基提前知道中了，可是同事的操作让我实在接受不了，怎么会有这样的人
已经有16人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有12人回复
woshilsh
荣誉版主 (职业作家)
- 应助: 43 (小学生)
- 贵宾: 10.33
- 金币: 21115.1
- 散金: 737
- 红花: 22
- 帖子: 3777
- 在线: 639.7小时
- 虫号: 293038
- 注册: 2006-11-04
- 专业: 计算机应用技术
- 管辖: 仿真模拟
2楼2008-12-05 15:33:08
coldwind042
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 贵宾: 0.03
- 金币: 543.5
- 红花: 3
- 帖子: 630
- 在线: 175.5小时
- 虫号: 154293
- 注册: 2006-01-03
- 性别: GG
- 专业: 水工结构和材料及施工
★
kuhailangyu(金币+1,VIP+0):thanks~~!
kuhailangyu(金币+1,VIP+0):thanks~~!
|
相关命令： filename 显示文件内容 < Expr>>>filename 打开文件从文件末写 Read (Built-in Mathematica Symbol) Read[stream] reads one expression from an input stream, and returns the expression. Read[stream, type] reads one object of the specified type. Read[stream, {type_1, type_2, ... OpenRead (Built-in Mathematica Symbol) OpenRead["file"] opens a file to read data from, and returns an InputStream object. 数据文件：D:\data.txt 618.12 466.06 447.29 439.61 414.74 404.89 397.65 391.82 381.30 358.47 程序代码： Clear[str,n,x,i]; str = OpenRead["D:\data.txt"]; n=10; x=Range[n]; Do[x[]=Read[str, Number],{i,1,n}] x 运行结果： {618.12, 466.06, 447.29, 439.61, 414.74, 404.89, 397.65, 391.82, \ 381.3, 358.47} |
3楼2008-12-05 17:18:10
abbott
金虫 (著名写手)
不要用QQ问我东西
- 应助: 16 (小学生)
- 金币: 1071.6
- 散金: 2787
- 红花: 10
- 帖子: 1015
- 在线: 105.2小时
- 虫号: 452267
- 注册: 2007-11-05
- 性别: GG
- 专业: 计算机硬件技术
谢谢你的指点
|
现在我顺利的读入数据，得到的想要的计算结果！ 目前正在琢磨绘图指令和数据的输出！ 我计算得到的数据是这样的结果的： {0.00045224, 0.000525196, 0.000607412, 0.000699634, 0.0008026, 0.000917037, \ 0.00104365, 0.0011831, 0.00133602,（中间省略很多） 0.00150299, 0.00168453, 0.0018811, \ 0.00209309, 0.00232084, 0.00256464, 0.00282469, 0.00310119, 0.00339428, \ 0.00370412, 0.00403086, 0.00437469,} 我想把这个数据转化成这样的格式： 全部右对齐，一行一个数据，如同上面的输入数据的格式一样！ 而且我希望这里的科学计数法，在Origin 和 Excel软见中也可以识别！ 期待大侠的帮助！ |
4楼2008-12-06 20:43:01
mshwangg
至尊木虫 (正式写手)
- 应助: 206 (大学生)
- 金币: 10702.8
- 散金: 100
- 红花: 19
- 帖子: 597
- 在线: 195.4小时
- 虫号: 576702
- 注册: 2008-06-21
- 专业: 物理学I
★ ★
coldwind042(金币+2,VIP+0):厉害！谢谢
coldwind042(金币+2,VIP+0):厉害！谢谢
|
SetDirectory["D:\\"]; A={0.00045224, 0.000525196, 0.000607412, 0.000699634, 0.0008026, 0.000917037, \ 0.00104365, 0.0011831, 0.00133602,（中间省略很多） 0.00150299, 0.00168453, 0.0018811, \ 0.00209309, 0.00232084, 0.00256464, 0.00282469, 0.00310119, 0.00339428, \ 0.00370412, 0.00403086, 0.00437469,}； N=Length[A]; strm=OpenAppend["1.dat",FormatType->OutputForm]; Do[Write[strm,FortranForm[Part[A,i]]],{i,1,N}]; Close[strm]; |
5楼2008-12-29 16:41:51
6楼2009-01-14 08:41:50
25