Отправлено: 12.05.10 22:41. Заголовок: Экспорт результатов из mnku в форматы буржуйских программ

Программки простенькие, там даже камменты вполне путёвые. Если в качестве имени файла указывать просто "name", то файл следует искать в текущей рабочей папке MatLab. А можно сразу прописать полный путь. Область построения ab и cd задаются точно такими же, как и для mnku, x-выходной параметр mnku.

function[]=forgrd(ab,cd,x,name)
%Данная программка предназначена для экспорта результата вычисления
%программы mnku в формат grd
%Входные данные:
%ab - min/max значения координаты х
%cd - min/max значения координаты y
%x - матрица коэффициентов
%name - имя файла, без разширения
grid=size(x'); %для начала, посчитаем размерность сетки
z=[min(min(x)) max(max(x))]; %Минимальное/максимальное значение картируемого параметра
grd=[ab;cd;z];
%x=x';
name=[name '.grd'];
afqk=fopen(name,'w'); %Создали/перезаписали файл с названием name в рабочей директории
fprintf(afqk,'DSAA\n'); %Дописали строку представления данного формата информации
fprintf(afqk,'%.0f %.0f\n',grid'); %Размерность сетки
fprintf(afqk,'%.4f %.4f\n',grd'); %min/max значения x y z
for j=grid(2):(-1):1 %Построковое заполнение значениями картируемого параметра
fprintf(afqk,'%.4f ', x(j,:));
fprintf(afqk,'\n'); %Пустая строка
end
fclose(afqk);

function[]=forcps(ab,cd,x,name)
%Данная программка предназначена для экспорта результата вычисления
%программы mnku в формат sps-3
%Входные данные:
%ab - min/max значения координаты х
%cd - min/max значения координаты y
%x - матрица коэффициентов
%name - имя файла, без разширения
z=[min(min(x)) max(max(x))]; %Минимальное/максимальное значение картируемого параметра
grd=num2str([ab cd z]);
grd=['FSLIMI ' grd];
grid=num2str(size(x)); %посчитаем размерность сетки
grid=['FSNROW ' grid];
x=flipud(x);
name=[name '.cps'];
afqk=fopen(name,'w'); %Создали/перезаписали файл с названием name в рабочей директории
fprintf(afqk,'FSASCI 0 1 "COMPUTED" 0 1E30\n');
fprintf(afqk,'FSATTR 0 0\n');
fprintf(afqk, '%s\n',grd );
fprintf(afqk, '%s\n', grid);
fprintf(afqk,'FSXINC 200 200\n');
fprintf(afqk,'->Exported from mnku\n');
fprintf(afqk,'%.4f ', x);
fclose(afqk);

 Отправлено: 13.05.10 07:31. Заголовок: Александеру памятник..

Александеру памятник за эту программку впору ставить