Message Boards Message Boards

Slider value change on output

Posted 2 years ago

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]
POSTED BY: Ma noj

Your Manipulate body only depends on c, not on d.

POSTED BY: Gianluca Gorni
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract