[kOS] start script

Troll · 6. Februar 2017

hm ich wäre für ein neues unter forum kOS

der herr @käsekuchen hat mich drauf gebracht und ich habs mal einfach geschrieben
ist noch ungetestet es müssen ggf noch syntax fehler raus gehauen werden

dieses script zählt von 10 bis 0
ab 6 startet es die triebwerke bei 30% und regelt diese bei 1 auf 100%

die Parameter lassen sich aber auch beliebig anpassen

das script geht davon aus das stage 1 die triebwerke sind, die hoch gefahren werden, und in stage 2 die klammern stecken

edit:

getestet und lauffähig

edit2:

den part vom käsekuchen ist mit eingebaut

Code

SET TERMINAL:WIDTH to 80.
SET TERMINAL:HEIGHT to 40.
clearscreen.
PARAMETER TAp. //Target Ap
PARAMETER TPe. //Target Pe
PARAMETER TIn. //Target Inclination
SET t to 0.
SET pitch TO 90.
SET LOOPCONTROLL to false.
SET COUNTER to 10.
SET LASTPRINTTIMER to -1.
SET MINTHROTTLE to 0.3.
SET THROTTLESTART to 4. //start COUNTER -> throttle = THROTTLE
SET THROTTLEEND to 2. //END COUNTER -> throttle = 100
SET ENGINESTARTED to false.
LOCK Throttle to 0.
PRINT "start counter".
UNTIL LOOPCONTROLL{
//print the T-xxx
if(LASTPRINTTIMER <> CEILING(COUNTER)){
SET LASTPRINTTIMER to CEILING(COUNTER).
print "T-" + LASTPRINTTIMER.
}
if(COUNTER <= THROTTLESTART){
if(ENGINESTARTED = false){
//start engines
SET ENGINESTARTED to true.
STAGE.
print "Ignition! Throttling up.".
HUDTEXT ("Ignition! Throttling up.", 5, 2, 30, green, false). //Text der im Bild angezeigt wird. Message, Delay, Position, Farbe, doEcho
}
Lock Throttle to calc_throttle(THROTTLESTART , THROTTLEEND , COUNTER , MINTHROTTLE).
}
SET COUNTER to COUNTER - 0.1.
// abbruch fuer die schleife
IF COUNTER <= 0{
SET LOOPCONTROLL to true.
}
wait 0.1.
}
//Staging Solidfuel
when stage:solidfuel <= 0.01 then {
stage. //Ignition Main Engine
set t to 1.
print "T+"+round(missiontime)+" Seconds. Separate Booster".
}
STAGE.
PRINT "Take off".
when ALT:RADAR >= 50 then {
print "T+"+round(missiontime)+" Seconds. Tower Cleared".
}
//Rollprogram
when ALT:RADAR >= 100 then {
print "T+"+round(missiontime)+" Seconds. Starting Rollprogram".
set mysteer to heading(TIn,90).
LOCK steering TO mysteer.
}
//Gravityturn
wait until ALT:RADAR > 1000.
print "T+"+round(missiontime)+" Seconds. Starting Gravityturn".
until apoapsis >= TAp{
if pitch <= 60 and pitch > 40 {
lock throttle to 1.
}
if pitch <= 40 and pitch > 20 {
lock throttle to 0.7.
}
if pitch <= 20 and pitch > 0 {
lock throttle to 1.
}
if eta:apoapsis < 30 {
lock throttle to 1.
}
if t = 1 and stage:liquidfuel <= 0.02 {
LFStaging().
}
until pitch <= 15
{
set mysteer to heading(TIn,pitch).
set pitch to -.0000000125*(ship:apoapsis*ship:apoapsis)+87.
print "pitching to " + pitch + " degrees" at (40,0).
}
}
lock throttle to 0.
IF t = 1 {
LFStaging().
}
//Warp
WAIT UNTIL ETA:APOAPSIS <= 200.
SET warp to 3.
WAIT UNTIL ETA:APOAPSIS <= 140.
SET warp to 0.
WAIT 10.
SET mysteer to heading(TIn,0).
WAIT UNTIL ETA:APOAPSIS < 90.
//Circularizing
until periapsis >= TPe {
set mysteer to heading(TIn,0).
if eta:apoapsis < 70 and eta:apoapsis >= 30 {
lock throttle to 1.
set mysteer to heading(TIn,0).
}
print "circularizing..." at (40,2).
}
lock throttle to 0.
print "apoapsis at " + round(ship:apoapsis,0).
print "periapsis at " + round(ship:periapsis,0).
//Warp
WAIT UNTIL ETA:PERIAPSIS <= 200.
SET warp to 3.
WAIT UNTIL ETA:PERIAPSIS <= 140.
SET warp to 0.
WAIT UNTIL ETA:PERIAPSIS < 60.
//KEO-Transferbahn
UNTIL VESSEL:PERIOD = 14400{
set mysteer to heading(TIn,0).
lock throttle to 1.
}
//functions
//start count , end counter , current counter , min throttle
function calc_throttle{
parameter start.
parameter end.
parameter counter.
parameter minThrottle.
SET tmp1 TO start - end.
SET tmp2 TO start - counter.
SET tmp3 TO (tmp2 / tmp1).
return (minThrottle + ((1 - minThrottle) * tmp3)).
}
//Staging Liquidfuel
function LFStaging{
print "T+"+round(missiontime)+" Seconds. MECO".
wait 3.
print "T+"+round(missiontime)+" Seconds. Separate Main Stage".
stage.
wait 3.
print "T+"+round(missiontime)+" Seconds. Activate Upper Stage".
stage.
//set mysteer to heading(TIn,15).
set t to 2.
}

Alles anzeigen

Cheesecake · 7. Februar 2017

Werde das heute mal in mein Script einbauen und das Script hier mal einstellen.

Edit:
Da ich mein Script ja leider zerschossen habe (zumindest die Änderungen der letzten beiden Tage), musste ich das von Freitag nehmen. Hatte leider noch keine Zeit das ganze zu rekonstruieren. Das werde ich morgen nachholen.
Hier also der jetzige Stand.

Code

SET TERMINAL:WIDTH to 80.
SET TERMINAL:HEIGHT to 40.
clearscreen.
SET t to 0.
PARAMETER TAp. //Target Ap
PARAMETER TPe. //Target Pe
PARAMETER TIn. //Target Inclination
SET pitch TO 90.
LOCK Throttle to 0.
SET LOOPCONTROLL to false.
SET COUNTER to 10.
SET LASTPRINTTIMER to -1.
SET MINTHROTTLE to 0.3.
SET THROTTLESTART to 4. //start COUNTER -> throttle = THROTTLE
SET THROTTLEEND to 2. //END COUNTER -> throttle = 100
SET ENGINESTARTED to false.
PRINT "start counter".
UNTIL LOOPCONTROLL{
//print the T-xxx
if(LASTPRINTTIMER <> CEILING(COUNTER)){
SET LASTPRINTTIMER to CEILING(COUNTER).
print "T-" + LASTPRINTTIMER.
}
if(COUNTER <= THROTTLESTART){
if(ENGINESTARTED = false){
//start engines
SET ENGINESTARTED to true.
STAGE.
print "Ignition! Throttling up.".
HUDTEXT ("Ignition! Throttling up.", 5, 2, 30, green, false). //Text der im Bild angezeigt wird. Message, Delay, Position, Farbe, doEcho
}
Lock Throttle to calc_throttle(THROTTLESTART , THROTTLEEND , COUNTER , MINTHROTTLE).
}
SET COUNTER to COUNTER - 0.1.
// abbruch fuer die schleife
IF COUNTER <= 0{
SET LOOPCONTROLL to true.
}
wait 0.1.
}
//start count , end counter , current counter , min throttle
function calc_throttle{
parameter start.
parameter end.
parameter counter.
parameter minThrottle.
SET tmp1 TO start - end.
SET tmp2 TO start - counter.
SET tmp3 TO (tmp2 / tmp1).
return (minThrottle + ((1 - minThrottle) * tmp3)).
}
//Staging Liquidfuel
function LFStaging{
print "T+"+round(missiontime)+" Seconds. MECO".
wait 3.
print "T+"+round(missiontime)+" Seconds. Separate Main Stage".
stage.
wait 3.
print "T+"+round(missiontime)+" Seconds. Activate Upper Stage".
stage.
//set mysteer to heading(TIn,15).
set t to 2.
}
//Staging Solidfuel
when stage:solidfuel <= 0.01 then {
stage. //Ignition Main Engine
set t to 1.
print "T+"+round(missiontime)+" Seconds. Separate Booster".
}
STAGE.
PRINT "Take off".
when ALT:RADAR >= 50 then {
print "T+"+round(missiontime)+" Seconds. Tower Cleared".
}
//Rollprogram
when ALT:RADAR >= 100 then {
print "T+"+round(missiontime)+" Seconds. Starting Rollprogram".
set mysteer to heading(TIn,90).
LOCK steering TO mysteer.
}
//Gravityturn
wait until ALT:RADAR > 1000.
print "T+"+round(missiontime)+" Seconds. Starting Gravityturn".
until apoapsis >= TAp
{
if pitch <= 60 and pitch > 40 {
lock throttle to 1.
}
if pitch <= 40 and pitch > 20 {
lock throttle to 0.7.
}
if pitch <= 20 and pitch > 0 {
lock throttle to 1.
}
if eta:apoapsis < 30 {
lock throttle to 1.
}
if t = 1 and stage:liquidfuel <= 0.02
{
LFStaging().
}
until pitch <= 15
{
set mysteer to heading(TIn,pitch).
set pitch to -.0000000125*(ship:apoapsis*ship:apoapsis)+87.
print "pitching to " + pitch + " degrees" at (40,0).
}
}
lock throttle to 0.
IF t = 1 {
LFStaging().
}
//Warp
WAIT UNTIL ETA:APOAPSIS <= 200.
SET warp to 3.
WAIT UNTIL ETA:APOAPSIS <= 140.
SET warp to 0.
WAIT 10.
SET mysteer to heading(TIn,0).
WAIT UNTIL ETA:APOAPSIS < 90.
//Circularizing
until periapsis >= TPe
{
set mysteer to heading(TIn,0).
if eta:apoapsis < 70 and eta:apoapsis >= 30 {
lock throttle to 1.
set mysteer to heading(TIn,0).
}
print "circularizing..." at (40,2).
}
lock throttle to 0.
print "apoapsis at " + round(ship:apoapsis,0).
print "periapsis at " + round(ship:periapsis,0).
//Warp
WAIT UNTIL ETA:PERIAPSIS <= 200.
SET warp to 3.
WAIT UNTIL ETA:PERIAPSIS <= 140.
SET warp to 0.
WAIT UNTIL ETA:PERIAPSIS < 60.
//KEO-Transferbahn
UNTIL VESSEL:PERIOD = 14400
{
set mysteer to heading(TIn,0).
lock throttle to 1.
}

Alles anzeigen

Edit:
Hab grad nochmal bissl was gebastelt und noch paar Sachen geändert.
Unter anderem hab ich die Start-Variablen jetzt zu Parametern geändert. Damit müssen diese nicht mehr im Script selbst geändert werden um den gewünschten Orbit einzugeben. Hier können dem Startbefehl im kOS-Terminal einfach Parameter hinzugefügt werden.
In diesem Fall sieht der Startparameter dann so aus: Scriptname (Ap, Pe, Inclination), also bspw. run Launch(100000,90000,90). Damit wird die Rakete in einen Orbit mit Ap 100km und Pe 90km sowie einer Inklination von 0° (90 gibt die Richtung, also Osten, an).

funkheld · 7. Februar 2017

Wie und wo baut man das Script eigentlich ein damit es seine Arbeit richtig macht.

Danke.
Gruss

woeller3 · 7. Februar 2017

Hier ist die Dokumentation dazu:
https://ksp-kos.github.io/KOS/

Cheesecake · 7. Februar 2017

Zitat von funkheld

Wie und wo baut man das Script eigentlich ein damit es seine Arbeit richtig macht.

Danke.
Gruss

Den Mod kOS installieren. Ingame muß man dann einen der Computer, welche mit kOS mitgeliefert werden, an die Rakete anbauen. Wenn man dann die Rakete auf den Starttisch stellt kann man die kOS-Konsole öffnen und dort das Script starten.

Edit:
Zum Script:
Mit diesem Script wird der angepeilte Orbit mit einer Genauigkeit von etwa +/-800-2000 Metern erreicht. Um das noch etwas präziser hinzubekommen muß beim brennen des Orbits nun noch der Schub langsam runtergeregelt werden. Bisher brennt er mit 100% bis der gewünschte Orbit erreicht ist und schaltet dann direkt auf 0. Durch die Reaktionszeit ist man dann aber schon etwas über den Orbit hinaus bis das Triebwerk auf 0 ist. Daher sollte das Triebwerk auf den letzten Metern runtergeregelt werden. 100% Genauigkeit auf den Meter genau wird man wohl nicht erreichen. Das ist auch nicht mein Ziel da auch in der Realität die Raketen in der regel mit einigen hundert Metern oder einigen Kilometern vom angepeilten Orbit abweichen.

Aber nochmal zur info: Das Script ist noch nicht fertig und enthält noch Fehler bzw. fehlt noch einiges. Nutzung auf eigene Gefahr.

funkheld · 7. Februar 2017

Zitat

Das Script starten.....

Das Script, welches hier oben im Thread steht?
Muss man das als Textdatei abspeichern ?

Danke.
Gruss

Cheesecake · 8. Februar 2017

Einfach in eine Textdatei (z.B. mit dem Windows Editor oder Word Pad) kopieren und diese als .ks speichern bzw. nach dem speichern umbenennen.
Die Scriptdateien werden im Rootverzeichnis von KSP im Ordner Ships/Script gespeichert. kOS legt diesen Ordner an.

Aber Achtung: Das Script funktioniert zwar, ist aber noch nciht fertig. Außerdem ist es Momentan auf eine zweistufige Rakete mit zusätzlichen Boostern ausgelegt. Außerdem muss das Staging richtig gesetzt werden im VAB.
Die Stages sollten momentan so aussehen (im VAB von unten nach oben):

1. Triebwerk erste Stufe
2. Booster und Clamps
3. Separators der Booster
4. Decoupler zwischen erster und zweiter Stufe (hier hab ich auch meine Fairings drin, sofern die erste Stufe über 70km kommt)
5. Triebwerk Oberstufe

Bei Abweichungen können wir nicht garantieren dass es funktioniert. insbesondere wenn keine Booster vorhanden sind kann das evtl. lustige Folgen haben.

Edit:
Wollte ja gestern noch etwas weiterbasteln am Script. Folgendes hab ich geschafft:
- auf der Couch eingepennt.

Heut Abend gehts also weiter.

funkheld · 8. Februar 2017

Hallo, guten Tag.

Wie sehen die Computer aus von Kos, die man anbauen muss?

Danke.
Gruss

woeller3 · 8. Februar 2017

Zitat von Cheesecake

Edit:
Wollte ja gestern noch etwas weiterbasteln am Script. Folgendes hab ich geschafft:
- auf der Couch eingepennt.

Das nenne ich einen Meilenstein! Ein wahrer Fortschritt

Cheesecake · 8. Februar 2017

Zitat von woeller3

Das nenne ich einen Meilenstein! Ein wahrer Fortschritt

Naja, hatte gestern Spätschicht vom Kollegen übernommen und war erst 20:15 Uhr Zuhause. Heute Morgen dann um 4:50 Uhr wieder raus da wieder ne frühe Schicht.
Das wird man mir wohl verzeihen.

Zitat von funkheld

Hallo, guten Tag.

Wie sehen die Computer aus von Kos, die man anbauen muss?

Danke.
Gruss

Na dann guck doch im VAB mal in den Kategorien. Da gibts dann auch einen Reiter für kOS. Alternativ mal in der Gruppe gucken wo auch die RCS-Düsen und Reaction Wheels zu finden sind. Dort sind die drin.

funkheld · 8. Februar 2017

Hallo danke für die Info.
Habe das unscheinbare Ding jetzt gefunden.

Kann auch über Telnet 127.0.0.1 mit meinem Purebasicprogramm Verbindung aufnehmen.
Client wird erkannt von KOS.

Weiß nur noch nicht, wie man da jetzt Befehle übermitteln kann ohne die Computerconsole in Kerbal.

Danke.
Gruss

Cheesecake · 8. Februar 2017

Das sind mehrere Computer welche unterschiedlich große Speicher haben. Die meisten sind rund und können axial angebracht werden und einer ist für das radiale anbringen gedacht.

Das mit den externen Konsolen kann ich dir auch nicht sagen. Ich starte die Scripte mit der kOS-Konsole ingame. Dafür braucht man kein Telnet. Vielleicht probierst du das erstmal so aus. Für externe Konsolen musst du dich mal bei kOS einlesen. Da gibt es Anleitungen für.

funkheld · 8. Februar 2017

So sieht jetzt meine Verbindugn aus.

Gruss

Cheesecake · 8. Februar 2017

OK. Dann gibst du erstmal 'switch to 0.' ein. Damit greifst du auf die Scripte aus KSPRoot/Ships/Script zu.
Danach einfach 'run Scriptname.' eingeben.
Bei unserem Script dann aber noch die Parameter dahinter. Also 'run Scriptname(Ap,Pe,Inklination).' Ap und Pe aber in Metern angeben.

funkheld · 8. Februar 2017

Jup, danke für die Info.

Gruss

Troll · 8. Februar 2017

mit

list files.

kannst du ggf noch die scripte anzeigen lassen ....

mit nen wenig englisch Kenntnissen kann man das hier recht gut nutzten -> http://ksp-kos.github.io/KOS_D…but-where-is-this-program

funkheld · 8. Februar 2017

Rakete startet jetzt. Ist schon ein großer Erfolg.

Habe aber irgendwie die Triebwerkreihenfolge nicht eingehalten.
Es startet und nach einer weile explodiert das Ding.

Kann man für dieses Script aus den Kerbal-Grundsystem bitte mal eine einfache funktionierende VBA reinstellen?

danke.
Gruss

Cheesecake · 8. Februar 2017

Mit VBA meinst du jetzt ne Stagingreihenfolge oder wie?
Die hab ich weiter oben schon aufgelistet. Auch mit der Info dass man derzeit zwingend Booster anbauen muß da es sonst zu etwas unerwarteten Folgen kommen kann.

funkheld · 8. Februar 2017

Booster und Clamps...?
Was sind Clamps?

Ich habe die Booster angebracht mit Seperatoren.

Danke.
Gruss

funkheld · 8. Februar 2017

Was ist die 1. für ein Apparat ?
2. und 3. habe ich gefunden .

Danke.
Gruss

Teilen