- 在线时间
- 54 小时
- 最后登录
- 2024-10-1
- 注册时间
- 2008-2-17
- 听众数
- 15
- 收听数
- 0
- 能力
- 10 分
- 体力
- 1437 点
- 威望
- 7 点
- 阅读权限
- 200
- 积分
- 823
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 157
- 主题
- 50
- 精华
- 4
- 分享
- 0
- 好友
- 40
TA的每日心情 | 慵懒 2014-8-7 23:01 |
|---|
签到天数: 3 天 [LV.2]偶尔看看I
- 自我介绍
- 痴LaTeX
 群组: 数学建模培训课堂1 |
帖子来源:
http://www.ilovematlab.cn/thread-13775-1-1.html
近来在写一份note,要经常写上Matlab算出来的矩阵,由本我是用Latex来编写,所以需要把Matlab的数值矩阵转成Latex语句。Matlab中看来没有把数值矩阵转成Latex语句的程序,而只有关于符号矩阵的程序(其实是Maple的),所以我就自己写了一个。我的程序可能写得很烂,但还能凑合用一用。
% 数值矩阵输出成Latex代码
% A为矩阵,precision为输出精度
% 如输入:
% >> a = [1 2 3; 4 5 6; 7 8 9];
% >> latex2(a)
% \left(
% \begin{array}{ccc}
% 1 & 2 & 3 \\
% 4 & 5 & 6 \\
% 7 & 8 & 9 \\
% \end{array}
% \right)
function f = latex2(A, precision)
% 没输入精度参数时,默认精度为小数后4位
if nargin == 1
precision = '4';
else
precision = int2str(precision);
end
% 定义单一元素输出格式
out_num = [' %0.' precision 'f &'];
% 用作整数输出判断
z = zeros(1, str2num(precision) + 1);
z(1) = '.';
z(2 : end) = '0';
z = char(z);
% 求矩阵大小
[r c] = size(A);
nc = zeros(1, c);
nc( = 99; % 存放character c
% 生成第一句Latex语句
out = sprintf('\\left(\n\t\\begin{array}{%s}', char(nc));
% 二重循环,用作生成整个矩阵的Latex语句
for i = 1 : r
out = [out sprintf('\n\t')]; % 换行
for j = 1 : c
temp = sprintf(out_num, A(i, j));
% 小数位皆为零时,把数取整。如1.0001取为1
dot_position = find(temp == '.');
if temp(dot_position : end - 2) == z
temp = temp(1 : dot_position - 1);
temp = [temp ' &'];
% 要取整时,如有负号,则必须丢掉
if temp(2) == '-'
temp = [temp(1) temp(3 : end)];
end
end
out = [out temp];
end
% 丢掉最后的'&'号
out = out(1 : end - 1);
% 行末加上'\\'号
out = [out '\\'];
end
% 加上最后一句结束代码
out = [out sprintf('\n\t\\end{array}\n\\right)')];
f = out; |
zan
|