InputField[Dynamic[#], FieldSize -> 5] &[n]
Dynamic@If[NumberQ[n],
Grid@Table[{"\[Rho][" <> ToString[i] <> "]",
InputField[Dynamic[#], FieldSize -> 5] &[\[Rho][i]],
Checkbox[Dynamic[#]] &[c\[Rho][i]],
"\[Sigma][" <> ToString[i] <> "]",
InputField[Dynamic[#], FieldSize -> 5] &[\[Sigma][i]],
Checkbox[Dynamic[#]] &[c\[Sigma][i]]}, {i, 0, n}] ]
Dynamic[c\[Rho][1]]
When I put them in the package with Print@ it returns an error. So How can I print this from the package or some outside source? It Doesn't work in notebook either.