Hello, As, "d" changes the values of "s" and "t" must also change. Similar to "c" also : as "c" changes the values of "s" and "t" must also change. I have tried to do it, but as I move slider "d", the values of "s" and "t" remain same. Thanks for help to resolve same
Clear[p, t]
sol2 = Table[
Take[Solve[
-10 p - 26 t == 5 &&
-5.3 p + 19 t == (var1 - 50),
{p, t}]], {var1, 10, 20}];
pSol1 = p /. sol2 // Flatten;
Column@Flatten[
var2 = Solve[
# == 0.42 - 2.4 s + 1.52 c &&
d == 15 - 1.4 s + 0.4258 c, {d, s}] & /@ pSol1, 1];
d[c_] = d /. var2 // Flatten;
s[c_] = s /. var2 // Flatten;
var10[c_] = Column@Flatten[Sqrt[c]/(s /. var2 // Flatten)];
Dynamic[Manipulate[
TextGrid[
{{"s", "t"},
{Column[s[c]],
var10[c]}},
Frame -> All,
Background -> {Automatic, 1 -> LightYellow},
ItemStyle -> {Automatic, 1 -> Bold},
Alignment -> {Center, Automatic, {{{2, -1}, {1, -1}} -> "."}}],
{c, 10, 30, 1, Appearance -> {"Labeled", "Open"}},
{d, 2, 12, Appearance -> {"Labeled", "Open"}}],
SaveDefinitions -> True]