Форум » Программистские штучки » Экспорт результатов из mnku в форматы буржуйских программ » Ответить
Экспорт результатов из 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);
Ответов - 1
administrator: Александеру памятник за эту программку впору ставить
полная версия страницы