This webpage offers two versions (A & B) of an interactive Mathematica* 9 program developed with the support of NASA (under Project SA-14-042) to estimate the kinetic degradation parameters of nutrients, pigments and other heat labile compounds in stored and thermally processed foods (e.g., vitamins in processed and stored space-foods).
Both versions of the program are based on the following assumptions:
The difference between the two versions is that Version A's settings are for temperature ranges encountered in food storage while those of Version B are for ranges encountered in thermal processing, i.e., during heat pasteurization and sterilization.
The two programs, labeled A and B, are written in Mathematica* 9. They are presented below as Mathematica* notebook (.nb) files, which a user having the installed Mathematica* software can open, view, modify, execute and print. They are also available as Computable Document Format (.cdf) files which can be opened, viewed, printed and interacted with if you have downloaded and installed the free Wolfram CDF Player* application. They are also available as Adobe Portable Document Format (.pdf) files which can be opened, viewed and printed using the free Adobe Acrobat Reader DC+ application.
Version A: You should start by opening the file in Mathematica* and either importing two storage temperature history profiles (time, Temperature) from an external file (e.g., from a tab-separted ASCII text file) or by copying the two {time, Temperature} data lists from another Mathematica* notebook and pasting them into the indicated locations in the version A program's open notebook (.nb) window. You should then evaluate the notebook to run the program which first defines two InterpolatingFunctions, T1 and T2, from the two data sets and plots the two functions together on the same plot. The next step is to use the controls on the displayed Manipulate panel to enter the coordinates of the experimental endpoints with the sliders for tfinal1, Cexper1 and tfinal2, Cexper2. Next enter the values of nassumed and the chosen Tref using their sliders. Move the sliders for kTrefest and cest so as to make the two concentration ratio vs. time curves pass through the two points. The file should then be Saved under a new name that you select. The final values for for kTrefest and cest may be used either as initial guesses for a fit of the parameters k and c or as the values of the two parameters themselves.
Version B: Version B is used in the same manner as described above for Version A except that the (time, Temperature) data apply to heat processing rather than storage.
Use this page to download two Mathematica* 9 .nb (notebook) files (programs A & B). If you have Mathematica* version 9 or newer already installed then you can view the files immediately in a window of your web browser. However, once a notebook file is visible you should save it by clicking on the window of downloaded text and then choosing "Save Page As..." from your browser's File menu. If you have installed Mathematica* you will then be able to open, view, modify, execute and print the saved .nb files in Mathematica*. If you want to see an interactive but non-editable version of either file and you have the Wolfram CDF Player* installed, click on its .cdf link. If you want to see a static (non-interactive) version of either file and you have Adobe Acrobat Reader+ installed, click on its .pdf link.
A .nb file (446K) containing program A. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureDataA(Storage).nb
A .cdf file (446K) containing program A. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureDataA(Storage).cdf
A .pdf file (279K) containing program A. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureDataA(Storage).pdf
A .nb file (381K) containing program B. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureB(HeatProcessing).nb
A .cdf file (381K) containing program B. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureB(HeatProcessing).cdf
A .pdf file (258K) containing program B. To download, click here => DegradationParametersEstimationFromInterpolatedTemperatureB(HeatProcessing).pdf
* Mathematica® and Wolfram CDF Player® are registered trademarks of Wolfram Research, Inc.
You can get more information about Mathematica and the Wolfram CDF Player by visiting the Web site of Wolfram Research at: http://www.wolfram.com/
+ Adobe Acrobat Reader DC® is registered trademark of Adobe Systems, Inc.
You can get more information about Adobe Acrobat Reader by visiting the Web site of Adobe Systems at: http://www.adobe.com/