From aa750ff93318be7a0bcfab50eedb50ecc8a71cc6 Mon Sep 17 00:00:00 2001 From: Emmanuele Sassi Date: Wed, 26 Oct 2022 12:28:36 +0200 Subject: [PATCH] - Cambio formule per costante k passata da unitaria in aggiunta a percentuale totale --- LuaLibs/RunMachParamFromSWCalc.lua | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/LuaLibs/RunMachParamFromSWCalc.lua b/LuaLibs/RunMachParamFromSWCalc.lua index f29fc2c..837e76d 100644 --- a/LuaLibs/RunMachParamFromSWCalc.lua +++ b/LuaLibs/RunMachParamFromSWCalc.lua @@ -14,7 +14,7 @@ local AMD = require( 'AddManData') --local MATERIAL = {} --MATERIAL.Name = 'AKROMID® B3 ICF 40' ---MATERIAL.K = 0.1 +--MATERIAL.K = 110 --MATERIAL.C1 = 0.8742 --MATERIAL.C2 = 0.8964 --MATERIAL.Density = 1.31 @@ -132,7 +132,7 @@ function RunMachParamFromSWCalc.Exec() -- calcolo la portata local Vf = dLayerFeed * ( ( dStrand - dSliceStep) * dSliceStep + pi * pow( dSliceStep / 2, 2)) / 1000 -- calcolo speed - local dSpeed = ( 1 + MATERIAL.K) * pow( Vf / MATERIAL.C1, 1 / MATERIAL.C2) + local dSpeed = ( MATERIAL.K / 100.0) * pow( Vf / MATERIAL.C1, 1 / MATERIAL.C2) -- verifico se speed esce da minimo e massimo della macchina local bSpeedOk = true if dSpeed < dSMin then @@ -144,7 +144,7 @@ function RunMachParamFromSWCalc.Exec() dSpeed = dSMax end if not bSpeedOk then - dLayerFeed = ( MATERIAL.C1 * pow( ( dSpeed / ( 1 + MATERIAL.K)), MATERIAL.C2)) * 1000 / ( ( dStrand - dSliceStep) * dSliceStep + pi * pow( dSliceStep / 2, 2)) + dLayerFeed = ( MATERIAL.C1 * pow( ( dSpeed / ( MATERIAL.K / 100.0)), MATERIAL.C2)) * 1000 / ( ( dStrand - dSliceStep) * dSliceStep + pi * pow( dSliceStep / 2, 2)) dLayerTime = dTotLayerLength / dLayerFeed * 60 end -- calcolo massa dello strato