#22 Erreur de calcul du Q guide technique

src/macrorugo/macrorugo.ts

@@ -100,7 +100,7 @@ export class MacroRugo extends Nub {
         }
         r.extraResults.Q_GuideTech = cQ[0] * Math.pow(this.prms.Y.v / hdk, cQ[1]) *
             Math.pow(this.prms.If.v, cQ[2]) * Math.pow(this.prms.C.v, cQ[3]) *
-            Math.sqrt(MacroRugo.g * this.prms.PBD.v) * this.prms.PBD.v * this.prms.B.v;
+            Math.sqrt(MacroRugo.g * hdk) * hdk * this.prms.B.v;
         if (this.prms.Y.v / this.prms.PBH.v <= MacroRugo.limitSubmerg) {
             r.extraResults.V_GuideTech = cV[0] * Math.pow(this.prms.Y.v / this.prms.PBD.v, cV[1]) *
                 Math.pow(this.prms.If.v, cQ[2]) * Math.sqrt(MacroRugo.g * this.prms.PBD.v);