Back to index

texmacs  1.0.7.15
mat2scm.m
Go to the documentation of this file.
00001 function tmp=mat2scm(M)
00002        tmp='(with "mode" "math" "math-display" "true" (matrix (tformat (table';
00003        [r,c]=size(M);
00004        for i=1:r
00005               tmp=[tmp,'(row '];
00006               for j=1:c
00007                      tmp1=num2scm(M(i,j));
00008                      tmp=[tmp,'(cell ', tmp1, ') '];
00009               end
00010               tmp=[tmp,') '];
00011        end
00012        tmp=[tmp,'))))'];