DGIV к луне - Orbiter

Помогите, какую неделю бьюсь об клавиатуру, как долететь до луны ( извиняюсь если пост уже есть, не нашел ). Пытался как межпланетный перелёт сделать ( через transX) не получилось, пытался выравнить орбиты как будто он является мкс ( выравнивание орбит, высот, сближение и т.д) почти получилось, но до луны как до пекина вплавь, смотрел обучающий сценарий там он на DGIII (дефолтном) использовал Transfer MFD, пытался повторить что сделал он, и я отправился бороздить просторы вселенной так до луны и не долетев. Так как же правильно подлететь к луне ( выйти на орбиту и сесть думаю смогу ( многократный опыт стыковки с мкс на DG и один раз на союзе в ручном режиме )). А ведь очень хочется посетить наш единственный естественный спутник.
Разьясните пожалуйста поподробнее.

P.S. как вернуться на землю потом то?

Сообщение отредактировал crazylife: 13 Июль 2012 — 19:57

по просьбам коллег-орбитонавтов выкладываю скрипт для исправления распакованных UCGO штуковин в сохраненных сценариях.
файл приаттачить к сообщению форум не дает, потому код запостил под спойлером. Необходимо создать файл, например fixscn.vbs, и копипастнуть в него
нижеприведенное содержимое, по возможности ничего не упустив. Затем можно например положить его в подкаталог OrbiterScenario и вызвать оттуда же, передав
ему как первый параметр имя файла нужного сценария (например: fixscn.vbs XR5flight.scn). Если все прошло успешно, появится сообщение «scenario has been fixed».
Скрипт также сохраняет исходный файл исправляемого сценария, добавляя к его имени расширение .bak.Делал главным образом для себя и на скорую руку, так что за качество кода не обессудьте, главное — работает. Проверял только для Орбитера 10-й версии. Если что-то вдруг будет работать не так, пишите, поправим.

Spoiler

' This script is provided "as is" without any warranty.
' Author is not responsible for any damage or possible unexpectable effect caused by
' using of the script. Anyone can modify and redistribute the script in any way.
Option Explicit
Const ForReading = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") ' global obj
Function IsStartOfShip( line )
If Len( Trim( Left( line, 1 ) ) ) > 0 And _
	 InStr( Left( line, 5 ), "BEGIN" ) = 0 And _
	 InStr( Left( line, 3 ), "END" ) = 0 Then
	 IsStartOfShip = True
Else
	 IsStartOfShip = False
End If
End Function
Function IsEndOfShip( line )
If InStr( Left( line, 3 ), "END" ) > 0 Then
	 IsEndOfShip = True
Else
	 IsEndOfShip = False
End If
End Function
Sub AppendLineToShipBlock( ByRef shipBlock, line )
Dim shipBlockMax
shipBlockMax = UBound( shipBlock )
Redim Preserve shipBlock( shipBlockMax + 1 )
shipBlock( shipBlockMax + 1 ) = line
End Sub
Sub WriteShipLine( fDst, shipLine, IsUnpacked )
If IsUnpacked And InStr( shipLine, "AFCMODE" ) > 0 Then Exit Sub

fDst.WriteLine( shipLine )
End Sub
Sub WriteFixedShipBlock( fDst, shipBlock, IsUnpacked )
Dim shipLine
For Each shipLine In shipBlock
	 Call WriteShipLine( fDst, shipLine, IsUnpacked )
Next	
End Sub
Sub ProcessFile( srcFilename, dstFilename )
Dim fSrc, fDst
Set fSrc = fso.OpenTextFile( srcFileName, ForReading )
Set fDst = fso.CreateTextFile( dstFilename, True )

Dim IsInShipBlock, IsUnpacked, line, shipBlock()
IsInShipBlock = False
IsUnpacked = False

Do While fSrc.AtEndOfStream = 0
	 line = fSrc.ReadLine
	
	 If Len( Trim( line ) ) = 0 Then
		 fDst.WriteLine( line )
	 Else
		 If Not IsInShipBlock Then
			 If IsStartOfShip( line ) Then
				 IsInShipBlock = True
				 Redim shipBlock(0)
				 shipBlock(0) = line
			 Else
				 fDst.WriteLine( line )
			 End If
		 Else
			 Call AppendLineToShipBlock( shipBlock, line )
		
			 If IsEndOfShip( line ) Then
				 Call WriteFixedShipBlock( fDst, shipBlock, IsUnpacked )
				 IsInShipBlock = False
				 IsUnpacked = False
			 Else
				 If InStr( line, "CargoUnpacked 1" ) > 0 Then
					 IsUnpacked = True
				 End If
			 End If
		 End If
	 End If
Loop

fSrc.Close
fDst.Close
End Sub
Sub BackupScenario( srcFilename, backupFilename )
Dim fSrc
Set fSrc = fso.GetFile( srcFilename )

fSrc.Copy( backupFilename )
End Sub
Sub Main
Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count < 1 Then
	 WScript.Echo "you have to pass path to scenario file (.scn) as first argument"
	 Exit Sub
End If

Dim srcFilename, backupFilename
srcFilename = fso.GetAbsolutePathName( objArgs(0) )
backupFilename = srcFilename & ".bak"

Call BackupScenario( srcFilename, backupFilename )
Call ProcessFile( backupFilename, srcFilename )

WScript.Echo "scenario has been fixed"
End Sub
Call Main

Ответов: 13

13.07.2012 в 22:19

Выровнять плоскости, и потом дефолтным «трансфером» по мануалу. Только так.

13.07.2012 в 23:44

выровнял плоскости, и когда готовлюсь к разгону вижу что Rinc опять не 0.0 а где то 0.12 кстати начинаю разгон и орбита куда то уходит, увеличивается не моя орбита, а предварительная.

P.S. Получилось!!!! по дороге к луне обнаружил что грузовой отсек заполнен спутником, и на лунной орбите я его вывел. Приземлился удачно. Такой вопрос, на Землю возвращаться тоже трансфером?

Сообщение отредактировал crazylife: 14 Июль 2012 — 01:57

14.07.2012 в 08:16

Трансфер не может рассчитывать полет к центру системы, только от него. Вообще, это проблема многих расчетных инструментов.

Но алгоритм такой: разгоняемся до лунной второй космической так, чтобы лететь назад относительно направления вращения Луны вокруг Земли. То есть после выхода из зоны влияния гравитации Луны наша скорость должна быть меньше скорости её вращения по орбите. Тогда корабль полетит вниз, к Земле, а там уж скорректировать не проблема.

14.07.2012 в 16:22

Спасибо, за помощь, вернулся назад со второй попытки ( с первой не правильно дал вектор направления ( вдоль движения луны по орбите), зато второй раз вышел на околоземную орбиту успешно

14.07.2012 в 20:38

Полет считается завершенным после возвращения на базу.

Кстати, на ангаре есть аддон Videnie orbit drawing 1.0. Очень рекомендую, для большей наглядности маневров.

15.07.2012 в 09:59

Мыс канаверал меня встречал с распростёртыми обьятиями, сегодня планирую начать строительство лунной базы из UCGO. За модуль спасибо

06.08.2012 в 15:21

crazylife (15 Июль 2012 — 09:59) писал:

Поздравляю! Я базу тоже построил в свое время ( рекомендую XR5, столько барахла за раз можно на Луну притащить! 🙂 ), но есть и некоторый облом: у Орбитера оказывается есть известный баг, когда распакованное UCGO барахло после сохранения и загрузки оказывается снова запакованным. Кстати, не пофиксили это дело, никто не знает? Есть решение, хотя и несоклько гиморное: после сохранения вручную подредактировать файл сохраненки, удалив один параметр. Но нужно делать после каждого сохранения. Надо бы вообще какой-нить скрипт написать для этого, хотя я все наивно жду исправления бага…

06.08.2012 в 17:48

На англоязычном форуме есть тема про следующую версию Arrow, видимо, с апдейтом UCGO. Так что может багу и пофиксят.

15.08.2012 в 10:02

В общем, я для себя скрипт сделал, который исправляет распакованное барахло в сохраненках. Если кому нужно — могу поделиться. Когда еще баг поправят…

17.08.2012 в 07:54

<div class="post entry-content" itemprop="commentText">
					по просьбам коллег-орбитонавтов выкладываю скрипт для исправления распакованных UCGO штуковин в сохраненных сценариях.<br/>файл приаттачить к сообщению форум не дает, потому код запостил под спойлером. Необходимо создать файл, например <strong class="bbc">fixscn.vbs</strong>, и копипастнуть в него<br/>нижеприведенное содержимое, по возможности ничего не упустив. Затем можно например положить его в подкаталог OrbiterScenario и вызвать оттуда же, передав<br/>ему как первый параметр имя файла нужного сценария (например: <strong class="bbc">fixscn.vbs XR5flight.scn</strong>). Если все прошло успешно, появится сообщение "scenario has been fixed".<br/>Скрипт также сохраняет исходный файл исправляемого сценария, добавляя к его имени расширение <strong class="bbc">.bak</strong>.Делал главным образом для себя и на скорую руку, так что за качество кода не обессудьте, главное - работает. Проверял только для Орбитера 10-й версии. Если что-то вдруг будет работать не так, пишите, поправим.<br/><br/><br/><div class="bbc_spoiler">
<span class="spoiler_title">Spoiler</span> <input class="bbc_spoiler_show" type="button" value="Show"/>
<div class="bbc_spoiler_wrapper"><div class="bbc_spoiler_content" style="display:none;"><br/><pre class="prettyprint lang-auto linenums:0">
' This script is provided "as is" without any warranty.
' Author is not responsible for any damage or possible unexpectable effect caused by
' using of the script. Anyone can modify and redistribute the script in any way.
Option Explicit
Const ForReading = 1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") ' global obj
Function IsStartOfShip( line )
If Len( Trim( Left( line, 1 ) ) ) &gt; 0 And _
	 InStr( Left( line, 5 ), "BEGIN" ) = 0 And _
	 InStr( Left( line, 3 ), "END" ) = 0 Then
	 IsStartOfShip = True
Else
	 IsStartOfShip = False
End If
End Function
Function IsEndOfShip( line )
If InStr( Left( line, 3 ), "END" ) &gt; 0 Then
	 IsEndOfShip = True
Else
	 IsEndOfShip = False
End If
End Function
Sub AppendLineToShipBlock( ByRef shipBlock, line )
Dim shipBlockMax
shipBlockMax = UBound( shipBlock )
Redim Preserve shipBlock( shipBlockMax + 1 )
shipBlock( shipBlockMax + 1 ) = line
End Sub
Sub WriteShipLine( fDst, shipLine, IsUnpacked )
If IsUnpacked And InStr( shipLine, "AFCMODE" ) &gt; 0 Then Exit Sub

fDst.WriteLine( shipLine )
End Sub
Sub WriteFixedShipBlock( fDst, shipBlock, IsUnpacked )
Dim shipLine
For Each shipLine In shipBlock
	 Call WriteShipLine( fDst, shipLine, IsUnpacked )
Next	
End Sub
Sub ProcessFile( srcFilename, dstFilename )
Dim fSrc, fDst
Set fSrc = fso.OpenTextFile( srcFileName, ForReading )
Set fDst = fso.CreateTextFile( dstFilename, True )

Dim IsInShipBlock, IsUnpacked, line, shipBlock()
IsInShipBlock = False
IsUnpacked = False

Do While fSrc.AtEndOfStream = 0
	 line = fSrc.ReadLine
	
	 If Len( Trim( line ) ) = 0 Then
		 fDst.WriteLine( line )
	 Else
		 If Not IsInShipBlock Then
			 If IsStartOfShip( line ) Then
				 IsInShipBlock = True
				 Redim shipBlock(0)
				 shipBlock(0) = line
			 Else
				 fDst.WriteLine( line )
			 End If
		 Else
			 Call AppendLineToShipBlock( shipBlock, line )
		
			 If IsEndOfShip( line ) Then
				 Call WriteFixedShipBlock( fDst, shipBlock, IsUnpacked )
				 IsInShipBlock = False
				 IsUnpacked = False
			 Else
				 If InStr( line, "CargoUnpacked 1" ) &gt; 0 Then
					 IsUnpacked = True
				 End If
			 End If
		 End If
	 End If
Loop

fSrc.Close
fDst.Close
End Sub
Sub BackupScenario( srcFilename, backupFilename )
Dim fSrc
Set fSrc = fso.GetFile( srcFilename )

fSrc.Copy( backupFilename )
End Sub
Sub Main
Dim objArgs
Set objArgs = WScript.Arguments

If objArgs.Count &lt; 1 Then
	 WScript.Echo "you have to pass path to scenario file (.scn) as first argument"
	 Exit Sub
End If

Dim srcFilename, backupFilename
srcFilename = fso.GetAbsolutePathName( objArgs(0) )
backupFilename = srcFilename &amp; ".bak"

Call BackupScenario( srcFilename, backupFilename )
Call ProcessFile( backupFilename, srcFilename )

WScript.Echo "scenario has been fixed"
End Sub
Call Main
</pre></div></div>
</div>
<br/>
</div>

18.08.2012 в 07:39

Если работает хорошо, то не стыдно и на ангар закинуть

20.08.2012 в 08:26

Да потестируйте, если проблем не будет, то и закинем
Хотя костыль конечно, нужно по-человечески исправлять. Жаль, исходники закрыты, я бы поправил.

07.09.2012 в 16:31

Да, вещь очень полезная. Бесит распаковывать все время заново.

Ответов: 13

Новое сообщение