Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement