基于Matlab的TEQC繪圖程序代碼【實用文檔】doc

基于Matlab的TEQC繪圖程序代碼【實用文檔】doc文檔可直接使用可編輯，歡迎下載

％在ｍａt(yī)ｌab下新建一個m文件,將以下代碼直接拷貝進去，即可執(zhí)行?；贛atlab的TEQC繪圖程序代碼【實用文檔】doc文檔可直接使用可編輯，歡迎下載％需要一個ＴＥＱC生成的ｐlｏt文件作為參數(shù)fｕｎctioｎout=teｑcploｔ３（fileｓ);%讀取TEQＣ生成的Plot文件，繪制數(shù)據(jù)圖表,支持Copｍact、Comｐａｃt2、Cｏmpａct３格式％選取一個TＥQＣ的Ｐl(wèi)ｏt文件%格式說明％＊。ｓn1載波L1的信噪比Signaltonｏiseratio(Ｓ/N)%＊。ｓn2載波Ｌ２的信噪比Ｓｉｇnaltonoｉｓeratｉo（Ｓ/N)CaｒrierL2％＊．iod*.d12＊．d21電離層延遲觀測值變化率(米／秒)Ｄeｒivａｔivｅofioｎosphｅricdｅlayoｂseｒvable（m／ｓ）％＊。ｉoｎ＊。i１２＊.i2１電離層延遲觀測值（米)Ionosphｅrｉｃdelayobｓeｒvabｌe(ｍ)％*。ｍp1＊。m12載波L１的多路徑誤差Mulｔiｐａt(yī)ｈCａrrierL１%*。mp2*.m2１載波L2的多路徑誤差Mｕltipａt(yī)hCａrｒierL2%*．ａzi衛(wèi)星方位角(°）Ｓatelｌiteazimｕtｈaldata(degrees)%＊.ele衛(wèi)星高度角(°）Ｓaｔｅｌliｔｅｅlevaｔｉoｎdata（degrｅeｓ)ｉｆnargiｎ==0［filen,pａｔｈ］=uｉgetｆiｌe（’*．ｓn１;*.sｎ２;＊.iod;＊．ion;*。ｍp1；＊。ｍp２；＊．a(chǎn)zi；*。ele;＊．i１2;*i21；＊.m12；m21;*.d１2；*d21’，。..＇請選擇TEＱC報告文件：＇)；elｓｅ［ｐaｔｈ，ｆｉlen,ext］=filｅｐaｒｔs（ｆiｌes）；paｔh=[path’\＇］；ｆilen＝{[fiｌeｎexｔ］};end％讀取這個文件file＝char（filen);％按行讀取文件至數(shù)組A［A]=impｏrｔdata(［ｐathfｉle］,’\t'）;％定義ＳAT,存放衛(wèi)星數(shù)據(jù)％GPS有３2顆衛(wèi)星,存放序號1-3２，％GLONASS有32顆衛(wèi)星，存放序號33－64，％BEIDOU有３5顆衛(wèi)星,存放序號65—99SAＴ（１:ｌength(A）,1:９9）=NａN;％sats（1:leｎgth(A)，1：99)＝NaN；%存放采樣時間，單位秒ｔｓec（1：lｅngｔh（A）)=NaN；%讀取文件的第一行fｉlｅlx＝A{1};％判斷是哪種格式sｗitchfｉlelxｃaｓe＇COＭPＡCＴ'%讀取數(shù)據(jù)采樣間隔t_sａｍｐ=chaｒ(Ａ（3));％讀取開始時間mjl=chａr（A(4）);%讀取數(shù)據(jù)采樣間隔Ｔ＿ＳAMＰ=str2nｕm（t_ｓamp（max（ｆiｎd（t＿sａmp＝=’’）)：eｎd））;％讀取數(shù)據(jù)采樣開始時間MJL_START=sｔr2ｎuｍ（ｍjl(mａｘ（fiｎd（mjl=＝＇')):end））;%轉成時間序列數(shù)字,dａt(yī)eserｉalnumber,從0000年１月1日０時０分０秒開始計算的十進制天數(shù)MJD_ＳＴART=MJL_STARＴ+678941．999９９9７41；%i為行號n＝1;ｉ=5；casｅ’ＣOMPACT2'%讀取數(shù)據(jù)采用間隔ｔ_sａmp=char（A(2）);％讀取開始時間ｍjl＝cｈar(Ａ（3）)；%讀取數(shù)據(jù)采樣間隔T＿SＡMP＝str2ｎum（t＿sａmp(max（finｄ（t_ｓaｍp=＝＇’）)：end)）；％讀取數(shù)據(jù)采樣開始時間ＭＪL＿START＝sｔｒ2nｕm(mｊl（maｘ（fｉｎd(mjｌ==’’）):ｅnd））；%轉成時間序列數(shù)字，dａt(yī)eserialnumber，從０000年1月1日0時0分0秒開始計算的十進制天數(shù)MJD_SＴART=MＪL_SＴART+6７8941。９9９999741；n=１;i=4；ｃase’CＯMＰAＣT３＇％讀取開始時間ｔ_start=char（A（２）)；t_ｓtaｒt=deblank(ｔ_ｓｔａrt）;s=spｌiｔｓtr（ｔ_stａrｔ，＇＊＊＇，6）；%t_sｔarｔ＿tｉme=［char（s{２})＇年'ｃhar（ｓ{3｝）＇月’chａｒ(s｛4｝)＇日'ｃhar（s{5}）＇時＇chaｒ（s｛６｝）'分’nuｍ2str（ｓtｒ2num（ｃhａｒ(s｛7}）)，＇％02d’)'秒’］;%獲取采樣的開始時間，2０1３，12，7，0３，05，55t_s_ｔiｍe=[sｔr２nuｍ（char(s{2｝）），stｒ2num（ｃhar(ｓ{3｝））,ｓtr2num（char（s{4｝)），ｓｔr2ｎum(cｈar（s{５｝）),ｓtr2num（char(s{6｝))，str2nuｍ（ｃhar（s｛７｝）)]；n=１;i=3;otｈerwiｓedisp（＇數(shù)據(jù)格式存在問題’）；ｒetｕｒnend％ｎ=1;ｉ=３；％sats＝stｒ２num（A｛i｝);snｙggfｉｌen=sｔｒreｐ（fileｎ,’_’，’—');%生成進度條h=waiｔbar(0,[＇正在讀取數(shù)據(jù)，請稍等……’chaｒ(snyｇｇｆiｌｅn)]);ｗhilｅi〈lenｇth(A）;waｉtbar（i/ｌeｎｇth（A)，ｈ）；drａwnow%讀取衛(wèi)星編號數(shù)據(jù)行采樣時間衛(wèi)星數(shù)量衛(wèi)星編號CＯＭAPＣT3satbhｓｔr=char（A（ｉ）);ｓ=sｐlitsｔr（satbhstr，'*＊',３２）；%如果衛(wèi)星編號數(shù)據(jù)為0,說明數(shù)據(jù)缺失，退出本函數(shù)ifｓtｒtｒｉm（saｔbｈstr)==’0’dｉｓp('數(shù)據(jù)為空!'）；ｃloｓe(h）；ｒｅturｎeｎdswitchｆilelxcase'COMPACT3＇%記錄采樣時間,單位秒tseｃ（ｎ)＝stｒ2nuｍ(s{1｝）;ｉｆs{2｝=＝'—1'％如果為-1，使用上次的衛(wèi)星編號行saｔbhstr＝oldsａt(yī)bｈ;ｓ=splitsｔr（ｓatbhsｔr,＇＊＊＇,32)；elｓeolｄｓatbh=satｂｈsｔｒ；eｎｄ％獲取當前衛(wèi)星數(shù)量satcｏｕnt=ｓtr2num(s｛2｝）;caｓｅ｛'ＣOMPＡCＴ’,＇COMPACT２’｝％記錄采樣時間,單位秒ｔsec(ｎ）＝(ｎ-１）＊T_SAMP；iｆｓ｛1｝=＝'－1＇％如果為—1，使用上次的衛(wèi)星編號行sａt(yī)bｈｓtｒ=ｏｌdsａt(yī)ｂh；s＝splitstｒ（satbhstr，＇*＊’,32);elｓeｏlｄｓatｂh=sａｔbhstr；enｄ％獲取當前衛(wèi)星數(shù)量satcounｔ=str２num（s｛1｝);end%讀取衛(wèi)星數(shù)據(jù)行satｄａt(yī)astr=char(A(i+１)）；sｄａt(yī)a＝sｐｌitｓtr(sａｔdatastr,’＊＊’，32)；forｋ=3：ｓａt(yī)count＋2sｗiｔchfilelxcase'COMPACT'％如果是COMPACT格式，衛(wèi)星編號前面沒有字母，默認是GPS衛(wèi)星，在前面增加字符Gsatbh=[＇Ｇ'char（s{k—1｝）］;ｃaｓｅ’CＯMPACT2'％如果是COＭPACT2格式，衛(wèi)星編號行第２個數(shù)據(jù)開始是衛(wèi)星編號satbh=char(s{k-１｝);cａse’COMPＡCＴ3＇％如果是COMＰACT３格式，衛(wèi)星編號行第３個數(shù)據(jù)開始是衛(wèi)星編號sａt(yī)ｂh＝char（s｛k｝）；endsｗitchsatbｈ（1）;cａsｅ’Ｇ’%如果是GPS衛(wèi)星，獲得與編號對應的存儲序號，范圍1－３2iｎdｅｘ=ｓｔｒ２num（ｓatbｈ（２：3)）;cａse＇R’%如果是GLＯNASS衛(wèi)星，獲得與編號對應的存儲序號，范圍33-64iｎｄｅx=３2+ｓtr2ｎum（ｓaｔbh（２：3))；cａse’Ｃ’%如果是ＢEIDOU衛(wèi)星，獲得與編號對應的存儲序號，范圍65－99index=６4+sｔr2num（satbｈ（２：3）)；oｔhｅrｗise％其他情況,獲得與編號對應的存儲序號,范圍１-３2index=ｓtｒ2num（ｓatbh(2：3));eｎｄ%switch％獲得對應的衛(wèi)星數(shù)據(jù)sdatasｔr=char（sdａｔa{k-２}）；％如果衛(wèi)星數(shù)據(jù)不是數(shù)值型,用0替代ifｉsemｐtｙ（sｔr2num（sdaｔastr））==1ｓdａt(yī)astr＝＇0.０00';ｅnd%將衛(wèi)星數(shù)據(jù)存入SＡT數(shù)組的對應位置SAT（n，indｅx）=str2ｎum(ｓｄatastｒ);ｅｎｄ％foｒn=n+1；%根據(jù)數(shù)據(jù)文件結構，一行是衛(wèi)星編號,下一行就是對應的衛(wèi)星數(shù)據(jù)%程序一次讀取2行數(shù)據(jù)ｉ=i+2;end％whiｌe％數(shù)據(jù)讀取完畢，關閉進度條ｃｌose（h）;％獲取已使用的衛(wèi)星編號,返回給sａｔ_ｂｈsat_bｈ=getｓatbh(SAＴ);％增加最后一個結束字符sat_bh_temp＝［saｔ＿ｂｈ＇｛’Ｅnd’｝];ｓａt(yī)＿bh＿eｎｄ＝sat_bh_temｐ＇；%刪去所有都為NaN值的列，返回給sａｔ_ｄatasａt(yī)_dａt(yī)ａ=ｄelnanｃol(SAT）;%刪去所有NａN值的采樣時間列t_seｃonds=deｌnancol（tsec);％刪去所有都為NaN值的行，返回saｔ_datasｓaｔ_datas＝delnanroｗ(sat_ｄata）；％增加一個nａｎ列[row,coｌ]=sizｅ（sat_datａs）；bb（１:roｗ，1）＝ＮaN;sat＿ｄatａs=［sat_datasbb]；％將含有NａN值的數(shù)據(jù)替換為0,返回給s_ｄａｔa%s_ｄata=repnaｎ20(sａｔ_data)；%將采樣時間轉成順序日期serｉａldateｎumberswitchfiｌelｘｃａse｛'COＭPAＣT’,＇COMＰAＣT2’}t_s_jd_time＝MJD_ＳＴＡRT；case'COMＰＡCT３＇t＿s_jd_tiｍｅ=ｄatenｕｍ(ｔ＿s_ｔime）；enｄfori＝1:ｌｅnｇth（t＿sｅconｄｓ）％將每次采樣時間轉換成相應的順序日期t_jd_time（i)=ｔ_s＿ｊd＿timｅ+t_secoｎds（i）/６0/60/２4；ｅnｄ%繪制圖表+＋++++++＋+++++++++++++++++％根據(jù)不同的文件類型，設置坐標軸的范圍［typｅ，maxy，minｙ］=get＿ｆilｅｔype（fiｌe）;figure;ｂoxon；hoｌｄｏn［row，cｏl］=siｚe(sａt(yī)_daｔas）；%繪制漸變彩色圖pcolor(t_jd_time＇,［1：col］，sat_ｄataｓ’)；set(gcｆ，＇rｅnderｅｒ'，＇zbuffer＇）；shadinｇflatset（gｃa,’xtiｃｋlａbel＇,［t＿jd_tｉme］）;set(gcａ,'xlｉｍ',［t_jｄ_time(1）t_jｄ_tｉｍe（end）］)%ｔ_start_times＝[t_ｓtaｒt＿ｈ’:’t_start_ｍ’：＇t_ｓtarｔ＿s］；dateaxis('Ｘ＇,１3)cｂａr（＇v'，[minｙmaxy］，tyｐe）;seｔ(gca,＇ylｉｍ＇，［１col＋1］）set(gｃa，’yｔick',［1。5：1:col+０.5］）ｓｅt（ｇca，＇ytｉｃklabel＇,sａt(yī)_bh_eｎd);sｅt(gca,＇foｎｔsｉｚe'，７）；colｏrｍap(fｌipud(jeｔ））；ｃaxiｓ（［minyｍaxy］);％t_end_ｔime=cal2eｔ(t_ｓ_time,t＿secoｎds（ｅnd)）；xlabeｌ（［dａt(yī)estr(t＿ｊd＿tｉme(１)）'|-—－-－—-—采樣間隔：＇num2ｓｔr(t_ｓecｏnds(2)—t_seconｄｓ(１))'秒-－－—－———｜＇ｄaｔｅstr(t_jd_ｔｉｍe(eｎd））]）ylabel(’衛(wèi)星編號'）％ｔimestr=seｃs2ｈms(lｅnｇｔh(saｔ));Ｔ=ｔｉtlｅ（[’TEQC報告文件:'sｔｒrｅp（file，'_’，’-＇）])；set(T，'fｏntsize',８）%out.(ｆile(end-２:end)）＝sａt(yī)；％ouｔ.Ｔ_sａmp=Ｔ_ＳAＭP；out。Staｒt=daｔestr(t_jｄ_time（1））；ｏut．Stｏp＝ｄａt(yī)estr（t_jd_ｔime（end）)；％+＋+＋++＋＋++++++++＋+++＋+＋++++++＋+++＋＋++＋＋%以下是本函數(shù)中所使用的一些相關函數(shù)％+＋＋＋＋+++++＋+＋++＋+＋++＋+++++++++++＋+++++＋+++++＋+＋＋+＋%+++++++++＋+++＋++++＋＋+＋＋++＋++++++++++＋++++++++++＋+ｆuｎctions=ｓplｉtstr（stｒ，sｐlｉt,nuｍ);%用指定分隔符分隔字符串函數(shù)％str＝＇naｍe02010-0５－06３3QtBKB'；％'＊＊'表示特殊分隔符回車、空格、換行、制表符等%nuｍ表示分隔字符串的個數(shù)stｒiｎｇ=cｅll(num,1）；inｄex=1；teｍp＝［］；iｆｓｐlｉt=＝’＊*'%特殊分隔符forｉ=1：length（ｓtr）iｆｉsspacｅ(sｔr（i))ifisempｔy（temｐ）==falｓesｔring｛ｉndex｝＝temp;indｅx＝ｉndeｘ＋１;temp=[］;ｅndelseteｍｐ=［ｔemp,sｔｒ(i）］；enｄendelｓｅ%常規(guī)分隔符foｒi=１:length（stｒ）ifstr(i）==spｌitifｉｓempty(temp)==falsestring｛indeｘ｝＝temp;inｄex=iｎdｅｘ+1;temp=［］;endelsetemｐ=［teｍｐ，str（i）]；enｄenｄeｎdifiｓemｐｔy（ｔemp)==ｆalsｅｓtring{index｝=tｅｍp；eｎds＝ｓtrｉnｇ；%++++++＋++＋+++＋＋++++++＋＋＋+++＋+＋+++++functiｏnB=dｅlnancｏｌ（A）；%刪除矩陣中所有值都是nan的列［xy]=sｉze（A）；fｏｒi=y:-1:1ifalｌ（iｓnan（A（：,ｉ))）==１A(:，i）=[];enｄeｎdB＝A;％+++++＋＋+＋++++++＋+＋++++＋++++++++++++funcｔionＢ=delnanrow(Ａ）；％刪除矩陣中所有值都是ｎan的行[ｘｙ］=size（A）;fｏri＝ｘ：-1：1ifall（isnaｎ(A（ｉ,:）））==1Ａ（i，:)=［]；endendB=Ａ;%+++++++＋++＋+＋＋+＋++++++++＋＋＋+＋++＋+++funcｔionB=repｎan20(data);%將矩陣中的NAN值用0替代[ｄatａs，featurｅs]=size(data）;foｒk=1：ｆeatｕｒｅｓfori＝1:ｄataｓifisnan（daｔa（ｉ,ｋ）)＝=1data（i，k）=０；eｎdendｅndB=data;％＋++＋+＋＋＋＋++＋+++++++＋++＋++++++＋++fｕnctionsatbh=getsatbｈ(satｄata);%獲取衛(wèi)星數(shù)據(jù)中的衛(wèi)星編號,返回一個字符串數(shù)組s＝cｅll（32,１）;teｍp=［］;inｄex=１；fori=1：99ｉfａll（isnａn(ｓatdata（:,i）））～＝1switchｉ>32ｃaｓｅ０temp＝［＇G'，ｎum2str（i,’％02ｄ＇）]；case1iｆi>６４tｅmp=［’C＇，num２str(i-64，’％02d’）］；elseteｍｐ=['R’,num２sｔｒ（i—３2，'％02d'）］；ｅnｄeｎds｛ｉndｅｘ}=teｍｐ；iｎdex=index+1；eｎdenｄiｆｉｎdeｘ〉1sａｔbｈ＝s（1:index－１);eｌsesaｔｂｈ=［]；ｅnd％++＋＋＋++++＋+＋+++＋+＋++++++++++++＋+++++＋+++＋＋+++++++++＋＋+＋＋+++＋+++％FUNCTION：GＥＴFＩLETYPＥINFO+++++＋+++++++++＋++++++++＋+＋++＋+＋+++++functiｏn[ｏｕt,ｍａxy，miny］=gｅt＿ｆiｌetｙpe(teｑfilｅ）；％根據(jù)文件類型，設置坐標軸的范圍［paｔh，ｎａme,ext,veｒ］=fiｌepａrts（tｅqｆｉlｅ)；sｗｉtｃhexｔcａse’。sｎ1'%ｏuｔ＝'SignalｔonoiｓeratｉoＳ/ＮL1'；ｏut=’L1載波上的信噪比(dBHz)'；maｘy=60；ｍiny＝15;ｃase'。ｓn2'%ｏut='SignaltｏｎoiｓeratiｏＳ/NL2’；out='Ｌ2載波上的信噪比（dBHz）’;maxy=６0；minｙ=１5；cａse｛’.mp1','。m12＇}％ｏｕｔ=’MultiｐａｔhＬ1’;out＝’Ｌ1多路徑觀測值'；mａxy=１；miny＝－１；caｓｅ｛’．ｍp2’，’。m21'｝%out='MultipathＬ2'；oｕt=’Ｌ2多路徑觀測值＇；mａxy=１;miny=—1；cａse{＇.ｉｏd’，'．d12',＇d21'｝％oｕｔ=＇Ｄerivativeofionｏsｐherｉcdｅlayobｓｅrvable（m／s）'；ouｔ=’電離層延遲觀測值變化率（米/秒)’；mａxy=１;mｉny=-１；casｅ｛＇。iｏn’,'.i１2’,'i21＇｝maxy＝2；miｎy=-２;％out=’Iｏnｏsｐheｒｉcdｅlaｙｏbserｖable（m）';out=’電離層延遲觀測值（米)’；case'。eｌe’maxy=９０；miny=0；％ｏut='Sａt(yī)elｌｉｔｅｅlevatｉoｎdaｔa’;oｕt=’衛(wèi)星高度角（°)'；ｃase’.aｚｉ'maxy=１８０；ｍinｙ=-180；％out＝’Sａt(yī)ｅllｉtｅａzｉmuthalｄａt(yī)a';out='衛(wèi)星方位角（°)＇;otｈｅrwiｓedisp（'Somethingswrｏng．．！'）ｅnd％FUNCTIＯＮ:PLACEAＭODIＦIEDCOLORBAR＋+＋＋+++++++＋+++＋++＋＋++＋++++＋++ｆuｎctionCB＝ｃｂar(ｌｏc，ranｇe，label);%。。.．．．。．。.。.。.。。..．．。.。..。．.．。.．。.。.。.。.。．..。..。。.．。.。。．．。...%CＢ=cｂaｒ(loc,rａngｅ，lａbel）％ｐｌaceｓacoｌoｒbarａｔ：％ｌoc='v＇iｎvertｉcalor'h＇inhoriｚontaｌ％poｓiｔionincｕrrentfｉgurescaledbetweｅn：%rａnge=[minmax］wｉtha:％labｅｌ=’stｒiｎg'。%％fonｔｓizeiｓｒｅdｕcｅdto10aｎdwｉdthoｆbaｒiｓｈalfdｅfauｌt.%％Examplｅ：[Ｘ，Y，Z］＝peaks（２5）；％ranｇe＝[mｉn（miｎ（Z))maｘ（mａx(Z））]；%ｐcolor(X，Y,Ｚ)；％cbａr（'ｖ＇,rａngｅ，'Elevａｔｉｏn（m）＇）%.．.．。．．.．.。。．。.。．。.．。。．..。。。.．.．。。.．。。。..。。。．．。。．．。。。。。.。caxiｓ（[rangｅ(1）rangｅ（２）］)；switchlｏccａse'v＇CＢ＝ｃolorｂar（'ｖertiｃａｌ’)；ｓet(ＣＢ,’ｙlｉm',［range(1)range（2）］）;POＳ=gｅt（ＣB，'pｏｓiｔion’)；sｅt（CB,'poｓition＇,[ＰOS(１)POS（2)0。03ＰＯＳ（４)］）；sｅｔ（ＣB，’fｏｎｔsize’,8）;set（geｔ(CB,’ylabel’）,’string',laｂeｌ）；ｓet（CB，'box＇，＇on’）cａse'h'ＣB＝colｏrbar('horizonｔal'）；ｓｅｔ（CB，＇xｌｉm'，［rangｅ(1）range(2）］)；POS＝get（CB,’positiｏn＇）；set(CB，'pｏｓｉtion’,[ＰＯＳ(1)POS（2)ＰOS(３）0。０3］);set（ＣＢ，'ｆontsｉze’，８);sｅt(get（CB，'xlａbel’），＇striｎg＇，ｌabel）eｎd％+＋+＋+＋++++++++++++++++++＋＋++++++++＋＋＋++++++＋++＋+++＋++++＋++funｃｔiｏnｊd=ｃaｌ2jd（ｃal）%ｃａl2jd1?將公歷年月日時分秒轉換到儒略日。％jd=caｌ2jd（caｌ）返回儒略日%cａｌ:1ｘ６矩陣，6列分別為年月日時分秒。構造cal時可以省略末尾的0％%公元１５８2年10月4日24：00點之前使用儒略歷,公元１5８２年10月15日00：00點之后使用公歷iｆlengｔh（cal）〈6 ｃal(6)=0；endｙeaｒ=ｃal（1）;ｍoｎth=caｌ(２)；ｄay=ｃａl(3)＋(caｌ（4)*36０0+cal(5)＊6０＋ｃａl（６））/86４00;ｙ＝y(tǒng)ｅaｒ+4８00；％4８０1Ｂ．C.iｓaceｎturyyeａrandalsoaｌeapyｅar.if(ｙeａr〈０) y＝y(tǒng)+1；?%Ｐｌeａｓｅｎｏｔethatthｅreiｓnｏyeaｒ０A。Ｄ。endｍ＝ｍoｎｔh;ｉf(m〈=２) ％JａnuaｒyａndFebruarｙｃomeafｔerDecembｅr。 m＝m＋１2；?y=y—1;ende=fｌoor（３0.6*(m+1））;a＝fｌｏor(y/１0０）； ％nｕｍｂeｒｏfceｎturｉeｓ％教皇格雷戈里十三世于15８2年2月２４日以教皇訓令頒布,將1582年10月5日至14抹掉。1５８２年１０月４日過完后第二天是10月15日ｉｆ(year＜1582）｜（yｅar==1５82＆mｏｎth<10）｜(year=＝1582＆ｍonｔh==１0＆ｄaｙ〈15) b＝-3８；elｓe?b=fｌｏｏr(（ａ／4）-a）;%nｕmberofｃeｎｔｕrｙyearｓthaｔaｒenotlｅapyearsｅndc=fｌoor(３６5.2５*y)；%Juｌiancalendaryeaｒｓａｎdｌｅapｙｅarｓjd=b+ｃ+ｅ+day-３2１67．5;％＋＋+＋+++++＋+++++++++＋＋++++++＋++＋++++++++++++++++++functｉｏncａl=ｊd2cａl（Ｊ）%從儒略日計算公歷年月日時分秒％caｌ＝ｊd2cal（J）％返回的cal是１ｘ6矩陣，6列分別為年月日時分秒％%公元15８2年１０月4日24:00點之前使用儒略歷，公元１5８2年１０月1５日00：00點之后使用公歷if(J〈1721423．5） ％公元1月１日0時 BＣ=1；elsｅ BC=0；enｄ％stａrtfｒomJulianＭａrcｈ１,4801Ｂ。C.if(Ｊ<２29９160.5） ％beforｅ1５8２.１0.4。24:00iｓJuｌiａncalender?ｊ0＝fｌoor(J＋０．5）;?dd＝Ｊ+０．5—j0；elｓe %aｆｔeｒ1582。10．1５。00:00isGreｇoriａnｃaleｎder ％numberｏｆcerturｙyearｓｔhaｔaｒeｎotleapyeaｒ n１=ｆｌooｒ（（J—23420３1．5）/36524。2５/4）+1; ％17００。３。1.０ n2＝fｌoｏr((J—2３78555.5)/36524.25／4)+1; ％1８０0．3。1。０ n3=ｆloor((J—241５0７9.５)／３65２4．２5/4）+１; ％1900。３。１.０?ｊ0=n1+n2＋n3+Ｊ+10; dd=ｊ０+0。5—ｆloor（j0＋0。５）; j0=fｌoor(j0＋０．5)；ｅｎdj0=j0+３２08３;year０＝ceil（j0／365．2５)—1;year=ｙear0-４8００;day＝j0—flooｒ(yeａr0＊36５．25）；ｍonth＝ｆloor（(day－０.6)/30．６)＋3;dａｙ=dａｙ－ｒound（(mｏｎth—3)*30．６）;ifｍｏnth〉１2?month=month—1２; yeａr＝y(tǒng)ｅａr+1;enｄｙear=yeａr—BC；seｃ=ｒouｎd(dd＊8６400);hour=ｆｌoｏｒ（sec／360０）；sec＝sec—hoｕr*36０0;min＝floor(sｅc/６0)；sec=sec-ｍｉn＊６0;ｃal＝[year，moｎth,dａy,ｈoｕr，ｍin，ｓec］；%++++＋+＋+＋++++＋++++＋+++++＋++++++＋+＋+＋++＋+++++++++＋ｆunctiｏnmｊd＝cal2ｍjd(caｌ）％cａｌ2mjd?將公歷年月日時分秒轉換到簡化儒略日。％ｍｊｄ＝cal2mｊd(ｃal）返回簡化儒略日%cal：1x6矩陣，６列分別為年月日時分秒。構造cａｌ時可以省略末尾的0jｄ=cal2jd（cal）；mjｄ=jd-2４0００００.5;％ＦUNCTION：SECONDＳTOHOURＳ，MIＮUTESａndSＥCONDS+＋++＋+++++＋+＋+++functiontiｍｅstｒ＝sｅcs2hms(SECS)HOＵRS=SEＣS/60/６０;ｈours=flｏor（ＨOUＲS）；MINUTES=（HＯＵRS－h(huán)ｏｕｒs）＊60;minuｔｅs=flｏor（MINＵTES）;seconｄs=（MINUTＥＳ-minuｔes）*６0;ＨH=ｎum2str(hourｓ）；ＭM=nuｍ２str（ｍiｎｕｔｅs）;SＳ＝ｎum2ｓtr（seconds)；ifsecｏｎds＜10;SＳ=［'0'num2str（SS)］；elseSＳ=nuｍ2ｓtｒ(SS);eｎdifmｉnuteｓ〈10；MM=［＇０’nｕm2ｓｔｒ(MM）]；ｅlseMM=num２stｒ(MＭ);endtｉｍestｒ=［HH'：’ＭM'：'ＳS］；％++++++＋+++＋++++＋＋＋++＋+++++++＋+＋＋＋+＋++ｆｕnctｉonｔimｅstr＝cal2et（t＿start，secs）%根據(jù)開始時間，時長（秒),計算結束時間％ｔ_stａrｔ1×6矩陣，年,月,日,時,分，秒%secs時長，單位秒t_ｓ_days＝t_sｔart(4)/24+ｔ_sｔart(5)/60／24+ｔ_start(6)／60/６0/24;t_e_dayｓ=t＿s_ｄays＋secs/６0/６0/24；HOURＳ＝t_e_days*2４；hours=floｏｒ（HOＵRS）；MIＮUＴES=(ＨOURS－h(huán)oｕrs)*60；mｉｎuｔes=fｌooｒ(ＭINUTES)；seｃonds=ｒｏund(（ＭINＵTＥS-ｍinuｔeｓ）*60）;HＨ=num2ｓtｒ（hours，'％02ｄ'）;MM=num２sｔr（mｉｎuｔeｓ，’％02d＇);SS=num2stｒ(ｓecondｓ，'％０2d＇)；YY＝nuｍ２str（ｔ_start(1）,'％０４d'）;M=nuｍ2sｔr（t＿start(２)，'％0２d’）;DD=nｕm2str（t_start（３)，＇%02d’）;timestr＝［YY'年'Ｍ’月'DD’日'HH’時'ＭＭ’分'SS’秒’］;％++++++＋++＋+++++++++＋+++＋＋+++＋＋++＋++++fｕncｔioneｔimｅ=cal2eｔｉｍe（t＿staｒｔ，ｓeｃs)%根據(jù)開始時間，時長（秒）,計算結束時間％t_start1×6矩陣，年,月,日，時,分,秒％secs時長，單位秒ｔ_s_days=t_ｓtａrｔ(４）/24+t_start(5)/６０/24+t_start（６）/60/６0／24;t_e_ｄaｙｓ=t_s＿days+seｃs／60/６0／24；HOUＲＳ=t＿e_dａys*24;ｈours=flｏoｒ（HOURS）；MINUTＥS=（HOUＲS-ｈouｒs）＊６0;miｎutｅs=floor(MＩNUTＥS)；sｅcｏnｄs=rｏuｎd（（MINUTES-mｉnｕtes)*６０）;eｔimｅ=［t_start（1)，ｔ_stａｒt(2），t_starｔ（3），ｈｏｕrs,minutes，secoｎds]；%EＯＦ++++++＋＋++＋＋＋++++++＋+++++＋+++++＋++++++＋++＋+++++＋++++＃inｃluｄｅ＜iostream。h〉＃inｃｌｕｄｅ<ioｍanｉp.h>＃ｉncluｄe<ｆstream>＃incｌｕde<veｃtor＞＃ｉnclude<ｍalloc.h＞#ｉnclude〈stｄlib.h〉＃includｅ〈stｒｉng＞#inｃlｕde<pｒoｃess．h>#inｃｌudｅ〈ｓｔｄiｏ。ｈ〉#defineＬENsizeof(sｔrｕctsｔuｄent)ｕsｉngnamesｐａceｓtｄ；inｔｎ=0；//定義一個全局變量統(tǒng)計學生人數(shù)ｓｔructstudent//定義一個學生信息的結構體｛cｈａrnａme［20］；/／用來存放姓名的chａrｓex［２0］;／／用來存放性別的ｃharyuanｘi［20］；//用來存放院系的longiｎtid;／/用來存放學號的intscore[4］；/／用來存放分數(shù)的iｎttotal；／/用來存放總分數(shù)的structstuｄent*nexｔ;｝;vｅｃｔｏr<stｕdenｔ>stｕ；classInforｍatｉon{publiｃ:Iｎformaｔion（);//構造函數(shù)．~Ｉnformａｔion（）；//析構函數(shù).ｓｔuｄｅnｔ*ｃreat（);//建立鏈表函數(shù)。voidoutpuｔ（stuｄｅnt＊hｅａd）；iｎtcount（stｕｄent＊head)；//定義函數(shù)cｏunt（)統(tǒng)計考生總數(shù)stｕdent＊insｅrt（studｅnt＊head)；/／指針函數(shù)＊iｎseｒt()用來添加考生信息.studenｔ＊cancel（stｕdent＊head，longｉntnｕm）；//指針函數(shù)*cancｅｌ(）用來刪除考生信息．sｔudeｎｔ＊find（student*heａd，longiｎｔnum）；//指針函數(shù)*find()用來查找考生信息.vｏidiｎorder（sｔｕｄent*hｅad）;／/定義ｉｎorｄｅｒ（)函數(shù)將考生的總分從大到小排列并輸出vｏｉｄavｅraｇｅ（sｔudent＊ｈead);//求學生成績的平均分的函數(shù)voidsave(student＊head）;//保存函數(shù)stｕdent＊Read()；／／讀取函數(shù)ｐrｉvatｅ:sｔudeｎt＊p1,＊p2，＊ｐ３，＊ｈead，st;}；Iｎformation::Inforｍatioｎ（）//構造函數(shù)｛ｃｏut<<”＊*＊＊*＊*＊＊****＊＊＊*＊＊＊＊***＊*＊＊＊＊＊*＊＊*＊＊＊＊*＊＊*＊＊**＊****＊＊**＊＊＊＊****＊*＊****＊＊*＊***\n"；couｔ<<"-—-—－———－-－—－——〈<歡迎您使用學生信息管理系統(tǒng)〉〉－————-—－--——－—-－－—--—\ｎ"；coｕｔ<〈”＊＊＊＊＊****＊**＊*＊*＊*＊＊＊*****＊***＊*＊*＊*＊**＊＊＊＊****＊＊*＊*＊*＊****＊＊＊＊*＊＊＊＊＊＊****＊**＊\n\n＂；｝Iｎｆormation：:～Infｏrmaｔioｎ()/／構造函數(shù)｛cｏｕt<＜"＊＊＊*＊*＊**＊＊*****＊＊**＊＊*＊＊＊*＊*＊*＊＊＊＊*＊＊**＊**＊＊***＊*＊＊＊＊*＊*＊**＊*＊＊＊＊＊*＊*＊＊＊＊＊***＼n"；coｕt＜<”—－———--－－－-——－—-－—-—＜〈謝謝您使用學生信息管理系統(tǒng)＞〉--———-－－-－—－－－—-——－—--－—\n"；cout＜〈”＊**＊*＊＊＊＊＊*＊*＊＊**＊＊＊＊＊*＊＊＊***＊＊＊*＊＊＊**＊*＊**＊******＊*＊＊＊*＊*＊*＊＊＊＊*＊**＊**＊＊＊＊＊＊*\n"；｝stｕdent*Iｎformａt(yī)ion::crｅａt(yī)（ｖoid）//定義一個指向sｔｒｕctstuｄｅｎt的結構體指針函數(shù)＊ｃreａt(yī)（)用來增加學生信息。{chａrｃｈ［20];ｎ＝０;/／用來存放姓名的p1=ｐ2＝（sｔｕｄent*)malｌoc（LＥN);/／調(diào)用malｌoc()函數(shù)用來開辟一個新的存儲單元coｕt＜<＂－－—－-—-—-—〈〈請建立學生考試信息表,在姓名處輸入!結束輸入?！怠?－————－－—-—＂〈<enｄl；ｃｏｕｔ〈〈＂姓名：＂;ｃin＞>cｈ；hｅaｄ=NＵＬL；／/給指針ｈeａd賦初值whiｌｅ（ｓｔrcmp(ch,＂！")!=0）／/調(diào)用字符比較函數(shù)strcmp（）用來判斷是否繼續(xù)輸入{ｃharstr[１0］;ｉntｆlag=０；p1=(studeｎt＊）malloc（LＥN);/／調(diào)用malloｃ(）函數(shù)用來開辟一個新的存儲單元sｔrcpy（p1—＞naｍｅ,ｃh)；/／將循環(huán)結構前面輸入的姓名復制到結構體名為p1的數(shù)組nａｍe中ｃoｕt<〈＂性別:＂；cin＞>ｐ１－>sｅx;coｕt＜<"院系：";cin＞〉str；cｏuｔ＜<”學號(9位)：”；do｛cin＞〉str;iｆ(ａt(yī)ol（str)〉999999999|｜ａt(yī)oｌ（ｓtr)〈1)cout〈〈”對不起,請正確輸入?。躰";elsｅ｛ｐ１-〉id=ａｔｏｌ(sｔｒ)；flaｇ=1；｝｝whiｌｅ（flａg==0)；flaｇ=0；cｏut〈〈"語文成績:＂;do｛cｉn>〉str;if（atoi（sｔr）＞100｜｜ａt(yī)oi（stｒ）〈1）ｃout<<”對不起，請輸入1—1０0之間的數(shù)字！!\ｎ”;else{p1-＞scoｒe［0]=aｔoｉ（sｔr)；flａg=1；｝}while(flaｇ==0);ｆlａｇ=0;couｔ〈〈"外語成績:＂；dｏ{ｃin〉＞str;iｆ（aｔoｉ(stｒ)＞1００|｜aｔｏi(str）〈１)cｏuｔ<<”對不起，請輸入１-100之間的數(shù)字!！\ｎ”；elｓe｛p1—>sｃoｒe[1]=ａｔoi（ｓtr);flag=1；｝｝ｗhiｌe(flag==0）；flag=0；ｃouｔ<〈"數(shù)學成績:＂；do｛cin>＞str；if（aｔｏi(ｓｔr)>100｜|ａt(yī)oi（stｒ）〈1)coｕｔ<〈”對不起，請輸入1-100之間的數(shù)字!!\ｎ＂;else{ｐ1—〉score［2］=atoｉ(str）;ｆlag=１;｝｝wｈiｌｅ（ｆｌag==０）;ｆlag=0；cout〈〈＂C+＋成績："；do｛ｃin>>str；if(atoｉ（str）>１00||atoｉ(str）＜1）cout<<＂對不起,請輸入1－1０0之間的數(shù)字!！\n”；elｓe｛p1->score［3]=aｔoi(stｒ）;ｆｌaｇ=１；}}wｈiｌｅ（ｆlａg=＝0)；flag=０;p１—＞tｏtａｌ=p1－＞score[0]+p１->ｓｃｏｒe［１]+ｐ1-〉ｓｃore[2］+ｐ1-＞sｃｏre［3］；//計算總分iｆ(n==0）ｈｅad=p1；//如果是輸入第一組學生考試信息就將指針ｐ1賦給指針ｈeadelsｅp2-＞neｘｔ＝ｐ１；//否則將ｐ1賦給ｐ2所指結構體的nｅxt指針ｐ２=p１；／/將指針p1賦給指針p2n++;/／將n的值加1cout〈<＂姓名："；ｃｉn>>ch；//將輸入的姓名存放到字符數(shù)組ｃｈ中｝ｐ2->next=ＮULL;//將ｐ2所指結構體的ｎexｔ指針重新賦空值reｔurn（head）;//將輸入的第一組學生考試信息返回｝ｖoidIｎformａt(yī)ioｎ:：oｕtput（studeｎt*head）//定義ｏutput（）函數(shù)將學生的信息從頭指針所指內(nèi)容開始輸出｛iｆ（head=＝NULL)cｏut<〈"這是一個空表，請先輸入考生成績.＼n";ｅlｓe{cｏut＜<"—-－-—-—-——－－－-－——－-－-—－－-——————－——--—－———--—-———－--—-————－－--－－———————－－—-—-＼ｎ"；cout〈<”＊學生成績信息表*\n＂；coｕt<〈”--——-－—-—－——-－———--－-—－-－-－—－-－－-－－—-－—－--—－——－-—-—－－——－—-—－—-—-—－—－———＼ｎ”；ｃoｕt<＜"學號姓名性別院系語文英語數(shù)學C++平均成績總分＼n";coｕt〈〈＂－—-——-－—－--——－—－－—－—－—－-—--－-—-－--——-———--—－————-—-——————-－--—-—－－-－—－-——-＼n＂;p1=ｈｅad；／／將頭指針賦給ｐｄo｛cｏｕt〈〈sｅtｗ(8）〈＜ｐ1->id<〈setw（９）〈<ｐ1－〉ｎame〈<setw(8）<<p1->sex〈〈seｔｗ(13)<〈ｐ1->scorｅ［０]＜〈setｗ（１6）<<ｐ1—>sｃｏre[1]＜<setｗ（１0）＜〈ｐ1－＞scｏｒe[2］<＜setw(9)＜<p１－〉score［3］<＜setw(6）〈<p1—>tｏtａl/4.０〈〈setｗ(１1）〈〈p1—＞totaｌ〈＜endl；cｏuｔ〈<"－-—-—－-－－-－--—————————-—－--－－—--－－—－—－—-－-—-－-—-－-———－－－—-——－-——-—-－--—-\n"；p1=p1－〉ｎexｔ；/／將下一組學生信息的neｘｔ指針賦給p}while(ｐ1!＝NULＬ);//若指針p非空則繼續(xù)，目的是把所有的學生信息都傳給指針ｐ然后輸出。}｝／／統(tǒng)計學生人數(shù)的函數(shù)intIｎfｏrｍation：:count(ｓtｒuctsｔｕdenｔ*heａｄ)／/定義函數(shù)cｏｕｎt(）統(tǒng)計考生總數(shù)｛iｆ（head==NULＬ）//若指針ｈｅad為空返回值為0ｒeｔurn(0）;ｅlsereturｎ（1＋cｏunt(head－>neｘt）);//函數(shù)的遞歸調(diào)用｝／/插入學生的成績信息的函數(shù)ｓtudeｎt*Inｆormation::iｎsert(stuｄeｎt＊head)／/插入新結點定義一個指向ｓtructsｔｕdent的結構體指針函數(shù)＊insert（）用來添加考生信息.{ｃhaｒｓtr[10］;intflａg=０；cｏut〈<”\t-—－———-—--—--———<<請輸入新增學生成績信息>>—－－－—-—－——--—＼ｎ”<＜ｅndｌ；p１=(stｕｄenｔ＊)malloc（LEN);/／使p1指向插入的新結點couｔ＜〈"姓名：＂;ｃｉn>>p１－＞namｅ;／/將輸入的姓名存放到結構體名為p1的數(shù)組ｎame中cｏut〈〈”性別：”；cin〉>p1-〉ｓｅｘ；ｃout〈<＂學號(9位):";do{ｃin〉>sｔr；if(atol（ｓtr）〉99９999９９｜|atｏl(sｔｒ）<1)ｃoｕt<〈”對不起,請請正確輸入!！！\ｎ"；ｅｌse｛p１—>id=ａt(yī)ol(str)；ｆlａg=１;｝｝while（flａg==0);fｌag=0；ｃｏut<〈"語文成績："；dｏ{ｃｉｎ〉〉sｔr；if（aｔoｉ（str)>1０0｜|atoi（ｓtr）＜1）ｃｏut〈〈"對不起，請輸入1—100之間的數(shù)字!!\n”;else{p1-〉sｃore[0]=atoi(sｔr）;ｆｌag=1;}｝while(ｆlag==0)；fｌag=0；couｔ〈〈"外語成績："；dｏ{cin〉＞str；if（atoi(sｔr）〉10０｜|aｔｏi(stｒ）〈1)cｏut〈〈"對不起,請輸入1—100之間的數(shù)字！!＼n"；eｌｓe{ｐ１—〉scoｒe［１]=atoi（ｓｔr）；flag=１;}｝wｈｉlｅ（flａg==0)；flａg＝０;cout〈<"數(shù)學成績：”;do{cin〉〉stｒ；if（ａt(yī)oi(ｓtr)＞1０0｜｜atoｉ（str）<１）cｏｕt＜<"對不起,請輸入1-１００之間的數(shù)字?。。躰"；else{p1—>ｓcore［２］=atoi（stｒ)；flａg=1;｝｝ｗhiｌｅ（flaｇ＝=0)；flag=0；cout＜<”C++成績:”；do{cin〉＞sｔr;iｆ(aｔoi(ｓｔｒ）>100｜｜atoi(ｓtr）〈1）ｃouｔ〈<"對不起，請輸入1－100之間的數(shù)字??！\n”；elｓe{p1－〉scorｅ[3］=atoi(sｔr)；fｌａg＝1;｝}ｗhile（flag==0)；flaｇ=0;p1->tｏtal=p１—>ｓcore[０]+ｐ1－>ｓｃore［1]＋p1-〉ｓｃore[２]＋ｐ1－〉score［3］；/／計算總分p2=ｈead;／/將頭指針賦給p２ｉf（head=＝ＮUＬＬ）//若沒調(diào)用次函數(shù)以前的頭指針ｈeaｄ為空｛ｈeaｄ=ｐ１;p1－>neｘt=ＮUＬＬ;//則將p1賦給頭指針heａd并將p1所指結構體成員指針next賦空值}ｅlsｅ｛wｈｉｌe(（p１->id>p２->ｉd)＆&(p2－>neｘｔ！=ＮUＬL））｛p３=p２;//p3指向原p2指向的結點p２＝p２—>ｎext;}／/p２后移一個結點if（p1->ｉｄ〈=ｐ2—〉id）{ｉf(hｅad＝=p2）｛p1－〉next＝ｈeaｄ；head=p1；}／/插入到第一個結點之前elｓe{p3－〉next=p1;ｐ1->ｎexｔ=p2；｝／/插入到p3所指結點之后｝elsｅ｛ｐ2—＞nexｔ=p1;p1—〉nｅxt=NUＬL;｝/／插入到尾結點之后｝n＋+;/／將學生人數(shù)加1cout〈<＂\t你輸入的學生信息已經(jīng)成功插入"<＜endl；returｎ(heａｄ)；｝／/刪除學生信息函數(shù)ｓtuｄenｔ*Iｎfoｒmａｔion：：canｃel(studｅnt＊head，ｌｏnｇｉｎtnum）//定義一個指向ｓtｒucｔsｔudent的結構體指針函數(shù)*delｅtｅ(）用來刪除考生信息。｛if（head=＝NULL）／/若調(diào)用次函數(shù)以前的頭指針heaｄ為空｛retｕrn（head);｝elｓｅ｛p1=heａd;//否則將頭指針賦給p１whiｌe（num！=p1－＞id&＆p1—>next！=NULL)//尋找要刪除的結點當p1所指的學號不是輸入的學號并且p１所指的next指針不為空{(diào)ｐ2=p1；p1=p１—〉next;／／p2指向原ｐ１指向的結點p1后移一個結點｝iｆ（nuｍ==ｐ１—〉id)//如果輸入的學生準考證號是ｐ１所指的學號結點找到后刪除｛iｆ（p1=＝head）hｅad=p1-＞ｎext；//如果head指針和p1指針相等則將下一個結點賦給指針hｅadelsep2->next＝p1-〉neｘt；／/否則將p1所指結點賦給p2所指結點將要刪除的學生信息跳過去ｃout<<"刪除學號為"〈＜nuｍ〈＜"的學生\n";n-—;／／將學生人數(shù)減１}ｒetuｒn（heaｄ）；//將頭指針返回}｝//查找學生信息函數(shù)student＊Inｆormatｉｏn::find（stuｄenｔ*head，ｌonginｔnｕm)／/定義一個指向structｓtuｄent的結構體指針函數(shù)＊ｆiｎd（)用來查找學生信息.{iｆ(head＝＝ＮULＬ）／/若調(diào)用次函數(shù)以前的頭指針head為空{(diào)cout<〈”這是一個空表,請先輸入考生成績．\ｎ”;rｅturn(head）;｝else｛p1＝head；//否則將頭指針賦給p1while(nｕm!=p１－>id&&p1—>ｎｅｘt!=NUＬL）//尋找結點當ｐ１所指的學號不是輸入的學生學號并且p1所指的next指針不為空｛p1=p1->ｎext;／／p1后移一個結點}ｉｆ(nuｍ==p1－＞id）//如果要查找的學號是p1所指的學號｛cｏut〈＜”-——－-—－—--－－-——－－—－--—-——-－———-－-－－－—-—－—-—-—－-－—--—————－—--—－—－--—-—\n";ｃout＜〈”學號姓名性別院系語文英語數(shù)學C++平均分總分\n＂；cout＜〈”-——--——－—-———－－——-－—-——-—-———-－—－－－———--－——-－-－－——-——-———-—-——－—-\n"；cout〈〈sｅtw(8）〈〈ｐ1->id〈〈ｓeｔｗ(9)<〈p1—〉name＜＜setw（８）<<ｐ1－>sex〈＜setw（１3）＜<p1—〉scoｒe[0］〈〈setｗ（１６）＜〈ｐ１—>score[1]〈<setw(10）〈<p1—>sｃore［2］＜<seｔw（９)＜<p1—＞scorｅ［3]＜<seｔｗ（6)<〈p1—>toｔal／4．０<＜setw（１１）〈〈p１->total〈＜endl；coｕt<<”—-——--—-－-————-—--——--－-－—－--—-－——--—－-—--－--－-－——-—－——-—-－———--—－—＼n＂;｝elsecout<<"沒找到學號為＂<〈num＜＜"的學生。\n";/／結點沒找到return（head）；｝}vｏidInformａt(yī)ion:：inorｄer(stuｄeｎt＊head）//定義ｉｎorder(）函數(shù)將考生的總分從大到小排列并輸出｛iｎｔi,k,m=0，j;student＊ｐ［20]；//定義一個指向structstudｅnt的結構體指針數(shù)組piｆ（head！=NULＬ）／/如果頭指針是空則繼續(xù)｛m=count（ｈead）；cout〈〈＂——－--——－——－-—-－－－--—－—－-－－-———-——-——-——-－--—-—-—-－—－-——－-—－--—-－－-—－\n”；cｏut<<”學生成績統(tǒng)計表\n＂;cout〈〈"－--－—--————－-－－——--———－—-－－—-—－-－-—－－-－－－—-－——-—－－—-－-－－—-—-———－－—-\n";cｏut〈<"學號姓名性別院系語文英語數(shù)學C＋+平均分總分名次\n";coｕt＜＜”-—-－-－－—－-－－－－——－－-－—-－-—－-———-——－－—-—－-—--—－——－——－—--—-－－－————－—————－－－－-—＼n”；p1=hｅａd；ｆor（k=０;k〈m;k++){p［ｋ］=p1;p1＝p1-〉ｎext;｝ｆor（k=０；k〈m—1；k++)/／選擇排序法ｆor（j＝k＋1；j<m；ｊ++)if(p[k］—>ｔｏtａl〈p［j]->ｔｏtal）{ｐ２＝p[k]；ｐ[k]=p[j］；p［j］=ｐ2；｝for（ｉ＝0;i<ｍ；ｉ＋+）｛ｃout<＜seｔｗ(８)〈＜p1—〉ｉd〈〈setw(9）〈〈p1-〉ｎame〈<ｓeｔw(8)〈＜ｐ1-＞ｓｅx<＜sｅtｗ（１3）〈〈p1－〉ｓcorｅ［0]＜<setw（1６）<〈p1-〉sｃore［1］〈<setw（10)<〈p1—>scorｅ［2］〈<sｅtｗ（9）<〈p1—〉scｏre［3]<＜sｅtw（6)〈<p1－＞totａl／4。0〈＜sｅtw(11)〈〈p1-〉tｏtａl<〈endl；ｃoｕｔ〈〈”－--—--－－—－———-－－——--—--—－—－--－—--－-－－-－-—-－－-—－-—-——－———-－－－--—-——-－-—-—\n”;｝}}voｉdInformａt(yī)ｉon：：ａvｅrａge(stｕｄeｎｔ*head)//求各科平均成績的函數(shù){inｔk，m;floaｔarｇ1=０，arg2=０,ａrg３=0，arg4＝0;if（ｈｅａd==ＮULＬ）／/如果頭指針是空則繼續(xù)｛cｏuｔ<<＂這是一個空表，請先輸入學生成績。＼n”；｝ｅｌse{m＝coｕnt（heaｄ）;ｐ１=hｅａd；for(k=0；k＜ｍ；k++）{arｇ1+=p1—＞score[０];arg２+=p1—〉ｓcｏrｅ[1］;ａrg3+＝ｐ１->ｓcｏre［2];arg4+=p1-＞score[３］；p1＝p1—＞ｎｅxt；}arg1／=ｍ；ａrｇ２／＝m；aｒg3／=m;arｇ4/＝m；cout＜＜”全班單科成績平均分\ｎ”；couｔ〈＜"－——－—-—-———-—--－--－－—-——－—-—－—-－—－—-－——－—－———--————－—-———-－－-—－———-－-－—－－—－—--\n"；cout〈<＂語文平均分："＜<seｔｗ（7)〈<aｒｇ1〈〈"英語平均分：”＜＜setw(7）〈<arg2<＜”數(shù)學平均分：＂<＜setｗ（７)〈<aｒg3＜<”C+＋平均分：”〈<setw（7）〈〈arg4〈<ｅｎdl;cout<<”－-－——－－—－-－—--—－－-－－————－-————--－-—-—--—－-－-－--———－－－—－-—-——-－-－--—－——--\ｎ";}}voidInfoｒmation：：save（ｓtudent*heａd)/／保存函數(shù).｛ofstｒeaｍouｔ（"ｄaｔａ。txt",ioｓ:：ｏut）；ｏuｔ＜<coｕnt(ｈead)<＜ｅｎdl；ｗhile(ｈead！=ＮＵLＬ）{out<<head－>name＜<”\ｔ"〈＜heａｄ-〉iｄ<〈＂\t”〈<"\t＂<<heaｄ－＞sex<<”\t"<＜ｈeａd－＞scoｒe[0］<<"\t”＜＜head—＞ｓｃore[１］<<”\t"＜<hｅａｄ-＞scorｅ［2]＜〈＂\ｔ"<<heaｄ—＞sｃorｅ[3]<〈”\t”<<head－>tｏｔal＜〈endｌ；heａd＝ｈｅaｄ-〉neｘt；}｝stuｄeｎt*Informatiｏn：：Reａd()／/讀取函數(shù)的實現(xiàn)｛iｎｔi=0；p1=p2=（ｓtuｄｅnt＊)ｍａlloc(LＥN)；ｈeａd=ＮULＬ;ifstreamｉn（"ｄaｔa．txt”，ｉｏs：:ｏuｔ)；in＞〉i;iｆ（ｉ==0)｛coｕt<〈"daｔa.txｔ文件中的數(shù)據(jù)為空，請先輸入數(shù)據(jù)."＜<ｅndl;ｒetｕｒｎ0;}else｛ｃout〈＜＂…………………………”〈〈enｄl；fｏr(；i〉0；ｉ—－）{ｐ１＝（student*）ｍalｌoc（LEＮ）;ｃiｎ〉〉ｓ〉〉ｓt.id>>sｔ.sex〉〉sｔ．scｏｒe[0］>>sｔ．sｃoｒe［１]〉>sｔ.ｓcoｒe［2］＞>st。score［3]>〉sｔ。ｔotａl;strcpｙ（p1->ｎamｅ,st.namｅ）;p1—〉iｄ=st.id；strcpy(p1－>sex,st.sｅx)；ｐ1—〉ｓｃoｒe［0]＝st。scoｒe[0]；p1-＞ｓｃｏre[1］=sｔ.ｓcore[1]；p1-＞scoｒe[2]＝sｔ.score［2］;ｐ1—>score［3]＝st．sｃore［3]；p1—〉totaｌ=st.tｏtal;iｆ（n＝=0)head=p1；/／如果是輸入第一組學生考試信息就將指針p1賦給指針heaｄelsｅｐ2—>ｎｅｘｔ=p1;//否則將p1賦給p２所指結構體的ｎext指針p２=ｐ1；/／將指針ｐ1賦給指針p２n++;//將n的值加1coｕt〈<""〈〈ｐ1—>name〈＜"\t"http://顯示讀入數(shù)據(jù)<〈p１->id〈＜”\t＂<＜＂\ｔ”〈<p１—〉ｓｅx〈〈”＼ｔ＂<〈ｐ１—＞score［0]＜＜"\t＂〈〈ｐ1-〉score[１］＜<"＼t＂<<p1->score[2］<〈”\t＂〈<ｐ1—〉sｃorｅ［3］〈〈”\t＂〈＜p１—＞ｔotａl〈<enｄl;cout<<”…………………………”＜〈endｌ;／/｝cout<〈”數(shù)據(jù)已經(jīng)成功讀取完畢?！保肌磂ndl;p2-＞nexｔ=NUＬＬ；rｅturn(heaｄ)；}}intmain（)//主函數(shù)。｛system(＂ｃｏloｒ4f”);//改變登陸界面顏色 Ｉnfoｒmatiｏnpersｏn;ｓtｕdeｎt*hｅａd=NＵLL；cｈａrstｒ［5];intfｌag＝0;intｃhｏice；longｉnti；charａｄmin［２0];cｈａrｐaｓs［30];couｔ<<"請輸入賬號\n"；cｉn>>admin;ｃoｕt＜<”請輸入密碼＼n"；cｉｎ>＞paｓs;if(strcｍｐ(adｍｉn，"１111")==0&&sｔrcmp（pａｓs,＂22２＂)==０)｛dｏ｛couｔ＜<"＊***＊＊＊**＊*＊＊＊****＊*＊＊＊*＊*＊*＊＊*＊＊***＊＊***＊*＊＊**＊＊＊＊*＊＊**＊＊＊*＊＊*＊＊＊***＊*＊*＊＊＊**”〈〈enｄl；ｃｏuｔ〈〈”┃學生信息管理系統(tǒng)主菜單界面＊****＊＊＊＊＊*＊＊"＜<enｄl;cout〈<"┃＂＜＜enｄl;ｃout〈〈＂┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫”<〈endl;cout＜<"┃①。輸入學生信息┃"〈<ｅndl;cｏut〈<”┃②。顯示學生信息┃"<〈ｅndｌ；coｕt＜＜＂┃③．排序統(tǒng)計成績┃"〈<endｌ；couｔ<〈＂┃④.查找學生信息┃"〈＜eｎdl；couｔ<〈"┃⑤。增加學生信息┃＂<〈enｄｌ;cout〈〈＂┃⑥。刪除學生信息┃＂<＜endl；ｃｏｕt〈＜"┃⑦.保存退出系統(tǒng)┃”〈〈eｎdl；cout<〈”┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛"〈＜ｅndl;coｕt＜<"請輸入您的選擇(1—-7):()\b\b";cin＞>str;ｉｆ（atｏi（str）〉７|｜aｔoi（sｔr）<1）cout＜＜”對不起，請輸入１-7這幾個數(shù)字!?。躰";elｓe｛chｏice=ａt(yī)oi（sｔr）;ｓwiｔch（chｏｉｃe）{case1:hｅad=persｏn.creａｔ(）；ｂreaｋ；case２：pｅrson。ｏuｔpｕt（ｈead）;break；cａｓe3：persｏn。iｎordeｒ（head);ｐeｒsoｎ.ａveragｅ（ｈeａd);ｃout<〈＂學生人數(shù)為:"＜〈peｒsｏn.couｎt(hｅad）〈<＂人\ｎ＂;ｂreak;ｃase4：cｏut〈〈”請輸入要查找的學號(９位）：”;do｛ciｎ>〉str；if（atoｌ（str）〉999９９999９｜|atoｌ(ｓｔｒ）＜1）ｃout<<”對不起，請輸入正確輸入!!!\ｎ";ｅlｓｅ｛ｉ=ａt(yī)ｏl（ｓtr)；ｆlaｇ=1；}｝ｗhile（ｆｌag==0)；flaｇ=0;ｐerｓon。find(head，i）；breａk；case5:head=ｐｅrson．insert(ｈead)；person.oｕtput(ｈead）；brｅak;cａse６：cｏｕt<<"請輸入要刪除的學號(９位）："；ｄo{cin>>ｓtｒ;if（atol(sｔr）>999９９9999｜｜atoｌ（str)〈1)coｕt<<”對不起