mathematica 文件输出并整理 单片机能用的格式 原创 2021-03-28 19:35:51
（* mathematica 文件输出并整理 单片机能用的格式 *） fname = FileNameJoin[{\"F:\\\\\s = OpenWrite[fname]
tst = Table[x, {x, 1, 122}]; (* 测试数据 *) tst = phif; (* 输入数据 *) row = 11; vertical = 11;
For[m = 0, m < vertical, m++; WriteString[ s, \"{\"]; For[n = 1, n <= row, n++;
WriteString[ s, tst[[((m - 1)*11) + (n - 1)]], \]
WriteString[ s, \] Close[s] FilePrint[fname]
因篇幅问题不能全部显示，请点此查看更多更全内容
Copyright © 2019- dcrkj.com 版权所有 赣ICP备2024042791号-2
违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com
本站由北京市万商天勤律师事务所王兴未律师提供法律服务