Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS will be completely phased out by mid-2025. To see alternatives please check here

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

Fix MISSALLIGNED-BY-1 translated comments in cPower.vb, cVh.vb, Em_Calv.vb, AssemblyInfo.vb.

parent a886a6d2
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Showing
with 915 additions and 907 deletions
Tools/TranslateComments/comments2-orig.txt
+ 11
− 9
View file @ c2815284
......@@ -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 @ c2815284
This diff is collapsed.
Tools/TranslateComments/extract_comments.ps1
+ 13
− 10
View file @ c2815284
......@@ -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 @ c2815284
......@@ -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 @ c2815284
This diff is collapsed.
VECTO/MODcalc/cPower.vb
+ 129
− 129
View file @ c2815284
This diff is collapsed.
VECTO/MODcalc/cVh.vb
+ 21
− 21
View file @ c2815284
......@@ -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 @ c2815284
......@@ -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 @ c2815284
......@@ -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:
'
' 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.
Finish editing this message first!
Please register or to comment

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