I wrote a package which has dynamics in it. I don't know how to make it print out many outputs from inside the condition if
:
Print@Dynamic[If[IntegerQ[n]&&Length[par]==3 n, Grid[Table[{Subscript["Amp",i]," = ",With[{i=i},InputField[Dynamic[par[[3i-2]]],Number, FieldSize->Tiny]],
Subscript[" \[Mu]",i]," = ",With[{i=i},InputField[Dynamic[par[[3i-1]]],Number, FieldSize->Tiny]],
Subscript[" \[Sigma]",i]," = ",With[{i=i},InputField[Dynamic[par[[3i]]], Number,FieldSize->Tiny]]
}, {i, n}]];
f=Sum[par[[3 i-2]] *Sqrt[2 \[Pi]] par[[3 i]] PDF[NormalDistribution[par[[3 i-1]],par[[3 i]]],t],{i,n}];""];
Show[ListPlot[mat, Joined->True],Plot[f,{t,lowlimit,upperlimit}, PlotStyle->Red]]
]
It doesn't output to main
the Grid
. How can I make it show up? Thanks.