(*libLIST=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libLIST.m"]<>"\n";
libNAMES=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libNAMES.m"]<>"\n";
libIO=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libIO.m"]<>"\n";
libERR=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libERR.m"]<>"\n";
libGUI=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libGUI.m"]<>"\n";
libGraphics=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libGraphics.m"]<>"\n";
libML=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libML.m"]<>"\n";
libMISC=ReadString["/Users/darashayda1xfer/Desktop/MODULES/Ryerson/TRSMREL/libMISC.m"]<>"\n";*)

libLIST=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libLIST.m"]<>"\n";
libNAMES=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libNAMES.m"]<>"\n";
libIO=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libIO.m"]<>"\n";
libERR=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libERR.m"]<>"\n";
libGUI=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libGUI.m"]<>"\n";
libGraphics=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libGraphics.m"]<>"\n";
libML=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libML.m"]<>"\n";
libMISC=ReadString["C:/mathematica/Work/lossofgenerality/TRSM/10.3/libMISC.m"]<>"\n";

data1="\n"<>"textfghjkl:="<>ToString[
{"Column[{fghjkl"<>".ToString[\"If @a:@b = #a:#b, and it is known that @c = #p, find the value of @a. \"]"<>","<>"ToString[\"\",TraditionalForm]}]"},InputForm]<>";\n ";

data2="listfghjkl:="<>


ToString[{""

},InputForm]<>";\n ";

data=ToString[{data1, data2}, InputForm];

variation1=ToExpression[data][[1]]<>ToExpression[data][[2]]<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,g,p, vars,text,list,sol,question},


text=qRandList[textfghjkl];

(*aa=RandomChoice@listfghjkl;*)
{aa,bb}=nLetters[{"a","z"},2];

{a,b}={1,1};
While[a==b,{a,b}=RandomPrime[{2,40},2]];
{a,b}=ToString/@{a,b};
(*{a,b}=nIntegers[Range[5,25],2];*)
g=RandomChoice[{1,2}];
Which[g==1,
cc=bb;
p=ToString[ToExpression[b]*RandomInteger[{3,7}]],
g==2,
cc=aa;
p=ToString[ToExpression[a]*RandomInteger[{3,7}]]
];



vars={aa,bb,a,b,ToString@g,p};
If[ToExpression[g]==1,sol=ToString@Simplify[ToExpression[p]*ToExpression[a]/ToExpression[b]],sol=ToString@Simplify[ToExpression[p]*ToExpression[b]/ToExpression[a]]];



question=StringReplace[text, {"@a"->aa,"@b"->bb,"@c"->cc,"#a"->a,"#b"->b,"#p"->p}];

{{question," "},{vars}, {sol}}

]],InputForm]<>"\n ";


solution1=data1<>data2<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,p,g, text,list,sol, body={},vars=ertyuiop},



{aa,bb,a,b,g,p}=vars[[1]];
If[ToExpression[g]==1,sol=ToString@Simplify[ToExpression[p]*ToExpression[a]/ToExpression[b]],sol=ToString@Simplify[ToExpression[p]*ToExpression[b]/ToExpression[a]]];




body={
{If[ToExpression[g]==1,
ToString[ToString[(aa/bb),TraditionalForm] <>" = "<>ToString[ (a/b),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[bb,TraditionalForm]<>" = "<>ToString[p,TraditionalForm]<>"\n"<>
""<>"\n"<>
ToString[ToString[(aa/p),TraditionalForm] <>" = "<>ToString[ (a/b),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[ToString[aa,TraditionalForm] <>" = "<>ToString[ ((ToString[a<>"×"<>p,TraditionalForm])/b),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[ToString[aa,TraditionalForm] <>" = "<>ToString[ (1/b)ToString[ToExpression[a]*ToExpression[p],TraditionalForm],TraditionalForm],TraditionalForm]<>"\n"<>
ToString[aa<>" = "<>sol,TraditionalForm]
,
ToString[ToString[(aa/bb),TraditionalForm] <>" = "<>ToString[ (a/b),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[aa,TraditionalForm]<>" = "<>ToString[p,TraditionalForm]<>"\n"<>
""<>"\n"<>
ToString[ToString[(p/bb),TraditionalForm] <>" = "<>ToString[ (a/b),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[ToString[bb,TraditionalForm] <>" = "<>ToString[ ((ToString[b<>"×"<>p,TraditionalForm])/a),TraditionalForm],TraditionalForm]<>"\n"<>
ToString[ToString[bb,TraditionalForm] <>" = "<>ToString[ (1/a)ToString[ToExpression[b]*ToExpression[p],TraditionalForm],TraditionalForm],TraditionalForm]<>"\n"<>
ToString[bb<>" = "<>sol,TraditionalForm]

]
},
{Null }
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";


hint1=ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj, text,list,sol, body={},vars=ertyuiop},


body={
{"",
"Use cross multiplication (a/b) = (x/c) ⟹ x = (ac/b)",
""},
{Null ,Null, Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";

data1="\n"<>"textfghjkl:="<>ToString[
{"Column[{fghjkl"<>".ToString[\"An airline called @z charges two different rates for seats. Currently, the ratio of number of tickets sold at the higher rate compared to the number of tickets sold at the lower rate is #a:#b. However, once the recession began, #c fewer tickets were sold at higher rate and #d more tickets were sold at lower rate. As a result, the ratio during the recession was #e:#f. Find the number of @a tickets sold originally.\"]"<>","<>"ToString[\"\",TraditionalForm]}]"},InputForm]<>";\n ";

data2="listfghjkl:="<>


ToString[{"USAIR","AIR CANADA", "TWA","LOT Polish Airlines"

},InputForm]<>";\n ";

data=ToString[{data1, data2}, InputForm];

variation2=ToExpression[data][[1]]<>ToExpression[data][[2]]<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,x,z,a,b,c,d,e,f,s1,s2,g,sol3,sol123,diff, vars,text,list,sol,question},


text=RandomChoice@textfghjkl;

z=RandomChoice@listfghjkl;
(*ANNA: make it works *)
g=RandomChoice[{1,2}];
Which[g==1,aa="higher rate",g==2,aa="lower rate"];

{a,b}={2,1};
While[b≤a,{a,b}=RandomPrime[{4,17},2]];
{e,f}={a,b};
While[(e/f)≥(a/b),{e,f}=RandomPrime[{1,12},2]];
x=RandomInteger[{50,60}]*(e+7*f);
sol123=Solve[x*(a*f-e*b)== (e*d+7*d*f) ,d,Integers];
d=d/.sol123[[1]];
c=7*d;
{a,b,c,d,e,f,x}=ToString/@{a,b,c,d,e,f,x};

(*a=ToString@RandomInteger[{2,6}];
b=ToString@RandomInteger[{7,15}];
{c,d,e,f}=ToString/@{300,400,500,600};*)
vars={a,b,c,d,e,f,z,x,g};
s1=Simplify[ToExpression[a]*ToExpression[x]];
s2=Simplify[ToExpression[b]*ToExpression[x]];
If[g==1,sol=ToString@s1,sol=ToString@s2];(*(Higher,lower)*)



question=StringReplace[text, {"@a"->aa,"@z"->z,"#a"->a,"#b"->b,"#c"->c,"#d"->d,"#e"->e,"#f"->f}];

{{question," "},{vars}, {sol}}

]],InputForm]<>"\n ";


solution2=data1<>data2<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,c,d,e,f,z,x,s1,s2,g, text,list,sol, body={},vars=ertyuiop},



{a,b,c,d,e,f,z,x,g}=vars[[1]];
s1=Simplify[ToExpression[a]*ToExpression[x]];
s2=Simplify[ToExpression[b]*ToExpression[x]];
sol=ToString/@{s1,s2};




body={
{ToString[makeTextTable[{{"","Acual # of tickets","Tickets Sales\nDuring Recession"},{"Higher",a<>"x",a<>"x - "<>c},{"Lower",b<>"x",b<>"x + "<>d}}],TraditionalForm],

ToString[((ToString[a<>"x - "<>c,TraditionalForm])/(ToString[b<>"x + "<>d,TraditionalForm])),TraditionalForm]<>" = "<>ToString[((ToString[e,TraditionalForm])/(ToString[f,TraditionalForm])),TraditionalForm],

ToString[ToString[ToString[ToExpression[f]*ToExpression[a]]<>"x - "<>ToString[ToExpression[f]*ToExpression[c]],TraditionalForm],TraditionalForm]<>" = "<>ToString[ToString[ToString[ToExpression[e]*ToExpression[b]]<>"x + "<>ToString[ToExpression[e]*ToExpression[d]],TraditionalForm] ,TraditionalForm],

ToString[ToString[ToString[ToExpression[f]*ToExpression[a]]<>"x - "<>ToString[ToExpression[e]*ToExpression[b]]<>"x",TraditionalForm],TraditionalForm]<>" = "<>ToString[ToString[ToString[ToExpression[e]*ToExpression[d]]<>" + "<>ToString[ToExpression[f]*ToExpression[c]],TraditionalForm] ,TraditionalForm],

ToString[ToString[ToString[ToExpression[f]*ToExpression[a]-ToExpression[e]*ToExpression[b]]<>"x",TraditionalForm],TraditionalForm]<>" = "<>ToString[ToExpression[e]*ToExpression[d]+ToExpression[f]*ToExpression[c],TraditionalForm] ,
"x = "<>x<>"\n",

"Higher rate tickets = "<>a<>"("<>x<>") ="<>ToString[ToExpression[a]*ToExpression[x],TraditionalForm],

"Lower rate tickets = "<>b<>"("<>x<>") ="<>ToString[ToExpression[b]*ToExpression[x],TraditionalForm],
"Answer :"<>If[g==1,ToString[ToExpression[a]*ToExpression[x],TraditionalForm],ToString[ToExpression[b]*ToExpression[x],TraditionalForm]]
},
{Null ,Null, Null,Null,Null,Null,Null,Null,Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";


hint2=ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj, text,list,sol, body={},vars=ertyuiop},


body={
{"(Ratio/(a : b))        (Actual/(ax : bx))",
" ",
"Use cross multiplication: (a/b)=(x/c) ⟹ x = (ac/b)"},
{Null ,Null, Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";

data1="\n"<>"textfghjkl:="<>ToString[
{"Column[{fghjkl"<>".ToString[\"The ratio of @aa to @bb in a particular @cc is #a:#b. If there is a total of #c @dd, determine the number of @ee in the @cc.   \"]"<>","<>"ToString[\"\",TraditionalForm]}]"},InputForm]<>";\n ";

data2="listfghjkl:="<>


ToString[{{"hybrid cars","regular cars","car dealership","cars"},
{"laptops","regular computers","computer manufacturer","computers"},
{"sunglasses","regular glasses","eyeglass store","glasses"}

},InputForm]<>";\n ";

data=ToString[{data1, data2}, InputForm];

variation3=ToExpression[data][[1]]<>ToExpression[data][[2]]<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,z,a,b,c,d,e,f,x, vars,text,list,sol,question},


text=RandomChoice@textfghjkl;

{aa,bb,cc,dd}=RandomChoice@listfghjkl;
ee=RandomChoice[{aa,bb}];
x=ToString@RandomInteger[{10,20}];
{a,b}={1,1};
While[a==b,{a,b}=RandomPrime[{2,25},2]];
{a,b}=ToString/@{a,b};
c=ToString@(ToExpression[x]*(ToExpression[a]+ToExpression[b]));
(*{a,b,c}=ToString/@{100,200,300};*)
vars={aa,bb,cc,dd,a,b,c,x,ee};
If[ee===aa,
sol=ToString[ToExpression[x]*ToExpression[a],TraditionalForm],
sol=ToString[ToExpression[x]*ToExpression[b],TraditionalForm]
];



question=StringReplace[text, {"@aa"->aa,"@ee"->ee,"@bb"->bb,"@cc"->cc,"@dd"->dd,"#a"->a,"#b"->b,"#c"->c}];

{{question," "},{vars}, {sol}}

]],InputForm]<>"\n ";


solution3=data1<>data2<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,c,d,e,f,z,x, text,list,sol, body={},vars=ertyuiop},



{aa,bb,cc,dd,a,b,c,x,ee}=vars[[1]];
If[ee===aa,
sol=ToString[ToExpression[x]*ToExpression[a],TraditionalForm],
sol=ToString[ToExpression[x]*ToExpression[b],TraditionalForm]
];

body={
{ToString[makeTextTable[{{"","Acual # of "<>dd},{aa,a<>"x"},{bb,b<>"x"},{"Total",c}}],TraditionalForm],
a<>"x + "<>b<>"x = "<>c,
ToString[ToExpression[a]+ToExpression[b],TraditionalForm]<>"x = "<>c,
"x = "<>x,
aa<>" = "<>a<>"("<>x<>") = "<>ToString[ToExpression[x]*ToExpression[a],TraditionalForm],
bb<>" = "<>b<>"("<>x<>") = "<>ToString[ToExpression[x]*ToExpression[b],TraditionalForm],
"Answer:"<>sol
},
{Null ,Null, Null,Null,Null,Null,Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";


hint3=ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj, text,list,sol, body={},vars=ertyuiop},


body={
{"",
"(Ratio/(a : b))        (Actual/(ax : bx))",
""},
{Null ,Null, Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";

data1="\n"<>"textfghjkl:="<>ToString[
{"Column[{fghjkl"<>".ToString[\"A method for determining the value of a company is the ratio of the company's assets to its @aa. In a company called @bb, the assets to debts ratio was #a:#b. It is also known that the difference between the company's assets and its @aa was #c. Find the value of @aa of @bb.\"]"<>","<>"ToString[\"\",TraditionalForm]}]"},InputForm]<>";\n ";

data2="listfghjkl:="<>


ToString[{"debts","liabilities"

},InputForm]<>";\n ";

data=ToString[{data1, data2}, InputForm];

variation4=ToExpression[data][[1]]<>ToExpression[data][[2]]<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b, c,x,vars,text,list,sol,question},


text=qRandList[textfghjkl];

aa=RandomChoice@listfghjkl;
bb=RandomChoice@{"Ceylon Tea Inc.","TorontoTechs", "International Foods LLC", "Gadgets Inc.","JackSmart"};
x=ToString@RandomInteger[{1000,2000}];
{a,b}={1,2};
While[a<=b,{a,b}=RandomPrime[{2,25},2]];
{a,b}=ToString/@{a,b};
c=ToString@(ToExpression[x]*(ToExpression[a]-ToExpression[b]));
vars={aa,bb,a,b,c,x};
sol=ToString@(ToExpression[x]*ToExpression[b]);



question=StringReplace[text, {"@aa"->aa,"@bb"->bb,"#a"->a,"#b"->b,"#c"->c}];

{{question," "},{vars}, {sol}}

]],InputForm]<>"\n ";


solution4=data1<>data2<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b, c,x,text,list,sol, body={},vars=ertyuiop},



{aa,bb,a,b,c,x}=vars[[1]];
sol=ToString@(ToExpression[x]*ToExpression[b]);




body={
{ToString[makeTextTable[{{"","Acual #  "},{"Assets",a<>"x"},{aa,b<>"x"},{"Difference",c}}],TraditionalForm],
a<>"x - "<>b<>"x = "<>c,
ToString[ToExpression[a]-ToExpression[b],TraditionalForm]<>"x = "<>c,
"x = "<>x<>"\n",
aa<>" = "<>b<>"("<>x<>") = ",
"= $"<>sol
},
{Null ,Null, Null,Null,Null,Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";


hint4=ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj, text,list,sol, body={},vars=ertyuiop},


body={
{"",
"(Ratio/(a : b))        (Actual/(ax : bx))",
""},
{Null ,Null, Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";

data1="\n"<>"textfghjkl:="<>ToString[

{"Column[{fghjkl"<>".ToString[\"In a certain @aa, the ratio of those paid at the higher rate to those paid at the lower rate is #a:#b. If people are paid $#c at the higher rate and $#d at the lower rate and the total paid out each hour to all employees is $#e, determine @bb in the @aa. \"]"<>","<>"ToString[\"\",TraditionalForm]}]",

(* higher lower and c and d are swapped *)
"Column[{fghjkl"<>".ToString[\"In a certain @aa, the ration of those paid at the higher rate to those paid at the lower rate is #a:#b. If people are paid $#d at the lower rate and $#c at the higher rate and the total paid out each hour to all employees is $#e, determine @bb in the @aa. \"]"<>","<>"ToString[\"\",TraditionalForm]}]"},
InputForm]<>";\n ";

data2="listfghjkl:="<>


ToString[{"hotel","corporation","business"

},InputForm]<>";\n ";

data=ToString[{data1, data2}, InputForm];

variation5=ToExpression[data][[1]]<>ToExpression[data][[2]]<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,c,d,e,x,g, vars,text,list,sol,question},


text=qRandList[textfghjkl];

aa=RandomChoice@listfghjkl;
g=RandomChoice[{1,2,3}];
Which[g==1,
bb="the total number of employees",
g==2,
bb="the number of employees paid at the higher rate",
g==3,
bb="the number of employees paid at the lower rate"
];

(*{a,b,c,d,e,x}=ToString/@{100,200,300,400,500};*)
{a,b}={2,1};
While[b≤a,{a,b}=RandomPrime[{2,25},2]];
{a,b}=ToString/@{a,b};
x=ToString@RandomInteger[{13,23}];
c=RandomInteger[{25,35}];
d=c-RandomInteger[{6,12}];
{c,d}=ToString/@{c,d};
e=ToString@(ToExpression[x]*(ToExpression[a]*ToExpression[c]+ToExpression[b]*ToExpression[d]));

vars={aa,a,b,c,d,e,x};
Which[g==1,
sol=ToString@(ToExpression[a]*ToExpression[x]+ToExpression[b]*ToExpression[x]),
g==2,
sol=ToString@(ToExpression[a]*ToExpression[x]),
g==3,
sol=ToString@(ToExpression[b]*ToExpression[x])
];



question=StringReplace[text, {"@aa"->aa,"@bb"->bb,"#a"->a,"#b"->b,"#c"->c,"#d"->d,"#e"->e}];

{{question," "},{vars}, {sol}}

]],InputForm]<>"\n ";


solution5=data1<>data2<>ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj,a,b,c,d,e,x, text,list,sol, body={},vars=ertyuiop},



{aa,a,b,c,d,e,x}=vars[[1]];
sol=ToString@(ToExpression[a]*ToExpression[x]+ToExpression[b]*ToExpression[x]);




body={
{ToString[makeTextTable[{{"","# of people","Salary/Person","Total Salary"},{"Higher",a<>"x","$"<>c,c<>"("<>a<>"x) = "<>ToString[ToExpression[c]*ToExpression[a],TraditionalForm]<>"x"},
{"Lower",b<>"x","$"<>d,d<>"("<>b<>"x) = "<>ToString[ToExpression[d]*ToExpression[b],TraditionalForm]<>"x"},
{"Total","","","$"<>e}}],TraditionalForm],
ToString[ToExpression[c]*ToExpression[a],TraditionalForm]<>"x"<>" + "<>ToString[ToExpression[d]*ToExpression[b],TraditionalForm]<>"x"<>" = "<>e,
ToString[ToExpression[c]*ToExpression[a]+ToExpression[d]*ToExpression[b],TraditionalForm]<>"x"<>" = "<>e,
"x = "<>x,
"\nPeople paid at a higher rate = "<>a<>"("<>x<>") = "<>ToString[ToExpression[a]*ToExpression[x],TraditionalForm],
"People paid at a lower rate = "<>b<>"("<>x<>") = "<>ToString[ToExpression[b]*ToExpression[x],TraditionalForm],
"———————————————————",
"Total number of employees = "<>sol},
{Null ,Null, Null,Null,Null,Null,Null,Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";


hint5=ToString[Hold[Module[{aa,bb,cc,dd,ee, ff, gg, hh, ii, jj, text,list,sol, body={},vars=ertyuiop},


body={
{"",
"Set up the unit price number of item and revenue table",
"(Ratio/(a : b))        (Actual/(ax : bx))"},
{Null ,Null, Null}
};

Panel[Grid[Transpose[body]]]

]],InputForm]<>"\n ";

CONFIGURATION AREA

proc1=ToString[{ToString[Hold[Module[{},"level"]],InputForm],variation1,hint1,solution1},InputForm]<>";\n";
proc2=ToString[{ToString[Hold[Module[{},"level"]],InputForm],variation2,hint2,solution2},InputForm]<>";\n";
proc3=ToString[{ToString[Hold[Module[{},"level"]],InputForm],variation3,hint3,solution3},InputForm]<>";\n";
proc4=ToString[{ToString[Hold[Module[{},"level"]],InputForm],variation4,hint4,solution4},InputForm]<>";\n";
proc5=ToString[{ToString[Hold[Module[{},"level"]],InputForm],variation5,hint5,solution5},InputForm]<>";\n";



ToExpression@libGUI;
panelsMIX={
StringReplace[qpanelMulti,{"pn0"->ToString[1],"proc0"->proc1,"libs"->(libLIST<>"\n"<>libNAMES<>"\n"<>libIO<>"\n"<>libERR),"err0"->"{errNO}","inputsize0"->"{5}","level00"->ToString[{1,1,{}}],"max0"->"3","mult0"->"1","diag00"->"0","IO00"->"qClick"}],

StringReplace[qpanelMulti,{"pn0"->ToString[2],"proc0"->proc2,"libs"->(libLIST<>"\n"<>libNAMES<>"\n"<>libIO<>"\n"<>libERR),"err0"->"{errNO}","inputsize0"->"{10}","level00"->ToString[{1,1,{}}],"max0"->"3","mult0"->"1","diag00"->"0","IO00"->"qClick"}],

StringReplace[qpanelMulti,{"pn0"->ToString[3],"proc0"->proc3,"libs"->(libLIST<>"\n"<>libNAMES<>"\n"<>libIO<>"\n"<>libERR),"err0"->"{errNO}","inputsize0"->"{10}","level00"->ToString[{1,1,{}}],"max0"->"3","mult0"->"1","diag00"->"0","IO00"->"qClick"}],

StringReplace[qpanelMulti,{"pn0"->ToString[4],"proc0"->proc4,"libs"->(libLIST<>"\n"<>libNAMES<>"\n"<>libIO<>"\n"<>libERR),"err0"->"{errNO}","inputsize0"->"{5}","level00"->ToString[{1,1,{}}],"max0"->"3","mult0"->"1","diag00"->"0","IO00"->"qClick"}],

StringReplace[qpanelMulti,{"pn0"->ToString[5],"proc0"->proc5,"libs"->(libLIST<>"\n"<>libNAMES<>"\n"<>libIO<>"\n"<>libERR),"err0"->"{errNO}","inputsize0"->"{5}","level00"->ToString[{1,1,{}}],"max0"->"3","mult0"->"1","diag00"->"0","IO00"->"qClick"}]

};

CDF Area

CDFDeploy[ToFileName[{$UserDocumentsDirectory},"TRSM_RATIO_PRAC.cdf"],Column[Table[ReleaseHold[ToExpression[panelsMIX[[i]]]],
{i,1,Length[panelsMIX]}]],
"Method"->"Standalone"];

Test Area

Column[Table[ReleaseHold[ToExpression[panelsMIX[[i]]]],{i,1,Length[panelsMIX]}]]