This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit a8f1e112 authored by Kostis ANAGNOSTOPOULOS's avatar Kostis ANAGNOSTOPOULOS
Browse files

Merge MISSALLIGNED-BY-1 Fix (branch: trans_comments).

parents e7b58fae c2815284
Branches
Tags
No related merge requests found
Expand all Show whitespace changes
Inline Side-by-side
Showing
with 915 additions and 907 deletions
Tools/TranslateComments/comments2-orig.txt
+ 11
− 9
View file @ a8f1e112
......@@ -1689,10 +1689,11 @@
4638: ' Zwischen 1. und 8. gang sowie 9. und 16. Gang:
4662: '***Differenzial
4663: ' Leistung nach Diff (vor Getriebe)
4682: 'Pdiff
4691: '***Differenzial
4692: ' Leistung vor Diff
4744: '----------------Getriebe Trägheit----------------
>>> MODcalc\cVh.vb
5: 'Aus DRI-Datei
15: 'Berechnet
18: 'WegKor
58: 'Geschwindigkeit
......@@ -1700,18 +1701,19 @@
79: 'Strecke (aus Zwischensekunden sonst passiert Fehler)
87: 'Steigung
99: 'Gang - nicht Mittelwert sondern Gang(t) = DRI.Gang(t)
112: 'Padd
124: 'Beschl. berechnen
132: 'Vair-Vorgaben: Nicht in Zwischensekunden!!
157: 'Geschwindigkeit
169: 'Strecke
177: 'Steigung
189: 'Gang - nicht Mittelwert sonder Gang(t) = DRI.Gang(t)
202: 'Padd
214: 'Beschl. berechnen
257: 'TODO: Wenn Fzg schneller als Zyklus...
273: 'Falls Zeitschritt wiederholen näher an Wegvorgabe als aktueller Weg => Zeitschritt wiederholen
279: 'Falls nächsten Zeitschritt löschen näher an Wegvorgabe als aktueller Weg => Nächsten Zeitschritt löschen
291: 'Keine Korrektur
>>> MODcalc\Em Calc.vb
54: 'Normale Interpolation
101: 'Ersten zwei sekunden keine Korrektur:
185: 'Dictionaries erstellen
208: 'Summen ermitteln
......@@ -1749,7 +1751,7 @@
610: 'C Zwischenrechnung fue Zyklusmittelwert:
617: 'C Berechnung der mittleren Amplitude in 3 Sekunden vor Emission (Ampl3s)
618: 'C und der Anzahl der Pe-Sekundenschritten ueber 3% der Nennleistung
619: 'C (LW3p3s):
650: 'C (2) Aenderung der aktuellen Motorleistung (dP_2s):
664: 'C Mittelwert 3 sec. vor Emission:
672: 'C Gezaehlt nur bei dynamischem betrieb:
681: 'C (4) Mittelwert der negativen Motorleistung ("PnegMW"):
......@@ -1769,7 +1771,7 @@
846: '! Felder für Größen aus PHEM Hauptprogramm
895: '**** Einlesen von tgas aus .npi (Projekt HERO) ****
896: ' => überschreibt tgas(jz) aus HtMass()
897: ' Luz/Rexeis 16.05.2011
912: ''' Hauptroutine für EXS Modul
916: '! Aufruf von Exs_Main(true) -> Developer Version ohne PHEM Hauptprogramm
921: '! Felder für Größen aus exs-File
951: 'Allgemeine Konstanten
......@@ -1785,7 +1787,7 @@
1006: 'Dimensionieren:
1025: 'Übergabe der relevanten Größen aus dem PHEM Hauptprogramm
1026: 'In DEV direkt aus der Datei *.phe eingelesen
1045: 'Lambda
1051: 'Wird weiter unten belegt weil mpexh vorhanden sein muss
1056: 'Anfang exs-File einlesen
1072: 'dummy = DatExs.ReadLine(0) 'alte dummy zeilen: auf exs-file kompatibilität achten
1079: 'Initialisieren der entsprechenden Anzahl an Modulen
......@@ -1901,7 +1903,7 @@
1924: 'Zeitdiskrete Lösung der PT1-Diffgl
1991: ''Extrapolation für LastTemp > TempAr(0)
2003: 'Extrapolation für LastTemp < TempAr(Adim)
2005: 'lbInt:
2013: 'Einen Zeitschritt vor ( = 1 Sekunde)
2041: 'Klasse initialisiert als Unterelement von TempMod
2047: 'c Prefix "c" bedeutet: Zykluswert verwendet für Kennlinien-Korrektur
2049: 'c Index "cc" bedeutet: Wert aus Kennlinie (-> "c" - "cc" ist die Differenz, mit der Korrigiert wird)
......@@ -1958,7 +1960,6 @@
2543: 'c Raumgeschwindigkeit aus Kennlinie:
2561: 'Schreiben der Ergebnisse auf die standardisierten Variablen eEmKomp (iSchad, jz) und Qp_reak(jz)
2593: ''' KAT-Modell
2600: 'Klasse initialisiert als Unterelement von TempMod
2606: 'Kennfelddaten
2627: ''' Erstellen eines neuen KAT-Moduls
2642: ''' Interpolationsfunktion
......@@ -1995,6 +1996,7 @@
2879: 'c Sortieren der 2 Werte nach aufsteigendem n:
2887: 'c Interpolation der zugehoerigen Maximalleistung (P/Pnenn)
>>> My Project\AssemblyInfo.vb
5:' Allgemeine Informationen über eine Assembly werden über die folgenden
6:' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
7:' die mit einer Assembly verknüpft sind.
9:' Die Werte der Assemblyattribute überprüfen
......@@ -2003,5 +2005,5 @@
25:' Hauptversion
26:' Nebenversion
27:' Buildnummer
28:' Revision
30:' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
31:' übernehmen, indem Sie "*" eingeben:
Tools/TranslateComments/comments2-trans.txt
+ 462
− 459
View file @ a8f1e112
This diff is collapsed.
Tools/TranslateComments/extract_comments.ps1
+ 13
− 10
View file @ a8f1e112
......@@ -51,12 +51,6 @@ cat comments2.txt |
## 4a. (MANUAL)Inspect translation and go back to 1 or 4a in case of problems.
## 5b. (MANUAL) Store translated-comments into ../translate_to.txt
$coms=cat comments2.txt
$from=cat translate_from.txt
$to=cat translate_to.txt
$coms.length, $from.length, $to.length
function isolate-untranslated($coms, $from, $to) {
for($i=0; $i -lt $coms.length; $i++) {
......@@ -74,6 +68,12 @@ function isolate-untranslated($coms, $from, $to) {
## 5.a. Merge translated comment-lines with original ones.
##
$coms=cat comments2.txt
$from=cat translate_from.txt
$to=cat translate_to.txt
$coms.length, $from.length, $to.length
$r=for($i=0; $i -lt $coms.length; $i++) {
$cline = $coms[$i];
$fline = $from[$i];
......@@ -99,7 +99,7 @@ $r=for($i=0; $i -lt $coms.length; $i++) {
}
if (!$tline) {
#$nline = $cline;
#echo "$nline"; ## UNCOMMENT HERE and delete the rest else-case for producing original.txt
continue;
} elseif ($tline.startsWith('@')) {
$tline = $tline.Substring(1);
......@@ -138,10 +138,10 @@ function matchTransLine($line) {
}
}
$coms=cat comments2-orig.txt
filter Patch-Comments() {
BEGIN {
$basepath = '../../VECTO';
# Define it externally, depending on the PWD.
#$basepath = '../../VECTO';
$i = -1;
$file = $Null;
$isFileOK = $true;
......@@ -206,7 +206,10 @@ END {
}
}
}
cat comments2-trans.txt | Patch-Comments
$coms=cat ..\Tools\TranslateComments\comments2-orig-EmCalc.txt
$basepath = '.';
cat ..\Tools\TranslateComments\comments2-trans-EmCalc.txt| Patch-Comments
## The last cmd should run without any errors.
## DONE
......
Tools/TranslateComments/translate_to.txt
+ 9
− 9
View file @ a8f1e112
......@@ -178,7 +178,7 @@ Correction-function for Euro 3 like ARTEMIS slightly adapted (see FcCorr_Eu3ff.
@Read GEN
VECTO: Default values for the parameters are no longer in GEN/.VECTO are to be occupied in reading about SetDefault.
VECTO: Default values for the parameters are no longer in GEN/.VECTO but are allocated when Read about SetDefault.
@Error message in init()
Read the Vehicle(KFZ)-specifications from 'KFZspez'
if there are <DRAG> entries, then read FLD before MAP/MEP!
......@@ -1434,7 +1434,7 @@ Errors/Warnings occuring every second
Reset errors related to Power-calculation (towards performing the Gear-shifting model)
@Emit Errors
@Data per second
@Per-second Data
@Interruption of traction
@Recuperation
@Project HERO - BMW Mini Hybrid
......@@ -1790,15 +1790,14 @@ Add to Gears-sequence
@Acceleration-phases: Downshift?(Zurückschalten) suppressed
@If within 6 seconds it Shifts back to the previous-Gear,
@then maintain the previous-Gear throughout.
If within 6 seconds it Shifts once above and once below the previous-Gear,
then maintain the previous-Gear throughout.
@If within 6 seconds it Shifts once above and once below the previous-Gear,
@then maintain the previous-Gear throughout.
@Checks Part 2 -------------------------------------
@Gear-shift from 2 to 1 are suppressed when v > 2.5 m/s
NEW LUZ 040210: Upshifting only when in 2nd Gear over Cluch-Revolutions
at decelerations below 2.5 m/s, shift to idle
wenn v mehr als 1 Sek. < 0.1 m/s wird auf Gang=0 geschaltet
If v <0.1 m/s for more than 1 sec then shift to Gear=0
at Beschleunigungsvorgaengen below 1.5 m/s is used in 1 Gear is engaged
@If v <0.1 m/s for more than 1 sec then shift to Gear=0
@at Acceleration processes below 1.5 m/s, then shift to 1st Gear
@checking if Revolutions above Nominal-Revolutions, then always Upshift
@otherwise lack the power!
@EV-Gear-shifting model (based on Cars(PKW))
......@@ -1843,7 +1842,7 @@ then maintain the previous-Gear throughout.
NEW LUZ 040210: Upshift only when in 2 Gear over Clutch-revolutions
at decelerations below 2.5 m/s, shift to Idle
If v < 0.1 m/s for more than 1 sec, then shift to Gear=0
at acceleration processes below 1.5 m/s is used in first Gear is engaged
@at Acceleration below 1.5 m/s, then shift to 1st Gear
@Check whether Revolutions over Nominal-Revolutions, then should always Upshift,
@otherwise Power not enough!
@Second 1 --------------------------------------
......@@ -1920,7 +1919,7 @@ at decelerations below 1.5 m/s, shift to Idle
Gear-shifting from 2nd to 1st is suppressed at v > 2.5 m/s
At decelerations below 2.5 m/s, shift to Idle
@If v < 0.1 m/s for more than 1 sec, then shift to Gear=0
@When Speed?(Beschleunigungsvorgaengen) below 1.5 m/s, then shift to 1st Gear
@When Acceleration below 1.5 m/s, then shift to 1st Gear
@Function calculating the Power easily for Gear-shift-model
@Function calculating the Power easily for EV-shift-model
@Revolutions-setting
......@@ -2293,3 +2292,4 @@ for previous Allocation:
VECTO/MODcalc/Em Calc.vb
+ 263
− 263
View file @ a8f1e112
This diff is collapsed.
VECTO/MODcalc/cPower.vb
+ 129
− 129
View file @ a8f1e112
This diff is collapsed.
VECTO/MODcalc/cVh.vb
+ 21
− 21
View file @ a8f1e112
......@@ -2,7 +2,7 @@
Public Class cVh
'Aus DRI-Datei
'From DRI file
Private lV As List(Of Single) 'Ist-Geschw. in Zwischensekunden.
Private lV0ogl As List(Of Single) 'Original DRI-Geschwindigkeit. Wird nicht geändert.
Private lV0 As List(Of Single) 'DRI-Geschwindigkeit. Bei Geschw.-Reduktion in Zeitschritt t wird LV0(t+1) reduziert.
......@@ -12,10 +12,10 @@ Public Class cVh
Private lVairVres As List(Of Single)
Private lVairBeta As List(Of Single)
'From DRI file
'Calculated
Private la As List(Of Single)
'Calculated
'WegKor |@@| Route(Weg)Correct
Private WegIst As Single
Private Weg As List(Of Single)
Private WegX As Integer
......@@ -55,7 +55,7 @@ Public Class cVh
Dim L As List(Of Double)
Dim Val As Single
'Geschwindigkeit |@@| Route(Weg)Correct
'Speed
If DRI.Vvorg Then
L = DRI.Values(tDriComp.V)
......@@ -66,7 +66,7 @@ Public Class cVh
If lV(s) < 0.001 Then lV(s) = 0 '<= aus Leistg
Next
'Speed
'Original-speed is longer by 1
lV0.Add(DRI.Values(tDriComp.V)(MODdata.tDim + 1))
If DRI.Scycle Then
For s = 0 To MODdata.tDim + 1
......@@ -76,7 +76,7 @@ Public Class cVh
lV0ogl.Add(DRI.Values(tDriComp.V)(MODdata.tDim + 1))
End If
'Original-speed is longer by 1
'Strecke (aus Zwischensekunden sonst passiert Fehler) |@@| Segment (from Intermediate-seconds, otherwise Error)
Weg.Add(lV(0))
For s = 1 To MODdata.tDim
Weg.Add(Weg(s - 1) + lV(s))
......@@ -84,7 +84,7 @@ Public Class cVh
End If
'Steigung |@@| Segment (from Intermediate-seconds, otherwise Error)
'Slope
If DRI.GradVorg Then
L = DRI.Values(tDriComp.Grad)
For s = 0 To MODdata.tDim
......@@ -96,7 +96,7 @@ Public Class cVh
Next
End If
'Slope
'Gear - but not Averaged, rather Gang(t) = DRI.Gear(t)
If DRI.Gvorg Then
L = DRI.Values(tDriComp.Gears)
For s = 0 To MODdata.tDim
......@@ -109,7 +109,7 @@ Public Class cVh
Next
End If
'Gear - but not Averaged, rather Gang(t) = DRI.Gear(t)
'Padd
If DRI.PaddVorg Then
L = DRI.Values(tDriComp.Padd)
For s = 0 To MODdata.tDim
......@@ -121,7 +121,7 @@ Public Class cVh
Next
End If
'Beschl. berechnen
'Calculate Acceleration
If DRI.Vvorg Then
L = DRI.Values(tDriComp.V)
For s = 0 To MODdata.tDim
......@@ -129,7 +129,7 @@ Public Class cVh
Next
End If
'Calculate Acceleration
'Vair specifications: Not in Intermediate-seconds!
If DRI.VairVorg Then
L = DRI.Values(tDriComp.VairVres)
......@@ -154,7 +154,7 @@ Public Class cVh
Dim s As Integer
Dim L As List(Of Double)
'Vair specifications: Not in Intermediate-seconds!
'Speed
If DRI.Vvorg Then
L = DRI.Values(tDriComp.V)
......@@ -166,7 +166,7 @@ Public Class cVh
If lV(s) < 0.001 Then lV(s) = 0 '<= aus Leistg
Next
'Speed
'Strecke |@@| Segment
Weg.Add(lV(0))
For s = 1 To MODdata.tDim
Weg.Add(Weg(s - 1) + lV(s))
......@@ -174,7 +174,7 @@ Public Class cVh
End If
'Steigung |@@| Segment
'Slope
If DRI.GradVorg Then
L = DRI.Values(tDriComp.Grad)
For s = 0 To MODdata.tDim
......@@ -186,7 +186,7 @@ Public Class cVh
Next
End If
'Slope
'Gear - not Averaged, rather Gear(t) = DRI.Gear(t)
If DRI.Gvorg Then
L = DRI.Values(tDriComp.Gears)
For s = 0 To MODdata.tDim
......@@ -199,7 +199,7 @@ Public Class cVh
Next
End If
'Gear - not Averaged, rather Gear(t) = DRI.Gear(t)
'Padd
If DRI.PaddVorg Then
L = DRI.Values(tDriComp.Padd)
For s = 0 To MODdata.tDim
......@@ -211,7 +211,7 @@ Public Class cVh
Next
End If
'Beschl. berechnen
'Calculate Acceleration
If DRI.Vvorg Then
la.Add(DRI.Values(tDriComp.V)(1) - DRI.Values(tDriComp.V)(0))
For s = 1 To MODdata.tDim - 1
......@@ -254,7 +254,7 @@ Public Class cVh
Public Sub DistCorrection(ByVal t As Integer)
'Calculate Acceleration
'TODO: If veh faster than cycle ...
Dim v As Single
Dim a As Single
......@@ -270,13 +270,13 @@ Public Class cVh
'TODO: If veh faster than cycle ...
'Falls Zeitschritt wiederholen näher an Wegvorgabe als aktueller Weg => Zeitschritt wiederholen |@@| If the repeating Time-step is closer to the Specified-route than the Actual-route => Repeat Time-step
If (Math.Abs(WegIst + Vsoll(t) - Weg(WegX)) < Math.Abs(WegIst - Weg(WegX))) And v > 0.1 Then
Duplicate(t + 1)
MODdata.tDim += 1
'Falls nächsten Zeitschritt löschen näher an Wegvorgabe als aktueller Weg => Nächsten Zeitschritt löschen |@@| If the repeating Time-step is closer to the Specified-route than the Actual-route => Repeat Time-step
'Falls nächsten Zeitschritt löschen näher an Wegvorgabe als aktueller Weg => Nächsten Zeitschritt löschen |@@| If the next Time-step to Delete closer to specified Route than the Actual-route => Delete Next Time-step
'ElseIf WegX < MODdata.tDimOgl - 1 AndAlso t < MODdata.tDim - 1 AndAlso WegIst > Weg(WegX + 1) AndAlso Math.Abs(WegIst - Weg(WegX + 1)) <= Math.Abs(WegIst - Weg(WegX)) Then
' Do
......@@ -288,7 +288,7 @@ Public Class cVh
Else
'Keine Korrektur |@@| If the next Time-step to Delete closer to specified Route than the Actual-route => Delete Next Time-step
'No correction
WegX += 1
End If
......
VECTO/M_Lese.vb
+ 1
− 1
View file @ a8f1e112
......@@ -32,7 +32,7 @@ Module M_Lese
Return False
End Try
'VECTO: Defaultwerte für Parameter die nicht mehr in der .GEN/.VECTO sind werden beim Einlesen über SetDefault belegt. |@@| VECTO: Default values for the parameters are no longer in GEN/.VECTO are to be occupied in reading about SetDefault.
'VECTO: Defaultwerte für Parameter die nicht mehr in der .GEN/.VECTO sind werden beim Einlesen über SetDefault belegt. |@@| VECTO: Default values for the parameters are no longer in GEN/.VECTO but are allocated when Read about SetDefault.
CycleFiles.Clear()
......
VECTO/My Project/AssemblyInfo.vb
+ 6
− 6
View file @ a8f1e112
......@@ -2,12 +2,12 @@
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Below is the General Information about the Attributes
' controlling the Assembly. Change these attribute values to modify the information
' associated with the Assembly.
' Review the values of the Assembly Attributes
<Assembly: AssemblyTitle("VECTO")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("TUG")>
......@@ -17,18 +17,18 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)>
'Review the values of the Assembly Attributes
'The following GUID is for the ID of the Typelib if this project is exposed to COM
<Assembly: Guid("175c31e7-2d95-4afb-afec-c4d7719177db")>
' The following GUID is for the ID of the Typelib if this project is exposed to COM
'
' Version information for an assembly consists of the following four values:
'
' Major Release
' Minor Release
' Build Number
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' You can specify all the values or use the defaults for Build and Revision Numbers
' by entering "*" in them:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about