-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathNACA_AIRFOIL_def_v2.m
136 lines (95 loc) · 4.76 KB
/
NACA_AIRFOIL_def_v2.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
% PLOT NACA airfoil
% This script allows you to plot NACA-4-digit airfoil by entering the value
% of the 4 digits.
clear
clc
close all
format long
prompt = {'NACA airfoil','Angle of attack in degrees'};
dlg_title = 'NACA airfoil design';
num_lines = 1;
defaultans = {'0000','0'};
answer = inputdlg(prompt,dlg_title,num_lines,defaultans);
NACA = str2double(answer{1,1}) ;
AoA= str2double(answer{2,1}) ;
x=linspace(0,1,500);
if NACA<=1000 % SYM NACA airfoil
y_upper=5*(NACA/100)*(0.2969*x.^(0.5)-0.126*x-0.3516*x.^2+0.2843*x.^3-0.1015*x.^4-0.0021*x.^5)'; %% COMMENT: I've added 0.0021*x.^5 in order to close the airfoil at the TE
y_lower=-5*(NACA/100)*(0.2969*x.^(0.5)-0.126*x-0.3516*x.^2+0.2843*x.^3-0.1015*x.^4-0.0021*x.^5)';
y_c=0;
foil_name="00"+num2str(NACA);
else % NON-SYM NACA airfoil
foil=num2str(NACA);
out=sscanf(foil, '%1f%1f%2f',3);
foil_name=num2str(NACA);
a=out(1,1)/100;
b=out(2,1)/10;
y_t=5*(out(3,1)/100)*(0.2969*x.^(0.5)-0.126*x-0.3516*x.^2+0.2843*x.^3-0.1015*x.^4-0.0021*x.^5)';
y_c=zeros(length(x),1);
theta=zeros(length(x),1);
for n=1:length(x)
if x(n)<=b
theta(n)=atan((2*a/(b^2))*(b-x(n)));
y_c(n)=(a/(b^2))*(2*b*x(n)-x(n)^2);
elseif x(n)>b
theta(n)=atan((2*a/((1-b)^2))*((1-2*b)+2*b.*x(n)-x(n)^2));
y_c(n)=(a/((1-b)^2))*((1-2*b)+2*b*x(n)-x(n)^2);
end
end
y_upper=y_c+y_t.*cos(theta);
y_lower=y_c-y_t.*cos(theta);
end
% rotate NACA airfoil plot
x_r_up=(x'-0.25).*cos(AoA*pi/180)+y_upper.*sin(AoA*pi/180)+0.25; %
x_r_low=(x'-0.25).*cos(AoA*pi/180)+y_lower.*sin(AoA*pi/180)+0.25; % Rotating the airfoil around (Xc,Yc)=(0.25,0)
y_r_up=-(x'-0.25).*sin(AoA*pi/180)+y_upper.*cos(AoA*pi/180); %
y_r_low=-(x'-0.25).*sin(AoA*pi/180)+y_lower.*cos(AoA*pi/180); %
x_r_c=(x'-0.25).*cos(AoA*pi/180)+y_c.*sin(AoA*pi/180)+0.25; % Rotating the MCL
y_r_c=-(x'-0.25).*sin(AoA*pi/180)+y_c.*cos(AoA*pi/180); %
hold on
axis equal
plot(x_r_up,y_r_up,'b-') % plotting upper surface
plot(x_r_c,y_r_c,'g-') % plotting MCL
plot(x_r_low,y_r_low,'b-') % plotting lower surface
grid on
title(['AoA=',num2str(AoA),'º'])
legend(strcat('NACA',foil_name),'MCL')
% inBetween = [y_r_low, fliplr(y_r_up)]; % add those rows to
% fill(x, inBetween, 'y'); % shade the airfoil
hold off
% ---------------------------------------------------------------- %
% building panels
aux_y_r_low=flipud(y_r_low); % using aux_y_r_low as an auxiliary vector to build Airfoil_coord
aux_x_r_low=flipud(x_r_low);
Airfoil_coord=zeros(length(y_r_up)+length(y_r_low)-1,2); % Airfoil_coord=(x,y)
% coordinates
% of airfoil surface counted counte-clockwise starting from TE
Airfoil_coord(1:length(y_r_up),2)=aux_y_r_low(1:length(y_r_low));
Airfoil_coord(1:length(y_r_up),1)=aux_x_r_low(1:length(x_r_low));
Airfoil_coord(length(y_r_up)+1:length(y_r_up)+length(y_r_low)-1,2)=y_r_up(2:end);
Airfoil_coord(length(y_r_up)+1:length(y_r_up)+length(y_r_low)-1,1)=x_r_up(2:end);
% panel inclination of each airfoil panel
%
% panel inclination [rad] counted counter-clockwise from x-direction
panel_inclination=zeros(length(y_r_up)+length(y_r_low)-2,1);
n_y=zeros(length(y_r_up)+length(y_r_low)-2,1);
n_x=zeros(length(y_r_up)+length(y_r_low)-2,1);
tau_y=zeros(length(y_r_up)+length(y_r_low)-2,1);
tau_x=zeros(length(y_r_up)+length(y_r_low)-2,1);
mid_panel_x=zeros(length(y_r_up)+length(y_r_low)-2,1);
mid_panel_y=zeros(length(y_r_up)+length(y_r_low)-2,1);
panel_length=zeros;
for i=1:length(y_r_up)+length(y_r_low)-2
panel_inclination(i)=atan((Airfoil_coord(i+1,2)-Airfoil_coord(i,2))/(Airfoil_coord(i+1,1)-Airfoil_coord(i,1)));
% define tangential direction of each panel
panel_length(i)=((Airfoil_coord(i,1)-Airfoil_coord(i+1,1))^2+(Airfoil_coord(i+1,2)-Airfoil_coord(i,2))^2)^(0.5);
tau_x(i)=(Airfoil_coord(i+1,1)-Airfoil_coord(i,1))/(panel_length(i));
tau_y(i)=(Airfoil_coord(i+1,2)-Airfoil_coord(i,2))/(panel_length(i));
mid_panel_x(i)=(Airfoil_coord(i,1)+Airfoil_coord(i+1,1))*0.5;
mid_panel_y(i)=(Airfoil_coord(i,2)+Airfoil_coord(i+1,2))*0.5;
end
n_x(:)=-tau_y(:); % normal vector is pointing outside the body
n_y(:)=tau_x(:); % tangential vector is oriented in the direction from node i to node i + 1
panel_inclination(1:length(y_r_up)-1,1)=panel_inclination(1:length(y_r_up)-1,1)+pi;
normal_tan=[n_x,n_y,tau_x,tau_y];
mid_panel_coord=[mid_panel_x,mid_panel_y];