涡格法MATLAB程序

涡格法计算气动力程序

function[results]= blundbodydrag（resultsgeostaterefJID）
%bluntbodydrag

try
    geo.body.lenght;
catch
    terror（24）
    return
end


settings=config（‘startup‘）;

if state.AS==0
   state.AS=input（‘Airspeed [m/s] :‘）; 
end

[rho a p mu]=ISAtmosphere（state.ALT）;     %Calling International Standard atmosphere.
Mach=state.AS/a;
                    
if ref.S_ref==0
    ref.S_ref=input（‘Reference area [m^2] :‘）;
end

results.CD0_blunt=zldpblunt（Machstate.ALTgeo.bodyref）;


fname=strcat（JID‘-blunt‘）;

cd（settings.odir）
    save（fname‘results‘‘geo‘‘state‘‘ref‘）
cd（settings.hdir）
    
tdisp（‘ ‘）
tdisp（strcat（‘ Solution available in output/‘fname））
tdisp（‘ ‘）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2010-03-18 13:09  T135_export\aircraft\
     文件         741  2009-01-27 11:51  T135_export\aircraft\B707_320B-2.mat
     文件         746  2009-03-15 17:42  T135_export\aircraft\B707_320B-3.mat
     文件         856  2009-04-16 02:12  T135_export\aircraft\B727_100.mat
     文件         998  2009-05-15 13:52  T135_export\aircraft\B747-400.mat
     文件        1079  2009-02-19 14:06  T135_export\aircraft\B747_200.mat
     文件         810  2009-01-26 12:22  T135_export\aircraft\B_47B.mat
     文件         747  2009-01-26 12:34  T135_export\aircraft\B_52A.mat
     文件         798  2009-01-26 13:21  T135_export\aircraft\L_C141B.mat
     文件         792  2009-01-26 13:28  T135_export\aircraft\L_C5A.mat
     文件         504  2008-03-26 15:23  T135_export\aircraft\delta70.mat
     文件         654  2007-03-29 14:13  T135_export\aircraft\ellipse.mat
     文件         991  2009-06-10 17:05  T135_export\aircraft\Bo_GEX-2.mat
     文件        1018  2009-06-10 18:58  T135_export\aircraft\Bo_GEx-3.mat
     文件        1043  2009-06-04 16:25  T135_export\aircraft\Bo_GEx.mat
     文件         939  2009-06-04 16:36  T135_export\aircraft\L_45.mat
     文件         808  2007-03-29 14:12  T135_export\aircraft\P51Da.mat
     文件         859  2007-11-09 17:28  T135_export\aircraft\safir9.mat
     文件         648  2008-04-15 09:48  T135_export\aircraft\SQR.mat
     文件         850  2008-10-23 18:38  T135_export\aircraft\TCR1.mat
     文件         850  2008-11-06 15:09  T135_export\aircraft\TCR4.mat
     文件         828  2008-11-06 15:13  T135_export\aircraft\TCRTM.mat
     文件         706  2008-03-18 13:05  T135_export\aircraft\X31.mat
     目录           0  2010-03-18 13:09  T135_export\aircraft\airfoil\
     文件        1799  1999-08-11 17:32  T135_export\aircraft\airfoil\CAST7.DAT
     文件        2316  2007-05-29 11:24  T135_export\aircraft\airfoil\circle.DAT
     文件         845  1999-08-11 16:32  T135_export\aircraft\airfoil\CLARKY.DAT
     文件        2034  1999-08-11 16:32  T135_export\aircraft\airfoil\DAE11.DAT
     文件        2031  1999-08-11 16:32  T135_export\aircraft\airfoil\DAE21.DAT
     文件        2054  1999-08-11 16:32  T135_export\aircraft\airfoil\DAE31.DAT
     文件        3042  1999-08-11 16:32  T135_export\aircraft\airfoil\DSMA523.DAT
............此处省略235个文件信息