【導讀】上咨詢等）與隊外的任何人研究、討論與賽題有關的問題。引用處和參考文獻中明確列出。我們鄭重承諾，嚴格遵守競賽章程和參賽規(guī)則，以保證競賽的公正、公平性。違反競賽章程和參賽規(guī)則的行為，我們將受到嚴肅處理。（論文紙質版與電子版中的以上信息必須一致，只是電子版中無需簽名。請仔細核對，提交后將不再允許做任何修改。如填寫錯誤，論文可能被取消評獎資格。于模型的問題設計方案的誤差分析和敏感性分析。得出最優(yōu)軟著方案為：嫦娥三號著陸終端質量為2231kg；整個飛行時間為。于中度相關，可見在進行試飛時要考慮所攜帶的燃料對其飛行的影響。嫦娥三號著陸地點選在較。據(jù)悉，嫦娥三號將在近月點15公里處以拋物線下降，相對速度從每秒公里逐。嫦娥三號在高速飛行的情況下，要保證準確地在月球預定區(qū)域內實現(xiàn)軟著。問題二是解決嫦娥三號的著陸軌道和在6個階段的最優(yōu)控制策略的問題?？紤]嫦娥三號臂章問題，按照偽光譜方法確立最優(yōu)化的軟著陸軌道。

　　

【正文】 變 sjpd = False 18 Exit Function End If End If sjpd = True End Function Sub QCBE() Dim zqs As Integer zqs = Cells(5, 2) * Cells(7, 2) Range(Cells(12, 3), Cells(16, zqs + 3)).Clear If 0 Then End If Range(B4:B7).ClearContents Range(Cells(4, 2), Cells(6, 2)) = 0 Cells(7, 2) = 1 Cells(9, 3) = 0 End Sub Sub jsfx() Dim jzlv As Double Dim bhlv As Double Dim max1 As Double Dim max2 As Double Dim max3 As Double Dim max4 As Double Dim maxx As Double Dim zqs As Integer Dim i As Integer Dim aa As String If sjpd = False Then Exit Sub End If jzlv = Cells(6, 2) bhlv = Cells(9, 2) zqs = Cells(5, 2) * Cells(7, 2) 39。判斷最后一列的字母符號 If zqs = 24 Then aa = Chr(66 + zqs) Else If zqs = 50 Then aa = a amp。 Chr(66 + zqs 26) Else 19 If zqs = 76 Then aa = b amp。 Chr(66 + zqs 52) Else If zqs = 102 Then aa = c amp。 Chr(66 + zqs 78) Else MsgBox (月球自轉 ) End End If End If End If End If For i = 1 To zqs Cells(12, i + 2) = i Next 39。設置單元格的對齊方式 Range(Cells(12, 2), Cells(12, zqs + 2)).HorizontalAlignment = xlCenter For i = 1 To zqs Cells(13, i + 2) = =IPMT(b6/b7, amp。 i amp。 ,b5*b7,b4) Cells(14, i + 2) = =IPMT(b9/b7, amp。 i amp。 ,b5*b7,b4) Cells(15, i + 2) = =PPMT(b6/b7, amp。 i amp。 ,b5*b7,b4) Cells(16, i + 2) = =PPMT(b9/b7, amp。 i amp。 ,b5*b7,b4) Next Range(Cells(13, 3), Cells(16, zqs + 2)).NumberFormat = max1 = Cells(13, 3) max2 = Cells(14, 3) max3 = Cells(15, zqs + 2) max4 = Cells(16, zqs + 2) maxx = (max1, max2, max3, max4) Range(Cells(13, 3), Cells(16, zqs + 2)).Select aa = c12: amp。 aa amp。 16 = xlXYScatterSmooth Source:=Sheets(sheet1).Range(aa), PlotBy:=xlRows where:=xlLocationAsObject, Name:=sheet1 With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary). = 期次 .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary). = 利息或本金 End With (xlCategory).Select 20 With (xlCategory) .MinimumScale = 0 .MaximumScale = zqs + 1 .MinorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With (xlValue).Select With (xlValue) .MinimumScale = 0 .MaximumScale = Int(maxx) .MinorUnitIsAuto = True .Crosses = xlAutomatic .ReversePlotOrder = False .ScaleType = xlLinear .DisplayUnit = xlNone End With = 0 (1).Select = 0 With Selection .MarkerBackgroundColorIndex = 0 .MarkerForegroundColorIndex = 0 .MarkerStyle = xlDiamond End With (2).Select = 1 With Selection .MarkerBackgroundColorIndex = 1 .MarkerForegroundColorIndex = 1 .MarkerStyle = xlSquare End With (3).Select = 3 With Selection .MarkerBackgroundColorIndex = 3 .MarkerForegroundColorIndex = 3 .MarkerStyle = xlTriangle End With (4).Select = 4 With Selection 21 .MarkerBackgroundColorIndex = 4 .MarkerForegroundColorIndex = 4 .MarkerStyle = xlDot End With (1).Top = 269 (1).Left = 194 Windows().ScrollRow = 10 End Sub