Egalware/3dprinting
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- Cambio formule per costante k passata da unitaria in aggiunta a percentuale totale

Browse Source
This commit is contained in:
Emmanuele Sassi
2022-10-26 12:28:36 +02:00
parent 7ced9ec2f4
commit aa750ff933
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/RunMachParamFromSWCalc.lua
+3 -3
View File
@@ -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