input "Peso campione", pc
input "ml sgocc x sale", mlsale
input "ml sgocc x acidità", mlacidita
input "ml sgocc x zuccheri", mlzuccheri
input "ml acidità/sale prelevati", mlaciditasale
input "portato a ml", portatoaml
input "Res.Rifrattometrico.Tot", resriftot
input "Res.Secco.Tot", ressectot
d = (pc * mlaciditasale) / portatoaml
d = 100 / d
nacltot = (5-mlsale) * 0.00585 * d
nacltot = round(nacltot,3, "F")
naclnat = (resriftot - nacltot) / 50
naclnat = round(naclnat, 3, "F")
if naclnat > nacltot
naclagg = 0
endif
if naclnat < nacltot
naclagg = nacltot - naclnat
naclagg = round(naclagg, 3, "F")
endif
ressecnet = ressectot - naclagg
resrifnet = resriftot - naclagg
d1 = portatoaml / pc
zuccheririduttori = (0.0515 * d1 * 100) / (mlzuccheri-0.1)
zuccheririduttori = round(zuccheririduttori, 3, "F")
rapportozuccheri = (zuccheririduttori * 100) / resrifnet
rapportozuccheri = round(rapportozuccheri,3,"F")
aciditatotale = mlacidita * 0.007 * d
aciditatotale = round(aciditatotale,3,"F")
rapportoacidita = (aciditatotale * 100) / resrifnet
rapportoacidita = round(rapportoacidita,3,"F")
tipocampione$ = ""
if ressecnet > 12 & ressecnet <= 18
tipocampione$ = "semi concentrato"
endif
if ressecnet > 18 & ressecnet <= 28
tipocampione$ = "concentrato"
endif
if ressecnet > 28 & ressecnet <= 36
tipocampione$ = "doppio concentrato"
endif
if ressecnet > 36 & ressecnet <= 55
tipocampione$ = "triplo concentrato"
endif
if ressecnet > 55
tipocampione$ = "sestuplo concentrato"
endif
if tipocampione$ = ""
if resriftot < 12
tipocampione$ = "passata"
endif
if resriftot > 12 & resriftot <= 18
tipocampione$ = "semi concentrato"
endif
if resriftot > 18 & resriftot <= 28
tipocampione$ = "concentrato"
endif
if resriftot > 28 & resriftot <= 36
tipocampione$ = "doppio concentrato"
endif
if resriftot > 36 & resriftot <= 55
tipocampione$ = "triplo concentrato"
endif
if resriftot > 55
tipocampione$ = "sestuplo concentrato"
endif
endif
print "Tipo campione: " + tipocampione$
if ressectot > 0
print "Residuo secco totale g/100: " + str$(ressectot)
endif
if ressecnet > 0
print "Residuo secco netto g/100: " + str$(ressecnet)
endif
print "Residuo rif. totale g/100: " + str$(resriftot)
print "Residuo rif. netto g/100: " + str$(resrifnet)
print "-> (5 - " + str$(mlsale) + ") * 0.00585 * " + str$(d)
print "NaCl totale g/100: " + str$(nacltot)
print "-> (" + str$(resriftot) + " - " + str$(nacltot) + ")" + " / 50"
print "NaCl naturale g/100: " + str$(naclnat)

if naclagg = 0
print "NaCl aggiunto g/100: Assente"
else
print "NaCl aggiunto g/100: " + str$(naclagg)
endif

print "-> (0.0515 * 100 * " + str$(d1) + ") / (" + str$(mlzuccheri) + " - 0.1)"
print "Zuccheri riduttori g/100: " + str$(zuccheririduttori)

if ressecnet > 0
print "-> (" + str$(zuccheririduttori) + " * 100) / " + str$(ressecnet)
rapportozuccheri = (zuccheririduttori * 100) / ressecnet
rapportozuccheri = round(rapportozuccheri, 3, "F")
print "Rapporto zuccheri % " + str$(rapportozuccheri)
endif

if resrifnet > 0
print "-> (" + str$(zuccheririduttori) + " * 100) / " + str$(resrifnet)
rapportozuccheri = (zuccheririduttori * 100) / resrifnet
rapportozuccheri = round(rapportozuccheri, 3, "F")
print "Rapporto zuccheri % " + str$(rapportozuccheri)
endif

print "-> " + str$(mlacidita) + " * 0.007 * " + str$(d)
print "Acidità totale g/100: " + str$(aciditatotale)

if ressecnet > 0
print "-> (" + str$(aciditatotale) + " * 100) / " + str$(ressecnet)
rapportoacidita = (aciditatotale * 100) / ressecnet
rapportoacidita = round(rapportoacidita, 3, "F")
print "Rapporto acidità % " + str$(rapportoacidita)
endif

if resrifnet > 0
print "-> (" + str$(aciditatotale) + " * 100) / " + str$(resrifnet)
rapportoacidita = (aciditatotale * 100) / resrifnet
rapportoacidita = round(rapportoacidita, 3, "F")
print "Rapporto acidità % " + str$(rapportoacidita)
endif