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個文件信息