function write_matrix(matrix,name); % Writes the matrix function file % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ % %% Revision 1.5 1998/02/03 08:40:39 peterg % %% Fixed a horrible bug -- changed filename -> filenum % %% % %% Revision 1.4 1996/08/15 11:56:11 peter % %% Does complex matrices. % %% % %% Revision 1.3 1996/08/14 19:20:41 peter % %% Fixed output naming bug. % %% % %% Revision 1.2 1996/08/14 08:36:52 peter % %% Puts a tab between columns. % %% % %% Revision 1.1 1996/08/14 08:21:27 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% filename = [name, '.m']; filenum = fopen(filename,'w'); % Write the function m-file for the causal bond graph pc = '%'; fprintf(filenum, 'function data = %s\n', name); fprintf(filenum, '%s data = %s\n\n', pc, name); fprintf(filenum, 'data = [\n'); [N,M] = size(matrix); for row = 1:N for col = 1:M value = matrix(row,col); fprintf(filenum, '%g', real(value)); if is_complex(value) fprintf(filenum, '+ %g*i', imag(value)); end if col