I have a code that works well. The code has been show below.
I want to switch the input 'k1' from being being a single value input to a slider between 0 and 1 in steps of 0.1. What would be the best way to do that? Would it be the use of 'Manipulate' or would it be some other function?
Thank you!
Sid
CloudDeploy[
FormPage[{"k1" -> "Number", "n1" -> "Number", "n2" -> "Number"},
(fig1 =
SmoothHistogram[
Table[Table[
If[RandomReal[] > #k1, RandomChoice[{100, 90}],
RandomChoice[{80, 70, 60, 50, 40}]], #n1], #n2],
PlotStyle -> Red];
Show[{fig1}]) &
]
]