# Create a CDF with "File-> -> Preview for Wolfram Player"?

Posted 2 years ago
2689 Views
|
|
1 Total Likes
|
 I am having a difficulty creating a cdf file from my program. Here is my code: k8 = 2*10^-4*24; k4 = 2*10^-4*24; k2 = 4*10^-5*24; k1 = 2*10^-5*24; Tmax = 100; RXN[t_, Reynolds_] := {k8*Reynolds*C8[t], k4*Reynolds*C4[t], k2*Reynolds*C2[t], k1*Reynolds*C1[t]}; STOI = {{-1, 0.45, 0.05, 0, 0.5}, { 0, -1, 0.15, 0.02, 0.83}, { 0, 0, -1, 0.20, 0.80}, { 0, 0, 0, -1, 1} }; Y[t_] := {C8[t], C4[t], C2[t], C1[t], Csmall[t]}; init = Y[0] == {3, 0, 0, 0, 0}; f[Reynolds_] := NDSolve[LogicalExpand[ Y'[t] == Transpose[STOI].RXN[t, Reynolds] && init], {C8, C4, C2, C1, Csmall}, {t, 0, Tmax}] Manipulate[ Module[{sol = f[Reynolds]}, Plot[Evaluate[Y[t] /. sol], {t, 0, Tmax}, ImageSize -> 400, PlotLegends -> {"C8", "C4", "C2", "C1", "<1mm"}, Frame -> True, FrameLabel -> {"Residence Time (d)", "C (g/L)"}]], {{Reynolds, 20}, 1, 100} ] When I run the program in Mathematica 12.0, the code works perfectly and I get this: However, when I go to File -> Preview for Wolfram Player, I get this:Please let me know what is wrong. Thank you very much!!!