Voor stage moet ik een stukje VB converteren naar PHP.
Het gaat om de volgende functie:

PHP Code:

Public Function DP_ROHR_PVC(Durchm_mm As Single, Laenge_mm As Single, _
  KG_PRO_H As Single, Temp_C As Single)
  
Const PI As Single = 3.1415926536
Const RHO As Single = 1350  'Schmelzdichte PVC = 1130 kg/m³ Compuplast 1350 kg/m³
Const K As Single = 46121   'war 46121
Const N As Single = 0.34    'war 0.34
Const B As Single = 0.02    'war 0.02

Dim D, L, MP, T, VP, GA, GK, E, PE, Erg(4) As Double
  
  D = Durchm_mm / 1000  'm
  L = Laenge_mm / 1000  'm
  MP = KG_PRO_H
  T = Temp_C
  
  'Schergeschwindigkeit
  VP = MP / RHO / 3600      'Volumenstrom m³/s
  GA = 32 * VP / PI / D ^ 3 'scheinbare Schergeschwindigkeit
  GK = GA * (3 + 1 / N) / 4 'korrigierte Schergeschwindigkeit nach Rabinowitsch
    
  ' Berechnung Viskosität von PVC; Quelle Compuplast
  E = K * Exp(-B * (T - 182)) * GK ^ (N - 1)
  
  'Druckverlust
  Erg(0) = 4 * L * E * GK / D / 100000 'Druckverlust in bar
  Erg(1) = GK 'korrigierte Schergeschwindigkeit
  Erg(2) = 0
    If L > 0 Then Erg(2) = Erg(0) * D / 4 / L * 100 'Wandschubspannung in kPa
  Erg(3) = D * D * PI / 4 * L * 3600 * RHO / MP 'Verweilzeit in sec
  Erg(4) = GA
  
  DP_ROHR_PVC = Erg()
  
End Function 


Nu heb ik dit als code:

PHP Code:

        function DP_ROHR_PVC($D, $L, $MP, $T) {
            
            $PI     = 3.1415926536;
            $RHO     = 1350;
            $K         = 46121;
            $N        = 0.34;
            $B        = 0.02;
            
            $D = $D / 1000;
            $L = $L / 1000;
            
            $VP = $MP / $RHO / 3600;
            $GA = 32 * $VP / $PI / pow ($D,3);
            $GK = $GA*(3+1/$N)/4;
            $LA = pow ($GK,($N-1));
            
            $E = $K * EXP(-$B * ($T - 182)) * $GK;

            // Tot hier is doe goed  //      

            $ERG = 4*$L*$E*$GK/$D/100000;
            
            return $ERG;
            
        } 


Nu zal ik graag willen weten hoe ik de correcte uitkomst van ERG ga krijgen.

Iemand verstand van VB?
Aanvullend bericht:
Fixed