Manipulate[
DynamicModule[{pset, t300, t350, t400, t450, t500, t550, lookupT,
plotIt, jmak1, lookupN, lookupTau, lookupK, jmakFunction, varData,
varCalcY, vars, kay, tee, enn, sums, varList1, varList2, mins,
tots},
t300 = {{15, 0.01}, {55, 0.01}, {110, 0.06}, {180, 0.21}, {230,
0.41}, {295, 0.62}, {335, 0.74}, {560, 0.96}, {5000,
1}}; t350 = {{15, .01}, {30, 0.01}, {57, 0.06}, {89, 0.15}, {124,
0.77}, {170, 0.91}, {215, 0.97}, {280, 0.99}, {5000,
1}}; t400 = {{15, 0.01}, {17.5, 0.015}, {29, 0.02}, {53,
0.14}, {65, 0.25}, {110, 0.88}, {140, 0.96}, {170, 0.995}, {5000,
1}}; t450 = {{15, .01}, {50, 0.05`}, {61, 0.1`}, {78, 0.15`}, {81,
0.2`}, {95, 0.32`}, {107, 0.4`}, {125, 0.6`}, {180, 0.9`}, {200,
0.97`}, {220, 0.99`}, {5000, 1}}; t500 = {{15, .01}, {35,
0.01`}, {60, 0.04`}, {95, 0.15`}, {120, 0.31`}, {155, 0.5`}, {180,
0.6`}, {190, 0.75`}, {280, 0.96`}, {320, 0.99`}, {5000,
1}}; t550 = {{15, .01}, {105, 0.03`}, {200, 0.12`}, {270,
0.21`}, {320, 0.4`}, {380, 0.61`}, {1900, 1}, {5000, 1}};
lookupT = Switch[Temperature,
"300\[Degree] C", t300,
"350\[Degree] C", t350,
"400\[Degree] C", t400,
"450\[Degree] C", t450,
"500\[Degree] C", t500,
"550\[Degree] C", t550];
varList1 =
Flatten[Table[(lookupT[[All,
2]] - (1 - E^(-kay*((lookupT[[All, 1]])^enn)))), {enn, 1, 4,
0.5}, {kay, 1, 3, 0.5}], 1];
Print[varList1]
],
{Temperature, {"300\[Degree] C", "350\[Degree] C", "400\[Degree] C",
"450\[Degree] C", "500\[Degree] C", "550\[Degree] C"}},
]