Эта
небольшая программа преобразует любой файл аэродинамического профиля в
стандартный формат .dat в файле .png и .dxf (.dat в .dxf) для
использования и анализа в программах САПР.
Здесь
у нас уже есть программная утилита Fortran для Linux или Windows. Эта
программа делает то же самое, но запрограммирована в GNU Octave и
показывает, что простота и красота кода являются непревзойденными!
Всего на 14 строк полезного кода (скидки на комментарии и пустые
строки).
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Аэродинамический профиль для png & dxf
% Pere Casellas pere@laboratoridenvol.com
% GNU Octave
% Версия 20181017-ru
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
hold on
% загрузить профиль
fid = fopen ("airfoil.dat");
name = fgetl (fid);
airc = dlmread('airfoil.dat', '',1,0);
A = airc(:,1);
B = airc(:,2);
% распечатать профиль на экране
grid on
xlabel('Хорда')
ylabel('Толщина профиля')
axis ([0 1 -0.3 0.3], 'equal');
title(name,'fontsize',15,'color','red');
plot(A,B,'linewidth',2);
% распечатать профиль
print('airfoil.dxf','-ddxf');
print('airfoil.png','-dpng');
Скачать: air2dxf-octave-ru.zip
Использование:
Прежде
всего, вам необходимо установить систему OCTAVE на свой компьютер.
Octave представляет интерактивный командный интерфейс для решения
линейных и нелинейных математических задач, а также проведения других
численных экспериментов. Это программное обеспечение GNU General Public
License. GNU Octave https://www.gnu.org/software/octave/
Поместите профиль aerfoil.dat (именно с этим именем) в том же каталоге, что и исполняемый код aerfoil.m
Запустите октаву в рабочей папке и введите в командной строке: air2dxf
Результатом является графическое представление профиля на экране, файл .png и .dxf файл
Примечание. Хотя
в экран, представление кириллических символов не представляет проблемы,
при использовании принтеров -dpng и -ddxf они написаны неправильно (на
моем компьютере). В исследовании.
