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 12888c7a authored by Raphael LUZ's avatar Raphael LUZ
Browse files

2.0.1-beta1 

* Updated Segment Table header
* Fixed Eco Roll (VECTO-30)
* Fixed Cycles in VECTO Editor being overwritten in Engineering Mode (VECTO-31)
parent d51043b3
Branches
Tags milestones/2.0.1-beta1
No related merge requests found
Show whitespace changes
Inline Side-by-side
Declaration/SegmentTable.csv
+ 1
− 1
View file @ 12888c7a
VehCat,Axle configuration,Max. GVW [t] upper bound,Vehice class,Long haul,Regional delivery,Urban delivery,Municipal utility,Construction,Heavy Urban,Urban,Suburban,Interurban,Coach Valid,tVehCat,tAxleConf,GVW_Min,GVW_Max,HDV_Class,VACC,VCDV,Rigid/Truck Axles - Long haul,Rigid/Truck Axles - Other,Trailer Axles - Long haul,Trailer Axles - Other,LongHaul,RegionalDelivery,UrbanDelivery,MunicipalUtility,Construction,HeavyUrban,Urban,Suburban,Interurban,Coach,MassExtra - LongHaul,MassExtra - RegionalDelivery,MassExtra - UrbanDelivery,MassExtra - MunicipalUtility,MassExtra - Construction,MassExtra - HeavyUrban,MassExtra - Urban,MassExtra - Suburban,MassExtra - Interurban,MassExtra - Coach,RefLoad - LongHaul,RefLoad - RegionalDelivery,RefLoad - UrbanDelivery,RefLoad - MunicipalUtility,RefLoad - Construction,RefLoad - HeavyUrban,RefLoad - Urban,RefLoad - Suburban,RefLoad - Interurban,RefLoad - Coach,WHTCWF - LongHaul,WHTCWF - RegionalDelivery,WHTCWF - UrbanDelivery,WHTCWF - MunicipalUtility,WHTCWF - Construction,WHTCWF - HeavyUrban,WHTCWF - Urban,WHTCWF - Suburban,WHTCWF - Interurban,WHTCWF - Coach
0,RigidTruck,4x2,0,7.5,0,Truck.vacc,Truck.vcdv,???,???,0/0,0/0,0,1,1,0,0,0,0,0,0,0,-,???,???,-,-,-,-,-,-,-,-,???,???,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78 0,RigidTruck,4x2,0,7.5,0,Truck.vacc,Truck.vcdv,???,???,0/0,0/0,0,1,1,0,0,0,0,0,0,0,-,???,???,-,-,-,-,-,-,-,-,???,???,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78
1,RigidTruck,4x2,7.5,10,1,Truck.vacc,Truck.vcdv,-,45/55,0/0,0/0,0,1,1,0,0,0,0,0,0,0,-,1600,1600,-,-,-,-,-,-,-,-,f,f,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78 1,RigidTruck,4x2,7.5,10,1,Truck.vacc,Truck.vcdv,-,45/55,0/0,0/0,0,1,1,0,0,0,0,0,0,0,-,1600,1600,-,-,-,-,-,-,-,-,f,f,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78
1,RigidTruck,4x2,10,12,2,Truck.vacc,Truck.vcdv,40/60,45/55,0/0,0/0,1,1,1,0,0,0,0,0,0,0,1900,1900,1900,-,-,-,-,-,-,-,f,f,f,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78 1,RigidTruck,4x2,10,12,2,Truck.vacc,Truck.vcdv,40/60,45/55,0/0,0/0,1,1,1,0,0,0,0,0,0,0,1900,1900,1900,-,-,-,-,-,-,-,f,f,f,-,-,-,-,-,-,-,11/0/89,17/30/53,69/27/4,98/0/2,62/32/6,100/0/0,100/0/0,100/0/0,45/36/19,0/22/78
......
VECTO/GUI/F_VECTO.vb
+ 6
− 4
View file @ 12888c7a
...@@ -982,10 +982,12 @@ lbDlog: ...@@ -982,10 +982,12 @@ lbDlog:
If Declaration.SegmentTable.SetRef(s0, VEH0.VehCat, VEH0.AxleConf, VEH0.MassMax) Then If Declaration.SegmentTable.SetRef(s0, VEH0.VehCat, VEH0.AxleConf, VEH0.MassMax) Then
HDVclass = s0.HDVclass HDVclass = s0.HDVclass
If Cfg.DeclMode Then
Me.LvCycles.Items.Clear() Me.LvCycles.Items.Clear()
For Each m0 In s0.Missions For Each m0 In s0.Missions
Me.LvCycles.Items.Add(Declaration.Missions(m0).NameStr) Me.LvCycles.Items.Add(Declaration.Missions(m0).NameStr)
Next Next
End If
Else Else
HDVclass = "-" HDVclass = "-"
......
VECTO/MODcalc/cPower.vb
+ 53
− 58
View file @ 12888c7a
...@@ -27,7 +27,7 @@ Public Class cPower ...@@ -27,7 +27,7 @@ Public Class cPower
Private Pplus As Boolean Private Pplus As Boolean
Private Pminus As Boolean Private Pminus As Boolean
Private GVmax As Single Private GVmax As Single
Private PvorD As Single Private Pwheel As Single
Private Vist As Single Private Vist As Single
Private aist As Single Private aist As Single
...@@ -43,8 +43,6 @@ Public Class cPower ...@@ -43,8 +43,6 @@ Public Class cPower
Public Positions As New List(Of Short) Public Positions As New List(Of Short)
Public Function PreRun() As Boolean Public Function PreRun() As Boolean
Dim i As Integer Dim i As Integer
Dim i0 As Integer Dim i0 As Integer
...@@ -166,9 +164,9 @@ Public Class cPower ...@@ -166,9 +164,9 @@ Public Class cPower
End If End If
'Wheel-Power 'Wheel-Power
PvorD = fPvD(i, Vh.fGrad(dist(i))) Pwheel = fPwheel(i, Vh.fGrad(dist(i)))
Select Case PvorD Select Case Pwheel
Case Is > 0.0001 Case Is > 0.0001
Pplus = True Pplus = True
Case Is < -0.0001 Case Is < -0.0001
...@@ -184,7 +182,7 @@ Public Class cPower ...@@ -184,7 +182,7 @@ Public Class cPower
If Gvorg Then If Gvorg Then
Gear = Math.Min(Vh.GearVorg(i), GBX.GearCount) Gear = Math.Min(Vh.GearVorg(i), GBX.GearCount)
Else Else
Gear = fFastGearCalc(Vist, PvorD) Gear = fFastGearCalc(Vist, Pwheel)
End If End If
End If End If
...@@ -204,12 +202,12 @@ Public Class cPower ...@@ -204,12 +202,12 @@ Public Class cPower
'Engine Power (at Clutch) 'Engine Power (at Clutch)
If Pplus Or Pminus Then If Pplus Or Pminus Then
PlossGB = fPlossGB(PvorD, Vist, Gear, True) PlossGB = fPlossGB(Pwheel, Vist, Gear, True)
PlossDiff = fPlossDiff(PvorD, Vist, True) PlossDiff = fPlossDiff(Pwheel, Vist, True)
PlossRt = fPlossRt(Vist, Gear) PlossRt = fPlossRt(Vist, Gear)
PaGetr = fPaG(Vist, aist) PaGetr = fPaG(Vist, aist)
Pkup = PvorD + PlossGB + PlossDiff + PaGetr + PlossRt Pkup = Pwheel + PlossGB + PlossDiff + PaGetr + PlossRt
P = Pkup + Paux + PaMot P = Pkup + Paux + PaMot
Else Else
...@@ -229,7 +227,7 @@ Public Class cPower ...@@ -229,7 +227,7 @@ Public Class cPower
'Secondary Progressbar 'Secondary Progressbar
ProgBarCtrl.ProgJobInt = CInt((100 / ProgBarShare) * i / MODdata.tDim) ProgBarCtrl.ProgJobInt = CInt((100 / ProgBarShare) * i / MODdata.tDim)
If PvorD < 0 Or (i > 0 AndAlso Vh.EcoRoll(i - 1)) Then If Pwheel < 0 Or (i > 0 AndAlso Vh.EcoRoll(i - 1)) Then
Vmax = MODdata.Vh.Vsoll(i) + VEC.OverSpeed / 3.6 Vmax = MODdata.Vh.Vsoll(i) + VEC.OverSpeed / 3.6
Vmin = Math.Max(0, MODdata.Vh.Vsoll(i) - VEC.UnderSpeed / 3.6) Vmin = Math.Max(0, MODdata.Vh.Vsoll(i) - VEC.UnderSpeed / 3.6)
...@@ -479,7 +477,7 @@ Public Class cPower ...@@ -479,7 +477,7 @@ Public Class cPower
End If End If
'Messages 'Messages
If Not Cfg.DistCorr Then WorkerMsg(tMsgID.Warn, "Distance Correction is disabled!", MsgSrc, "<UM>/GUI/mainform_options.html#CycleDistCor") If Not Cfg.DistCorr Then WorkerMsg(tMsgID.Warn, "Distance Correction is disabled!", MsgSrc)
' Initialize ' Initialize
Vh = MODdata.Vh Vh = MODdata.Vh
...@@ -630,33 +628,30 @@ lbGschw: ...@@ -630,33 +628,30 @@ lbGschw:
End If End If
End If End If
PvorD = fPvD(jz, Vh.fGrad(dist)) Pwheel = fPwheel(jz, Vh.fGrad(dist))
Select Case PvorD Select Case Pwheel
Case Is > 0.0001 Case Is > 0.0001
Pplus = True Pplus = True
Case Is < -0.0001 Case Is < -0.0001
Pminus = True Pminus = True
End Select End Select
'Eco-Roll Speed Correction (because PreRun speed profile might still be too high or speed might generally be too low)
If Vh.EcoRoll(jz) AndAlso Vist > MODdata.Vh.Vsoll(jz) - VEC.UnderSpeed / 3.6 AndAlso Not VehState0 = tVehState.Stopped AndAlso Pplus Then
''Eco-Roll (triggers if Pwheel < 2 [kW])
'If Vh.EcoRoll(jz) AndAlso Pplus Then
' Vh.ReduceSpeed(jz, 0.9999)
' FirstSecItar = False
' GoTo lbGschw
'End If
'Faster check if Power is too high
'If PvorD > 1.2 * VEH.Pnenn Then
' Vh.ReduceSpeed(jz, 0.9)
' GoTo lbGschw
'End If
'If jz > 0 AndAlso PvorD > 1.2 * LastPmax Then
' Vh.ReduceSpeed(jz, 0.95) ' If Declaration.CurrentMission.MissionID = tMission.RegionalDelivery And Declaration.CurrentLoading = tLoading.FullLoaded Then Stop
' GoTo lbGschw
'End If
Vh.ReduceSpeed(jz, 0.9999)
FirstSecItar = False
GoTo lbGschw
End If
'************************************ Gear selection ************************************ '************************************ Gear selection ************************************
If VehState0 = tVehState.Stopped Or TracIntrOn Then If VehState0 = tVehState.Stopped Or TracIntrOn Then
...@@ -729,11 +724,11 @@ lbGschw: ...@@ -729,11 +724,11 @@ lbGschw:
Return False Return False
End If End If
''Eco-Roll (triggers if Pwheel < 2 [kW]) 'Eco-Roll (triggers if Pwheel < 2 [kW])
'If Vh.EcoRoll(jz) AndAlso PvorD < 2 Then If Vh.EcoRoll(jz) AndAlso Pwheel <= 0 Then
' Clutch = tEngClutch.Opened Clutch = tEngClutch.Opened
' Gear = 0 Gear = 0
'End If End If
If Gear = 1 And Pminus And Vist <= 5 / 3.6 Then If Gear = 1 And Pminus And Vist <= 5 / 3.6 Then
Clutch = tEngClutch.Opened Clutch = tEngClutch.Opened
...@@ -754,7 +749,7 @@ lbCheck: ...@@ -754,7 +749,7 @@ lbCheck:
'Check whether idling although Power > 0 'Check whether idling although Power > 0
' if power at wheels > 0.2 [kW], then clutch in ' if power at wheels > 0.2 [kW], then clutch in
If Clutch = tEngClutch.Opened Then If Clutch = tEngClutch.Opened Then
If PvorD > 0.2 Then If Pwheel > 0.2 Then
If TracIntrOn Then If TracIntrOn Then
Gear = TracIntrGear Gear = TracIntrGear
...@@ -850,11 +845,11 @@ lbCheck: ...@@ -850,11 +845,11 @@ lbCheck:
If GBX.TCon And GBX.IsTCgear(Gear) Then If GBX.TCon And GBX.IsTCgear(Gear) Then
PlossGB = fPlossGB(PvorD, Vist, Gear, False) PlossGB = fPlossGB(Pwheel, Vist, Gear, False)
PlossDiff = fPlossDiff(PvorD, Vist, False) PlossDiff = fPlossDiff(Pwheel, Vist, False)
PlossRt = fPlossRt(Vist, Gear) PlossRt = fPlossRt(Vist, Gear)
PaGetr = fPaG(Vist, aist) PaGetr = fPaG(Vist, aist)
Pkup = PvorD + PlossGB + PlossDiff + PaGetr + PlossRt Pkup = Pwheel + PlossGB + PlossDiff + PaGetr + PlossRt
If Not GBX.TCiteration(Gear, fnUout(Vist, Gear), Pkup, jz) Then If Not GBX.TCiteration(Gear, fnUout(Vist, Gear), Pkup, jz) Then
WorkerMsg(tMsgID.Err, "TC Iteration failed!", MsgSrc & "/t= " & jz + 1) WorkerMsg(tMsgID.Err, "TC Iteration failed!", MsgSrc & "/t= " & jz + 1)
...@@ -941,20 +936,20 @@ lb_nOK: ...@@ -941,20 +936,20 @@ lb_nOK:
Else Else
PlossGB = fPlossGB(PvorD, Vist, Gear, False) PlossGB = fPlossGB(Pwheel, Vist, Gear, False)
PlossDiff = fPlossDiff(PvorD, Vist, False) PlossDiff = fPlossDiff(Pwheel, Vist, False)
PlossRt = fPlossRt(Vist, Gear) PlossRt = fPlossRt(Vist, Gear)
PaGetr = fPaG(Vist, aist) PaGetr = fPaG(Vist, aist)
Pkup = PvorD + PlossGB + PlossDiff + PaGetr + PlossRt Pkup = Pwheel + PlossGB + PlossDiff + PaGetr + PlossRt
P = Pkup + Paux + PaMot P = Pkup + Paux + PaMot
End If End If
Case Else 'tEngClutch.Slipping: never in AT mode! Case Else 'tEngClutch.Slipping: never in AT mode!
PlossGB = fPlossGB(PvorD, Vist, Gear, False) PlossGB = fPlossGB(Pwheel, Vist, Gear, False)
PlossDiff = fPlossDiff(PvorD, Vist, False) PlossDiff = fPlossDiff(Pwheel, Vist, False)
PlossRt = fPlossRt(Vist, Gear) PlossRt = fPlossRt(Vist, Gear)
PaGetr = fPaG(Vist, aist) PaGetr = fPaG(Vist, aist)
Pkup = (PvorD + PlossGB + PlossDiff + PaGetr + PlossRt) / KupplEta Pkup = (Pwheel + PlossGB + PlossDiff + PaGetr + PlossRt) / KupplEta
P = Pkup + Paux + PaMot P = Pkup + Paux + PaMot
End Select End Select
...@@ -1032,8 +1027,8 @@ lb_nOK: ...@@ -1032,8 +1027,8 @@ lb_nOK:
' => Pbrake ' => Pbrake
If Clutch = tEngClutch.Opened Then If Clutch = tEngClutch.Opened Then
If PvorD < -0.00001 Then If Pwheel < -0.00001 Then
Pbrake = PvorD Pbrake = Pwheel
Else Else
Pbrake = 0 Pbrake = 0
End If End If
...@@ -1080,7 +1075,7 @@ lb_nOK: ...@@ -1080,7 +1075,7 @@ lb_nOK:
PlossRt = fPlossRt(Vist, Gear) PlossRt = fPlossRt(Vist, Gear)
PlossDiff = fPlossDiffFwd(Pkup - PlossGB - PlossRt, Vist, False) PlossDiff = fPlossDiffFwd(Pkup - PlossGB - PlossRt, Vist, False)
Pbrake = PvorD - (Pkup - PlossGB - PlossDiff - PaGetr - PlossRt) Pbrake = Pwheel - (Pkup - PlossGB - PlossDiff - PaGetr - PlossRt)
EngState0 = tEngState.FullDrag EngState0 = tEngState.FullDrag
Else Else
...@@ -1183,7 +1178,7 @@ lb_nOK: ...@@ -1183,7 +1178,7 @@ lb_nOK:
MODdata.Proll.Add(fPr(MODdata.Vh.V(jz), Vh.fGrad(dist))) MODdata.Proll.Add(fPr(MODdata.Vh.V(jz), Vh.fGrad(dist)))
MODdata.Pstg.Add(fPs(MODdata.Vh.V(jz), Vh.fGrad(dist))) MODdata.Pstg.Add(fPs(MODdata.Vh.V(jz), Vh.fGrad(dist)))
MODdata.Pbrake.Add(Pbrake) MODdata.Pbrake.Add(Pbrake)
MODdata.Psum.Add(PvorD) MODdata.Psum.Add(Pwheel)
MODdata.PauxSum.Add(Paux) MODdata.PauxSum.Add(Paux)
MODdata.Grad.Add(Vh.fGrad(dist)) MODdata.Grad.Add(Vh.fGrad(dist))
...@@ -1500,7 +1495,7 @@ lb_nOK: ...@@ -1500,7 +1495,7 @@ lb_nOK:
eps = 0.00005 eps = 0.00005
a = MODdata.Vh.a(t) a = MODdata.Vh.a(t)
PvD = fPvD(t, v, a, Grad) PvD = fPwheel(t, v, a, Grad)
If PvD > eps Then If PvD > eps Then
vVorz = -1 vVorz = -1
...@@ -1535,7 +1530,7 @@ lb_nOK: ...@@ -1535,7 +1530,7 @@ lb_nOK:
LastPvD = PvD LastPvD = PvD
PvD = fPvD(t, v, a, Grad) PvD = fPwheel(t, v, a, Grad)
End If End If
...@@ -1572,7 +1567,7 @@ lb_nOK: ...@@ -1572,7 +1567,7 @@ lb_nOK:
Grad = MODdata.Vh.fGrad(s) Grad = MODdata.Vh.fGrad(s)
PvD = fPvD(t, v, a, Grad) PvD = fPwheel(t, v, a, Grad)
Pe = PvD + fPlossGB(PvD, v, Gear, True) + fPlossDiff(PvD, v, True) + fPaG(v, a) + fPlossRt(v, Gear) + fPaux(t, nU) + fPaMot(t, Gear, v, a) Pe = PvD + fPlossGB(PvD, v, Gear, True) + fPlossDiff(PvD, v, True) + fPaG(v, a) + fPlossRt(v, Gear) + fPaux(t, nU) + fPaMot(t, Gear, v, a)
Diff = Math.Abs(Pdrag - Pe) Diff = Math.Abs(Pdrag - Pe)
...@@ -1608,7 +1603,7 @@ lb_nOK: ...@@ -1608,7 +1603,7 @@ lb_nOK:
LastDiff = Diff LastDiff = Diff
PvD = fPvD(t, v, a, Grad) PvD = fPwheel(t, v, a, Grad)
Pe = PvD + fPlossGB(PvD, v, Gear, True) + fPlossDiff(PvD, v, True) + fPaG(v, a) + fPlossRt(v, Gear) + fPaux(t, nU) + fPaMot(t, Gear, v, a) Pe = PvD + fPlossGB(PvD, v, Gear, True) + fPlossDiff(PvD, v, True) + fPaG(v, a) + fPlossRt(v, Gear) + fPaux(t, nU) + fPaMot(t, Gear, v, a)
Diff = Math.Abs(Pdrag - Pe) Diff = Math.Abs(Pdrag - Pe)
...@@ -1655,7 +1650,7 @@ lb_nOK: ...@@ -1655,7 +1650,7 @@ lb_nOK:
End Function End Function
#Region "Schaltmodelle" #Region "Gear Shift Methods"
Private Function fFastGearCalc(ByVal V As Single, ByVal Pe As Single) As Integer Private Function fFastGearCalc(ByVal V As Single, ByVal Pe As Single) As Integer
Dim Gear As Integer Dim Gear As Integer
...@@ -2089,7 +2084,7 @@ lb10: ...@@ -2089,7 +2084,7 @@ lb10:
'Function calculating the Power easily for Gear-shift-model 'Function calculating the Power easily for Gear-shift-model
Private Function fPeGearModvD(ByVal t As Integer, ByVal Grad As Single) As Single Private Function fPeGearModvD(ByVal t As Integer, ByVal Grad As Single) As Single
Return fPvD(t, Grad) Return fPwheel(t, Grad)
End Function End Function
Private Function fPeGearMod(ByVal Gear As Integer, ByVal t As Integer, ByVal V As Single, ByVal a As Single, ByVal Grad As Single) As Single Private Function fPeGearMod(ByVal Gear As Integer, ByVal t As Integer, ByVal V As Single, ByVal a As Single, ByVal Grad As Single) As Single
...@@ -2097,7 +2092,7 @@ lb10: ...@@ -2097,7 +2092,7 @@ lb10:
Dim nU As Single Dim nU As Single
Dim PvD As Single Dim PvD As Single
PvD = fPvD(t, V, a, Grad) PvD = fPwheel(t, V, a, Grad)
nU = fnU(V, Gear, False) nU = fnU(V, Gear, False)
...@@ -2123,7 +2118,7 @@ lb10: ...@@ -2123,7 +2118,7 @@ lb10:
#End Region #End Region
#Region "Drehzahl" #Region "Engine Speed Calculation"
Private Function fnn(ByVal V As Single, ByVal Gear As Integer, ByVal ClutchSlip As Boolean) As Single Private Function fnn(ByVal V As Single, ByVal Gear As Integer, ByVal ClutchSlip As Boolean) As Single
Return (fnU(V, Gear, ClutchSlip) - ENG.Nidle) / (ENG.Nrated - ENG.Nidle) Return (fnU(V, Gear, ClutchSlip) - ENG.Nidle) / (ENG.Nrated - ENG.Nidle)
...@@ -2147,14 +2142,14 @@ lb10: ...@@ -2147,14 +2142,14 @@ lb10:
#End Region #End Region
#Region "Leistungsberechnung" #Region "Power Calculation"
'--------------Power before Diff = At Wheel ------------- '--------------Power before Diff = At Wheel -------------
Private Function fPvD(ByVal t As Integer, ByVal Grad As Single) As Single Private Function fPwheel(ByVal t As Integer, ByVal Grad As Single) As Single
Return fPr(MODdata.Vh.V(t), Grad) + fPair(MODdata.Vh.V(t), t) + fPaFZ(MODdata.Vh.V(t), MODdata.Vh.a(t)) + fPs(MODdata.Vh.V(t), Grad) Return fPr(MODdata.Vh.V(t), Grad) + fPair(MODdata.Vh.V(t), t) + fPaFZ(MODdata.Vh.V(t), MODdata.Vh.a(t)) + fPs(MODdata.Vh.V(t), Grad)
End Function End Function
Private Function fPvD(ByVal t As Integer, ByVal v As Single, ByVal a As Single, ByVal Grad As Single) As Single Private Function fPwheel(ByVal t As Integer, ByVal v As Single, ByVal a As Single, ByVal Grad As Single) As Single
Return fPr(v, Grad) + fPair(v, t) + fPaFZ(v, a) + fPs(v, Grad) Return fPr(v, Grad) + fPair(v, t) + fPaFZ(v, a) + fPs(v, Grad)
End Function End Function
......
VECTO/VECTO_Global.vb
+ 1
− 1
View file @ 12888c7a
...@@ -12,7 +12,7 @@ Imports System.Collections.Generic ...@@ -12,7 +12,7 @@ Imports System.Collections.Generic
Module VECTO_Global Module VECTO_Global
Public Const VECTOvers As String = "2.0.1-beta0" Public Const VECTOvers As String = "2.0.1-beta1"
Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4" Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4"
Public MyAppPath As String Public MyAppPath As String
Public MyConfPath As String Public MyConfPath As String
......
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