-
Notifications
You must be signed in to change notification settings - Fork 0
/
SPVP_Airfoil.m
410 lines (353 loc) · 27 KB
/
SPVP_Airfoil.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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
% SOURCE/VORTEX PANEL METHOD - SINGLE AIRFOIL
% Notes : This code is not optimized, but is instead written in such a way
% that it is easy to understand.
% Functions Needed:
% - XFOIL.m
% - COMPUTE_IJ_SPM.m
% - COMPUTE_KL_VPM.m
% - STREAMLINE_SPM.m
% - STREAMLINE_VPM.m
% Programs Needed:
% - xfoil.exe
%
% Folder Needed:
% - Airfoil_DAT_Selig: folder containing all Selig-format airfoils
clear;
clc;
close all;
%% PROVIDED GIVENS
% Flag to specify creating or loading airfoil
flagAirfoil.XFoilCreate = 1; % Create specified NACA airfoil in XFOIL
flagAirfoil.XFoilLoad = 0; % Load Selig-format airfoil from directory
% User-defined knowns
Vinf = 50; % Freestream velocity [] (just leave this at 1)
AoA = 0; % Angle of attack [deg]
NACA = '0012'; % NACA airfoil to load [####(#)]
% Plotting flags
flagPlot = [1; % Airfoil with panel normal vectors
1; % Geometry boundary pts, control pts, first panel, second panel
1; % Cp vectors at airfoil surface panels
1; % Pressure coefficient comparison (XFOIL vs. SPVP)
1; % Airfoil streamlines
1]; % Pressure coefficient contour
%% XFOIL - CREATE/LOAD AIRFOIL
% PPAR menu options
PPAR.N = '401'; % "Number of panel nodes"
PPAR.P = '4'; % "Panel bunching parameter"
PPAR.T = '1'; % "TE/LE panel density ratios"
PPAR.R = '1'; % "Refined area/LE panel density ratio"
PPAR.XT = '1 1'; % "Top side refined area x/c limits"
PPAR.XB = '1 1'; % "Bottom side refined area x/c limits"
% Call XFOIL function to obtain the following:
% - Airfoil coordinates
% - Pressure coefficient along airfoil surface
% - Lift, drag, and moment coefficients
[xFoilResults,success] = XFOIL(NACA,PPAR,AoA,flagAirfoil); % Get XFOIL results for prescribed airfoil
if (success == 0) % If user canceled airfoil dialog box
return; % Exit the program
end
% Separate out results from XFOIL function results
afName = xFoilResults.afName; % Airfoil name
xFoilX = xFoilResults.X; % X-coordinate for Cp result
xFoilY = xFoilResults.Y; % Y-coordinate for Cp result
xFoilCP = xFoilResults.CP; % Pressure coefficient
XB = xFoilResults.XB; % Boundary point X-coordinate
YB = xFoilResults.YB; % Boundary point Y-coordinate
xFoilCL = xFoilResults.CL; % Lift coefficient
xFoilCD = xFoilResults.CD; % Drag coefficient
xFoilCM = xFoilResults.CM; % Moment coefficient
% Number of boundary points and panels
numPts = length(XB); % Number of boundary points
numPan = numPts - 1; % Number of panels (control points)
%% CHECK PANEL DIRECTIONS - FLIP IF NECESSARY
% Check for direction of points
edge = zeros(numPan,1); % Initialize edge value array
for i = 1:1:numPan % Loop over all panels
edge(i) = (XB(i+1)-XB(i))*(YB(i+1)+YB(i)); % Compute edge values
end
sumEdge = sum(edge); % Sum all edge values
% If panels are CCW, flip them (don't if CW)
if (sumEdge < 0) % If panels are CCW
XB = flipud(XB); % Flip the X-data array
YB = flipud(YB); % Flip the Y-data array
end
%% PANEL METHOD GEOMETRY - REF [1]
% Initialize variables
XC = zeros(numPan,1); % Initialize control point X-coordinate array
YC = zeros(numPan,1); % Initialize control point Y-coordinate array
S = zeros(numPan,1); % Initialize panel length array
phiD = zeros(numPan,1); % Initialize panel orientation angle array [deg]
% Find geometric quantities of the airfoil
for i = 1:1:numPan % Loop over all panels
XC(i) = 0.5*(XB(i)+XB(i+1)); % X-value of control point
YC(i) = 0.5*(YB(i)+YB(i+1)); % Y-value of control point
dx = XB(i+1)-XB(i); % Change in X between boundary points
dy = YB(i+1)-YB(i); % Change in Y between boundary points
S(i) = (dx^2 + dy^2)^0.5; % Length of the panel
phiD(i) = atan2d(dy,dx); % Angle of the panel (positive X-axis to inside face) [deg]
if (phiD(i) < 0) % Make all panel angles positive [deg]
phiD(i) = phiD(i) + 360;
end
end
% Compute angle of panel normal w.r.t horizontal and include AoA
deltaD = phiD + 90; % Angle from positive X-axis to outward normal vector [deg]
betaD = deltaD - AoA; % Angle between freestream vector and outward normal vector [deg]
betaD(betaD > 360) = betaD(betaD > 360) - 360; % Make all panel angles between 0 and 360 [deg]
% Convert angles from [deg] to [rad]
phi = phiD.*(pi/180); % Convert from [deg] to [rad]
beta = betaD.*(pi/180); % Convert from [deg] to [rad]
%% COMPUTE SOURCE AND VORTEX PANEL STRENGTHS - REF [10]
% Geometric integrals for SPM and VPM (normal [I,K] and tangential [J,L])
% - Refs [2], [3], [6], and [7]
[I,J] = COMPUTE_IJ_SPM(XC,YC,XB,YB,phi,S); % Call COMPUTE_IJ_SPM function (Refs [2] and [3])
[K,L] = COMPUTE_KL_VPM(XC,YC,XB,YB,phi,S); % Call COMPUTE_KL_VPM function (Refs [6] and [7])
% Populate A matrix
% - Simpler option: A = I + pi*eye(numPan,numPan);
A = zeros(numPan,numPan); % Initialize the A matrix
for i = 1:1:numPan % Loop over all i panels
for j = 1:1:numPan % Loop over all j panels
if (j == i) % If the panels are the same
A(i,j) = pi; % Set A equal to pi
else % If panels are not the same
A(i,j) = I(i,j); % Set A equal to I
end
end
end
% Right column of A matrix
for i = 1:1:numPan % Loop over all i panels (rows)
A(i,numPan+1) = -sum(K(i,:)); % Add gamma term to right-most column of A matrix
end
% Bottom row of A matrix (Kutta condition)
for j = 1:1:numPan % Loop over all j panels (columns)
A(numPan+1,j) = (J(1,j) + J(numPan,j)); % Source contribution of Kutta condition equation
end
A(numPan+1,numPan+1) = -sum(L(1,:) + L(numPan,:)) + 2*pi; % Vortex contribution of Kutta condition equation
% Populate b array
% - Simpler option: b = -Vinf*2*pi*cos(beta);
b = zeros(numPan,1); % Initialize the b array
for i = 1:1:numPan % Loop over all i panels (rows)
b(i) = -Vinf*2*pi*cos(beta(i)); % Compute RHS array
end
% Last element of b array (Kutta condition)
b(numPan+1) = -Vinf*2*pi*(sin(beta(1)) + sin(beta(numPan))); % RHS of Kutta condition equation
% Compute result array
resArr = A\b; % Solve system of equations for all source strengths and single vortex strength
% Separate lambda and gamma values from result array
lambda = resArr(1:end-1); % All panel source strenths
gamma = resArr(end); % Constant vortex strength
%% COMPUTE PANEL VELOCITIES AND PRESSURE COEFFICIENTS
% Compute velocities on each panel
Vt = zeros(numPan,1); % Initialize tangential velocity
Cp = zeros(numPan,1); % Initialize pressure coefficient
for i = 1:1:numPan
term1 = Vinf*sin(beta(i)); % Uniform flow term
term2 = (1/(2*pi))*sum(lambda.*J(i,:)'); % Source panel terms when j is not equal to i
term3 = gamma/2; % Vortex panel term when j is equal to i
term4 = -(gamma/(2*pi))*sum(L(i,:)); % Vortex panel terms when j is not equal to i
Vt(i) = term1 + term2 + term3 + term4; % Compute tangential velocity on panel i
Cp(i) = 1-(Vt(i)/Vinf)^2; % Compute pressure coefficient on panel i
end
%% COMPUTE LIFT AND MOMENT
% Compute normal and axial force coefficients
CN = -Cp.*S.*sin(beta); % Normal force coefficient []
CA = -Cp.*S.*cos(beta); % Axial force coefficient []
% Compute lift and moment coefficients
CL = sum(CN.*cosd(AoA)) - sum(CA.*sind(AoA)); % Decompose axial and normal to lift coefficient []
CM = sum(Cp.*(XC-0.25).*S.*cos(phi)); % Moment coefficient []
% Print the results to the Command Window
fprintf('======= RESULTS =======\n');
fprintf('Lift Coefficient (CL)\n');
fprintf('\tSPVP : %2.4f\n',CL); % From this SPVP code
fprintf('\tK-J : %g\n',2*sum(gamma.*S)); % From Kutta-Joukowski lift equation
fprintf('\tXFOIL: %2.4f\n',xFoilCL); % From XFOIL program
fprintf('Moment Coefficient (CM)\n');
fprintf('\tSPVP : %2.4f\n',CM); % From this SPVP code
fprintf('\tXFOIL: %2.4f\n',xFoilCM); % From XFOIL program
%% COMPUTE STREAMLINES - REFS [4] and [8]
if (flagPlot(5) == 1 || flagPlot(6) == 1)
% Grid parameters
nGridX = 100; % X-grid for streamlines and contours
nGridY = 100; % Y-grid for streamlines and contours
xVals = [min(XB)-0.5 max(XB)+0.5]; % X-grid extents [min, max]
yVals = [min(YB)-0.3 max(YB)+0.3]; % Y-grid extents [min, max]
% Streamline parameters
stepsize = 0.01; % Step size for streamline propagation
maxVert = nGridX*nGridY*100; % Maximum vertices
slPct = 25; % Percentage of streamlines of the grid
Ysl = linspace(yVals(1),yVals(2),floor((slPct/100)*nGridY))'; % Create array of Y streamline starting points
% Generate the grid points
Xgrid = linspace(xVals(1),xVals(2),nGridX)'; % X-values in evenly spaced grid
Ygrid = linspace(yVals(1),yVals(2),nGridY)'; % Y-values in evenly spaced grid
[XX,YY] = meshgrid(Xgrid,Ygrid); % Create meshgrid from X and Y grid arrays
% Initialize velocities
Vx = zeros(nGridX,nGridY); % Initialize X velocity matrix
Vy = zeros(nGridX,nGridY); % Initialize Y velocity matrix
% Solve for grid point X and Y velocities
for m = 1:1:nGridX
for n = 1:1:nGridY
XP = XX(m,n); % Current iteration's X grid point
YP = YY(m,n); % Current iteration's Y grid point
[Mx,My] = STREAMLINE_SPM(XP,YP,XB,YB,phi,S); % Compute Mx and My geometric integrals (Ref [4])
[Nx,Ny] = STREAMLINE_VPM(XP,YP,XB,YB,phi,S); % Compute Nx and Ny geometric integrals (Ref [8])
[in,on] = inpolygon(XP,YP,XB,YB);
if (in == 1 || on == 1) % If the grid point is in or on the airfoil
Vx(m,n) = 0; % Set X-velocity equal to zero
Vy(m,n) = 0; % Set Y-velocity equal to zero
else % If the grid point is outside the airfoil
Vx(m,n) = Vinf*cosd(AoA) + sum(lambda.*Mx./(2*pi)) + ... % Compute X-velocity
sum(-gamma.*Nx./(2*pi));
Vy(m,n) = Vinf*sind(AoA) + sum(lambda.*My./(2*pi)) + ... % Compute Y-velocity
sum(-gamma.*Ny./(2*pi));
end
end
end
% Compute grid point velocity magnitude and pressure coefficient
Vxy = sqrt(Vx.^2 + Vy.^2); % Compute magnitude of velocity vector []
CpXY = 1-(Vxy./Vinf).^2; % Pressure coefficient []
end
%% PLOTTING
% FIGURE: Airfoil with panel normal vectors
if (flagPlot(1) == 1)
figure(1); % Create figure
cla; hold on; grid off; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
fill(XB,YB,'k'); % Plot airfoil
for i = 1:1:numPan % Loop over all panels
X(1) = XC(i); % Set X start of panel orientation vector
X(2) = XC(i) + S(i)*cosd(betaD(i)+AoA); % Set X end of panel orientation vector
Y(1) = YC(i); % Set Y start of panel orientation vector
Y(2) = YC(i) + S(i)*sind(betaD(i)+AoA); % Set Y end of panel orientation vector
plot(X,Y,'r-','LineWidth',2); % Plot panel normal vector
end
xlabel('X Units'); % Set X-label
ylabel('Y Units'); % Set Y-label
xlim('auto'); % Set X-axis limits to auto
ylim('auto'); % Set Y-axis limits to auto
title(['NACA ' xFoilResults.afName ' Airfoil' ... % Title
' with panel normal vectors'])
axis equal; % Set axes equal
zoom reset; % Reset zoom
end
% FIGURE: Geometry with the following indicated:
% - Boundary pts, control pts, first panel, second panel
if (flagPlot(2) == 1)
figure(2); % Create figure
cla; hold on; grid on; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
plot(XB,YB,'k-','LineWidth',3); % Plot airfoil panels
p1 = plot([XB(1) XB(2)],[YB(1) YB(2)],'g-','LineWidth',2); % Plot first panel
p2 = plot([XB(2) XB(3)],[YB(2) YB(3)],'m-','LineWidth',2); % Plot second panel
pB = plot(XB,YB,'ko','MarkerFaceColor','k'); % Plot boundary points (black circles)
pC = plot(XC,YC,'ko','MarkerFaceColor','r'); % Plot control points (red circles)
legend([pB,pC,p1,p2],... % Show legend
{'Boundary','Control','First Panel','Second Panel'});
xlabel('X Units'); % Set X-label
ylabel('Y Units'); % Set Y-label
xlim('auto'); % Set X-axis limits to auto
ylim('auto'); % Set Y-axis limits to auto
title(['NACA ' xFoilResults.afName ' Airfoil Geometry' ]) % Title
axis equal; % Set axes equal
zoom reset; % Reset zoom
end
% FIGURE: Cp vectors at airfoil control points
if (flagPlot(3) == 1)
figure(3); % Create figure
cla; hold on; grid on; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
Cps = abs(Cp*0.25); % Scale and make positive all Cp values
for i = 1:1:length(Cps) % Loop over all panels
X(1) = XC(i); % Control point X-coordinate
X(2) = XC(i) + Cps(i)*cosd(betaD(i)+AoA); % Ending X-value based on Cp magnitude
Y(1) = YC(i); % Control point Y-coordinate
Y(2) = YC(i) + Cps(i)*sind(betaD(i)+AoA); % Ending Y-value based on Cp magnitude
if (Cp(i) < 0) % If pressure coefficient is negative
p{1} = plot(X,Y,'r-','LineWidth',2); % Plot as a red line
elseif (Cp(i) >= 0) % If pressure coefficient is zero or positive
p{2} = plot(X,Y,'b-','LineWidth',2); % Plot as a blue line
end
end
fill(XB,YB,'k'); % Plot the airfoil as black polygon
legend([p{1},p{2}],{'Negative Cp','Positive Cp'}); % Show legend
xlabel('X Units'); % Set X-label
ylabel('Y Units'); % Set Y-label
xlim('auto'); % Set X-axis limits to auto
ylim('auto'); % Set Y-axis limits to auto
title(['NACA ' xFoilResults.afName ... % Title
' Cp vectors at airfoil control points' ])
axis equal; % Set axes equal
zoom reset; % Reset zoom
end
% FIGURE: Pressure coefficient comparison (XFOIL vs. VPM)
if (flagPlot(4) == 1)
figure(4); % Create figure
cla; hold on; grid on; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
midIndX = floor(length(xFoilCP)/2); % Airfoil middle index for XFOIL data
midIndS = floor(length(Cp)/2); % Airfoil middle index for SPM data
pXu = plot(xFoilX(1:midIndX),xFoilCP(1:midIndX),'b-','LineWidth',2); % Plot Cp for upper surface of airfoil from XFOIL
pXl = plot(xFoilX(midIndX+1:end),xFoilCP(midIndX+1:end),'r-',... % Plot Cp for lower surface of airfoil from XFOIL
'LineWidth',2);
pVl = plot(XC(1:midIndS),Cp(1:midIndS),'ks','MarkerFaceColor','r'); % Plot Cp for upper surface of airfoil from SPM
pVu = plot(XC(midIndS+1:end),Cp(midIndS+1:end),'ks',... % Plot Cp for lower surface of airfoil from SPM
'MarkerFaceColor','b');
legend([pXu,pXl,pVu,pVl],... % Show legend
{'XFOIL Upper','XFOIL Lower','VPM Upper','VPM Lower'});
xlabel('X Coordinate'); % Set X-label
ylabel('Cp'); % Set Y-label
xlim([0 1]); % Set X-axis limits
ylim('auto'); % Set Y-axis limits to auto
set(gca,'Ydir','reverse') % Reverse direction of Y-axis
title(['Airfoil: ' xFoilResults.afName ... % Title
', CL_{VPM}/CL_{XFOIL} = ' ...
num2str((2*sum(gamma.*S)),4) '/' num2str(xFoilCL,4)]);
zoom reset; % Reset zoom
end
% FIGURE: Airfoil streamlines
if (flagPlot(5) == 1)
figure(5); % Create figure
cla; hold on; grid on; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
for i = 1:1:length(Ysl) % Loop over all Y streamline starting points
sl = streamline(XX,YY,Vx,Vy,xVals(1),Ysl(i),[stepsize,maxVert]); % Plot the streamline
set(sl,'LineWidth',2); % Set streamline line width
end
fill(XB,YB,'k'); % Plot airfoil as black polygon
xlabel('X Units'); % Set X-label
ylabel('Y Units'); % Set Y-label
xlim(xVals); % Set X-axis limits
axis equal; % Set axes equal
ylim(yVals); % Set Y-axis limits
title(['NACA ' xFoilResults.afName ' Airfoil Streamlines' ]) % Title
zoom reset; % Reset zoom
end
% FIGURE: Pressure coefficient contour
if (flagPlot(6) == 1)
figure(6); % Create figure
cla; hold on; grid on; % Get ready for plotting
set(gcf,'Color','White'); % Set color to white
set(gca,'FontSize',12); % Set font size
contourf(XX,YY,CpXY,100,'EdgeColor','none'); % Plot Cp contour
fill(XB,YB,'k'); % Plot airfoil as black polygon
xlabel('X Units'); % Set X-label
ylabel('Y Units'); % Set Y-label
xlim(xVals); % Set X-axis limits
axis equal; % Set axes equal
ylim(yVals); % Set Y-axis limits
title(['NACA ' xFoilResults.afName ...
' Airfoil Pressure coefficient contour' ]) % Title
zoom reset; % Reset zoom
end
X_Coordinate=[0.2; 0.4; 0.6; 0.8; XC(1)];
v_index=zeros(length(X_Coordinate),1);
v_tangential=zeros(length(X_Coordinate),1);
for i = 1:1:length(X_Coordinate)
v_index(i)=find(XC>=X_Coordinate(i) & XC<X_Coordinate(i)+0.02,1,'last' );
v_tangential(i)=Vt(v_index(i)-1)+((X_Coordinate(i)-XC(v_index(i)-1))/(XC(v_index(i))-XC(v_index(i)-1)))*(Vt(v_index(i))-Vt(v_index(i)-1));
end
fprintf('~~~~~~ Tangential velocities at specified X coordinates ~~~~~~\n');
disp(table(X_Coordinate,v_tangential))