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.